===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/nd.h,v
retrieving revision 1.17
retrieving revision 1.21
diff -u -p -r1.17 -r1.21
--- OpenXM_contrib2/asir2000/engine/nd.h	2006/12/12 11:50:37	1.17
+++ OpenXM_contrib2/asir2000/engine/nd.h	2009/01/07 05:33:18	1.21
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.h,v 1.16 2006/11/27 07:31:26 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.h,v 1.20 2009/01/05 02:08:18 noro Exp $ */
 #include "ca.h"
 #include "parse.h"
 #include "ox.h"
@@ -128,6 +128,7 @@ extern char *Demand;
 extern VL CO;
 extern int Top,Reverse,DP_Print,dp_nelim,do_weyl,NoSugar;
 extern int *current_weyl_weight_vector;
+extern int *current_module_weight_vector;
 
 /* fundamental macros */
 #define TD(d) (d[0])
@@ -152,6 +153,7 @@ extern int *current_weyl_weight_vector;
 
 #define GET_EXP_OLD(d,a) (((d)[oepos[a].i]>>oepos[a].s)&omask0)
 #define PUT_EXP_OLD(r,a,e) ((r)[oepos[a].i] |= ((e)<<oepos[a].s))
+#define MPOS(d) (d[nd_mpos])
 
 #define ROUND_FOR_ALIGN(s) ((((s)+sizeof(void *)-1)/sizeof(void *))*sizeof(void *))
 
@@ -258,7 +260,7 @@ NODE nd_f4_trace(int m);
 /* ndl functions */
 int ndl_weight(UINT *d);
 void ndl_weight_mask(UINT *d);
-void ndl_homogenize(UINT *d,UINT *r,int obpe,EPOS oepos,int weight);
+void ndl_homogenize(UINT *d,UINT *r,int obpe,EPOS oepos,int ompos,int weight);
 void ndl_dehomogenize(UINT *p);
 void ndl_reconstruct(UINT *d,UINT *r,int obpe,EPOS oepos);
 INLINE int ndl_reducible(UINT *d1,UINT *d2);
@@ -301,7 +303,7 @@ void ndp_print(ND_pairs d);
 /* setup, reconstruct */
 void nd_init_ord(struct order_spec *spec);
 ND_pairs nd_reconstruct(int trace,ND_pairs ndp);
-void ndv_setup(int mod,int trace,NODE f,int dont_sort);
+void ndv_setup(int mod,int trace,NODE f,int dont_sort,int dont_removecont);
 void nd_setup_parameters(int nvar,int max);
 BlockMask nd_create_blockmask(struct order_spec *ord);
 EPOS nd_create_epos(struct order_spec *ord);
@@ -345,7 +347,7 @@ ND ndv_mul_nm(int mod,NM m0,NDV p);
 ND ndv_mul_nmv_trunc(int mod,NMV m0,NDV p,UINT *d);
 void ndv_realloc(NDV p,int obpe,int oadv,EPOS oepos);
 NDV ndv_dup_realloc(NDV p,int obpe,int oadv,EPOS oepos);
-void ndv_homogenize(NDV p,int obpe,int oadv,EPOS eops);
+void ndv_homogenize(NDV p,int obpe,int oadv,EPOS eops,int ompos);
 void ndv_dehomogenize(NDV p,struct order_spec *spec);
 void ndv_removecont(int mod,NDV p);
 void ndv_print(NDV p);