OpenXM_contrib2/asir2018/parse/quote.c - diff

Return to quote.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / parse

version 1.1, 2018/09/19 05:45:08

version 1.3, 2021/03/11 03:41:13

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM_contrib2/asir2018/parse/quote.c,v 1.2 2018/09/28 08:20:29 noro Exp $ */

#include "ca.h"

#include "parse.h"

Line 120 void objtoquote(Obj a,QUOTE *c)

MKNODE(t1,BDY(nm),t);

t = t1;

}

STOQ(len,q);

STOZ(len,q);

t = mknode(2,mkfnode(1,I_FORMULA,q),mkfnode(1,I_LIST,t));

gen_searchf("vector",&f);

MKQUOTE(*c,mkfnode(2,I_FUNC,f,mkfnode(1,I_LIST,t)));

Line 143 void objtoquote(Obj a,QUOTE *c)

}

fn = mkfnode(1,I_LIST,t2);

STOQ(row,qrow);

STOZ(row,qrow);

STOQ(col,qcol);

STOZ(col,qcol);

t = mknode(3,

mkfnode(1,I_FORMULA,qrow),mkfnode(1,I_FORMULA,qcol),fn);

gen_searchf("matrix",&f);

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

}

dl = m->dl;

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

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

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

f = mkfnode(1,I_FORMULA,q);

MKNODE(t1,f,t);

t = t1;

Line 378 struct fid_spec fid_spec_tab[] = {

{I_IFUNC,A_fnode,A_fnode,A_end},

{I_MAP,A_func,A_fnode,A_end},

{I_RECMAP,A_func,A_fnode,A_end},

{I_PFDERIV,A_notimpl,A_end},

{I_PFDERIV,A_func,A_fnode,A_fnode,A_end},

{I_ANS,A_int,A_end},

{I_PVAR,A_int,A_node,A_end},

{I_ASSPVAR,A_fnode,A_fnode,A_end},