29#define S_BUFF_LEN (4096-SIZEOF_LONG)
33 s_buff F=(s_buff)
omAlloc0(
sizeof(*F));
62 printf(
"link closed");
83 return F->buff[F->bp];
89 printf(
"link closed");
92 if (F->bp>=F->end)
return 0;
94 while((p<F->end)&&(F->buff[
p]<=
' '))
p++;
95 if (
p>=F->end)
return 0;
103 printf(
"link closed");
116 printf(
"link closed");
126 }
while((!F->is_eof) && (c<=
' '));
127 if (c==
'-') { neg=-1; c=
s_getc(F); }
144 printf(
"link closed");
154 }
while((!F->is_eof) && (c<=
' '));
155 if (c==
'-') { neg=-1; c=
s_getc(F); }
172 printf(
"link closed");
176 while((!F->is_eof)&&(
i<len))
188 printf(
"link closed");
197 }
while((!F->is_eof) && (c<=
' '));
198 if (c==
'-') { neg=-1; c=
s_getc(F); }
202 mpz_add_ui(a,a,(c-
'0'));
206 if (neg==-1) mpz_neg(a,a);
213 printf(
"link closed");
222 }
while((!F->is_eof) && (c<=
' '));
223 if (c==
'-') { neg=-1; c=
s_getc(F); }
230 || ((c>=
'a') && (c<=
'z'))
231 || ((c>=
'A') && (c<=
'Z')))
246 memset(str+old_str_l,0,old_str_l);
250 mpz_set_str(a,str,base);
252 if (neg==-1) mpz_neg(a,a);
256 if (F!=
NULL)
return F->is_eof;
#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)