Changeset 54c713 in git

Timestamp:

Apr 21, 1998, 12:43:22 PM (26 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

331d542622a081414dc51131c5489e4e7d6d5ba3

Parents:

142b7b541ca90ee57fa4fdbb939c0550b008661c

Message:

	* extra.cc (jjSYSTEM): code added for factory testing.  Wrapped
	  by #defines `FACTORY_GCD_TEST' and `FACTORY_GCD_TIMING'.


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.37 1998-04-16 16:10:13 obachman Exp $ */
+/* $Id: extra.cc,v 1.38 1998-04-21 10:43:22 schmidt Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -65 +65 @@
 #include "silink.h"
 #include "mpsr.h"
+
+// see clapsing.cc for a description of the `FACTORY_*' options
+
+#ifdef FACTORY_GCD_STAT
+#define FACTORY_GCD_TEST
+#endif
+
+#ifdef FACTORY_GCD_TIMING
+#define FACTORY_GCD_TEST
+#define TIMING
+#include "timing.h"
+TIMING_DEFINE_PRINTPROTO( contentTimer );
+TIMING_DEFINE_PRINTPROTO( algContentTimer );
+TIMING_DEFINE_PRINTPROTO( algLcmTimer );
+#endif
 
 //void emStart();
@@ -700 +715 @@
     }
     else
+#ifdef FACTORY_GCD_TEST
+/*=======================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");
+    }
+    else
+#endif
+
+#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
+      
 /*============================================================*/
       WerrorS( feNotImplemented );