Changeset 6c70ef in git for Singular/extra.cc

Timestamp:

Nov 3, 2010, 5:56:28 PM (13 years ago)

Author:

Andreas Steenpaß <steenpas@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

5ea590e388164e5c1a86e89caca6ca5d46eb37e9

Parents:

8a4e22c96f254f73c703a940d895136b87451b5c

Message:

	new commands: waitall, waitfirst

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

File:

• Singular/extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -629 +629 @@
         {
           Werror( "expected valid file name as a string");
-          return FALSE;
+          return TRUE;
+        }
+      }
+  /*==================== forking experiments ======================*/
+      if(strcmp(sys_cmd, "waitforssilinks")==0)
+      {
+        if ((h != NULL) && (h->Typ() == LIST_CMD) &&
+            (h->next != NULL) && (h->next->Typ() == INT_CMD))
+        {
+          lists L = (lists)h->Data();
+          int timeMillisec = (int)(long)h->next->Data();
+          int n = slStatusSsiL(L, timeMillisec * 1000);
+          res->rtyp = INT_CMD;
+          res->data = (void*)n;
+          return FALSE;
+        }
+        else
+        {
+          Werror( "expected list of open ssi links and timeout");
+          return TRUE;
         }
       }