version 1.12, 2006/04/16 00:51:14 |
version 1.16, 2015/08/06 10:01:52 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.11 2005/12/10 14:14:15 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.15 2015/08/04 06:20:45 noro Exp $ */ |
|
|
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
|
|
|
|
int i,expo; |
int i,expo; |
|
|
m = (unsigned int *)&BDY((Real)q); |
m = (unsigned int *)&BDY((Real)q); |
#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) |
#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) |
u = m[1]; l = m[0]; |
u = m[1]; l = m[0]; |
#else |
#else |
u = m[0]; l = m[1]; |
u = m[0]; l = m[1]; |
|
|
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: |
|
|
PRINTN(NM(dn)); |
PRINTN(NM(dn)); |
} |
} |
break; |
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; |
} |
} |
} |
} |
|
|
Line 1092 void PRINTNBP(VL vl,NBP p) |
|
Line 1096 void PRINTNBP(VL vl,NBP p) |
|
PUTS(")*"); |
PUTS(")*"); |
d = m->d; |
d = m->d; |
b = m->b; |
b = m->b; |
for ( i = 0; i < d; i++ ) { |
if ( d ) |
if ( NBM_GET(b,i) ) PUTS("x"); |
for ( i = 0; i < d; i++ ) { |
else PUTS("y"); |
if ( NBM_GET(b,i) ) PUTS("x"); |
} |
else PUTS("y"); |
|
} |
|
else PUTS("1"); |
if ( NEXT(t) ) PUTS("+"); |
if ( NEXT(t) ) PUTS("+"); |
} |
} |
} |
} |