Changeset f0aec5 in git

Timestamp:

May 15, 2008, 7:31:04 PM (15 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

6918d657afe23f44f8cf07051a161481707bfdd4

Parents:

06879b7d7091f46b683a5e4267de4e3edc1ab70f

Message:

*motsak: internal interface to NC subsystem:
   system("ForceSCA", b, e) forces current NC-ring (!) to be internally SCA with anti-comm. vars.: [var(b)..var(e)] (no checks)
   system("NCGetType") internal NCRingType of current ring
   system("NCUseExtensions"[, b]) - get/set status of NC-Extensions Usage


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.268 2008-05-05 12:13:10 Singular Exp $ */
+/* $Id: extra.cc,v 1.269 2008-05-15 17:31:04 motsak Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -226 +226 @@
     }
     else
+
+
+
+
 /*==================== gen ==================================*/
     if(strcmp(sys_cmd,"gen")==0)
@@ -774 +778 @@
       return FALSE;
     }
+    if(strcmp(sys_cmd,"NCUseExtensions")==0)
+    {
+      extern bool bUseExtensions;
+      res->rtyp=INT_CMD;
+      res->data=(void *)bUseExtensions;
+      
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+        bUseExtensions = (bool)((long)(h->Data()));
+      
+      return FALSE;
+    }    
+    if(strcmp(sys_cmd,"NCGetType")==0)
+    {
+      res->rtyp=INT_CMD;
+      
+      if( rIsPluralRing(currRing) )
+        res->data=(void *)ncRingType(currRing);
+      else
+        res->data=(void *)(-1);
+      
+      return FALSE;
+    }
+
+    if(strcmp(sys_cmd,"ForceSCA")==0)
+    {
+      if( !rIsPluralRing(currRing) )
+        return TRUE;
+
+      int b, e;
+      
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        b = (int)((long)(h->Data()));
+        h=h->next;
+      } 
+      else return TRUE;
+ 
+      if ((h!=NULL) && (h->Typ()==INT_CMD))
+      {
+        e = (int)((long)(h->Data()));
+      } 
+      else return TRUE;
+
+
+      if( !sca_ForceCommutative( currRing, b, e ) )
+        return TRUE;
+
+      return FALSE;
+    }
+
+//    sca_ForceCommutative
+    
 /*==================== PLURAL =================*/
 #if 0