| 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...> */ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to cpexpr.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2018 / io