30#define S_BUFF_LEN (4096-SIZEOF_LONG)
34 s_buff F=(s_buff)
omAlloc0(
sizeof(*F));
63 printf(
"link closed");
84 return F->buff[F->bp];
90 printf(
"link closed");
93 if (F->bp>=F->end)
return 0;
95 while((
p<F->end)&&(F->buff[
p]<=
' '))
p++;
96 if (
p>=F->end)
return 0;
104 printf(
"link closed");
117 printf(
"link closed");
127 }
while((!F->is_eof) && (c<=
' '));
128 if (c==
'-') { neg=-1; c=
s_getc(F); }
145 printf(
"link closed");
155 }
while((!F->is_eof) && (c<=
' '));
156 if (c==
'-') { neg=-1; c=
s_getc(F); }
173 printf(
"link closed");
177 while((!F->is_eof)&&(
i<len))
189 printf(
"link closed");
198 }
while((!F->is_eof) && (c<=
' '));
199 if (c==
'-') { neg=-1; c=
s_getc(F); }
203 mpz_add_ui(a,a,(c-
'0'));
207 if (neg==-1) mpz_neg(a,a);
214 printf(
"link closed");
223 }
while((!F->is_eof) && (c<=
' '));
224 if (c==
'-') { neg=-1; c=
s_getc(F); }
231 || ((c>=
'a') && (c<=
'z'))
232 || ((c>=
'A') && (c<=
'Z')))
247 memset(str+old_str_l,0,old_str_l);
251 if(mpz_set_str(a,str,base)!=0)
WerrorS(
"wrong mpz number");
253 if (neg==-1) mpz_neg(a,a);
257 if (F!=
NULL)
return F->is_eof;
void WerrorS(const char *s)
#define omFreeSize(addr, size)
#define omRealloc(addr, size)
void s_readmpz(s_buff F, mpz_t a)
void s_readmpz_base(s_buff F, mpz_ptr a, int base)
long s_readlong(s_buff F)
s_buff s_open_by_name(const char *n)
int s_readbytes(char *buff, int len, s_buff F)
void s_ungetc(int c, s_buff F)