OpenXM_contrib2/asir2000/io/bload.c - diff

Return to bload.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/bload.c between version 1.9 and 1.10

version 1.9, 2001/09/03 07:01:08

version 1.10, 2001/10/09 01:36:20

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/bload.c,v 1.8 2001/03/16 01:56:18 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/bload.c,v 1.9 2001/09/03 07:01:08 noro Exp $

#include "ca.h"

#include "parse.h"

Line 54

int get_lg(GEN);

#endif

void loaderror(FILE *,ERR *);

void loadui(FILE *,USINT *);

void loaddp(FILE *,DP *);

void loadstr(FILE *,char **);

void loadstring(FILE *,STRING *);

void loadmat(FILE *,MAT *);

void loadvect(FILE *,VECT *);

void loadlist(FILE *,LIST *);

void loadr(FILE *,R *);

void loadp(FILE *,P *);

void loadgf2n(FILE *,GF2N *);

void loadgfpn(FILE *,GFPN *);

void loadgfs(FILE *,GFS *);

void loadgfsn(FILE *,GFSN *);

void loadlm(FILE *,LM *);

void loadmi(FILE *,MQ *);

void loadcplx(FILE *,C *);

void loadbf(FILE *,BF *);

void loadreal(FILE *,Real *);

void loadq(FILE *,Q *);

void loadnum(FILE *,Num *);

void loadgfmmat(FILE *,GFMMAT *);

void loadbytearray(FILE *,BYTEARRAY *);

V loadpfins(FILE *);

extern VL file_vl;

