Changeset 425e8b8 in git for Singular/clapsing.cc

Timestamp:

Oct 9, 1998, 2:29:47 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')

Children:

82d30ca435238b3872f92b96590a0704348dec46

Parents:

e7a0fa5e6779f8b540fef2a555fa1a0068db2668

Message:

* hannes/siebert: fixed bug_4 + examples


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

File:

• Singular/clapsing.cc (modified) (4 diffs)

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.41 1998-10-05 17:24:04 Singular Exp $
+// $Id: clapsing.cc,v 1.42 1998-10-09 12:29:37 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -511 +511 @@
           N=nCopy(n0);
         pCleardenom(f);
-        NN=nDiv(n0,pGetCoeff(f));
-        nDelete(&n0);
+        NN=nDiv(n0,pGetCoeff(f));
+        nDelete(&n0);
         if (with_exps==0)
         {
@@ -773 +773 @@
   StringSet("");
   Li = IL;
-  int* mark=(int*)Alloc0(pVariables*sizeof(int));
-  int cnt=pVariables;
+  int offs=rPar(currRing);
+  int* mark=(int*)Alloc0((pVariables+offs)*sizeof(int));
+  int cnt=pVariables+offs;
   loop
   {
     i=Li.getItem()-1;
     mark[i]=1;
-    StringAppend(currRing->names[i]);
+    if (i<offs)
+    {
+      StringAppend(currRing->parameter[i]);
+    }
+    else
+    {
+      StringAppend(currRing->names[i-offs]);
+    }
     Li++;
     cnt--;
@@ -786 +794 @@
     if(! Li.hasItem()) break;
   }
-  for(i=0;i<pVariables;i++)
+  for(i=0;i<pVariables+offs;i++)
   {
     if(mark[i]==0)
     {
-      StringAppend(currRing->names[i]);
+      if (i<offs)
+      {
+        StringAppend(currRing->parameter[i]);
+      }
+      else
+      {
+        StringAppend(currRing->names[i-offs]);
+      }
       cnt--;
       if(cnt==0) break;