| version 1.13, 2006/08/27 22:17:28 |
version 1.15, 2015/08/04 06:20:45 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.12 2006/04/16 00:51:14 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.14 2013/12/20 02:02:24 noro Exp $ */ |
| |
|
| #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
| |
|
|
|
| case N_A: |
case N_A: |
| PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")"); |
PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")"); |
| break; |
break; |
| #if defined(PARI) |
|
| case N_B: |
case N_B: |
| PRINTBF((BF)q); break; |
PRINTBF((BF)q); break; |
| #endif |
|
| #if defined(INTERVAL) |
#if defined(INTERVAL) |
| case N_IP: |
case N_IP: |
| case N_IntervalBigFloat: |
case N_IntervalBigFloat: |
|
|
| PUTS("/"); |
PUTS("/"); |
| PRINTN(NM(dn)); |
PRINTN(NM(dn)); |
| } |
} |
| |
break; |
| |
case N_GZ: |
| |
mpz_out_str(OUT,10,BDY((GZ)q)); |
| |
break; |
| |
case N_GQ: |
| |
mpq_out_str(OUT,10,BDY((GQ)q)); |
| break; |
break; |
| } |
} |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to pexpr_body.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / io