Changeset 8f8b75 in git

Timestamp:

May 11, 2010, 1:53:49 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7a95e9169a993d42f4a8184742b7ffbc5725a115

Parents:

f945d2b0105e7e765829a443b2044990186c9f2e

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2010-05-11 13:53:49+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 11:52:54+01:00

Message:

register new coeffs

Location:

coeffs

Files:

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

coeffs/coeffs.h

@@ -46 +46 @@
    coeffs next;
    unsigned int  ringtype;  /* 0 => coefficient field, 1 => coeffs from Z/2^m */
+
+   // general properties:
+   BOOLEAN has_simple_Alloc; /* TRUE, if nNew/nDelete are dummies */
+   BOOLEAN has_simple_Inverse; /* TRUE, if nInvers is cheap */
+
+   // tests for numbers.cc:
+   BOOLEAN (*nCoeffIsEqual)(const coeffs r, n_coeffType n, int parameter);
 
    // the union stuff

coeffs/numbers.h

@@ -52 +52 @@
 
 #define n_New(n, r)           nNew(n)
-
-/* variables */
-extern unsigned short fftable[];
 
 /* prototypes */
@@ -162 +159 @@
 
 static inline BOOLEAN nField_has_simple_inverse(const coeffs r)
-/* { return (r->ch>1) || (r->ch== -1); } *//* Z/p, GF(p,n), R, long_R, long_C*/
-#ifdef HAVE_RINGS
-{ return (r->ringtype > 0) || (r->ch>1) || ((r->ch== -1) && (r->float_len < 10)); } /* Z/2^n, Z/p, GF(p,n), R, long_R, long_C*/
-#else
-{ return (r->ch>1) || ((r->ch== -1) && (r->float_len < 10)); } /* Z/p, GF(p,n), R, long_R, long_C*/
-#endif
+{ return r->has_simple_Inverse; }
+/* Z/2^n, Z/p, GF(p,n), R, long_R, long_C*/
 
 static inline BOOLEAN nField_has_simple_Alloc(const coeffs r)
-{ return (nField_is_Zp(r)
-       || nField_is_GF(r)
-#ifdef HAVE_RINGS
-       || nField_is_Ring_2toM(r)
-#endif
-       || nField_is_R(r));
-}
-/* Z/p, GF(p,n), R: nCopy, nNew, nDelete are dummies*/
+{ return r->has_simple_Alloc; }
+/* Z/p, GF(p,n), R, Ring_2toM: nCopy, nNew, nDelete are dummies*/
 
 static inline BOOLEAN nField_is_Extension(const coeffs r)
 { return (nField_is_Q_a(r)) || (nField_is_Zp_a(r)); } /* Z/p(a) and Q(a)*/
 
-
+typedef void (*cfInitCharProc)(coeffs, int);
+n_coeffType nRegister(n_coeffType n, cfInitCharProc p);