OpenXM_contrib2/asir2000/parse/quote.c - diff

Return to quote.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.18, 2004/07/13 09:10:39

version 1.19, 2004/08/05 00:56:54

Line 1

/* $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.18 2004/07/13 09:10:39 noro Exp $ */

#include "ca.h"

#include "parse.h"

Line 318 void vartoquote(V v,QUOTE *c)

if ( x && OID(x)==O_P && !NEXT(DC(x))

&& UNIQ(DEG(DC(x))) && UNIQ(COEF(DC(x))) ) {

/* use a as is */

u = a;

} else {

/* 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);

pwrquote(CO,u,b,c);

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);

} else {

for ( i = 0; i < pf->argc; i++ )

if ( ad[i].d )