1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * David Korn <dgk@research.att.com> *
19da2e3ebdSchin * Phong Vo <kpv@research.att.com> *
20da2e3ebdSchin * *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #include "sfhdr.h"
23da2e3ebdSchin
24da2e3ebdSchin /* Read a long value coded in a portable format.
25da2e3ebdSchin **
26da2e3ebdSchin ** Written by Kiem-Phong Vo
27da2e3ebdSchin */
28da2e3ebdSchin
29da2e3ebdSchin #if __STD_C
sfgetl(Sfio_t * f)307c2fbfb3SApril Chin Sflong_t sfgetl(Sfio_t* f)
31da2e3ebdSchin #else
32da2e3ebdSchin Sflong_t sfgetl(f)
337c2fbfb3SApril Chin Sfio_t* f;
34da2e3ebdSchin #endif
35da2e3ebdSchin {
36da2e3ebdSchin Sflong_t v;
377c2fbfb3SApril Chin uchar *s, *ends, c;
387c2fbfb3SApril Chin int p;
39*b30d1939SAndy Fiddaman SFMTXDECL(f); /* declare a local stream variable for multithreading */
40da2e3ebdSchin
417c2fbfb3SApril Chin SFMTXENTER(f,(Sflong_t)(-1));
42da2e3ebdSchin
43da2e3ebdSchin if(f->mode != SF_READ && _sfmode(f,SF_READ,0) < 0)
44da2e3ebdSchin SFMTXRETURN(f, (Sflong_t)(-1));
45da2e3ebdSchin SFLOCK(f,0);
46da2e3ebdSchin
47da2e3ebdSchin for(v = 0;;)
48da2e3ebdSchin { if(SFRPEEK(f,s,p) <= 0)
49da2e3ebdSchin { f->flags |= SF_ERROR;
50da2e3ebdSchin v = (Sflong_t)(-1);
51da2e3ebdSchin goto done;
52da2e3ebdSchin }
53da2e3ebdSchin for(ends = s+p; s < ends;)
54da2e3ebdSchin { c = *s++;
55da2e3ebdSchin if(c&SF_MORE)
56da2e3ebdSchin v = ((Sfulong_t)v << SF_UBITS) | SFUVALUE(c);
57da2e3ebdSchin else
58da2e3ebdSchin { /* special translation for this byte */
59da2e3ebdSchin v = ((Sfulong_t)v << SF_SBITS) | SFSVALUE(c);
60da2e3ebdSchin f->next = s;
61da2e3ebdSchin v = (c&SF_SIGN) ? -v-1 : v;
62da2e3ebdSchin goto done;
63da2e3ebdSchin }
64da2e3ebdSchin }
65da2e3ebdSchin f->next = s;
66da2e3ebdSchin }
67da2e3ebdSchin done :
68da2e3ebdSchin SFOPEN(f,0);
69da2e3ebdSchin SFMTXRETURN(f, v);
70da2e3ebdSchin }
71