void (*loadf[])() = { 0, loadnum, loadp, loadr, loadlist, loadvect, loadmat,

Line 92 void (*nloadf[])() = { loadq, loadreal, 0, loadbf, loa

Line 66 void (*nloadf[])() = { loadq, loadreal, 0, loadbf, loa

void (*nloadf[])() = { loadq, loadreal, 0, loadbf, loadcplx, loadmi, loadlm, loadgf2n, loadgfpn, loadgfs, loadgfsn };

#endif

void loadobj(s,p)

void loadobj(FILE *s,Obj *p)

FILE *s;

Obj *p;

{

short id;

Line 107 Obj *p;

Line 79 Obj *p;

(*loadf[id])(s,p);

}

void loadnum(s,p)

void loadnum(FILE *s,Num *p)

FILE *s;

Num *p;

{

char nid;

Line 120 Num *p;

Line 90 Num *p;

(*nloadf[nid])(s,p);

}

void loadq(s,p)

void loadq(FILE *s,Q *p)

FILE *s;

Q *p;

{

int size[2];

char sgn;

Line 140 Q *p;

Line 108 Q *p;

NDTOQ(nm,dn,sgn,*p);

}

void loadreal(s,p)

void loadreal(FILE *s,Real *p)

FILE *s;

Real *p;

{

Real q;

char dmy;

Line 152 Real *p;

Line 118 Real *p;

*p = q;

}

void loadbf(s,p)

void loadbf(FILE *s,BF *p)

FILE *s;

BF *p;

{

#if PARI

GEN z;

unsigned int uexpo,lexpo;

UL expo;

char dmy;

int sign;

unsigned int len;

Line 199 BF *p;

Line 162 BF *p;

}

#if defined(INTERVAL)

void loaditv(s,p)

void loaditv(FILE *s,Itv *p)

FILE *s;

Itv *p;

{

Itv q;

char dmy;

Line 211 Itv *p;

Line 172 Itv *p;

*p = q;

}

void loaditvd(s,p)

void loaditvd(FILE *s,ItvD *p)

FILE *s;

ItvD *p;

{

ItvD q;

char dmy;

Line 226 ItvD *p;

Line 185 ItvD *p;

}

#endif

void loadcplx(s,p)

void loadcplx(FILE *s,C *p)

FILE *s;

C *p;

{

C q;

char dmy;

Line 238 C *p;

Line 195 C *p;

*p = q;

}

void loadmi(s,p)

void loadmi(FILE *s,MQ *p)

FILE *s;

MQ *p;

{

MQ q;

char dmy;

Line 250 MQ *p;

Line 205 MQ *p;

*p = q;

}

void loadlm(s,p)

void loadlm(FILE *s,LM *p)

FILE *s;

LM *p;

{

int size;

char dmy;

Line 264 LM *p;

Line 217 LM *p;

MKLM(body,*p);

}

void loadgf2n(s,p)

void loadgf2n(FILE *s,GF2N *p)

FILE *s;

GF2N *p;

{

char dmy;

int len;

Line 278 GF2N *p;

Line 229 GF2N *p;

MKGF2N(body,*p);

}

void loadgfpn(s,p)

void loadgfpn(FILE *s,GFPN *p)

FILE *s;

GFPN *p;

{

char dmy;

int d,i;

Line 294 GFPN *p;

Line 243 GFPN *p;

MKGFPN(body,*p);

}

void loadgfs(s,p)

void loadgfs(FILE *s,GFS *p)

FILE *s;

GFS *p;

{

GFS q;

char dmy;

Line 306 GFS *p;

Line 253 GFS *p;

*p = q;

}

void loadgfsn(s,p)

void loadgfsn(FILE *s,GFSN *p)

FILE *s;

GFSN *p;

{

char dmy;

int d;

Line 320 GFSN *p;

Line 265 GFSN *p;

MKGFSN(body,*p);

}

void loadp(s,p)

void loadp(FILE *s,P *p)

FILE *s;

P *p;

{

V v;

int n,vindex;

Line 349 P *p;

Line 292 P *p;

/* |name(str)|argc(int)|darray(intarray)|args| */

V loadpfins(s)

V loadpfins(FILE *s)

FILE *s;

{

char *name;

FUNC fp;

Line 388 FILE *s;

Line 330 FILE *s;

return v;

}

void loadr(s,p)

void loadr(FILE *s,R *p)

FILE *s;

R *p;

{

R r;

Line 398 R *p;

Line 338 R *p;

loadobj(s,(Obj *)&NM(r)); loadobj(s,(Obj *)&DN(r)); *p = r;

}

void loadlist(s,p)

void loadlist(FILE *s,LIST *p)

FILE *s;

LIST *p;

{

int n;

NODE tn,tn0;

Line 414 LIST *p;

Line 352 LIST *p;

MKLIST(*p,tn0);

}

void loadvect(s,p)

void loadvect(FILE *s,VECT *p)

FILE *s;

VECT *p;

{

int i,len;

VECT vect;

Line 427 VECT *p;

Line 363 VECT *p;

*p = vect;

}

void loadmat(s,p)

void loadmat(FILE *s,MAT *p)

FILE *s;

MAT *p;

{

int row,col,i,j;

MAT mat;

Line 441 MAT *p;

Line 375 MAT *p;

*p = mat;

}

void loadstring(s,p)

void loadstring(FILE *s,STRING *p)

FILE *s;

STRING *p;

{

char *t;

loadstr(s,&t); MKSTR(*p,t);

}

void loadstr(s,p)

void loadstr(FILE *s,char **p)

FILE *s;

char **p;

{

int len;

char *t;

Line 465 char **p;

Line 395 char **p;

*p = t;

}

void loadbytearray(s,p)

void loadbytearray(FILE *s,BYTEARRAY *p)

FILE *s;

BYTEARRAY *p;

{

int len;

BYTEARRAY array;

Line 480 BYTEARRAY *p;

Line 408 BYTEARRAY *p;

*p = array;

}

void loaddp(s,p)

void loaddp(FILE *s,DP *p)

FILE *s;

DP *p;

{

int nv,n,i,sugar;

DP dp;

Line 499 DP *p;

Line 425 DP *p;

NEXT(m) = 0; MKDP(nv,m0,dp); dp->sugar = sugar; *p = dp;

}

void loadui(s,u)

void loadui(FILE *s,USINT *u)

FILE *s;

USINT *u;

{

unsigned int b;

read_int(s,&b); MKUSINT(*u,b);

}

void loaderror(s,e)

void loaderror(FILE *s,ERR *e)

FILE *s;

ERR *e;

{

Obj b;

Line 518 ERR *e;

Line 440 ERR *e;

}

void loadgfmmat(s,p)

void loadgfmmat(FILE *s,GFMMAT *p)

FILE *s;

GFMMAT *p;

{

int i,j,row,col;

int i,row,col;

unsigned int **a;

GFMMAT mat;

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