OpenXM_contrib2/asir2000/io/cio.c - diff

Return to cio.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/cio.c between version 1.17 and 1.23

version 1.17, 2015/08/12 10:45:12

version 1.23, 2016/06/29 05:10:14

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/io/cio.c,v 1.16 2015/08/06 10:01:52 fujimoto Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/cio.c,v 1.22 2016/06/28 11:59:30 ohara Exp $

#include "ca.h"

#include "parse.h"

#include "ox.h"

#if !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__)

#if !defined(VISUAL) && !defined(__MINGW32__)

#include <ctype.h>

#endif

Line 68 int valid_as_cmo(Obj obj)

return 1;

case O_N:

nid = NID((Num)obj);

if ( nid == N_Q || nid == N_R || nid == N_B )

if ( nid == N_Q || nid == N_R || nid == N_B || nid == N_C )

return 1;

else

return 0;

Line 106 void write_cmo(FILE *s,Obj obj)

case N_B:

write_cmo_bf(s,(BF)obj);

break;

case N_C:

write_cmo_complex(s,(C)obj);

break;

default:

sprintf(errmsg, "write_cmo : number id=%d not implemented.",

NID((Num)obj));

Line 173 int cmo_tag(Obj obj,int *tag)

Line 176 int cmo_tag(Obj obj,int *tag)

case N_R:

*tag = CMO_IEEE_DOUBLE_FLOAT; break;

case N_B:

*tag = CMO_BIGFLOAT; break;

*tag = CMO_BIGFLOAT32; break;

case N_C:

*tag = CMO_COMPLEX; break;

default:

return 0;

}

Line 243 void write_cmo_real(FILE *s,Real real)

Line 248 void write_cmo_real(FILE *s,Real real)

void write_cmo_bf(FILE *s,BF bf)

{

unsigned int r,u,l;

unsigned int r;

int len,t,i;

int len_r,len;

L exp;

unsigned int *ptr;

UL *ptr;

r = CMO_BIGFLOAT; write_int(s,&r);

r = CMO_BIGFLOAT32; write_int(s,&r);

write_int(s,&MPFR_SIGN(bf->body));

r = MPFR_PREC(bf->body); write_int(s,&r);

write_int(s,(unsigned int *)&MPFR_PREC(bf->body));

r = MPFR_SIGN(bf->body); write_int(s,&r);

exp = MPFR_EXP(bf->body);

r = MPFR_EXP(bf->body); write_int(s,&r);

write_int64(s,&exp);

len_r = MPFR_LIMB_SIZE_REAL(bf->body);

len = MPFR_LIMB_SIZE(bf->body);

len = MPFR_LIMB_SIZE_BODY(bf->body);

#if SIZEOF_LONG == 4

write_int(s,&len);

write_intarray(s,MPFR_MANT(bf->body),len);

ptr = (unsigned int *)MPFR_MANT(bf->body);

#else /* SIZEOF_LONG == 8 */

write_intarray(s,ptr+(len_r-len),len);

t = 2*len;

write_int(s,&t);

write_longarray(s,MPFR_MANT(bf->body),len);

#endif

}

void write_cmo_zz(FILE *s,int sgn,N n)

Line 347 void write_cmo_r(FILE *s,R f)

Line 346 void write_cmo_r(FILE *s,R f)

write_cmo(s,(Obj)DN(f));

}

void write_cmo_complex(FILE *s,C f)

{

int r;

r = CMO_COMPLEX; write_int(s,&r);

write_cmo(s,(Obj)f->r);

write_cmo(s,(Obj)f->i);

}

void write_cmo_dp(FILE *s,DP dp)

{

int i,n,nv,r;

Line 482 void read_cmo(FILE *s,Obj *rp)

Line 490 void read_cmo(FILE *s,Obj *rp)

N nm,dn;

P p,pnm,pdn;

Real real;

C c;

double dbl;

STRING str;

USINT t;

Line 537 void read_cmo(FILE *s,Obj *rp)

Line 546 void read_cmo(FILE *s,Obj *rp)

case CMO_IEEE_DOUBLE_FLOAT:

read_double(s,&dbl); MKReal(dbl,real); *rp = (Obj)real;

break;

case CMO_BIGFLOAT:

case CMO_BIGFLOAT32:

read_cmo_bf(s,&bf); *rp = (Obj)bf;

break;

case CMO_COMPLEX:

NEWC(c);

read_cmo(s,(Obj *)&c->r);

read_cmo(s,(Obj *)&c->i);

*rp = (Obj)c;

break;

case CMO_DISTRIBUTED_POLYNOMIAL:

read_cmo_dp(s,&dp); *rp = (Obj)dp;

break;

Line 638 void read_cmo_zz(FILE *s,int *sgn,N *rp)

Line 653 void read_cmo_zz(FILE *s,int *sgn,N *rp)

void read_cmo_bf(FILE *s,BF *bf)

{

BF r;

int sgn,prec,len,i;

int sgn,prec,exp,len,len_r;

unsigned int u,l;

unsigned int *ptr;

UL *ptr;

L exp;

NEWBF(r);

read_int(s,&sgn);

read_int(s,&prec);

read_int64(s,&exp);

read_int(s,&sgn);

read_int(s,&exp);

read_int(s,&len);

mpfr_init2(r->body,prec);

MPFR_SIGN(r->body) = sgn;

MPFR_EXP(r->body) = exp;

#if SIZEOF_LONG == 4

*(MPFR_MANT(r->body)) = 0;

read_intarray(s,MPFR_MANT(r->body),len);

ptr = (unsigned int *)MPFR_MANT(r->body);

#else /* SIZEOF_LONG == 8 */

len_r = MPFR_LIMB_SIZE_REAL(r->body);

read_longarray(s,MPFR_MANT(r->body),len);

read_intarray(s,ptr+(len_r-len),len);

#endif

*bf = r;

}

Line 737 void read_cmo_p(FILE *s,P *rp)

Line 749 void read_cmo_p(FILE *s,P *rp)

P v,p;

VL tvl,rvl;

char *name;

FUNC f;

read_cmo(s,&obj); vlist = (LIST)obj;

nv = length(BDY(vlist));

Line 744 void read_cmo_p(FILE *s,P *rp)

Line 757 void read_cmo_p(FILE *s,P *rp)

for ( i = 0, t = BDY(vlist); i < nv; t = NEXT(t), i++ ) {

/* cmoname_to_localname(BDY((STRING)BDY(t)),&name); */

name = BDY((STRING)BDY(t));

makevar(name,&v); vtab[i] = VR(v);

gen_searchf_searchonly(name,&f,1);

if ( f )

makesrvar(f,&v);

else

makevar(name,&v);

vtab[i] = VR(v);

}

remote_vtab = vtab;

read_cmo(s,&obj); p = (P)obj;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>