Changeset 7d1232 in git for Singular

Timestamp:

Apr 27, 2012, 1:26:06 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

944a5ac946e2f8544123239e3a920b7d77e718e1

Parents:

7627f67da8dc2c135f659c4e3f2ef25e3de4f00e

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2012-04-27 13:26:06+02:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2013-09-13 16:35:28+02:00

Message:

experimental: several links to the same port
(cherry picked from commit 0e368b1eaeedc0d3bf686832d825f5da7bc3a81b)

Signed-off-by: Andreas Steenpass <steenpass@mathematik.uni-kl.de>

Conflicts:
	Singular/extra.cc
	Singular/links/ssiLink.cc (changes already ported)

File:

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

Singular/extra.cc

@@ -3844 +3844 @@
   }
   else
+/*==================== reserved port =================*/
+  if (strcmp(sys_cmd,"reserve")==0)
+  {
+    int ssiReservePort(int clients);
+    if ((h!=NULL) && (h->Typ()==INT_CMD))
+    {
+      res->rtyp=INT_CMD;
+      int p=ssiReservePort((int)(long)h->Data());
+      res->data=(void*)(long)p;
+      return (p==0);
+    }
+    else
+    {
+      WerrorS("system(\"reserve\",<int>)");
+    }
+    return TRUE;
+  }
+  else
+  if (strcmp(sys_cmd,"reservedLink")==0)
+  {
+    si_link ssiCommandLink();
+    res->rtyp=LINK_CMD;
+    si_link p=ssiCommandLink();
+    res->data=(void*)p;
+    return (p==NULL);
+  }
+  else
   /*==================== Test Boos Epure ==================================*/
   if (strcmp(sys_cmd, "Hallo")==0)