version 1.22, 2016/06/28 11:59:30 |
version 1.23, 2016/06/29 05:10:14 |
|
|
* 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/asir2000/io/cio.c,v 1.21 2016/03/31 05:30:32 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/cio.c,v 1.22 2016/06/28 11:59:30 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 176 int cmo_tag(Obj obj,int *tag) |
|
Line 176 int cmo_tag(Obj obj,int *tag) |
|
case N_R: |
case N_R: |
*tag = CMO_IEEE_DOUBLE_FLOAT; break; |
*tag = CMO_IEEE_DOUBLE_FLOAT; break; |
case N_B: |
case N_B: |
*tag = CMO_BIGFLOAT; break; |
*tag = CMO_BIGFLOAT32; break; |
case N_C: |
case N_C: |
*tag = CMO_COMPLEX; break; |
*tag = CMO_COMPLEX; break; |
default: |
default: |
Line 252 void write_cmo_bf(FILE *s,BF bf) |
|
Line 252 void write_cmo_bf(FILE *s,BF bf) |
|
int len_r,len; |
int len_r,len; |
unsigned int *ptr; |
unsigned int *ptr; |
|
|
r = CMO_BIGFLOAT; write_int(s,&r); |
r = CMO_BIGFLOAT32; write_int(s,&r); |
r = MPFR_PREC(bf->body); write_int(s,&r); |
r = MPFR_PREC(bf->body); write_int(s,&r); |
r = MPFR_SIGN(bf->body); write_int(s,&r); |
r = MPFR_SIGN(bf->body); write_int(s,&r); |
r = MPFR_EXP(bf->body); write_int(s,&r); |
r = MPFR_EXP(bf->body); write_int(s,&r); |
Line 546 void read_cmo(FILE *s,Obj *rp) |
|
Line 546 void read_cmo(FILE *s,Obj *rp) |
|
case CMO_IEEE_DOUBLE_FLOAT: |
case CMO_IEEE_DOUBLE_FLOAT: |
read_double(s,&dbl); MKReal(dbl,real); *rp = (Obj)real; |
read_double(s,&dbl); MKReal(dbl,real); *rp = (Obj)real; |
break; |
break; |
case CMO_BIGFLOAT: |
case CMO_BIGFLOAT32: |
read_cmo_bf(s,&bf); *rp = (Obj)bf; |
read_cmo_bf(s,&bf); *rp = (Obj)bf; |
break; |
break; |
case CMO_COMPLEX: |
case CMO_COMPLEX: |