Changeset d721b0 in git for Singular/grammar.y

Timestamp:

Jul 18, 2006, 6:19:24 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e9aa8dffc7823e537ebabe5d32a2f553d9fb14a7

Parents:

925a4b994e372fc18f5242f6b8ee189edc8a4649

Message:

*hannes: listvar and packages


git-svn-id: file:///usr/local/Singular/svn/trunk@9320 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/grammar.y (modified) (11 diffs)

Singular/grammar.y

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.117 2005-09-24 15:02:03 Singular Exp $ */
+/* $Id: grammar.y,v 1.118 2006-07-18 16:16:49 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -1239 +1239 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1248 +1248 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1257 +1257 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1266 +1266 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1275 +1275 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1284 +1284 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1293 +1293 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1302 +1302 @@
           {
 #ifdef HAVE_NS
-            PrintS("?????\n");
+            //PrintS("?????\n");
             if($3.Typ() == PACKAGE_CMD)
               list_cmd($5,NULL,"// ",TRUE);
@@ -1308 +1308 @@
             $3.CleanUp();
           }
-        | LISTVAR_CMD '(' elemexpr ',' elemexpr ')'
-          {
-#ifdef HAVE_NS
-            PrintS("?????\n");
-            //if($3.Typ() == PACKAGE_CMD)
-            //  list_cmd($5,NULL,"// ",TRUE);
-#endif /* HAVE_NS */
-            $3.CleanUp();
-          }
+        //| LISTVAR_CMD '(' elemexpr ',' elemexpr ')'
+        //  {
+        //#ifdef HAVE_NS
+        //    //PrintS("?????\n");
+        //    //if($3.Typ() == PACKAGE_CMD)
+        //    //  list_cmd($5,NULL,"// ",TRUE);
+        //#endif /* HAVE_NS */
+        //    $3.CleanUp();
+        //  }
         | LISTVAR_CMD '(' ')'
           {
@@ -1341 +1341 @@
                   &$8);            /* ordering */
             idhdl newRingHdl=NULL;
+
             if (b!=NULL)
             {
-              newRingHdl=enterid(ring_name, myynest, RING_CMD, &IDROOT);
+              #ifdef HAVE_NS
+                newRingHdl=enterid(ring_name, myynest, RING_CMD, 
+                                   &($2.req_packhdl->idroot));
+              #else
+                newRingHdl=enterid(ring_name, myynest, RING_CMD, &IDROOT);
+              #endif
               $2.CleanUp();
               if (newRingHdl!=NULL)