version 1.90, 2013/09/09 09:47:09 |
version 1.93, 2014/10/10 09:02:24 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.89 2013/09/09 07:29:25 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.92 2014/08/19 06:35:01 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 165 struct ftab dp_tab[] = { |
|
Line 165 struct ftab dp_tab[] = { |
|
{"nd_gr_trace",Pnd_gr_trace,5}, |
{"nd_gr_trace",Pnd_gr_trace,5}, |
{"nd_f4_trace",Pnd_f4_trace,5}, |
{"nd_f4_trace",Pnd_f4_trace,5}, |
{"nd_gr_postproc",Pnd_gr_postproc,5}, |
{"nd_gr_postproc",Pnd_gr_postproc,5}, |
#if 0 |
|
{"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5}, |
{"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5}, |
#endif |
|
{"nd_btog",Pnd_btog,-6}, |
{"nd_btog",Pnd_btog,-6}, |
{"nd_weyl_gr_postproc",Pnd_weyl_gr_postproc,5}, |
{"nd_weyl_gr_postproc",Pnd_weyl_gr_postproc,5}, |
{"nd_weyl_gr",Pnd_weyl_gr,4}, |
{"nd_weyl_gr",Pnd_weyl_gr,4}, |
|
|
nd_gr_postproc(f,v,m,ord,do_check,rp); |
nd_gr_postproc(f,v,m,ord,do_check,rp); |
} |
} |
|
|
#if 0 |
|
void Pnd_gr_recompute_trace(arg,rp) |
void Pnd_gr_recompute_trace(arg,rp) |
NODE arg; |
NODE arg; |
LIST *rp; |
LIST *rp; |
|
|
tlist = (LIST)ARG4(arg); |
tlist = (LIST)ARG4(arg); |
nd_gr_recompute_trace(f,v,m,ord,tlist,rp); |
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_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); |
Obj nd_btog(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist); |
|
|
} |
} |
} |
} |
|
|
VECT current_top_weight_vector_obj; |
extern Obj current_top_weight; |
N *current_top_weight_vector; |
extern Obj nd_top_weight; |
|
|
void Pdp_set_top_weight(arg,rp) |
void Pdp_set_top_weight(NODE arg,Obj *rp) |
NODE arg; |
|
VECT *rp; |
|
{ |
{ |
VECT v; |
VECT v; |
int i,n; |
MAT m; |
|
Obj obj; |
|
int i,j,n,id,row,col; |
|
Q *mi; |
NODE node; |
NODE node; |
|
|
if ( !arg ) |
if ( !arg ) |
*rp = current_top_weight_vector_obj; |
*rp = current_top_weight; |
else if ( !ARG0(arg) ) { |
else if ( !ARG0(arg) ) { |
current_top_weight_vector = 0; |
reset_top_weight(); |
current_top_weight_vector_obj = 0; |
|
*rp = 0; |
*rp = 0; |
} else { |
} else { |
if ( OID(ARG0(arg)) != O_VECT && OID(ARG0(arg)) != O_LIST ) |
id = OID(ARG0(arg)); |
|
if ( id != O_VECT && id != O_MAT && id != O_LIST ) |
error("dp_set_top_weight : invalid argument"); |
error("dp_set_top_weight : invalid argument"); |
if ( OID(ARG0(arg)) == O_VECT ) |
if ( id == O_LIST ) { |
v = (VECT)ARG0(arg); |
|
else { |
|
node = (NODE)BDY((LIST)ARG0(arg)); |
node = (NODE)BDY((LIST)ARG0(arg)); |
n = length(node); |
n = length(node); |
MKVECT(v,n); |
MKVECT(v,n); |
for ( i = 0; i < n; i++, node = NEXT(node) ) |
for ( i = 0; i < n; i++, node = NEXT(node) ) |
BDY(v)[i] = BDY(node); |
BDY(v)[i] = BDY(node); |
|
obj = v; |
|
} else |
|
obj = ARG0(arg); |
|
if ( OID(obj) == O_VECT ) { |
|
v = (VECT)obj; |
|
for ( i = 0; i < v->len; i++ ) |
|
if ( !INT(BDY(v)[i]) || (BDY(v)[i] && SGN((Q)BDY(v)[i]) < 0) ) |
|
error("dp_set_top_weight : each element must be a non-negative integer"); |
|
} else { |
|
m = (MAT)obj; row = m->row; col = m->col; |
|
for ( i = 0; i < row; i++ ) |
|
for ( j = 0, mi = (Q *)BDY(m)[i]; j < col; j++ ) |
|
if ( !INT(mi[j]) || (mi[j] && SGN((Q)mi[j]) < 0) ) |
|
error("dp_set_top_weight : each element must be a non-negative integer"); |
} |
} |
for ( i = 0; i < v->len; i++ ) |
current_top_weight = obj; |
if ( !INT(BDY(v)[i]) || (BDY(v)[i] && SGN((Q)BDY(v)[i]) < 0) ) |
nd_top_weight = obj; |
error("dp_set_top_weight : each element must be a non-negative integer"); |
*rp = current_top_weight; |
current_top_weight_vector_obj = v; |
|
current_top_weight_vector = (N *)MALLOC(v->len*sizeof(N)); |
|
for ( i = 0; i < v->len; i++ ) { |
|
current_top_weight_vector[i] = !BDY(v)[i]?0:NM((Q)BDY(v)[i]); |
|
} |
|
*rp = current_top_weight_vector_obj; |
|
} |
} |
} |
} |
|
|
Line 2972 int get_opt(char *key0,Obj *r) { |
|
Line 2975 int get_opt(char *key0,Obj *r) { |
|
} |
} |
return 0; |
return 0; |
} |
} |
|
|