version 1.13, 2003/12/22 09:33:47 |
version 1.14, 2004/12/10 07:36:35 |
|
|
* 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/bsave.c,v 1.12 2003/02/14 22:29:15 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/bsave.c,v 1.13 2003/12/22 09:33:47 noro Exp $ |
*/ |
*/ |
/* saveXXX must not use GC_malloc(), GC_malloc_atomic(). */ |
/* saveXXX must not use GC_malloc(), GC_malloc_atomic(). */ |
|
|
Line 62 void (*savef[])() = { 0, savenum, savep, saver, saveli |
|
Line 62 void (*savef[])() = { 0, savenum, savep, saver, saveli |
|
#if defined(INTERVAL) |
#if defined(INTERVAL) |
void saveitv(); |
void saveitv(); |
void saveitvd(); |
void saveitvd(); |
void (*nsavef[])() = { saveq, savereal, 0, savebf, saveitv, saveitvd, 0, saveitv, savecplx ,savemi, savelm, savegf2n, savegfpn, savegfs, savegfsn}; |
void (*nsavef[])() = { saveq, savereal, 0, savebf, saveitv, saveitvd, 0, saveitv, savecplx ,savemi, savelm, savegf2n, savegfpn, savegfs, savegfsn,savedalg}; |
#else |
#else |
void (*nsavef[])() = { saveq, savereal, 0, savebf, savecplx ,savemi, savelm, savegf2n, savegfpn, savegfs, savegfsn}; |
void (*nsavef[])() = { saveq, savereal, 0, savebf, savecplx ,savemi, savelm, savegf2n, savegfpn, savegfs, savegfsn,savedalg}; |
#endif |
#endif |
|
|
static short zeroval = 0; |
static short zeroval = 0; |
Line 199 void savegfsn(FILE *s,GFSN p) |
|
Line 199 void savegfsn(FILE *s,GFSN p) |
|
d = DEG(BDY(p)); |
d = DEG(BDY(p)); |
write_int(s,&d); |
write_int(s,&d); |
write_intarray(s,COEF(BDY(p)),d+1); |
write_intarray(s,COEF(BDY(p)),d+1); |
|
} |
|
|
|
void savedalg(FILE *s,DAlg p) |
|
{ |
|
saveobj(s,p->nm); |
|
saveobj(s,p->dn); |
} |
} |
|
|
void savep(FILE *s,P p) |
void savep(FILE *s,P p) |