Changeset fee17e in git for Singular/extra.cc

Timestamp:

Mar 6, 2002, 5:38:29 PM (21 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

e9124eb945e2e569a4fb576e98e311fadf62298b

Parents:

ec93f1c1322989965789c2b3ffdae40d5ba12b59

Message:

*mschulze: system-with for eigenval, gms


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.179 2002-02-16 18:26:07 mschulze Exp $ */
+/* $Id: extra.cc,v 1.180 2002-03-06 16:38:29 mschulze Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -97 +97 @@
  * - with    HAVE_DYNAMIC_LOADING: these functions are loaded as module.
  */
-//#ifndef HAVE_DYNAMIC_LOADING
+#ifndef HAVE_DYNAMIC_LOADING
+
 #ifdef HAVE_PCV
 #include "pcv.h"
 #endif
-//#endif /* not HAVE_DYNAMIC_LOADING */
+
+#ifdef HAVE_EIGENVAL
+#include "eigenval.h"
+#endif
+
+#ifdef HAVE_GMS
+#include "gms.h"
+#endif
+
+#endif /* not HAVE_DYNAMIC_LOADING */
 
 // see clapsing.cc for a description of the `FACTORY_*' options
@@ -251 +261 @@
           TEST_FOR("DynamicLoading");
         #endif
+        #ifdef HAVE_EIGENVAL
+          TEST_FOR("eigenval");
+        #endif
+        #ifdef HAVE_GMS
+          TEST_FOR("gms");
+        #endif
           ;
         return FALSE;
@@ -502 +518 @@
     else
 #endif
+#ifndef HAVE_DYNAMIC_LOADING
 /*==================== pcv ==================================*/
-//#ifndef HAVE_DYNAMIC_LOADING
 #ifdef HAVE_PCV
     if(strcmp(sys_cmd,"pcvLAddL")==0)
@@ -541 +557 @@
     else
 #endif
-//#endif /* HAVE_DYNAMIC_LOADING */
+/*==================== eigenvalues ==================================*/
+#ifdef HAVE_EIGENVAL
+    if(strcmp(sys_cmd,"hessenberg")==0)
+    {
+      return evHessenberg(res,h);
+    }
+    else
+    if(strcmp(sys_cmd,"eigenvals")==0)
+    {
+      return evEigenvals(res,h);
+    }
+    else
+#endif
+/*==================== Gauss-Manin system ==================================*/
+#ifdef HAVE_GMS
+    if(strcmp(sys_cmd,"gmsnf")==0)
+    {
+      return gmsNF(res,h);
+    }
+    else
+#endif
+#endif /* HAVE_DYNAMIC_LOADING */
 /*==================== contributors =============================*/
    if(strcmp(sys_cmd,"contributors") == 0)
@@ -636 +673 @@
 #include "mpsr.h"
 #include "mod_raw.h"
-#ifdef HAVE_EIGENVAL
-#include "eigenval.h"
-#endif
-#ifdef HAVE_GMS
-#include "gms.h"
-#endif
 
 static BOOLEAN jjEXTENDED_SYSTEM(leftv res, leftv h)