Changeset e90187 in git for kernel/maps.cc

Timestamp:

May 12, 2004, 1:24:37 PM (20 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5cb4f21974977eb9eff1539a2542294695996e1c

Parents:

327fb235dd54e0d6abf41fde5c280098455f9d2d

Message:

*levandov: new functions in Plural with bugfixes


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

File:

• kernel/maps.cc (modified) (2 diffs)

kernel/maps.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: maps.cc,v 1.1.1.1 2003-10-06 12:15:54 Singular Exp $ */
+/* $Id: maps.cc,v 1.2 2004-05-12 11:24:37 levandov Exp $ */
 /*
 * ABSTRACT - the mapping of polynomials to other rings
@@ -247 +247 @@
   rTest(&tmpR);
 
+#ifdef HAVE_PLURAL
+  if (sourcering->nc!= NULL)
+  {
+    rUnComplete(&tmpR);
+    omFreeSize(orders, sizeof(int)*(ordersize));
+    omFreeSize(block0, sizeof(int)*(ordersize));
+    omFreeSize(block1, sizeof(int)*(ordersize));
+    omFreeSize(wv, sizeof(int*)*(ordersize));
+    omFreeSize(names, (currRing->N)*sizeof(char*));
+    if (sourcering->nc->type!=nc_comm)
+    {
+      Werror("Sorry, not yet implemented for noncomm. rings");
+      return NULL;
+    }    
+    if ( rSum(theImageRing, sourcering, &tmpR ) !=1 )
+    {
+      /* something is wrong with the rings... */
+      Werror("Error in rSum");
+      return NULL;
+    }
+  }
+#endif
+
   // change to new ring
   rChangeCurrRing(&tmpR);