Changeset a7fc7dd in git


Ignore:
Timestamp:
May 7, 1998, 7:53:29 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
6cf0d7083bbc5b3076bb5470b90dc0adb2365890
Parents:
7483ff3103d381b5a0875cab1fec824a577679b5
Message:
* hannes: added syntax rule "proc <name> <arglist> <string> <body>"


git-svn-id: file:///usr/local/Singular/svn/trunk@1654 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Singular/ChangeLog

    r7483ff3 ra7fc7dd  
     1Thu May  7 19:49:34 MET DST 1998 hannes
     2        * added syntax rule "proc <name> <arglist> <string> <body>"
     3        * speedup for feReadLine
    14Thu Apr 30 19:16:45 MET DST 1998 hannes
    25        * fixed "missing e-o-buffer" for long lines in febase.inc

  • Singular/febase.inc

    r7483ff3 ra7fc7dd  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: febase.inc,v 1.9 1998-05-05 18:07:21 Singular Exp $ */
     4/* $Id: febase.inc,v 1.10 1998-05-07 17:53:25 Singular Exp $ */
    55/*
    66* ABSTRACT: handling of 'voices'
    … …  
    450450        else if (c=='}') break;
    451451      }
    452       else if (yy_noeof==noeof_string)
    453       {
    454         if (c<' ')  yylineno++;
    455         else if (c=='"') break;
    456       }
    457452      else
    458453      {

  • Singular/grammar.y

    r7483ff3 ra7fc7dd  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.29 1998-04-24 16:39:20 Singular Exp $ */
     4/* $Id: grammar.y,v 1.30 1998-05-07 17:53:29 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
    … …  
    14451445            //Print(">>%s<<\n",IDPROC(h)->data.s.body);
    14461446          }
     1447        | PROC_DEF STRINGTOK STRINGTOK BLOCKTOK
     1448          {
     1449            FreeL((ADDRESS)$3);
     1450            idhdl h = enterid($1,myynest,PROC_CMD,&idroot,FALSE);
     1451            if (h==NULL)
     1452            {
     1453              FreeL((ADDRESS)$2);
     1454              FreeL((ADDRESS)$4);
     1455              YYERROR;
     1456            }
     1457            char *args=iiProcArgs($2,FALSE);
     1458            procinfov pi;
     1459            FreeL((ADDRESS)$2);
     1460            iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
     1461            IDPROC(h)->data.s.body = (char *)AllocL(strlen($4)+strlen(args)+14);;
     1462            sprintf(IDPROC(h)->data.s.body,"%s\n%s;return();\n\n",args,$4);
     1463            FreeL((ADDRESS)args);
     1464            FreeL((ADDRESS)$4);
     1465            //Print(">>%s<<\n",IDPROC(h)->data.s.body);
     1466          }
    14471467        ;
    14481468
Note: See TracChangeset for help on using the changeset viewer.