Changeset 042592 in git

Timestamp:

Feb 12, 2002, 7:25:13 PM (21 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

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

Children:

bb0153f803e897bcf35852f3f648cf4ff0f1861a

Parents:

398ad5d100e420f877531a39f3f492b3af9dc89e

Message:

*mschulze: added gmsnf


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.175 2002-02-06 14:06:22 Singular Exp $ */
+/* $Id: extra.cc,v 1.176 2002-02-12 18:25:13 mschulze Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -76 +76 @@
 // Define to enable many more system commands
 #ifndef MAKE_DISTRIBUTION
-#define HAVE_EXTENDED_SYSTEM
+#define HAVE_EXTENDED_SYSTEM 1
 #endif
 
@@ -651 +651 @@
 #endif
 #include "mpsr.h"
-
 #include "mod_raw.h"
+#include "gms.h"
 
 static BOOLEAN jjEXTENDED_SYSTEM(leftv res, leftv h)
@@ -1472 +1472 @@
 #endif
 #endif
+/*==================== Gauss-Manin system normal form =================*/
+      if(strcmp(sys_cmd,"gmsnf")==0)
+      {
+        return gmsnf(res,h);
+      }
+      else
 /*==================== Error =================*/
       Werror( "system(\"%s\",...) %s", sys_cmd, feNotImplemented );