version 1.2, 2018/10/01 06:06:02 |
version 1.4, 2020/02/22 06:23:36 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2018/io/cpexpr.c,v 1.1 2018/09/19 05:45:08 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/io/cpexpr.c,v 1.3 2019/03/06 07:35:40 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 143 void PRINTNUM(Num q) |
|
Line 143 void PRINTNUM(Num q) |
|
case N_Q: |
case N_Q: |
nmq((Q)q,&num); PRINTZ(num); |
nmq((Q)q,&num); PRINTZ(num); |
if ( !INT((Q)q) ) { |
if ( !INT((Q)q) ) { |
PUTS("/"); nmq((Q)q,&den); PRINTZ(den); |
PUTS("/"); dnq((Q)q,&den); PRINTZ(den); |
} |
} |
break; |
break; |
case N_R: |
case N_R: |
Line 354 void PRINTQUOTE(VL vl,QUOTE quote) |
|
Line 354 void PRINTQUOTE(VL vl,QUOTE quote) |
|
PRINTFNODE(BDY(quote),0); |
PRINTFNODE(BDY(quote),0); |
} else if ( print_quote == 1 ) { |
} else if ( print_quote == 1 ) { |
/* XXX */ |
/* XXX */ |
fnodetotree(BDY(quote),&list); |
fnodetotree(BDY(quote),quote->pvs,&list); |
PRINTEXPR(vl,(Obj)list); |
PRINTEXPR(vl,(Obj)list); |
} else { |
} else { |
/* <...quoted...> */ |
/* <...quoted...> */ |