version 1.2, 2019/11/12 10:53:23 |
version 1.3, 2020/02/22 06:23:36 |
|
|
/* $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("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
|
|
Line 1014 void PRINTQUOTE(VL vl,QUOTE quote) |
|
Line 1014 void PRINTQUOTE(VL vl,QUOTE quote) |
|
LIST list; |
LIST list; |
|
|
if ( print_quote == 1 ) { |
if ( print_quote == 1 ) { |
fnodetotree(BDY(quote),&list); |
fnodetotree(BDY(quote),quote->pvs,&list); |
PRINTEXPR(vl,(Obj)list); |
PRINTEXPR(vl,(Obj)list); |
} else if ( print_quote == 2 ) { |
} else if ( print_quote == 2 ) { |
PRINTFNODE(BDY(quote),0); |
PRINTFNODE(BDY(quote),0); |