version 1.42, 2003/10/17 05:16:49 |
version 1.44, 2003/11/27 07:53:53 |
|
|
* 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.41 2003/10/08 09:38:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.43 2003/11/27 02:20:51 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 58 extern struct order_spec dp_current_spec; |
|
Line 58 extern struct order_spec dp_current_spec; |
|
|
|
int do_weyl; |
int do_weyl; |
|
|
|
void Pdp_sort(); |
void Pdp_mul_trunc(),Pdp_quo(); |
void Pdp_mul_trunc(),Pdp_quo(); |
void Pdp_ord(), Pdp_ptod(), Pdp_dtop(); |
void Pdp_ord(), Pdp_ptod(), Pdp_dtop(); |
void Pdp_ptozp(), Pdp_ptozp2(), Pdp_red(), Pdp_red2(), Pdp_lcm(), Pdp_redble(); |
void Pdp_ptozp(), Pdp_ptozp2(), Pdp_red(), Pdp_red2(), Pdp_lcm(), Pdp_redble(); |
Line 176 struct ftab dp_tab[] = { |
|
Line 177 struct ftab dp_tab[] = { |
|
|
|
struct ftab dp_supp_tab[] = { |
struct ftab dp_supp_tab[] = { |
/* setting flags */ |
/* setting flags */ |
|
{"dp_sort",Pdp_sort,1}, |
{"dp_ord",Pdp_ord,-1}, |
{"dp_ord",Pdp_ord,-1}, |
{"dp_set_kara",Pdp_set_kara,-1}, |
{"dp_set_kara",Pdp_set_kara,-1}, |
{"dp_nelim",Pdp_nelim,-1}, |
{"dp_nelim",Pdp_nelim,-1}, |
Line 224 struct ftab dp_supp_tab[] = { |
|
Line 226 struct ftab dp_supp_tab[] = { |
|
{0,0,0} |
{0,0,0} |
}; |
}; |
|
|
|
void Pdp_sort(arg,rp) |
|
NODE arg; |
|
DP *rp; |
|
{ |
|
dp_sort((DP)ARG0(arg),rp); |
|
} |
|
|
void Pdp_mdtod(arg,rp) |
void Pdp_mdtod(arg,rp) |
NODE arg; |
NODE arg; |
DP *rp; |
DP *rp; |
|
|
break; |
break; |
case 2: |
case 2: |
DP_Print = 0; DP_PrintShort = 1; |
DP_Print = 0; DP_PrintShort = 1; |
|
break; |
default: |
default: |
DP_Print = s; DP_PrintShort = 0; |
DP_Print = s; DP_PrintShort = 0; |
break; |
break; |