Changeset 6eb7f3 in git


Ignore:
Timestamp:
May 15, 2000, 2:47:45 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
f0cae2602b35bb9fae0f08ba962374c9f2d1bd8b
Parents:
baa3bbc4fd44f5b5a317b06544b7591546ff8ced
Message:
* hannes: execute is now a function


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

Legend:

Unmodified
Added
Removed

  • Singular/grammar.y

    rbaa3bb r6eb7f3  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.79 2000-01-27 16:53:45 Singular Exp $ */
     4/* $Id: grammar.y,v 1.80 2000-05-15 12:47:43 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
    … …  
    247247        /* put variables of this type into the currRing list */
    248248%token <i> EXAMPLE_CMD
    249 %token <i> EXECUTE_CMD
    250249%token <i> EXPORT_CMD
    251250%token <i> EXPORTTO_CMD
    … …  
    418417
    419418command: assign
    420          | executecmd
    421419         | exportcmd
    422420         | killcmd
    … …  
    10181016/* section of pure commands                                            */
    10191017/* --------------------------------------------------------------------*/
    1020 
    1021 executecmd:
    1022         EXECUTE_CMD expr
    1023           {
    1024             if ($2.Typ() == STRING_CMD)
    1025             {
    1026               char * s = (char *)AllocL(strlen((char *)$2.Data()) + 4);
    1027               strcpy( s, (char *)$2.Data());
    1028               strcat( s, "\n;\n");
    1029               $2.CleanUp();
    1030               newBuffer(s,BT_execute);
    1031             }
    1032             else
    1033             {
    1034               MYYERROR("string expected");
    1035             }
    1036           }
    1037         ;
    10381018
    10391019filecmd:

  • Singular/iparith.cc

    rbaa3bb r6eb7f3  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.210 2000-05-09 14:35:11 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.211 2000-05-15 12:47:44 Singular Exp $ */
    55
    66/*
    … …  
    162162  { "eval",        0, EVAL ,              EVAL},
    163163  { "example",     0, EXAMPLE_CMD ,       EXAMPLE_CMD},
    164   { "execute",     0, EXECUTE_CMD ,       EXECUTE_CMD},
     164  { "execute",     0, EXECUTE_CMD ,       CMD_1},
    165165  { "export",      0, EXPORT_CMD ,        EXPORT_CMD},
    166166#ifdef HAVE_NAMESPACES
    … …  
    26472647  return FALSE;
    26482648}
     2649static BOOLEAN jjEXECUTE(leftv res, leftv v)
     2650{
     2651  char * d = (char *)v->Data();
     2652  char * s = (char *)AllocL(strlen(d) + 13);
     2653  strcpy( s, (char *)d);
     2654  strcat( s, "\n;RETURN();\n");
     2655  newBuffer(s,BT_execute);
     2656  return yyparse();
     2657}
    26492658#ifdef HAVE_FACTORY
    26502659static BOOLEAN jjFACSTD(leftv res, leftv v)
    … …  
    35573566,{jjDUMP,       DUMP_CMD,        NONE,           LINK_CMD }
    35583567,{jjE,          E_CMD,           VECTOR_CMD,     INT_CMD }
     3568,{jjEXECUTE,    EXECUTE_CMD,     NONE,           STRING_CMD }
    35593569,{jjERROR,      ERROR_CMD,       NONE,           STRING_CMD }
    35603570#ifdef HAVE_FACTORY

  • Singular/tok.h

    rbaa3bb r6eb7f3  
    77* ABSTRACT: tokens, types for interpreter; general macros
    88*/
    9 /* $Id: tok.h,v 1.41 2000-05-09 14:33:03 Singular Exp $ */
     9/* $Id: tok.h,v 1.42 2000-05-15 12:47:45 Singular Exp $ */
    1010
    1111#ifndef MYYSTYPE
    … …  
    6969  END_GRAMMAR,
    7070  ERROR_CMD,
     71  EXECUTE_CMD,
    7172  EXTGCD_CMD,
    7273  FAC_CMD,
Note: See TracChangeset for help on using the changeset viewer.