Changeset 3bb3e6a in git for Singular/iparith.cc

Timestamp:

May 24, 1998, 2:09:23 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

45f7bfcca3edf19f70b4d4e83236758f8d71c6da

Parents:

96b804631b095d8928ec2c241293ce9015190de7

Message:

* status with sleep


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

File:

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

Singular/iparith.cc

@@ -267 +267 @@
   { "sres",        0, SRES_CMD ,          CMD_2},
   #endif
-  { "status",      0, STATUS_CMD,         CMD_23},
+  { "status",      0, STATUS_CMD,         CMD_M},
   { "std",         0, STD_CMD ,           CMD_12},
   { "string",      0, STRING_CMD ,        ROOT_DECL_LIST},
@@ -3956 +3956 @@
   return b;
 }
+static BOOLEAN jjCALL3ARG(leftv res, leftv u)
+{
+  leftv v = u->next;
+  leftv w = v->next;
+  u->next = NULL;
+  v->next = NULL;
+  BOOLEAN b = iiExprArith3(res, iiOp, u, v, w);
+  u->next = v;
+  v->next = w;
+  return b;
+}
+  
 static BOOLEAN jjCOEF_M(leftv res, leftv v)
 {
@@ -4298 +4310 @@
   return FALSE;
 }
+
+static BOOLEAN jjSTATUS_M(leftv res, leftv v)
+{
+  if ((v->Typ() != LINK_CMD) ||
+      (v->next->Typ() != STRING_CMD) ||
+      (v->next->next->Typ() != STRING_CMD) ||
+      (v->next->next->next->Typ() != INT_CMD))
+    return TRUE;
+  jjSTATUS3(res, v, v->next, v->next->next);
+#ifdef HAVE_SLEEP
+  if (((int) res->data) == 0)
+  {
+    sleep((int) v->next->next->next->Data());
+    jjSTATUS3(res, v, v->next, v->next->next);
+  }
+#endif
+  return FALSE;
+}
+
+      
 /*=================== operations with many arg.: table =================*/
 /* number_of_args:  -1: any, -2: any >0, .. */
@@ -4326 +4358 @@
 ,{jjTEST,      TEST_CMD,        NONE,               -2 }
 ,{iiWRITE,     WRITE_CMD,       NONE,               -2 }
+,{jjCALL2ARG,  STATUS_CMD,      STRING_CMD,          2 }
+,{jjCALL3ARG,  STATUS_CMD,      INT_CMD,             3 }
+,{jjSTATUS_M,  STATUS_CMD,      INT_CMD,             4 }
 ,{NULL,        0,               0,                  0  }
 };