OpenXM_contrib2/asir2000/parse/quote.c - diff

Return to quote.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.8, 2004/03/04 01:41:32

version 1.9, 2004/03/04 03:31:28

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.7 2004/03/03 09:25:30 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.8 2004/03/04 01:41:32 noro Exp $ */

#include "ca.h"

#include "parse.h"

Line 277 void mptoquote(MP m,int n,QUOTE *r,int *sgn)

s = u;

}

dl = m->dl;

if ( !dl->td )

for ( i = n-1, t = 0; i >= 0; i-- ) {

*r = s;

STOQ(dl->d[i],q);

else {

f = mkfnode(1,I_FORMULA,q);

for ( i = n-1, t = 0; i >= 0; i-- ) {

MKNODE(t1,f,t);

STOQ(dl->d[i],q);

t = t1;

f = mkfnode(1,I_FORMULA,q);

MKNODE(t1,f,t);

t = t1;

}

MKQUOTE(u,mkfnode(1,I_EV,t));

if ( UNIQ(c) )

*r = u;

else

mulquote(CO,s,u,r);

}

MKQUOTE(u,mkfnode(1,I_EV,t));

if ( UNIQ(c) )

*r = u;

else

mulquote(CO,s,u,r);

}

void vartoquote(V v,QUOTE *c)