OpenXM_contrib2/asir2000/builtin/dp.c - diff

Return to dp.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/dp.c between version 1.83 and 1.90

version 1.83, 2010/09/27 05:05:58

version 1.90, 2013/09/09 09:47:09

Line 44

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.82 2010/05/01 02:17:49 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.89 2013/09/09 07:29:25 noro Exp $

#include "ca.h"

#include "base.h"

Line 96 void Pdp_nf_f(),Pdp_weyl_nf_f();

void Pdp_lnf_f();

void Pnd_gr(),Pnd_gr_trace(),Pnd_f4(),Pnd_f4_trace();

void Pnd_gr_postproc(), Pnd_weyl_gr_postproc();

void Pnd_gr_recompute_trace(), Pnd_btog();

void Pnd_weyl_gr(),Pnd_weyl_gr_trace();

void Pnd_nf(),Pnd_weyl_nf();

void Pdp_initial_term();

Line 107 void Pdp_compute_essential_df();

Line 108 void Pdp_compute_essential_df();

void Pdp_get_denomlist();

void Pdp_symb_add();

void Pdp_mono_raddec();

void Pdp_mono_reduce();

LIST dp_initial_term();

LIST dp_order();

void parse_gr_option(LIST f,NODE opt,LIST *v,Num *homo,

int *modular,struct order_spec **ord);

NODE dp_inv_or_split(NODE gb,DP f,struct order_spec *spec, DP *inv);

LIST remove_zero_from_list(LIST);

Line 162 struct ftab dp_tab[] = {

Line 165 struct ftab dp_tab[] = {

{"nd_gr_trace",Pnd_gr_trace,5},

{"nd_f4_trace",Pnd_f4_trace,5},

{"nd_gr_postproc",Pnd_gr_postproc,5},

#if 0

{"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5},

#endif

{"nd_btog",Pnd_btog,-6},

{"nd_weyl_gr_postproc",Pnd_weyl_gr_postproc,5},

{"nd_weyl_gr",Pnd_weyl_gr,4},

{"nd_weyl_gr_trace",Pnd_weyl_gr_trace,5},

Line 268 struct ftab dp_supp_tab[] = {

Line 275 struct ftab dp_supp_tab[] = {

{"dp_compute_last_t",Pdp_compute_last_t,5},

{"dp_compute_essential_df",Pdp_compute_essential_df,2},

{"dp_mono_raddec",Pdp_mono_raddec,2},

{"dp_mono_reduce",Pdp_mono_reduce,2},

{0,0,0}

};

Line 2133 NODE arg;

Line 2141 NODE arg;

LIST *rp;

{

LIST f,v;

int m,find;

int m,homo,retdp;

Obj homo;

Obj val;

struct order_spec *ord;

do_weyl = 0;

Line 2148 LIST *rp;

Line 2156 LIST *rp;

}

m = QTOS((Q)ARG2(arg));

create_order_spec(0,ARG3(arg),&ord);

find = get_opt("homo",&homo);

homo = retdp = 0;

nd_gr(f,v,m,find&&homo,1,ord,rp);

if ( get_opt("homo",&val) && val ) homo = 1;

if ( get_opt("dp",&val) && val ) retdp = 1;

nd_gr(f,v,m,homo,retdp,1,ord,rp);

}

void Pnd_gr(arg,rp)

Line 2157 NODE arg;

Line 2167 NODE arg;

LIST *rp;

{

LIST f,v;

int m,find;

int m,homo,retdp;

Obj homo;

Obj val;

struct order_spec *ord;

do_weyl = 0;

Line 2172 LIST *rp;

Line 2182 LIST *rp;

}

m = QTOS((Q)ARG2(arg));

create_order_spec(0,ARG3(arg),&ord);

find = get_opt("homo",&homo);

homo = retdp = 0;

nd_gr(f,v,m,find&&homo,0,ord,rp);

if ( get_opt("homo",&val) && val ) homo = 1;

if ( get_opt("dp",&val) && val ) retdp = 1;

nd_gr(f,v,m,homo,retdp,0,ord,rp);

}

void Pnd_gr_postproc(arg,rp)

Line 2199 LIST *rp;

Line 2211 LIST *rp;

nd_gr_postproc(f,v,m,ord,do_check,rp);

}

#if 0

void Pnd_gr_recompute_trace(arg,rp)

NODE arg;

LIST *rp;

{

LIST f,v,tlist;

int m;

struct order_spec *ord;

do_weyl = 0;

asir_assert(ARG0(arg),O_LIST,"nd_gr_recompute_trace");

asir_assert(ARG1(arg),O_LIST,"nd_gr_recompute_trace");

asir_assert(ARG2(arg),O_N,"nd_gr_recompute_trace");

f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);

m = QTOS((Q)ARG2(arg));

create_order_spec(0,ARG3(arg),&ord);

tlist = (LIST)ARG4(arg);

nd_gr_recompute_trace(f,v,m,ord,tlist,rp);

}

