Changeset f907fc in git for Singular/iparith.cc

Timestamp:

Nov 24, 1999, 3:07:23 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

32d5d47cd333de31bc974794d8f7c310be0f5851

Parents:

d88eb6580cce37f42c7a29bce0b292e3b119a563

Message:

* fixed prun/idMinEmbedding


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

File:

• Singular/iparith.cc (modified) (7 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.188 1999-11-24 14:02:17 wichmann Exp $ */
+/* $Id: iparith.cc,v 1.189 1999-11-24 14:07:22 obachman Exp $ */
 
 /*
@@ -2952 +2952 @@
   return FALSE;
 }
+static BOOLEAN jjPRUNE(leftv res, leftv v)
+{
+  res->data = (char *)idMinEmbedding((ideal)v->Data());
+  return FALSE;
+}
 static BOOLEAN jjP2N(leftv res, leftv v)
 {
@@ -3194 +3199 @@
 #define jjrVarStr      (proc1)18
 #define jjrParStr      (proc1)19
-#define jjidMinEmbedding (proc1)20
 #define jjCOUNT_R        (proc1)22
 #define jjDIM_R          (proc1)23
@@ -3232 +3236 @@
         case (int)jjrVarStr:      dArith1[i].p=(proc1)rVarStr; break;
         case (int)jjrParStr:      dArith1[i].p=(proc1)rParStr; break;
-        case (int)jjidMinEmbedding: dArith1[i].p=(proc1)idMinEmbedding; break;
         case (int)jjCOUNT_R:      dArith1[i].p=(proc1)syLength; break;
         case (int)jjDIM_R:        dArith1[i].p=(proc1)syDim; break;
@@ -3337 +3340 @@
 {
   res->data = rParStr((ring)v->Data());
-  return FALSE;
-}
-static BOOLEAN jjidMinEmbedding(leftv res, leftv v)
-{
-  res->data = (char *)idMinEmbedding((ideal)v->Data());
   return FALSE;
 }
@@ -3386 +3384 @@
 #define jjrVarStr      (proc1)rVarStr
 #define jjrParStr      (proc1)rParStr
-#define jjidMinEmbedding (proc1)idMinEmbedding
 #define jjCOUNT_R        (proc1)syLength
 #define jjDIM_R        (proc1)syDim
@@ -3581 +3578 @@
 ,{jjPRINT,      PRINT_CMD,       NONE,           LIST_CMD}
 ,{jjPRINT,      PRINT_CMD,       NONE,           DEF_CMD}
-,{jjidMinEmbedding, PRUNE_CMD,   XS(MODUL_CMD),  MODUL_CMD }
+,{jjPRUNE,      PRUNE_CMD,       MODUL_CMD,      MODUL_CMD }
 ,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     IDEAL_CMD }
 ,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     MODUL_CMD }