Changeset 33e521 in git

Timestamp:

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

Author:

Kai Krüger <krueger@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

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

Location:

Singular

Files:

• iplib.cc (modified) (3 diffs)
• ipshell.cc (modified) (3 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.16 1998-04-07 17:53:31 Singular Exp $ */
+/* $Id: iplib.cc,v 1.17 1998-04-07 19:14:43 krueger Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -70 +70 @@
 char * iiProcArgs(char *e,BOOLEAN withParenth)
 {
-  while ((*e==' ') || (*e=='(')) e++;
+  while ((*e==' ') || (*e=='\t') || (*e=='(')) e++;
   if (*e<' ')
   {
@@ -502 +502 @@
   if (BVERBOSE(V_LOAD_LIB)) Print( "// ** loading %s...", libnamebuf);
   yylplex(newlib, libnamebuf, &lib_style);
-  if(lib_style == OLD_LIBSTYLE)
+  if( (lib_style == OLD_LIBSTYLE) && (BVERBOSE(V_LOAD_LIB)))
     Warn( "library %s has an old format. Please fix it for the next time",
           newlib);

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