Changeset 33293b6 in git for Singular/ipshell.cc

Timestamp:

Jan 19, 2002, 6:11:00 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e63e2390bd2de7a38f9c6a092970ef10827a89b7

Parents:

15fb305b4c55c461f2146d16b6578117c4a79a7c

Message:

*hannes: #define FAST_MAP


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.71 2002-01-10 12:33:20 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.72 2002-01-19 17:11:00 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -36 +36 @@
 #define SI_DONT_HAVE_GLOBAL_VARS
 #include <factory.h>
+#endif
+
+// define this if you want to use the fast_map routine for mapping ideals
+//#define FAST_MAP
+
+#ifdef FAST_MAP
+#include "fast_maps.h"
 #endif
 
@@ -736 +743 @@
       tmpW.rtyp=IDTYP(w);
       tmpW.data=IDDATA(w);
+      #ifdef FAST_MAP
+      if ((tmpW.rtyp==IDEAL_CMD) && (nMap==nCopy))
+      {
+        v->rtyp=IDEAL_CMD;
+        v->data=fast_map(IDIDEAL(w), IDRING(r), (ideal)theMap, currRing);
+      }
+      else
+      #endif
       if (maApplyFetch(MAP_CMD,theMap,v,&tmpW,IDRING(r),NULL,NULL,0,nMap))
       {