Changeset 69d99e in git

Timestamp:

May 20, 1998, 3:42:14 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

d3716c0b0f03464f78fa19dc4dbb72c2bfc79cb9

Parents:

39d6b45f7817c4e903d19f930f30a29e0f49f8b3

Message:

* hannes: lres only for qring=NULL and homogeneous input


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

File:

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

Singular/iparith.cc

@@ -1693 +1693 @@
   intvec **weights=NULL;
   int wmaxl=maxl;
+  ideal u_id=(ideal)u->Data();
   maxl--;
   if ((maxl==-1) && (iiOp!=MRES_CMD))
@@ -1700 +1701 @@
     //if (BTEST1(28))
     //{
-    //  r=syMinRes((ideal)u->Data(),maxl,&l, iiOp==MRES_CMD);
+    //  r=syMinRes(u_id,maxl,&l, iiOp==MRES_CMD);
     //}
     //else
@@ -1711 +1712 @@
       //  l=1;
       //}
-      //r=syResolvente((ideal)u->Data(),maxl,&l, &weights, iiOp==MRES_CMD);
-      r=syResolution((ideal)u->Data(),maxl, iv, iiOp==MRES_CMD);
+      //r=syResolvente(u_id,maxl,&l, &weights, iiOp==MRES_CMD);
+      r=syResolution(u_id,maxl, iv, iiOp==MRES_CMD);
     }
   }
   else if (iiOp==SRES_CMD)
-  //  r=sySchreyerResolvente((ideal)u->Data(),maxl+1,&l);
-    r=sySchreyer((ideal)u->Data(),maxl+1);
+  //  r=sySchreyerResolvente(u_id,maxl+1,&l);
+    r=sySchreyer(u_id,maxl+1);
   else /* LRES */
   {
     int dummy;
-    r=syLaScala3((ideal)u->Data(),&dummy);
+    if((currQuotient!=NULL)||
+    (!idHomIdeal (u_id,NULL)))
+    {
+       WerrorS
+       ("`lres` can not be called in q ring or with inhomogeneous input");
+       return TRUE;
+    }
+    r=syLaScala3(u_id,&dummy);
   }
   if (r==NULL) return TRUE;
@@ -2750 +2758 @@
   procinfov pi = IDPROC((idhdl)v->data);
   if((pi->language == LANG_SINGULAR) && (pi->data.s.body!=NULL))
+  //if(pi->language == LANG_SINGULAR)
+  {
+    //if(pi->data.s.body==NULL)
+    //  iiGetLibProcBuffer(IDPROC((idhdl)v->data));
     res->data=mstrdup(pi->data.s.body);
+  }
   else
     res->data=mstrdup("");