version 1.10, 2001/10/09 01:36:20 |
version 1.13, 2003/12/22 09:33:47 |
|
|
* 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.9 2001/09/03 07:01:08 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/bsave.c,v 1.12 2003/02/14 22:29:15 ohara Exp $ |
*/ |
*/ |
/* saveXXX must not use GC_malloc(), GC_malloc_atomic(). */ |
/* saveXXX must not use GC_malloc(), GC_malloc_atomic(). */ |
|
|
|
|
#include "parse.h" |
#include "parse.h" |
#include "com.h" |
#include "com.h" |
|
|
#if PARI |
#if defined(PARI) |
#include "genpari.h" |
#include "genpari.h" |
int get_lg(GEN); |
int get_lg(GEN); |
#endif |
#endif |
Line 112 void savereal(FILE *s,Real p) |
|
Line 112 void savereal(FILE *s,Real p) |
|
|
|
void savebf(FILE *s,BF p) |
void savebf(FILE *s,BF p) |
{ |
{ |
#if PARI |
#if defined(PARI) |
GEN z; |
GEN z; |
int sign; |
int sign; |
unsigned long expo; |
unsigned long expo; |
unsigned int len; |
unsigned int len,t; |
|
|
z = (GEN)BDY(p); |
z = (GEN)BDY(p); |
sign = signe(z); |
sign = signe(z); |
Line 148 void saveitv(FILE *s,Itv p) |
|
Line 148 void saveitv(FILE *s,Itv p) |
|
saveobj(s,(Obj)SUP(p)); |
saveobj(s,(Obj)SUP(p)); |
} |
} |
|
|
void saveitvd(FILE *s,ItvD p) |
void saveitvd(FILE *s,IntervalDouble p) |
{ |
{ |
write_double(s,&INF(p)); |
write_double(s,&INF(p)); |
write_double(s,&SUP(p)); |
write_double(s,&SUP(p)); |