Changeset 62aecd in git

Timestamp:

May 11, 1998, 3:19:58 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

ad523bfd7b961919b952f71d36c00847fc5c9f0c

Parents:

540479614febf9bda82e5ebb24f5a4e19e3b5cdf

Message:

* enabled system("neworder")


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.45 1998-05-08 15:29:38 Singular Exp $ */
+/* $Id: extra.cc,v 1.46 1998-05-11 13:19:58 obachman Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -312 +312 @@
       return FALSE;
     }
+/*==================== neworder =============================*/
+// should go below
+#ifdef HAVE_LIBFAC_P
+    if(strcmp((char*)(h->Data()),"neworder")==0)
+    {
+      if ((h->next!=NULL) &&(h->next->Typ()==IDEAL_CMD))
+      {
+        res->rtyp=STRING_CMD;
+        res->data=(void *)singclap_neworder((ideal)h->next->Data());
+        return FALSE;
+      }
+      else
+        WerrorS("ideal expected");
+    }
+    else
+#endif
 #ifdef HAVE_EXTENDED_SYSTEM
 // You can put your own system calls here
@@ -360 +376 @@
       else
         WerrorS("poly expected");
-    }
-    else
-#endif
-/*==================== neworder =============================*/
-#ifdef HAVE_LIBFAC_P
-    if(strcmp((char*)(h->Data()),"neworder")==0)
-    {
-      if ((h->next!=NULL) &&(h->next->Typ()==IDEAL_CMD))
-      {
-        res->rtyp=STRING_CMD;
-        res->data=(void *)singclap_neworder((ideal)h->next->Data());
-        return FALSE;
-      }
-      else
-        WerrorS("ideal expected");
     }
     else