OpenXM_contrib2/asir2018/io/cio.c - diff

Return to cio.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / io

version 1.1, 2018/09/19 05:45:08

version 1.3, 2019/03/06 07:35:40

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: OpenXM_contrib2/asir2018/io/cio.c,v 1.2 2018/09/28 08:20:29 noro Exp $

#include "ca.h"

#include "parse.h"

Line 232 void write_cmo_q(FILE *s,Q q)

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

nmq(q,&nm);

write_cmo_zz(s,nm);

nmq(q,&dn);

dnq(q,&dn);

write_cmo_zz(s,dn);

} else {

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

Line 323 void write_cmo_upoly(FILE *s,VL vl,P p)

for ( i = 0, vlt = vl; vlt->v != v; vlt = NEXT(vlt), i++ );

write_int(s,&i);

for ( dct = dc; dct; dct = NEXT(dct) ) {

i = QTOS(DEG(dct)); write_int(s,&i);

i = ZTOS(DEG(dct)); write_int(s,&i);

write_cmo_upoly(s,vl,COEF(dct));

}

Line 767 void read_cmo_upoly(FILE *s,P *rp)

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

if ( c ) {

if ( OID(c) == O_USINT ) {

UTOQ(((USINT)c)->body,q); c = (P)q;

UTOZ(((USINT)c)->body,q); c = (P)q;

}

NEXTDC(dc0,dc);

STOQ(d,q);

STOZ(d,q);

dc->c = c; dc->d = q;

}