Changeset 7a6c06 in git

Timestamp:

Jul 25, 2008, 2:41:43 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

107986830c30ed6c192ace9d6093c3213b76fc6f

Parents:

fe7424e916aeb90c55dfb281c0392f267f374df6

Message:

hannes:real_var_start system


git-svn-id: file:///usr/local/Singular/svn/trunk@10908 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.277 2008-07-23 07:10:50 motsak Exp $ */
+/* $Id: extra.cc,v 1.278 2008-07-25 12:41:43 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2609 +2609 @@
     else
 #endif // HAVE_RATGRING
+/*==================== Rat def =================*/
+    if (strcmp(sys_cmd, "ratVar") == 0)
+    {
+      int start,end;
+      int is;
+      if ((h!=NULL) && (h->Typ()==POLY_CMD))
+      {
+        start=pIsPurePower((poly)h->Data());
+        h=h->next;
+      }
+      else return TRUE;
+      if ((h!=NULL) && (h->Typ()==POLY_CMD))
+      {
+        end=pIsPurePower((poly)h->Data());
+        h=h->next;
+      }
+      else return TRUE;
+      currRing->real_var_start=start;
+      currRing->real_var_end=end;
+      return (start==0)||(end==0);
+    }
+    else
 /*==================== freeGB, twosided GB in free algebra =================*/
 #ifdef HAVE_SHIFTBBA