===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/headers/Attic/parinf.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/headers/Attic/parinf.h	2001/10/02 11:17:07	1.1
+++ OpenXM_contrib/pari-2.2/src/headers/Attic/parinf.h	2002/09/11 07:26:58	1.2
@@ -1,4 +1,4 @@
-/* $Id: parinf.h,v 1.1 2001/10/02 11:17:07 noro Exp $
+/* $Id: parinf.h,v 1.2 2002/09/11 07:26:58 noro Exp $
 
 Copyright (C) 2000  The PARI group.
 
@@ -13,36 +13,66 @@ Check the License for details. You should have receive
 with the package; see the file 'COPYING'. If not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
 
-GEN initalgall0(GEN x, long flag, long prec);
+typedef struct {
+  GEN x; /* defining polynomial (monic, integral) */
+  GEN dK; /* disc(K) */
+  GEN index; /* [O_K : Z[X]/(x)] */
+  GEN bas;  /* Z-basis of O_K (t_VEC of t_POL) */
+  long r1; /* number of real places of K */
+/* possibly NULL = irrelevant or not computed */
+  GEN lead; /* leading coeff of initial polynomial defining K if non monic */
+  GEN dx;   /* disc(x) */
+  GEN basden; /* [nums(bas), dens(bas)] */
+} nfbasic_t;
 
+typedef struct {
+  GEN x;
+  GEN ro;   /* roots of x */
+  long r1;
+  GEN basden;
+  long prec;
+/* possibly -1 = irrelevant or not computed */
+  long extraprec;
+/* possibly NULL = irrelevant or not computed */
+  GEN M;
+  GEN G;
+} nffp_t;
+
 #define id_PRINCIPAL 0
 #define id_PRIME     1
 #define id_MAT       2
 
-/* for initalgredall */
-#define nf_REDUCE       8
-#define nf_SMALL        4 /* for both */
-#define nf_PARTIAL      2
+/* for _initalg */
+#define nf_ROUND2      64
+#define nf_NOROOTS     32
+#define nf_PARTIALFACT 16 /* and allbase */
+#define nf_RED          8
+#define nf_PARTRED      2
 #define nf_ORIG         1
 
-/* for initalgall0 */
-#define nf_REGULAR      0 /* for both */
+/* for rnfpolredabs */
+#define nf_ABSOLUTE     2
+#define nf_ADDZK      256
 
 /* for isprincipal */
-#define nf_GEN   1 /* for polredabs also */
+#define nf_GEN   1
 #define nf_FORCE 2
 #define nf_GIVEPREC 4
 #define nf_GENMAT 8
+#define nf_GEN_IF_PRINCIPAL 512
 
 /* for buchray */
 #define nf_INIT  4
 
+/* for buchall */
+#define nf_ROOT1 512
+#define nf_UNITS 1024
+
 /* for discray */
 #define nf_REL  1
 #define nf_COND 2
 
 /* for polredabs */
-#define nf_NORED 2
 #define nf_ALL   4
 #define nf_RAW   8
 
@@ -59,11 +89,12 @@ GEN initalgall0(GEN x, long flag, long prec);
 
 /* for fincke_pohst() */
 typedef struct FP_chk_fun {
-  GEN (*f)(GEN,GEN);
-  GEN (*f_init)(struct FP_chk_fun*,GEN,GEN,GEN,long*);
-  GEN (*f_post)(GEN,GEN);
-  GEN data;
+  GEN (*f)(void *,GEN);
+  GEN (*f_init)(struct FP_chk_fun*,GEN,GEN);
+  void *data;
   int skipfirst;
 } FP_chk_fun;
 
-GEN fincke_pohst(GEN a,GEN BOUND,long stockmax,long flag, long PREC, FP_chk_fun *CHECK);
+extern GEN _initalg(GEN x, long flag, long prec);
+extern GEN fincke_pohst(GEN a,GEN BOUND,long stockmax,long flag, long PREC, FP_chk_fun *CHECK);
+extern GEN polredfirstpol(GEN x, long flag, FP_chk_fun *CHECK);