Changeset f92fa13 in git for Singular/ring.cc

Timestamp:

Mar 16, 1998, 3:56:48 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5c8eae0ee4adf297d4ee70c4eb367499625899d8

Parents:

057fd3b14dfe97c1070a5e6e9ea465fb317ae57f

Message:

1998-03-16  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* polys-impl.h: #define COMP_FAST

	* configure.in,Makefile.in: check for flex -P; increased version
	number to 1.1.7

1998-03-04  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* febase.h: added macro assume()

	* spSpolyLoop.cc: Automatic generation of SpolyLoops using
	spSpolyLoop.pl

	* kstd*.cc: New calling interface to get SpolyLoop

	* ring.h: Introduced rOrderType_t


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

File:

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

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.15 1998-02-16 09:46:55 Singular Exp $ */
+/* $Id: ring.cc,v 1.16 1998-03-16 14:56:40 obachman Exp $ */
 
 /*
@@ -1665 +1665 @@
   return res;
 }
+
+rOrderType_t rGetOrderType(ring r)
+{
+  // check for simple ordering
+  if ((r->order[0] == ringorder_unspec) ||
+      ((r->order[2] == 0) &&
+       (r->order[1] != ringorder_M &&
+        r->order[0] != ringorder_M)))
+  {
+    if ((r->order[1]==ringorder_c)||(r->order[1]==ringorder_C))
+    {
+      return rOrderType_ExpComp;
+    }
+    else
+    {
+      assume((r->order[0]==ringorder_c)||(r->order[0]==ringorder_C));
+      return rOrderType_CompExp;
+    }
+  }
+  else 
+    return rOrderType_General;
+}