Changeset 1495df4 in git for Singular/extra.cc

Timestamp:

Jul 15, 2008, 6:27:58 PM (16 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e3164c057b351ebc7de36b8955221b4cb648bdbe

Parents:

67dbdb5d3b02ace5998471f519c0e9ae91a1c63b

Message:

*motsak: special multiplication


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

File:

• Singular/extra.cc (modified) (5 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.275 2008-07-08 13:03:18 Singular Exp $ */
+/* $Id: extra.cc,v 1.276 2008-07-15 16:27:11 motsak Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -88 +88 @@
 #include "gring.h"
 #include "sca.h"
+#include <ncSAMult.h> // for CMultiplier etc classes
 #include "ipconv.h"
 #include "ratgring.h"
@@ -788 +789 @@
       
       return FALSE;
-    }    
+    }
+
+    
     if(strcmp(sys_cmd,"NCGetType")==0)
     {
@@ -801 +804 @@
     }
 
+    
     if(strcmp(sys_cmd,"ForceSCA")==0)
     {
@@ -827 +831 @@
       return FALSE;
     }
-/*==================== PLURAL =================*/
+
+    if(strcmp(sys_cmd,"ForceNewNCMultiplication")==0)
+    {
+      if( !rIsPluralRing(currRing) )
+        return TRUE;
+
+      if( !ncInitSpecialPairMultiplication(currRing) )
+        return TRUE;
+
+      return FALSE;
+    }
+
+    /*==================== PLURAL =================*/
 /*==================== opp ==================================*/
     if (strcmp(sys_cmd, "opp")==0)