Changeset 32cc7e in git for libpolys/coeffs/gnumpc.cc

Timestamp:

Sep 28, 2011, 5:47:12 PM (11 years ago)

Author:

Burcin Erocal <burcin@…>

Branches:

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

Children:

85fd9012469ea8abe27f4869c1fdec9987b77063

Parents:

aa98be749867c7cb115d6a8245308363068b1c0d

git-author:

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

git-committer:

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

Message:

Implement setting precision of real and complex coefficient domains.

File:

• libpolys/coeffs/gnumpc.cc (modified) (4 diffs)

libpolys/coeffs/gnumpc.cc

@@ -375 +375 @@
 }
 
-BOOLEAN ngcInitChar(coeffs n, void* p)
+BOOLEAN ngcCoeffIsEqual (const coeffs r, n_coeffType n, void * parameter)
+{
+  if (n==ID) {
+    LongComplexInfo* p = (LongComplexInfo *)(parameter);
+    if (p->float_len == r->float_len && p->float_len2 == r->float_len2 &&
+                    strcmp(p->par_name, r->complex_parameter))
+      return TRUE;
+  }
+  return FALSE;
+}
+
+BOOLEAN ngcInitChar(coeffs n, void* parameter)
 {
   assume( getCoeffType(n) == ID );
+  assume( parameter != NULL);
+
   n->cfKillChar = ndKillChar; /* dummy */
   n->ch = 0;
@@ -411 +424 @@
 #endif
 
-  n->nCoeffIsEqual = ndCoeffIsEqual;
-
+  n->nCoeffIsEqual = ngcCoeffIsEqual;
+
+  n->cfSetChar=ngcSetChar;
 
 
@@ -418 +432 @@
   //r->cfInitChar=nlInitChar;
   r->cfKillChar=NULL;
-  r->cfSetChar=NULL;
-  r->nCoeffIsEqual=nlCoeffsEqual;
 
   r->cfMult  = nlMult;
@@ -477 +489 @@
 */
 
-/// TODO: Any variables?
-  if( p == NULL )
-    n->complex_parameter = omStrDup((char*)"i");
-  else
-    n->complex_parameter = omStrDup( (char*) p );
+  LongComplexInfo* p = (LongComplexInfo*)parameter;
+  n->complex_parameter = omStrDup(p->par_name);
+  n->float_len = p->float_len;
+  n->float_len2 = p->float_len2;
 
   return FALSE;
 }
 
-
+void ngcSetChar(const coeffs r)
+{
+  setGMPFloatDigits(r->float_len, r->float_len2);
+}