OpenXM_contrib2/asir2018/io/pexpr_body.c - diff

Return to pexpr_body.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / io

version 1.2, 2019/11/12 10:53:23

version 1.3, 2020/02/22 06:23:36

Line 1

/* $OpenXM: OpenXM_contrib2/asir2018/io/pexpr_body.c,v 1.1 2018/09/19 05:45:08 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2018/io/pexpr_body.c,v 1.2 2019/11/12 10:53:23 kondoh Exp $ */

#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))

Line 1014 void PRINTQUOTE(VL vl,QUOTE quote)

LIST list;

if ( print_quote == 1 ) {

fnodetotree(BDY(quote),&list);

fnodetotree(BDY(quote),quote->pvs,&list);

PRINTEXPR(vl,(Obj)list);

} else if ( print_quote == 2 ) {

PRINTFNODE(BDY(quote),0);