Changeset 4f3177 in git for Singular/iparith.cc

Timestamp:

May 5, 2005, 12:42:00 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

54e28fc2679933ca28cd8feded2139df758fa3d8

Parents:

0b8c8d54328b4dab061ef0b1fd53fda79ac62739

Message:

*hannes: frwalk


git-svn-id: file:///usr/local/Singular/svn/trunk@8056 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.352 2005-05-03 15:41:48 Singular Exp $ */
+/* $Id: iparith.cc,v 1.353 2005-05-05 10:41:58 Singular Exp $ */
 
 /*
@@ -48 +48 @@
 #include "GMPrat.h"
 #include "tgb.h"
+#include "walkProc.h"
 #ifdef HAVE_FACTORY
 #include "clapsing.h"
@@ -211 +212 @@
   { "freemodule",  0, FREEMODULE_CMD ,    CMD_1},
   { "facstd",      0, FACSTD_CMD ,        CMD_12},
+  { "frwalk",      0, FWALK_CMD ,         CMD_23},
   { "gen",         0, E_CMD ,             CMD_1},
   { "getdump",     0, GETDUMP_CMD,        CMD_1},
@@ -1850 +1852 @@
   }
   /*else res->data=NULL;*/
+  return FALSE;
+}
+static BOOLEAN jjFWALK(leftv res, leftv u, leftv v)
+{
+  res->data=(char *)fractalWalkProc(u,v);
+  setFlag( res, FLAG_STD );
   return FALSE;
 }
@@ -2721 +2729 @@
 #endif
 ,{jjFIND2,     FIND_CMD,       INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
+,{jjFWALK,     FWALK_CMD,      IDEAL_CMD,      RING_CMD,   DEF_CMD NO_PLURAL}
+
 ,{jjGCD_I,     GCD_CMD,        INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
 ,{jjGCD_N,     GCD_CMD,        NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
@@ -4627 +4637 @@
   return FALSE;
 }
+static BOOLEAN jjFWALK3(leftv res, leftv u, leftv v, leftv w)
+{
+  if ((int)w->Data()==0)
+    res->data=(char *)walkProc(u,v);
+  else
+    res->data=(char *)fractalWalkProc(u,v);
+  setFlag( res, FLAG_STD );
+  return FALSE;
+}
 static BOOLEAN jjHILBERT3(leftv res, leftv u, leftv v, leftv w)
 {
@@ -5076 +5095 @@
 ,{jjELIMIN_HILB,    ELIMINATION_CMD,IDEAL_CMD, IDEAL_CMD, POLY_CMD, INTVEC_CMD NO_PLURAL}
 ,{jjFIND3,          FIND_CMD,   INT_CMD,    STRING_CMD, STRING_CMD, INT_CMD ALLOW_PLURAL}
+,{jjFWALK3,         FWALK_CMD,  IDEAL_CMD,  RING_CMD,   DEF_CMD,    INT_CMD NO_PLURAL}
 ,{jjHILBERT3,       HILBERT_CMD,INTVEC_CMD, IDEAL_CMD,  INT_CMD,    INTVEC_CMD NO_PLURAL}
 ,{jjHILBERT3,       HILBERT_CMD,INTVEC_CMD, MODUL_CMD,  INT_CMD,    INTVEC_CMD NO_PLURAL}