Changeset 886606 in git

Timestamp:

May 8, 1998, 5:29:38 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

aa3811cefe42b733bb596d3122dbacbc2104727a

Parents:

fdf422fadae90bce781bd2fa4e3b5c9fe9dbe69f

Message:

*** empty log message ***


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

File:

• Singular/extra.cc (modified) (9 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.44 1998-05-08 14:17:21 obachman Exp $ */
+/* $Id: extra.cc,v 1.45 1998-05-08 15:29:38 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -262 +262 @@
       BOOLEAN mainGetSingOptionValue(const char* name, char** result);
       char* val;
-      
+
       if (mainGetSingOptionValue(&((char*)(h->data))[2], &val))
       {
@@ -567 +567 @@
           if (h->next->next->Typ()!=POLY_CMD)
           {
-              Warn("Wrong types for poly= comb(ideal,poly)");
+              Warn("Wrong types for poly= comb(ideal,poly)");
           }
         }
@@ -588 +588 @@
           if (h->next->next->Typ()!=POLY_CMD)
           {
-              Warn("Wrong types for poly= comb(ideal,poly)");
+              Warn("Wrong types for poly= comb(ideal,poly)");
           }
         }
@@ -629 +629 @@
 /*=======================gcd Testerei ================================*/
     if ( ! strcmp( (char*)(h->Data()), "setgcd" ) ) {
-        if ( (h->next != NULL) && (h->next->Typ() == INT_CMD) ) {
-            CFPrimitiveGcdUtil::setAlgorithm( (int)h->next->Data() );
-            return FALSE;
-        } else
-            WerrorS("int expected");
+        if ( (h->next != NULL) && (h->next->Typ() == INT_CMD) ) {
+            CFPrimitiveGcdUtil::setAlgorithm( (int)h->next->Data() );
+            return FALSE;
+        } else
+            WerrorS("int expected");
     }
     else
@@ -640 +640 @@
 #ifdef FACTORY_GCD_TIMING
     if ( ! strcmp( (char*)(h->Data()), "gcdtime" ) ) {
-        TIMING_PRINT( contentTimer, "time used for content: " );
-        TIMING_PRINT( algContentTimer, "time used for algContent: " );
-        TIMING_PRINT( algLcmTimer, "time used for algLcm: " );
-        TIMING_RESET( contentTimer );
-        TIMING_RESET( algContentTimer );
-        TIMING_RESET( algLcmTimer );
-        return FALSE;
-    }
-    else
-#endif
-      
+        TIMING_PRINT( contentTimer, "time used for content: " );
+        TIMING_PRINT( algContentTimer, "time used for algContent: " );
+        TIMING_PRINT( algLcmTimer, "time used for algLcm: " );
+        TIMING_RESET( contentTimer );
+        TIMING_RESET( algContentTimer );
+        TIMING_RESET( algLcmTimer );
+        return FALSE;
+    }
+    else
+#endif
+
 #ifdef FACTORY_GCD_STAT
     if ( ! strcmp( (char*)(h->Data()), "gcdstat" ) ) {
-        printGcdTotal();
-        printContTotal();
-        resetGcdTotal();
-        resetContTotal();
-        return FALSE;
+        printGcdTotal();
+        printContTotal();
+        resetGcdTotal();
+        resetContTotal();
+        return FALSE;
     }
     else
@@ -687 +687 @@
       if ((hh!=NULL)&&(IDTYP(hh)==PACKAGE_CMD))
       {
-        namespaceroot = namespaceroot->push(IDPACKAGE(hh), IDID(hh));
-        return FALSE;
-      } else
+        namespaceroot = namespaceroot->push(IDPACKAGE(hh), IDID(hh));
+        return FALSE;
+      }
+      else
         Warn("package `%s` not found",(char*)h->next->Data());
     }
@@ -705 +706 @@
       namehdl nshdl = namespaceroot;
       for( ; nshdl->isroot != TRUE; nshdl = nshdl->next) {
-        Print("NSstack: %s:%d\n", nshdl->name, nshdl->lev);
+        Print("NSstack: %s:%d\n", nshdl->name, nshdl->lev);
       }
       Print("NSstack: %s:%d\n", nshdl->name, nshdl->lev);
@@ -726 +727 @@
     {
       if ((h->next!=NULL) && (h->next->Typ()==STRING_CMD)) {
-        int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic,
-                       BOOLEAN(*func)(leftv res, leftv v));
+        int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic,
+                       BOOLEAN(*func)(leftv res, leftv v));
         int (*fktn)(int(*iiAddCproc)(char *libname, char *procname,
-                                     BOOLEAN pstatic,
-                                     BOOLEAN(*func)(leftv res, leftv v)));
+                                     BOOLEAN pstatic,
+                                     BOOLEAN(*func)(leftv res, leftv v)));
         void *vp;
         res->rtyp=STRING_CMD;