Changeset 2ab41e8 in git for Singular/extra.cc

Timestamp:

Feb 12, 2009, 2:29:49 PM (15 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

90a60fe38bdb36d2a9edfceca3250e947ac9d379

Parents:

d7d5f6ec23c1062b8e3dbc3905eed0672ce62cbc

Message:

*motsak: tensor product of certain maps


git-svn-id: file:///usr/local/Singular/svn/trunk@11373 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.292 2009-02-11 14:57:54 monerjan Exp $ */
+/* $Id: extra.cc,v 1.293 2009-02-12 13:29:49 motsak Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -696 +696 @@
    else
 #endif
+
+#define HAVE_SHEAFCOH_TRICKS 1
+
+#ifdef HAVE_SHEAFCOH_TRICKS
+    if(strcmp(sys_cmd,"tensorModuleMult")==0)
+    {
+//      WarnS("tensorModuleMult!");
+      if (h!=NULL && h->Typ()==INT_CMD && h->Data() != NULL &&
+          h->next != NULL && h->next->Typ() == MODUL_CMD
+          && h->next->Data() != NULL)
+      {
+        int m = (int)( (long)h->Data() );
+        ideal M = (ideal)h->next->Data();
+
+        res->rtyp=MODUL_CMD;
+        res->data=(void *)tensorModuleMult(m, M, currRing);
+        return FALSE;
+      }
+      
+      WerrorS("system(\"tensorModuleMult\", int, module) expected");
+      return TRUE;
+    } else
+#endif
+
+
 #ifdef HAVE_PLURAL
 /*==================== Approx_Step  =================*/
@@ -857 +882 @@
       return FALSE;
     }
+
+
+
     
     /*==================== PLURAL =================*/