29 #define S_BUFF_LEN 4096 33 s_buff F=(s_buff)
omAlloc0(
sizeof(*F));
70 printf(
"link closed");
91 return F->buff[F->bp];
97 printf(
"link closed");
100 if (F->bp>=F->end)
return 0;
102 while((p<F->end)&&(F->buff[p]<=
' ')) p++;
103 if (p>=F->end)
return 0;
111 printf(
"link closed");
124 printf(
"link closed");
134 }
while((!F->is_eof) && (c<=
' '));
135 if (c==
'-') { neg=-1; c=
s_getc(F); }
152 printf(
"link closed");
162 }
while((!F->is_eof) && (c<=
' '));
163 if (c==
'-') { neg=-1; c=
s_getc(F); }
180 printf(
"link closed");
184 while((!F->is_eof)&&(i<len))
196 printf(
"link closed");
205 }
while((!F->is_eof) && (c<=
' '));
206 if (c==
'-') { neg=-1; c=
s_getc(F); }
210 mpz_add_ui(a,a,(c-
'0'));
214 if (neg==-1) mpz_neg(a,a);
221 printf(
"link closed");
230 }
while((!F->is_eof) && (c<=
' '));
231 if (c==
'-') { neg=-1; c=
s_getc(F); }
238 || ((c>=
'a') && (c<=
'z'))
239 || ((c>=
'A') && (c<=
'Z')))
256 mpz_set_str(a,str,base);
258 if (neg==-1) mpz_neg(a,a);
262 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)