Changeset 33e521 in git for Singular/ipshell.cc

Timestamp:

Apr 7, 1998, 9:14:44 PM (26 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

99cfcba795ebe458e864dea1374dafda993d2601

Parents:

37e22dccbc1d4231d5dd6c765a95b61021b1266c

Message:

small fixes (verbose, list_cmd)


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

File:

• Singular/ipshell.cc (modified) (3 diffs)

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.17 1998-04-03 17:38:41 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.18 1998-04-07 19:14:44 krueger Exp $ */
 /*
 * ABSTRACT:
@@ -139 +139 @@
                         );
                    break;
-    case PROC_CMD:    break;
+    case PROC_CMD:  Print(" from %s",IDPROC(h)->libname);
+                   if(IDPROC(h)->is_static) Print(" (static)");
+                   break;
     case STRING_CMD:
                    {
@@ -268 +270 @@
       if (h!=NULL)
       {
-        if (iterate) list1(prefix,h,TRUE);
-        if ((IDTYP(h)==RING_CMD)
-        || (IDTYP(h)==QRING_CMD)
-        || (IDTYP(h)==PACKAGE_CMD))
-        {
-          h=IDRING(h)->idroot;
-        }
-        else
-          return;
+        if (iterate) list1(prefix,h,TRUE);
+        if ((IDTYP(h)==RING_CMD)
+            || (IDTYP(h)==QRING_CMD)
+            || (IDTYP(h)==PACKAGE_CMD))
+          {
+            h=IDRING(h)->idroot;
+          }
+        else
+          return;
       }
       else