Changeset 2ef280 in git


Ignore:
Timestamp:
May 6, 2005, 7:31:05 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '82fc009ea2b0098c1a4896c841bb70860976bdfc')
Children:
034fb497cb219b3b2cbdac20ddd2e9c933b8c75f
Parents:
b33f45b18119ac74e85de184817f94280e653df2
Message:
*hannes: exportto


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

Legend:

Unmodified
Added
Removed
  • Singular/distrib.h

    rb33f45b r2ef280  
    1 #undef MAKE_DISTRIBUTION
     1#undef MAKE_DISTRIBUTION 
  • Singular/grammar.y

    rb33f45b r2ef280  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.108 2005-05-06 12:16:47 Singular Exp $ */
     4/* $Id: grammar.y,v 1.109 2005-05-06 17:31:03 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
     
    11551155            if (iiExport(&$2,0)) YYERROR;
    11561156        }
    1157         | EXPORT_CMD exprlist extendedid expr
    1158         {
    1159           if ((strcmp($3,"to")!=0) ||
    1160           (($4.Typ()!=PACKAGE_CMD) && ($4.Typ()!=INT_CMD) &&
    1161            ($4.Typ()!=STRING_CMD)))
    1162             MYYERROR("export <id> to <package|int>");
    1163           omFree((ADDRESS)$3);
    1164           if ($4.Typ()==INT_CMD)
    1165           {
    1166             if (iiExport(&$2,((int)$4.Data())-1)) YYERROR;
    1167           }
    1168           else
    1169           {
    1170 #ifdef HAVE_NS
    1171             package p=(package)$4.Data();
    1172             if (p!=$2.req_packhdl)
    1173             {
    1174               if(iiExport(&$2,0,(idhdl)$4.data)) YYERROR;
    1175             }
    1176 #else
    1177             Print("%s::%s;\n", (char *)$4.Name(),$2.Name());
    1178 #endif /* HAVE_NS */
    1179           }
    1180         }
    11811157        ;
    11821158
  • Singular/iparith.cc

    rb33f45b r2ef280  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.354 2005-05-06 11:55:38 bricken Exp $ */
     4/* $Id: iparith.cc,v 1.355 2005-05-06 17:31:04 Singular Exp $ */
    55
    66/*
     
    16621662static BOOLEAN jjEXPORTTO(leftv res, leftv u, leftv v)
    16631663{
    1664   Print("exportto %s -> %s\n",v->Name(),u->Name() );
    1665   return FALSE;
     1664  //Print("exportto %s -> %s\n",v->Name(),u->Name() );
     1665  return iiExport(v,0,(idhdl)u->data);
    16661666}
    16671667static BOOLEAN jjERROR(leftv res, leftv u)
  • Singular/ipshell.cc

    rb33f45b r2ef280  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipshell.cc,v 1.109 2005-05-06 12:39:47 Singular Exp $ */
     4/* $Id: ipshell.cc,v 1.110 2005-05-06 17:31:05 Singular Exp $ */
    55/*
    66* ABSTRACT:
     
    459459        else if((IDTYP(h)==PACKAGE_CMD) || (IDTYP(h)==POINTER_CMD))
    460460        {
    461           Print("list_cmd:package or pointer\n");
     461          //Print("list_cmd:package or pointer\n");
    462462          all=TRUE;typ=PROC_CMD;fullname=TRUE;really_all=TRUE;
    463463          h=IDPACKAGE(h)->idroot;
Note: See TracChangeset for help on using the changeset viewer.