Changeset 47a0ae in git

Timestamp:

Feb 23, 2007, 3:39:41 PM (16 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1298784c983047d4260168f76570a5bf957d044b

Parents:

95692a4585e51835c9345c4556e2361edfa16182

Message:

+SCAQuotient(const ring) function


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

File:

• kernel/sca.h (modified) (2 diffs)

kernel/sca.h

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: sca.h,v 1.8 2007-02-16 11:05:54 motsak Exp $ */
+/* $Id: sca.h,v 1.9 2007-02-23 14:39:41 motsak Exp $ */
 
 #include <ring.h>
@@ -22 +22 @@
 #endif
 }
+
+
+// we must always have this test!
+inline ideal SCAQuotient(const ring r)
+{
+  if( !rIsSCA(r) ) 
+    return currQuotient;
+
+  // SCA!
+#ifdef HAVE_PLURAL
+  return r->nc->SCAQuotient();
+#else
+  // for sainity
+  return NULL;
+#endif
+}
+
 
 #ifdef HAVE_PLURAL