version 1.17, 2015/08/08 14:19:42 |
version 1.20, 2017/08/31 02:36:21 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.16 2015/08/06 10:01:52 fujimoto Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.19 2016/06/29 08:16:11 ohara Exp $ */ |
|
|
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) |
|
|
Line 15 void PRINTIMAT(); /* IMAT */ |
|
Line 15 void PRINTIMAT(); /* IMAT */ |
|
void PRINTSTR(); |
void PRINTSTR(); |
void PRINTCOMP(); |
void PRINTCOMP(); |
void PRINTDP(); |
void PRINTDP(); |
|
void PRINTDPM(); |
void PRINTUI(); |
void PRINTUI(); |
void PRINTGF2MAT(); |
void PRINTGF2MAT(); |
void PRINTGFMMAT(); |
void PRINTGFMMAT(); |
|
|
PRINTCOMP(vl,(COMP)p); break; |
PRINTCOMP(vl,(COMP)p); break; |
case O_DP: |
case O_DP: |
PRINTDP(vl,(DP)p); break; |
PRINTDP(vl,(DP)p); break; |
|
case O_DPM: |
|
PRINTDPM(vl,(DPM)p); break; |
case O_USINT: |
case O_USINT: |
PRINTUI(vl,(USINT)p); break; |
PRINTUI(vl,(USINT)p); break; |
case O_GF2MAT: |
case O_GF2MAT: |
Line 125 void printbin(double z) |
|
Line 128 void printbin(double z) |
|
} |
} |
} |
} |
fprintf(stderr,"\n"); |
fprintf(stderr,"\n"); |
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
|
} |
} |
#endif |
#endif |
#endif |
#endif |
|
|
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(__MINGW32__) || defined(__MINGW64__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) |
#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) || defined(__ARM_ARCH) || defined(ANDROID) |
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]; |
|
|
TAIL PRINTF(OUT,"%d,",dl->d[i]); |
TAIL PRINTF(OUT,"%d,",dl->d[i]); |
} |
} |
TAIL PRINTF(OUT,"%d",dl->d[i]); |
TAIL PRINTF(OUT,"%d",dl->d[i]); |
|
PUTS(">>"); |
|
if ( NEXT(m) ) |
|
PUTS("+"); |
|
} |
|
} |
|
|
|
void PRINTDPM(vl,d) |
|
VL vl; |
|
DPM d; |
|
{ |
|
int n,i; |
|
DMM m; |
|
DL dl; |
|
|
|
for ( n = d->nv, m = BDY(d); m; m = NEXT(m) ) { |
|
PUTS("("); PRINTEXPR(vl,(pointer)m->c); PUTS(")*<<"); |
|
for ( i = 0, dl = m->dl; i < n-1; i++ ) { |
|
TAIL PRINTF(OUT,"%d,",dl->d[i]); |
|
} |
|
TAIL PRINTF(OUT,"%d:%d",dl->d[i],m->pos); |
PUTS(">>"); |
PUTS(">>"); |
if ( NEXT(m) ) |
if ( NEXT(m) ) |
PUTS("+"); |
PUTS("+"); |