Changeset 592f6b in git

Timestamp:

Apr 25, 1997, 8:52:24 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1cb558b9e3a25bad17969f3fb3d94440b04a1d51

Parents:

b85a6c1ea0b1ba130edf01e45c823d8cdfc2703f

Message:

* hannes: added system("with"...) to extra.cc


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.9 1997-04-25 18:35:09 obachman Exp $ */
+/* $Id: extra.cc,v 1.10 1997-04-25 18:52:24 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -114 +114 @@
     else
     #endif
+/*==================== with ==================================*/
+    if(strcmp((char*)(h->Data()),"with")==0)
+    {
+      if (h->next==NULL)
+      {
+        res->rtyp=STRING_CMD;
+        char *s=mstrdup(""
+        #ifdef DRING
+          "DRING "
+        #endif
+        #ifdef HAVE_DBM
+          "DBM "
+        #endif
+        #ifdef HAVE_DLD
+          "DLD "
+        #endif
+        #ifdef HAVE_GMP
+          "gmp "
+        #endif
+        #ifdef HAVE_FACTORY
+          "factory "
+        #endif
+        #ifdef HAVE_LIBFAC_P
+          "libfac "
+        #endif
+        #ifdef HAVE_MPSR
+          "MP "
+        #endif
+        #ifdef HAVE_READLINE
+          "readline "
+        #endif
+        #ifdef HAVE_TCL
+          "tcl "
+        #endif
+        #ifdef SRING
+          "SRING "
+        #endif
+        );
+        s[strlen(s)-1]='\0';
+        res->data=(void *)s;
+        return FALSE;
+      }  
+      else if (h->next->Typ()==STRING_CMD)
+      {
+        #define TEST_FOR(A) if(strcmp(s,A)==0) res->data=(void *)1; else
+        char *s=(char *)h->next->Data();
+        res->rtyp=INT_CMD;
+        #ifdef DRING
+          TEST_FOR("DRING")
+        #endif
+        #ifdef HAVE_DBM
+          TEST_FOR("DBM")
+        #endif
+        #ifdef HAVE_DLD
+          TEST_FOR("DLD")
+        #endif
+        #ifdef HAVE_GMP
+          TEST_FOR("gmp")
+        #endif
+        #ifdef HAVE_FACTORY
+          TEST_FOR("factory")
+        #endif
+        #ifdef HAVE_LIBFAC_P
+          TEST_FOR("libfac")
+        #endif
+        #ifdef HAVE_MPSR
+          TEST_FOR("MP")
+        #endif
+        #ifdef HAVE_READLINE
+          TEST_FOR("readline")
+        #endif
+        #ifdef HAVE_TCL
+          TEST_FOR("tcl")
+        #endif
+        #ifdef SRING
+          TEST_FOR("SRING")
+        #endif
+          ;
+        return FALSE;
+        #undef TEST_FOR
+      }
+      return TRUE;
+    }
+    else
 /*==================== pid ==================================*/
     #ifndef MSDOS