#endif

Obj nd_btog_one(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist,int pos);

Obj nd_btog(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist);

void Pnd_btog(arg,rp)

NODE arg;

Obj *rp;

{

LIST f,v,tlist;

int m,ac,pos;

struct order_spec *ord;

do_weyl = 0;

asir_assert(ARG0(arg),O_LIST,"nd_btog");

asir_assert(ARG1(arg),O_LIST,"nd_btog");

asir_assert(ARG2(arg),O_N,"nd_btog");

f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);

m = QTOS((Q)ARG2(arg));

create_order_spec(0,ARG3(arg),&ord);

tlist = (LIST)ARG4(arg);

if ( (ac = argc(arg)) == 6 ) {

asir_assert(ARG5(arg),O_N,"nd_btog");

pos = QTOS((Q)ARG5(arg));

*rp = nd_btog_one(f,v,m,ord,tlist,pos);

} else if ( ac == 5 )

*rp = nd_btog(f,v,m,ord,tlist);

else

error("nd_btog : argument mismatch");

}

void Pnd_weyl_gr_postproc(arg,rp)

NODE arg;

LIST *rp;

Line 2276 NODE arg;

Line 2338 NODE arg;

LIST *rp;

{

LIST f,v;

int m,find;

int m,homo,retdp;

Obj homo;

Obj val;

struct order_spec *ord;

do_weyl = 1;

Line 2291 LIST *rp;

Line 2353 LIST *rp;

}

m = QTOS((Q)ARG2(arg));

create_order_spec(0,ARG3(arg),&ord);

find = get_opt("homo",&homo);

homo = retdp = 0;

nd_gr(f,v,m,find&&homo,0,ord,rp);

if ( get_opt("homo",&val) && val ) homo = 1;

if ( get_opt("dp",&val) && val ) retdp = 1;

nd_gr(f,v,m,homo,retdp,0,ord,rp);

do_weyl = 0;

}

Line 2632 NODE arg;

Line 2696 NODE arg;

VECT *rp;

{

VECT v;

NODE node;

int i,n;

if ( !arg )

Line 2641 VECT *rp;

Line 2706 VECT *rp;

current_weyl_weight_vector = 0;

*rp = 0;

} else {

asir_assert(ARG0(arg),O_VECT,"dp_weyl_set_weight");

if ( OID(ARG0(arg)) != O_VECT && OID(ARG0(arg)) != O_LIST )

v = (VECT)ARG0(arg);

error("dp_weyl_set_weight : invalid argument");

if ( OID(ARG0(arg)) == O_VECT )

v = (VECT)ARG0(arg);

else {

node = (NODE)BDY((LIST)ARG0(arg));

n = length(node);

MKVECT(v,n);

for ( i = 0; i < n; i++, node = NEXT(node) )

BDY(v)[i] = BDY(node);

}

current_weyl_weight_vector_obj = v;

n = v->len;

current_weyl_weight_vector = (int *)CALLOC(n,sizeof(int));

Line 2691 void Pdp_mono_raddec(NODE arg,LIST *rp)

Line 2765 void Pdp_mono_raddec(NODE arg,LIST *rp)

}

MKLIST(*rp,r);

}

void Pdp_mono_reduce(NODE arg,LIST *rp)

{

NODE t,t0,t1,r0,r;

int i,n;

DP m;

DP *a;

t0 = BDY((LIST)ARG0(arg));

t1 = BDY((LIST)ARG1(arg));

n = length(t0);

a = (DP *)MALLOC(n*sizeof(DP));

for ( i = 0; i < n; i++, t0 = NEXT(t0) ) a[i] = (DP)BDY(t0);

for ( t = t1; t; t = NEXT(t) ) {

m = (DP)BDY(t);

for ( i = 0; i < n; i++ )

if ( a[i] && dp_redble(a[i],m) ) a[i] = 0;

}

for ( i = n-1, r0 = 0; i >= 0; i-- )

if ( a[i] ) { NEXTNODE(r0,r); BDY(r) = a[i]; }

if ( r0 ) NEXT(r) = 0;

MKLIST(*rp,r0);

}

LIST remove_zero_from_list(LIST l)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>