| version 1.20, 2004/05/13 12:12:43 |
version 1.21, 2004/05/13 14:02:16 |
|
|
| * 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/fctr.c,v 1.19 2003/01/13 06:40:40 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.20 2004/05/13 12:12:43 takayama Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
|
|
| |
|
| void Pptozp(arg,rp) |
void Pptozp(arg,rp) |
| NODE arg; |
NODE arg; |
| P *rp; |
Obj *rp; |
| { |
{ |
| Q t; |
Q t; |
| |
|
| NODE opt,tt,p; |
NODE opt,tt,p; |
| NODE n,n0; |
NODE n,n0; |
| char *key; |
char *key; |
| |
P pp; |
| |
LIST list; |
| int get_factor=0; |
int get_factor=0; |
| |
|
| asir_assert(ARG0(arg),O_P,"ptozp"); |
asir_assert(ARG0(arg),O_P,"ptozp"); |
|
|
| } |
} |
| } |
} |
| |
|
| ptozp((P)ARG0(arg),1,&t,rp); |
ptozp((P)ARG0(arg),1,&t,&pp); |
| |
|
| /* printexpr(NULL,t); */ |
/* printexpr(NULL,t); */ |
| /* if the option factor is given, then it returns the answer |
/* if the option factor is given, then it returns the answer |
| in the format [zpoly, num] where num*zpoly is equal to the argument.*/ |
in the format [zpoly, num] where num*zpoly is equal to the argument.*/ |
| if (get_factor) { |
if (get_factor) { |
| n0 = n0 = 0; |
n0 = mknode(2,pp,t); |
| NEXTNODE(n0,n); |
MKLIST(list,n0); |
| BDY(n) = (pointer) *rp; |
*rp = (Obj)list; |
| NEXTNODE(n0,n); |
} else |
| BDY(n) = (pointer) t; |
*rp = (Obj)pp; |
| if (n0) NEXT(n) = 0; |
|
| MKLIST(*((LIST *)rp),n0); |
|
| } |
|
| } |
} |
| |
|
| void Pafctr(arg,rp) |
void Pafctr(arg,rp) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to fctr.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin