Changeset 46e869 in git for Singular

Timestamp:

Aug 7, 2013, 5:29:57 PM (11 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

32a5f7cbaed7a5ea97ad30c9863f455d9cc4cef2

Parents:

52f95b2cdc569ae8b09e7182d80a56a57fcef2f7

Message:

add: system("semaphore",...)

Location:

Singular

Files:

• extra.cc (modified) (2 diffs)
• iparith.cc (modified) (1 diff)

Singular/extra.cc

@@ -171 +171 @@
 #ifdef HAVE_GMS
 #include "gms.h"
+#endif
+
+#ifdef HAVE_SIMPLEIPC
+#include "Singular/links/simpleipc.h"
 #endif
 
@@ -3796 +3800 @@
 
   #endif
+/*==================== semaphore =================*/
+#ifdef HAVE_SIMPLEIPC
+    if (strcmp(sys_cmd,"semaphore")==0)
+    {
+      if((h!=NULL) && (h->Typ()==STRING_CMD) && (h->next!=NULL) && (h->next->Typ()==INT_CMD))
+      {
+        int v=1;
+        if ((h->next->next!=NULL)&& (h->next->next->Typ()==INT_CMD))
+          v=(int)(long)h->next->next->Data();
+        res->data=(char *)simpleipc_cmd((char *)h->Data(),(int)(long)h->next->Data(),v);
+        res->rtyp=INT_CMD;
+        return FALSE;
+      }
+      else
+      {
+        WerrorS("Usage: system(\"semaphore\",<cmd>,int)");
+        return TRUE;
+      }
+    }
+    else
+#endif
 /*======================= demon_list =====================*/
   if (strcmp(sys_cmd,"denom_list")==0)

Singular/iparith.cc

@@ -35 +35 @@
 
 
-#include <kernel/modulop.h>
 #include <kernel/stairc.h>
 #include <kernel/mod2.h>