Changeset a51188 in git for Singular/extra.cc

Timestamp:

Sep 30, 2009, 7:05:07 PM (15 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4042c2b632b9f788b2327601ac2d0b4d0d60d508

Parents:

5d0d17bdad32f8f9794a7c32b5b6d125c210ebeb

Message:

changes due to Minor tests


git-svn-id: file:///usr/local/Singular/svn/trunk@12143 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.317 2009-09-18 09:01:34 seelisch Exp $ */
+/* $Id: extra.cc,v 1.318 2009-09-30 17:05:07 seelisch Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -54 +54 @@
 #include "prCopy.h"
 #include "mpr_complex.h"
-#include "Wrappers.h" // for testing C++ wrappers (Frank Seelisch)
-#include "TestMinors.h" // for testing minor code (Frank Seelisch)
 #include "ffields.h" // test GF only
 
@@ -2096 +2094 @@
       else
 #endif
-/*==================== debug C++ wrappers (Frank Seelisch) ========================*/
-      if(strcmp(sys_cmd,"c++wrappers")==0)
-      {
-        testWrappers();
-        return FALSE;
-      }
-      else
-/*==================== debug minor code (Frank Seelisch) ========================*/
-      if(strcmp(sys_cmd,"minors")==0)
-      {
-        if (h == NULL) minorUsageInfo();  /* writes some info to the console
-                                             on how to use this experimental code
-                                          */
-        else if (h->Typ() == INT_CMD)
-        {
-           testIntMinors(0);  /* effectively no arguments provided:
-                                 this starts 5 default tests
-                                 with a random matrix with
-                                 integer entries;
-                                 for that, no ring needs to be
-                                 declared
-                              */
-        }
-        else if ((h->Typ() == MATRIX_CMD) &&
-                 (h->next->Typ() == INT_CMD) &&
-                 (h->next->next->Typ() == INT_CMD) &&
-                 (h->next->next->next->Typ() == INT_CMD) &&
-                 (h->next->next->next->next->Typ() == INT_CMD) &&
-                 (h->next->next->next->next->next->Typ() == INT_CMD) &&
-                 (h->next->next->next->next->next->next->Typ() == INT_CMD) &&
-                 (h->next->next->next->next->next->next->next->Typ() == INT_CMD))
-        {
-          const matrix m          = (const matrix)h->Data();
-          const int k             = (const int)(long)h->next->Data();
-          const int cacheEntries  = (const int)(long)h->next->next->Data();
-          const int cacheWeight   = (const int)(long)h->next->next->next->Data();
-          const int strategies    = (const int)(long)h->next->next->next->next->Data();
-          const int dumpMinors    = (const int)(long)h->next->next->next->next->next->Data();
-          const int dumpResults   = (const int)(long)h->next->next->next->next->next->next->Data();
-          const int dumpComplete  = (const int)(long)h->next->next->next->next->next->next->next->Data();
-          const int dumpConsole   = (const int)(long)h->next->next->next->next->next->next->next->next->Data();
-          testAllPolyMinors(m, k, cacheEntries, cacheWeight, strategies, dumpMinors, dumpResults, dumpComplete, dumpConsole);
-            /* starts the computation of all k x k minors in the
-               provided matrix m (which is assumed to have polynomial
-               entries) using a cache with a maximum number of
-               'cacheEntries' entries and a maximum weight of 'cacheWeight';
-               when calling this method, a ring must be declared before;
-               strategy = "310" means that the code is run first without a
-               cache ("0") and then afterwards with the caching strategies
-               1 and 3
-            */
-        }
-        else if (h->Typ() == POLY_CMD)
-        { // for quick tests
-          const poly p = (const poly)h->Data();
-          testStuff(p);
-        }
-        return FALSE;
-      }
-      else
 /*==================== generic debug ==================================*/
 //#ifdef PDEBUG