Changeset a31f248 in git for Singular/maps.cc

Timestamp:

Mar 7, 2002, 7:49:16 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5ee3246883b72c3d70174075aadf91e31aa7cc1e

Parents:

c1975864ec9e675a62cefef438dc443d378d5ce4

Message:

*hannes: pSubstPoly


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

File:

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

Singular/maps.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: maps.cc,v 1.38 2002-01-22 09:57:53 Singular Exp $ */
+/* $Id: maps.cc,v 1.39 2002-03-07 18:48:13 Singular Exp $ */
 /*
 * ABSTRACT - the mapping of polynomials to other rings
@@ -671 +671 @@
   return rp.next;
 }
+
+poly pSubstPoly(poly p, int var, poly image)
+{
+  map theMap=(map)idMaxIdeal(1);
+  theMap->preimage=NULL;
+  pDelete(&(theMap->m[var-1]));
+  theMap->m[var-1]=pCopy(image);
+  
+  leftv v=(leftv)omAlloc0Bin(sleftv_bin);
+  sleftv tmpW;
+  memset(&tmpW,0,sizeof(sleftv));
+  tmpW.rtyp=POLY_CMD;
+  tmpW.data=p;
+  poly res=NULL;
+  if (maApplyFetch(MAP_CMD,theMap,v,&tmpW,currRing,NULL,NULL,0,nCopy))
+  {
+    WerrorS("map failed");
+    v->data=NULL;
+  }
+  res=(poly)(v->data);
+  idDelete((ideal *)(&theMap));
+  omFreeBin((ADDRESS)v, sleftv_bin);
+  return res;
+}
+