Lines 112-118
static void jtfmt1(J jt,B e,I m,I d,C*s,I t,C*wv){D y;
Link Here
|
112 |
y=*(D*)wv; y=y?y:0.0; /* -0 to 0 */ |
112 |
y=*(D*)wv; y=y?y:0.0; /* -0 to 0 */ |
113 |
if (!memcmp(wv,&inf, SZD))strcpy(jt->th2buf,e?" _" :' '==*s?" _" :"_" ); |
113 |
if (!memcmp(wv,&inf, SZD))strcpy(jt->th2buf,e?" _" :' '==*s?" _" :"_" ); |
114 |
else if(!memcmp(wv,&infm,SZD))strcpy(jt->th2buf,e?" __" :' '==*s?" __":"__"); |
114 |
else if(!memcmp(wv,&infm,SZD))strcpy(jt->th2buf,e?" __" :' '==*s?" __":"__"); |
115 |
else if(_isnan(*wv) )strcpy(jt->th2buf,e?" _.":' '==*s?" _.":"_."); |
115 |
else if(_isnan(*(D*)wv) )strcpy(jt->th2buf,e?" _.":' '==*s?" _.":"_."); |
116 |
else sprintf(jt->th2buf,s,y); |
116 |
else sprintf(jt->th2buf,s,y); |
117 |
}} /* format one number */ |
117 |
}} /* format one number */ |
118 |
|
118 |
|