Changeset 58e9e0 in git for Singular/iparith.cc

Timestamp:

Jul 26, 1999, 7:03:54 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'dce4ad324f6e216ae93a99713959b505fb6213d3')

Children:

dd70e71ba5dc277b4fe6a0632569149de3fadbef

Parents:

9050cae84ee67262b9d08045bac6f3b36c2cc66b

Message:

* hannes: subst(ob,x_1,v_1,x_2,v_2,....)


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.163 1999-07-23 13:45:15 Singular Exp $ */
+/* $Id: iparith.cc,v 1.164 1999-07-26 17:03:54 Singular Exp $ */
 
 /*
@@ -284 +284 @@
   { "std",         0, STD_CMD ,           CMD_123},
   { "string",      0, STRING_CMD ,        ROOT_DECL_LIST},
-  { "subst",       0, SUBST_CMD ,         CMD_3},
+  { "subst",       0, SUBST_CMD ,         CMD_M},
   { "system",      0, SYSTEM_CMD,         CMD_M},
   { "syz",         0, SYZYGY_CMD ,        CMD_1},
@@ -4719 +4719 @@
 }
 #endif
+static BOOLEAN jjSUBST_M(leftv res, leftv u)
+{
+  leftv v = u->next;
+  leftv w = v->next;
+  leftv rest = w->next;
+
+  u->next = NULL;
+  v->next = NULL;
+  w->next = NULL;
+  BOOLEAN b = iiExprArith3(res, iiOp, u, v, w);
+  if ((rest!=NULL) && (!b))
+  {
+    sleftv tmp_res;
+    leftv tmp_next=res->next;
+    res->next=rest;
+    memset(&tmp_res,0,sizeof(tmp_res));
+    b = iiExprArithM(&tmp_res,iiOp,res);
+    memcpy(res,&tmp_res,sizeof(tmp_res));
+    res->next=tmp_next;
+  }  
+  u->next = v;
+  v->next = w;
+  w->next = rest;
+  return b;
+}
 
 #ifdef HAVE_NAMESPACES
@@ -4828 +4853 @@
 ,{jjRESERVED0, RESERVEDNAME_CMD, NONE,               0 }
 ,{jjSTRING_PL, STRING_CMD,      STRING_CMD,         -1 }
+,{jjCALL3ARG,  SUBST_CMD,       NONE/*set by p*/,   3 }
+,{jjSUBST_M,   SUBST_CMD,       NONE/*set by p*/,   -2 }
 ,{jjSYSTEM,    SYSTEM_CMD,      NONE/*or set by p*/,-2 }
 ,{jjTEST,      TEST_CMD,        NONE,               -2 }