Changeset 754c547 in git for Singular/extra.cc

Timestamp:

Jan 19, 2002, 3:48:19 PM (22 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

e2b5115836f34facc584c5055707ef3f2f428830

Parents:

865fbfc3404627ab39e23c40394104d68cd687ae

Message:

fixed maMonomoial_Insert


git-svn-id: file:///usr/local/Singular/svn/trunk@5745 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.171 2001-11-13 14:22:26 Singular Exp $ */
+/* $Id: extra.cc,v 1.172 2002-01-19 14:48:14 obachman Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -641 +641 @@
 
 
-
 #ifdef HAVE_EXTENDED_SYSTEM
 // You can put your own system calls here
@@ -652 +651 @@
 
 #include "mod_raw.h"
-
+#include "fast_maps.cc"
+   
 static BOOLEAN jjEXTENDED_SYSTEM(leftv res, leftv h)
 {
@@ -662 +662 @@
     if(strcmp(sys_cmd,"locNF")==0)
     {
+#if 0
       if (h != NULL && h->Typ() == VECTOR_CMD)
       {
@@ -754 +755 @@
       }
       return FALSE;
+#endif
     }
     else
@@ -778 +780 @@
     {
       rDebugPrint((ring)h->Data());
+      return FALSE;
+    }
+    else
+/*==================== ring debug ==================================*/
+    if(strcmp(sys_cmd,"map")==0)
+    {
+      ring image_r = currRing;
+      map theMap = (map)h->Data();
+      ideal image_id = (ideal) theMap;
+      ring map_r = IDRING(idroot->get(theMap->preimage, myynest));
+      ideal map_id = IDIDEAL(map_r->idroot->get(h->Next()->Name(), myynest));
+
+      ring src_r, dest_r;
+      maMap_CreateRings(map_id, map_r, image_id, image_r, src_r, dest_r);
+      mapoly mp;
+      maideal mideal;
+          
+      maMap_CreatePolyIdeal(map_id, map_r, src_r, dest_r, mp, mideal);
+      maPoly_Out(mp, src_r);
       return FALSE;
     }