Changeset 4e6cf2 in git for Singular/extra.cc

Timestamp:

Oct 30, 2000, 2:40:29 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

814c110a61c312fb9825cdd39156e3cbf7ad8d7b

Parents:

3849365e4f7f90e48ef4cb1bdb73305514b60eaa

Message:

* clean up


git-svn-id: file:///usr/local/Singular/svn/trunk@4681 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.147 2000-10-16 12:06:34 obachman Exp $ */
+/* $Id: extra.cc,v 1.148 2000-10-30 13:40:16 obachman Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -630 +630 @@
     char *sys_cmd=(char *)(h->Data());
     h=h->next;
+    if(strcmp(sys_cmd,"e")==0)
+    {
+      res->rtyp = POLY_CMD;
+      res->data = p_GetMaxExpP((poly)h->Data(), currRing);
+      printf("MaxExp: %d QuerSum: %d\n",
+             p_GetMaxExp((poly)h->Data(), currRing),
+             p_ExpVectorQuerSum((poly)h->Data(), currRing));
+      return FALSE;
+    }
 #ifdef RDEBUG
 /*==================== poly debug ==================================*/