Changeset 2be0b3 in git

Timestamp:

Jan 16, 2006, 4:28:10 AM (18 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e6e28e89e44a9e577c2fdbae4479e7ab4a01d1ca

Parents:

a6889e038f7cac66aae588df514ee77174aa2378

Message:

extra.cc
--> system("findZeroPoly", *)


git-svn-id: file:///usr/local/Singular/svn/trunk@8904 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.237 2006-01-06 11:31:36 Singular Exp $ */
+/* $Id: extra.cc,v 1.238 2006-01-16 03:28:10 wienand Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2502 +2502 @@
 #ifdef HAVE_RING2TOM
 /*==================== ring-GB ==================================*/
+    if (strcmp(sys_cmd, "findZeroPoly")==0)
+    {
+      ring r = currRing;
+      poly f = (poly) h->Data();
+      res->rtyp=POLY_CMD;
+      res->data=(poly) kFindZeroPoly(f, r, r);
+      return(FALSE);
+    }
+    else
     if (strcmp(sys_cmd, "NF_ring")==0)
     {