Changeset 53bb688 in git for Singular/extra.cc

Timestamp:

Jun 8, 1998, 1:09:39 PM (26 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

5d13bc042002355528aed03319748eb38cd2aca4

Parents:

84c4718ded5fe98bf8773067260f6b654941baca

Message:

Extended System-calls in its own procedure


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.52 1998-06-03 14:25:39 pohl Exp $ */
+/* $Id: extra.cc,v 1.53 1998-06-08 11:09:39 krueger Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -51 +51 @@
 
 // Define to enable many more system commands
-// #define HAVE_EXTENDED_SYSTEM
+//#define HAVE_EXTENDED_SYSTEM
 
 #ifdef STDTRACE
@@ -86 +86 @@
 
 void piShowProcList();
+static BOOLEAN EXTENDED_SYSTEM(leftv res, leftv h);
+
 
 //void emStart();
@@ -360 +362 @@
      return FALSE;
    }
+   else
+   {
+#ifdef HAVE_EXTENDED_SYSTEM
+/*================= Extended system call ========================*/
+     return(EXTENDED_SYSTEM(res, h));
+#else
+     WerrorS( feNotImplemented );
+#endif
+   } 
+  } /* typ==string */
+  return TRUE;
+}
+
+  
+
 #ifdef HAVE_EXTENDED_SYSTEM
 // You can put your own system calls here
+#include "fglmcomb.cc"
+#include "fglm.h"
+static BOOLEAN EXTENDED_SYSTEM(leftv res, leftv h)
+{
+  if(h->Typ() == STRING_CMD)
+  {
 /*==================== LaScala ==================================*/
     if(strcmp((char*)(h->Data()),"LaScala")==0)
@@ -593 +616 @@
     if(strcmp((char*)(h->Data()),"fastcomb")==0)
     {
-#include "fglmcomb.cc"
-#include "fglm.h"
       if ((h->next!=NULL) &&(h->next->Typ()==IDEAL_CMD))
       {
@@ -616 +637 @@
     if(strcmp((char*)(h->Data()),"comb")==0)
     {
-#include "fglmcomb.cc"
-#include "fglm.h"
       if ((h->next!=NULL) &&(h->next->Typ()==IDEAL_CMD))
       {
@@ -799 +818 @@
     else
 #endif
-#endif // HAVE_EXTENDED_SYSTEM
-/*============================================================*/
       WerrorS( feNotImplemented );
   }
   return TRUE;
 }
+#endif // HAVE_EXTENDED_SYSTEM
+/*============================================================*/