version 1.18, 2004/07/13 09:10:39 |
version 1.20, 2004/08/09 06:42:53 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.17 2004/07/13 07:59:54 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 318 void vartoquote(V v,QUOTE *c) |
|
Line 318 void vartoquote(V v,QUOTE *c) |
|
if ( x && OID(x)==O_P && !NEXT(DC(x)) |
if ( x && OID(x)==O_P && !NEXT(DC(x)) |
&& UNIQ(DEG(DC(x))) && UNIQ(COEF(DC(x))) ) { |
&& UNIQ(DEG(DC(x))) && UNIQ(COEF(DC(x))) ) { |
/* use a as is */ |
/* use a as is */ |
u = a; |
|
} else { |
} else { |
/* a => (a) */ |
/* a => (a) */ |
MKQUOTE(u,mkfnode(1,I_PAREN,BDY(a))); |
MKQUOTE(u,mkfnode(1,I_PAREN,BDY(a))); a = u; |
} |
} |
objtoquote(ad[1].arg,&b); |
objtoquote(ad[1].arg,&b); |
pwrquote(CO,u,b,c); |
pwrquote(CO,a,b,c); |
} else { |
} else { |
for ( i = 0; i < pf->argc; i++ ) |
for ( i = 0; i < pf->argc; i++ ) |
if ( ad[i].d ) |
if ( ad[i].d ) |