Changeset 85fd90 in git for Singular

Timestamp:

Sep 28, 2011, 5:48:27 PM (13 years ago)

Author:

Burcin Erocal <burcin@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d56ad872d739d42e59b1beb8ccc89be2a204530d

Parents:

32cc7e437ee85bf7d555756eb824eadce50d50c7

git-author:

Burcin Erocal <burcin@erocal.org>2011-09-28 17:48:27+02:00

git-committer:

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

Message:

Fix rChangeCurrRing and make the interpreter pass precision info to real/complex coeffs constructor.

File:

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

Singular/ipshell.cc

@@ -5025 +5025 @@
   && ((strcmp(pn->name,"real")==0) || (strcmp(pn->name,"complex")==0)))
   {
+    LongComplexInfo param;
     BOOLEAN complex_flag=(strcmp(pn->name,"complex")==0);
     const int ch=0;
     if ((pn->next!=NULL) && (pn->next->Typ()==INT_CMD))
     {
-      WarnS("not implemented: size for real/complex");
       float_len=(int)(long)pn->next->Data();
       float_len2=float_len;
@@ -5036 +5036 @@
       {
         float_len2=(int)(long)pn->next->Data();
-        WarnS("not implemented: size for real/complex");
         pn=pn->next;
       }
     }
-    if ((pn->next==NULL) && complex_flag)
-    {
-      pn->next=(leftv)omAlloc0Bin(sleftv_bin);
-      pn->next->name=omStrDup("i");
-    }
-    else
-      WarnS("not implemented: name for i (complex)");
-    cf=nInitChar(complex_flag ? n_long_C: n_long_R,NULL);
+    // set the parameter name
+    if (complex_flag) {
+      if (pn->next == NULL)
+        param.par_name=(const char*)"i"; //default to i
+      else
+        param.par_name = (const char*)pn->next->name;
+    }
+
+    param.float_len = float_len;
+    param.float_len2 = float_len2;
+    cf=nInitChar(complex_flag ? n_long_C: n_long_R, (void*)&param);
 
     assume( cf != NULL );