Changeset b9ce2a in git

Timestamp:

Nov 25, 1999, 12:55:16 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

84db93fba13c44d7d8d1e4bec4087100282e073a

Parents:

663eb457e3f689e991f1443ba940088ea58e27a0

Message:

* added rRing_has_CompLastBlock


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

Location:

Singular

Files:

• Makefile.in (modified) (1 diff)
• ring.cc (modified) (2 diffs)
• ring.h (modified) (2 diffs)

Singular/Makefile.in

@@ -151 +151 @@
         primitiv.lib       random.lib         ring.lib           sing.lib    \
         solve.lib          solver.lib         spcurve.lib        standard.lib\
-        surf.lib           triang.lib         template.lib
+        surf.lib           triang.lib         template.lib       spectrum.lib
 
 SLIBS_FILES = $(addprefix LIB/,${SLIBS})

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.94 1999-11-23 15:25:37 Singular Exp $ */
+/* $Id: ring.cc,v 1.95 1999-11-25 11:55:15 obachman Exp $ */
 
 /*
@@ -3564 +3564 @@
   return TRUE;
 }
+
+BOOLEAN rRing_has_CompLastBlock(ring r)
+{
+  assume(r != NULL);
+  int lb = rBlocks(r) - 2;
+  return (r->order[lb] == ringorder_c || r->order[lb] == ringorder_C);
+}
+

Singular/ring.h

@@ -7 +7 @@
 * ABSTRACT - the interpreter related ring operations
 */
-/* $Id: ring.h,v 1.44 1999-11-19 16:42:42 obachman Exp $ */
+/* $Id: ring.h,v 1.45 1999-11-25 11:55:16 obachman Exp $ */
 
 /* includes */
@@ -70 +70 @@
 
 BOOLEAN rRing_is_Homog(ring r=currRing);
+BOOLEAN rRing_has_CompLastBlock(ring r=currRing);
 
 inline BOOLEAN rField_is_Zp(ring r=currRing)