Changeset 43fa86 in git

Timestamp:

Jul 9, 2018, 2:39:57 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

113a802e445da6c564286206f2eb02f93a3167a3

Parents:

a527a41aee3e0ac9b4976e8cb9864ff4632dac44

Message:

nFindCoeffByName

Location:

libpolys/coeffs

Files:

• numbers.cc (modified) (2 diffs)
• numbers.h (modified) (1 diff)

libpolys/coeffs/numbers.cc

@@ -567 +567 @@
 }
 
-coeffs nFindCoeffByName(const char *cf_name)
+struct nFindCoeffByName_s;
+typedef struct nFindCoeffByName_s* nFindCoeffByName_p;
+
+struct nFindCoeffByName_s
+{
+  n_coeffType n;
+  cfInitCfByNameProc p;
+  nFindCoeffByName_p next;
+};
+
+nFindCoeffByName_p nFindCoeffByName_Root=NULL;
+void nRegisterCfByName(cfInitCfByNameProc p,n_coeffType n)
+{
+  nFindCoeffByName_p h=(nFindCoeffByName_p)omAlloc0(sizeof(*h));
+  h->p=p;
+  h->n=n;
+  h->next=nFindCoeffByName_Root;
+  nFindCoeffByName_Root=h;
+}
+
+coeffs nFindCoeffByName(char *cf_name)
 {
   n_Procs_s* n=cf_root;
+  // try existings coeffs:
   while(n!=NULL)
   {
@@ -577 +598 @@
   }
   // TODO: parametrized cf, e.g. flint:Z/26[a]
+  // try existing types:
+  nFindCoeffByName_p p=nFindCoeffByName_Root;
+  while(p!=NULL)
+  {
+    coeffs cf=p->p(cf_name,p->n);
+    if (cf!=NULL) return cf;
+    p=p->next;
+  }
   return NULL;
 }

libpolys/coeffs/numbers.h

@@ -96 +96 @@
 n_coeffType nRegister(n_coeffType n, cfInitCharProc p);
 
+/// initialize an object of type coeffs by its name, return NULL otherwise
+typedef coeffs (*cfInitCfByNameProc)(char *s,n_coeffType n);
+void nRegisterCfByName(cfInitCfByNameProc p,n_coeffType n);
+
 /// find an existing coeff by its "CoeffName"
-coeffs nFindCoeffByName(const char *n);
+coeffs nFindCoeffByName(char *n);
 
 /// divide by the first (leading) number and return it, i.e. make monic