Changeset 4c6e420 in git for libpolys/coeffs/gnumpc.cc

Timestamp:

Apr 27, 2011, 4:25:41 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

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

Children:

760a78f4333abdcf36c17059f611fa15a34c2dac

Parents:

5c97e10bb44ba586b18c55984cb4187d64f2d618

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-04-27 16:25:41+02:00

git-committer:

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

Message:

ADD: algring to coeffs (for extension fields via polynomials)
FIX: eliminated the use of minpoly/P/params in polynomials (as much as was possible)
ADD: complex numbers need a name for the imaginary root of -1 (use complex_parameter instead of parameter[0])

File:

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

libpolys/coeffs/gnumpc.cc

@@ -327 +327 @@
 {
   assume( getCoeffType(r) == ID );
-  
+  assume( r->compex_parameter != NULL );
   if ((*s >= '0') && (*s <= '9'))
   {
@@ -336 +336 @@
     delete re;
   }
-  else if (strncmp(s, r->parameter[0],strlen(r->parameter[0]))==0)
-  {
-    s+=strlen(r->parameter[0]);
+  else if (strncmp(s, r->compex_parameter,strlen(r->compex_parameter))==0)
+  {
+    s+=strlen(r->compex_parameter);
     gmp_complex *aa=new gmp_complex((long)0,(long)1);
     *a=(number)aa;
@@ -382 +382 @@
 }
 
-BOOLEAN ngcInitChar(coeffs n, void*)
+BOOLEAN ngcInitChar(coeffs n, void* p)
 {
   assume( getCoeffType(n) == ID );
@@ -486 +486 @@
 
 /// TODO: Any variables?
+  if( p == NULL )
+    n->compex_parameter = "i"; //??
+  else
+    n->compex_parameter = omStrDup( (char*) p );
+    
   return FALSE;
 }