| version 1.19, 2004/08/05 00:56:54 |
version 1.20, 2004/08/09 06:42:53 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.18 2004/07/13 09:10:39 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.19 2004/08/05 00:56:54 noro Exp $ */ |
| |
|
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 323 void vartoquote(V v,QUOTE *c) |
|
| Line 323 void vartoquote(V v,QUOTE *c) |
|
| MKQUOTE(u,mkfnode(1,I_PAREN,BDY(a))); a = u; |
MKQUOTE(u,mkfnode(1,I_PAREN,BDY(a))); a = u; |
| } |
} |
| objtoquote(ad[1].arg,&b); |
objtoquote(ad[1].arg,&b); |
| x = (P)ad[1].arg; |
|
| /* check whether x is a non-negative integer or a variable */ |
|
| if ( !x || (INT(x) && SGN((Q)x) > 0) |
|
| || (OID(x)==O_P && !NEXT(DC(x)) |
|
| && UNIQ(DEG(DC(x))) && UNIQ(COEF(DC(x)))) ) { |
|
| /* use b as is */ |
|
| } else { |
|
| /* b => (b) */ |
|
| MKQUOTE(u,mkfnode(1,I_PAREN,BDY(b))); b = u; |
|
| } |
|
| pwrquote(CO,a,b,c); |
pwrquote(CO,a,b,c); |
| } else { |
} else { |
| for ( i = 0; i < pf->argc; i++ ) |
for ( i = 0; i < pf->argc; i++ ) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to quote.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / parse