Changeset a31f248 in git

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

5ee3246883b72c3d70174075aadf91e31aa7cc1e

Parents:

c1975864ec9e675a62cefef438dc443d378d5ce4

Message:

*hannes: pSubstPoly


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

Location:

Singular

Files:

• maps.cc (modified) (2 diffs)
• maps.h (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;
+}
+

Singular/maps.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: maps.h,v 1.9 2000-12-15 18:49:33 Singular Exp $ */
+/* $Id: maps.h,v 1.10 2002-03-07 18:48:58 Singular Exp $ */
 /*
 * ABSTRACT - the mapping of polynomials to other rings
@@ -23 +23 @@
                 char **names,       int n,       char **par,       int nop,
                 int * perm, int *par_perm, int ch);
+poly pSubstPoly(poly p, int var, poly image);
 #endif