version 1.5, 2001/09/05 09:01:28 |
version 1.6, 2001/10/09 01:36:25 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.4 2001/09/04 05:14:04 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.5 2001/09/05 09:01:28 noro Exp $ */ |
|
|
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
void addquote(vl,a,b,c) |
void addquote(VL vl,QUOTE a,QUOTE b,QUOTE *c) |
VL vl; |
|
QUOTE a,b; |
|
QUOTE *c; |
|
{ |
{ |
FNODE fn; |
FNODE fn; |
|
|
|
|
MKQUOTE(*c,fn); |
MKQUOTE(*c,fn); |
} |
} |
|
|
void subquote(vl,a,b,c) |
void subquote(VL vl,QUOTE a,QUOTE b,QUOTE *c) |
VL vl; |
|
QUOTE a,b; |
|
QUOTE *c; |
|
{ |
{ |
FNODE fn; |
FNODE fn; |
|
|
|
|
MKQUOTE(*c,fn); |
MKQUOTE(*c,fn); |
} |
} |
|
|
void mulquote(vl,a,b,c) |
void mulquote(VL vl,QUOTE a,QUOTE b,QUOTE *c) |
VL vl; |
|
QUOTE a,b; |
|
QUOTE *c; |
|
{ |
{ |
FNODE fn; |
FNODE fn; |
|
|
|
|
MKQUOTE(*c,fn); |
MKQUOTE(*c,fn); |
} |
} |
|
|
void divquote(vl,a,b,c) |
void divquote(VL vl,QUOTE a,QUOTE b,QUOTE *c) |
VL vl; |
|
QUOTE a,b; |
|
QUOTE *c; |
|
{ |
{ |
FNODE fn; |
FNODE fn; |
|
|
|
|
MKQUOTE(*c,fn); |
MKQUOTE(*c,fn); |
} |
} |
|
|
void pwrquote(vl,a,b,c) |
void pwrquote(VL vl,QUOTE a,QUOTE b,QUOTE *c) |
VL vl; |
|
QUOTE a,b; |
|
QUOTE *c; |
|
{ |
{ |
FNODE fn; |
FNODE fn; |
|
|
|
|
MKQUOTE(*c,fn); |
MKQUOTE(*c,fn); |
} |
} |
|
|
void chsgnquote(a,c) |
void chsgnquote(QUOTE a,QUOTE *c) |
QUOTE a; |
|
QUOTE *c; |
|
{ |
{ |
FNODE fn; |
FNODE fn; |
|
|
|
|
MKQUOTE(*c,fn); |
MKQUOTE(*c,fn); |
} |
} |
|
|
void polytoquote(), dctoquote(), vartoquote(); |
void objtoquote(Obj a,QUOTE *c) |
void dptoquote(), mptoquote(); |
|
|
|
void objtoquote(a,c) |
|
Obj a; |
|
QUOTE *c; |
|
{ |
{ |
QUOTE nm,dn; |
QUOTE nm,dn; |
NODE arg,t0,t,t1,t2,t3; |
NODE arg,t0,t,t1,t2,t3; |
|
|
} |
} |
} |
} |
|
|
void polytoquote(a,c) |
void polytoquote(P a,QUOTE *c) |
P a; |
|
QUOTE *c; |
|
{ |
{ |
DCP dc,t; |
DCP dc,t; |
DCP *dca; |
DCP *dca; |
|
|
*c = r; |
*c = r; |
} |
} |
|
|
void dptoquote(a,c) |
void dptoquote(DP a,QUOTE *c) |
DP a; |
|
QUOTE *c; |
|
{ |
{ |
MP t; |
MP t; |
MP *m; |
MP *m; |
|
|
*c = r; |
*c = r; |
} |
} |
|
|
void dctoquote(dc,v,c) |
void dctoquote(DCP dc,QUOTE v,QUOTE *c) |
DCP dc; |
|
QUOTE v; |
|
QUOTE *c; |
|
{ |
{ |
QUOTE r,d,s,u; |
QUOTE d,s,u; |
|
|
if ( UNIQ(COEF(dc)) ) { |
if ( UNIQ(COEF(dc)) ) { |
if ( DEG(dc) ) { |
if ( DEG(dc) ) { |
if ( UNIQ(DEG(dc)) ) |
if ( UNIQ(DEG(dc)) ) |
*c = v; |
*c = v; |
else { |
else { |
objtoquote(DEG(dc),&d); |
objtoquote((Obj)DEG(dc),&d); |
pwrquote(CO,v,d,c); |
pwrquote(CO,v,d,c); |
} |
} |
} else |
} else |
objtoquote(ONE,c); |
objtoquote((Obj)ONE,c); |
} else { |
} else { |
objtoquote(COEF(dc),&u); |
objtoquote((Obj)COEF(dc),&u); |
if ( DEG(dc) ) { |
if ( DEG(dc) ) { |
if ( UNIQ(DEG(dc)) ) |
if ( UNIQ(DEG(dc)) ) |
s = v; |
s = v; |
else { |
else { |
objtoquote(DEG(dc),&d); |
objtoquote((Obj)DEG(dc),&d); |
pwrquote(CO,v,d,&s); |
pwrquote(CO,v,d,&s); |
} |
} |
mulquote(CO,u,s,c); |
mulquote(CO,u,s,c); |
|
|
} |
} |
} |
} |
|
|
void mptoquote(m,n,c) |
void mptoquote(MP m,int n,QUOTE *c) |
MP m; |
|
int n; |
|
QUOTE *c; |
|
{ |
{ |
QUOTE s,u; |
QUOTE s,u; |
NODE t,t1; |
NODE t,t1; |
|
|
DL dl; |
DL dl; |
int i; |
int i; |
|
|
objtoquote(C(m),&s); |
objtoquote((Obj)C(m),&s); |
dl = m->dl; |
dl = m->dl; |
for ( i = n-1; i >= 0; i-- ) { |
for ( i = n-1, t = 0; i >= 0; i-- ) { |
STOQ(dl->d[i],q); |
STOQ(dl->d[i],q); |
f = mkfnode(1,I_FORMULA,q); |
f = mkfnode(1,I_FORMULA,q); |
MKNODE(t1,f,t); |
MKNODE(t1,f,t); |
|
|
mulquote(CO,s,u,c); |
mulquote(CO,s,u,c); |
} |
} |
|
|
void vartoquote(v,c) |
void vartoquote(V v,QUOTE *c) |
V v; |
|
QUOTE *c; |
|
{ |
{ |
P x; |
P x; |
PF pf; |
PF pf; |