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.85 and 1.90

version 1.85, 2011/03/30 02:43:18

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.84 2011/02/18 02:54:48 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 113 LIST dp_initial_term();

Line 114 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 163 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 2135 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 2150 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 2159 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 2174 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 2201 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 2278 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 2293 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;

}

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