28 #define S_BUFF_LEN 4096 32 s_buff F=(s_buff)
omAlloc0(
sizeof(*F));
69 printf(
"link closed");
90 return F->buff[F->bp];
96 printf(
"link closed");
99 if (F->bp>=F->end)
return 0;
101 while((p<F->end)&&(F->buff[p]<=
' ')) p++;
102 if (p>=F->end)
return 0;
110 printf(
"link closed");
123 printf(
"link closed");
133 }
while((!F->is_eof) && (c<=
' '));
134 if (c==
'-') { neg=-1; c=
s_getc(F); }
151 printf(
"link closed");
161 }
while((!F->is_eof) && (c<=
' '));
162 if (c==
'-') { neg=-1; c=
s_getc(F); }
179 printf(
"link closed");
183 while((!F->is_eof)&&(i<len))
195 printf(
"link closed");
204 }
while((!F->is_eof) && (c<=
' '));
205 if (c==
'-') { neg=-1; c=
s_getc(F); }
209 mpz_add_ui(a,a,(c-
'0'));
213 if (neg==-1) mpz_neg(a,a);
220 printf(
"link closed");
229 }
while((!F->is_eof) && (c<=
' '));
230 if (c==
'-') { neg=-1; c=
s_getc(F); }
237 || ((c>=
'a') && (c<=
'z'))
238 || ((c>=
'A') && (c<=
'Z')))
255 mpz_set_str(a,str,base);
257 if (neg==-1) mpz_neg(a,a);
261 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)