Changeset d7ad81 in git for Singular/extra.cc

Timestamp:

Aug 2, 2012, 4:11:42 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4093f96acfcc6419c56ee983c447099c3b87a36e

Parents:

4f9652847609cefd5ff3b91d14f34611592ab699

Message:

add: system("install",...) from master

File:

• Singular/extra.cc (modified) (2 diffs)

Singular/extra.cc

@@ -93 +93 @@
 #include "silink.h"
 #include "walk.h"
+#include <Singular/newstruct.h>
 
 
@@ -3700 +3701 @@
   }
   else
+/*==================== install newstruct =================*/
+  if (strcmp(sys_cmd,"install")==0)
+  {
+    if ((h!=NULL) && (h->Typ()==STRING_CMD)
+    && (h->next!=NULL) && (h->next->Typ()==STRING_CMD)
+    && (h->next->next!=NULL) && (h->next->next->Typ()==PROC_CMD)
+    && (h->next->next->next!=NULL) && (h->next->next->next->Typ()==INT_CMD))
+    {
+      return newstruct_set_proc((char*)h->Data(),(char*)h->next->Data(),
+                                (int)(long)h->next->next->next->Data(),
+                                (procinfov)h->next->next->Data());
+    }
+    return TRUE;
+  }
+  else
 /*==================== Error =================*/
       Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );