version 1.58, 2005/08/03 05:01:00 |
version 1.60, 2005/08/25 18:59:11 |
|
|
* 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.57 2004/12/09 08:56:43 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.59 2005/08/24 06:28:39 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
|
|
int modular; |
int modular; |
|
|
f.id = O_LIST; f.body = 0; |
f.id = O_LIST; f.body = 0; |
if ( !arg ) |
if ( !arg && !current_option ) |
*rp = dp_current_spec->obj; |
*rp = dp_current_spec->obj; |
else { |
else { |
if ( current_option ) |
if ( current_option ) |
Line 568 extern LIST Dist; |
|
Line 568 extern LIST Dist; |
|
|
|
void Pdp_ptozp(arg,rp) |
void Pdp_ptozp(arg,rp) |
NODE arg; |
NODE arg; |
DP *rp; |
Obj *rp; |
{ |
{ |
|
Q t; |
|
NODE tt,p; |
|
NODE n,n0; |
|
char *key; |
|
DP pp; |
|
LIST list; |
|
int get_factor=0; |
|
|
asir_assert(ARG0(arg),O_DP,"dp_ptozp"); |
asir_assert(ARG0(arg),O_DP,"dp_ptozp"); |
dp_ptozp((DP)ARG0(arg),rp); |
|
|
/* analyze the option */ |
|
if ( current_option ) { |
|
for ( tt = current_option; tt; tt = NEXT(tt) ) { |
|
p = BDY((LIST)BDY(tt)); |
|
key = BDY((STRING)BDY(p)); |
|
/* value = (Obj)BDY(NEXT(p)); */ |
|
if ( !strcmp(key,"factor") ) get_factor=1; |
|
else { |
|
error("ptozp: unknown option."); |
|
} |
|
} |
|
} |
|
|
|
dp_ptozp3((DP)ARG0(arg),&t,&pp); |
|
|
|
/* printexpr(NULL,t); */ |
|
/* if the option factor is given, then it returns the answer |
|
in the format [zpoly, num] where num*zpoly is equal to the argument.*/ |
|
if (get_factor) { |
|
n0 = mknode(2,pp,t); |
|
MKLIST(list,n0); |
|
*rp = (Obj)list; |
|
} else |
|
*rp = (Obj)pp; |
} |
} |
|
|
void Pdp_ptozp2(arg,rp) |
void Pdp_ptozp2(arg,rp) |