28 #define S_BUFF_LEN (4096-SIZEOF_LONG) 32 s_buff F=(s_buff)
omAlloc0(
sizeof(*F));
61 printf(
"link closed");
82 return F->buff[F->bp];
88 printf(
"link closed");
91 if (F->bp>=F->end)
return 0;
93 while((p<F->end)&&(F->buff[p]<=
' ')) p++;
94 if (p>=F->end)
return 0;
102 printf(
"link closed");
115 printf(
"link closed");
125 }
while((!F->is_eof) && (c<=
' '));
126 if (c==
'-') { neg=-1; c=
s_getc(F); }
143 printf(
"link closed");
153 }
while((!F->is_eof) && (c<=
' '));
154 if (c==
'-') { neg=-1; c=
s_getc(F); }
171 printf(
"link closed");
175 while((!F->is_eof)&&(i<len))
187 printf(
"link closed");
196 }
while((!F->is_eof) && (c<=
' '));
197 if (c==
'-') { neg=-1; c=
s_getc(F); }
201 mpz_add_ui(a,a,(c-
'0'));
205 if (neg==-1) mpz_neg(a,a);
212 printf(
"link closed");
221 }
while((!F->is_eof) && (c<=
' '));
222 if (c==
'-') { neg=-1; c=
s_getc(F); }
229 || ((c>=
'a') && (c<=
'z'))
230 || ((c>=
'A') && (c<=
'Z')))
247 mpz_set_str(a,str,base);
249 if (neg==-1) mpz_neg(a,a);
253 if (F!=
NULL)
return F->is_eof;
int s_readbytes(char *buff, int len, s_buff F)
#define omFreeSize(addr, size)
void s_readmpz_base(s_buff F, mpz_ptr a, int base)
void s_readmpz(s_buff F, mpz_t a)
void s_ungetc(int c, s_buff F)
long s_readlong(s_buff F)
s_buff s_open_by_name(const char *n)
#define omRealloc0(addr, size)