Changeset d84a4d in git for Singular

Timestamp:

Sep 8, 2011, 9:11:36 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

f7aa4c7c61207b077fe954f2e563ca261edcc109

Parents:

38fc1817a82ba6eed7f9f6355cfa06e1e00e1872

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-08 21:11:36+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:12:37+01:00

Message:

FIX: id[^_]* vs id_*: adding inline version to kernel/ideals.h
FIX: exposing id_{InsertPolyWithTests,QHomWeight}

Location:

Singular

Files:

• iparith.cc (modified) (3 diffs)
• ipshell.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -540 +540 @@
 static BOOLEAN jjPOWER_ID(leftv res, leftv u, leftv v)
 {
-  res->data = (char *)idPower((ideal)(u->Data()),(int)(long)(v->Data()));
+  res->data = (char *)id_Power((ideal)(u->Data()),(int)(long)(v->Data()), currRing);
   if (u!=NULL) return jjOP_REST(res,u,v);
   return FALSE;
@@ -2314 +2314 @@
   pLmDelete(p);
   if (d==1)
-    res->data = (char *)idHomogen((ideal)u->Data(),i);
+    res->data = (char *)id_Homogen((ideal)u->Data(), i, currRing);
   else
     WerrorS("variable must have weight 1");
@@ -5579 +5579 @@
   pLmDelete(p);
   if (d==1)
-    res->data = (char *)idHomogen((ideal)u->Data(),i);
+    res->data = (char *)id_Homogen((ideal)u->Data(), i, currRing);
   else
     WerrorS("variable must have weight 1");

Singular/ipshell.cc

@@ -2795 +2795 @@
 BOOLEAN kQHWeight(leftv res,leftv v)
 {
-  res->data=(char *)idQHomWeight((ideal)v->Data());
+  res->data=(char *)id_QHomWeight((ideal)v->Data(), currRing);
   if (res->data==NULL)
     res->data=(char *)new intvec(rVar(currRing));
@@ -4422 +4422 @@
       {
         test_id->m[0]=gls->m[j];
-        intvec *dummy_w=idQHomWeight(test_id);
+        intvec *dummy_w=id_QHomWeight(test_id, currRing);
         if (dummy_w!=NULL)
         {