3
/* Read an unsigned long value coded in a portable format.
5
** Written by Kiem-Phong Vo
9
Sfulong_t sfgetu(reg Sfio_t* f)
16
reg uchar *s, *ends, c;
19
SFMTXSTART(f, (Sfulong_t)(-1));
21
if(f->mode != SF_READ && _sfmode(f,SF_READ,0) < 0)
22
SFMTXRETURN(f, (Sfulong_t)(-1));
27
{ if(SFRPEEK(f,s,p) <= 0)
28
{ f->flags |= SF_ERROR;
32
for(ends = s+p; s < ends;)
34
v = (v << SF_UBITS) | SFUVALUE(c);