| version 1.6, 2000/12/22 10:03:30 |
version 1.7, 2000/12/24 06:32:31 |
|
|
| * 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.5 2000/12/05 01:24:54 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/bsave.c,v 1.6 2000/12/22 10:03:30 saito Exp $ |
| */ |
*/ |
| /* saveXXX must not use GC_malloc(), GC_malloc_atomic(). */ |
/* saveXXX must not use GC_malloc(), GC_malloc_atomic(). */ |
| |
|
| Line 83 void savebytearray(FILE *,BYTEARRAY); |
|
| Line 83 void savebytearray(FILE *,BYTEARRAY); |
|
| void (*savef[])() = { 0, savenum, savep, saver, savelist, savevect, |
void (*savef[])() = { 0, savenum, savep, saver, savelist, savevect, |
| savemat, savestring, 0, savedp, saveui, saveerror,0,0,0,savegfmmat, savebytearray }; |
savemat, savestring, 0, savedp, saveui, saveerror,0,0,0,savegfmmat, savebytearray }; |
| #if defined(INTERVAL) |
#if defined(INTERVAL) |
| int saveitv(); |
void saveitv(); |
| int saveitvd(); |
void saveitvd(); |
| void (*nsavef[])() = { saveq, savereal, 0, savebf, saveitv, saveitvd, 0, saveitv, savecplx ,savemi, savelm, savegf2n, savegfpn}; |
void (*nsavef[])() = { saveq, savereal, 0, savebf, saveitv, saveitvd, 0, saveitv, savecplx ,savemi, savelm, savegf2n, savegfpn}; |
| #else |
#else |
| void (*nsavef[])() = { saveq, savereal, 0, savebf, savecplx ,savemi, savelm, savegf2n, savegfpn}; |
void (*nsavef[])() = { saveq, savereal, 0, savebf, savecplx ,savemi, savelm, savegf2n, savegfpn}; |
|
|
| } |
} |
| |
|
| #if defined(INTERVAL) |
#if defined(INTERVAL) |
| saveitv(s,p) |
void saveitv(s,p) |
| FILE *s; |
FILE *s; |
| Itv p; |
Itv p; |
| { |
{ |
|
|
| saveobj(s,(Obj)SUP(p)); |
saveobj(s,(Obj)SUP(p)); |
| } |
} |
| |
|
| saveitvd(s,p) |
void saveitvd(s,p) |
| FILE *s; |
FILE *s; |
| ItvD p; |
ItvD p; |
| { |
{ |