2 * Sherlock Library -- Fast Buffered I/O
4 * (c) 1997--2000 Martin Mares <mj@ucw.cz>
8 #include "lib/fastbuf.h"
13 void bclose(struct fastbuf *f)
23 void bflush(struct fastbuf *f)
25 if (f->bptr != f->buffer)
26 { /* Have something to flush */
27 if (f->bstop > f->buffer) /* Read data? */
29 f->bptr = f->bstop = f->buffer;
32 else /* Write data... */
37 inline void bsetpos(struct fastbuf *f, sh_off_t pos)
39 if (pos >= f->pos && (pos <= f->pos + (f->bptr - f->buffer) || pos <= f->pos + (f->bstop - f->buffer)))
40 f->bptr = f->buffer + (pos - f->pos);
44 f->seek(f, pos, SEEK_SET);
48 void bseek(struct fastbuf *f, sh_off_t pos, int whence)
53 return bsetpos(f, pos);
55 return bsetpos(f, btell(f) + pos);
58 f->seek(f, pos, SEEK_END);
61 die("bseek: invalid whence=%d", whence);
65 int bgetc_slow(struct fastbuf *f)
67 if (f->bptr < f->bstop)
74 int bpeekc_slow(struct fastbuf *f)
76 if (f->bptr < f->bstop)
83 void bputc_slow(struct fastbuf *f, byte c)
85 if (f->bptr >= f->bufend)
90 word bgetw_slow(struct fastbuf *f)
92 word w = bgetc_slow(f);
94 return (w << 8) | bgetc_slow(f);
96 return w | (bgetc_slow(f) << 8);
100 u32 bgetl_slow(struct fastbuf *f)
102 u32 l = bgetc_slow(f);
103 #ifdef CPU_BIG_ENDIAN
104 l = (l << 8) | bgetc_slow(f);
105 l = (l << 8) | bgetc_slow(f);
106 return (l << 8) | bgetc_slow(f);
108 l = (bgetc_slow(f) << 8) | l;
109 l = (bgetc_slow(f) << 16) | l;
110 return (bgetc_slow(f) << 24) | l;
114 u64 bgetq_slow(struct fastbuf *f)
117 #ifdef CPU_BIG_ENDIAN
124 return ((u64) h << 32) | l;
127 u64 bget5_slow(struct fastbuf *f)
130 #ifdef CPU_BIG_ENDIAN
137 return ((u64) h << 32) | l;
140 void bputw_slow(struct fastbuf *f, word w)
142 #ifdef CPU_BIG_ENDIAN
143 bputc_slow(f, w >> 8);
147 bputc_slow(f, w >> 8);
151 void bputl_slow(struct fastbuf *f, u32 l)
153 #ifdef CPU_BIG_ENDIAN
154 bputc_slow(f, l >> 24);
155 bputc_slow(f, l >> 16);
156 bputc_slow(f, l >> 8);
160 bputc_slow(f, l >> 8);
161 bputc_slow(f, l >> 16);
162 bputc_slow(f, l >> 24);
166 void bputq_slow(struct fastbuf *f, u64 q)
168 #ifdef CPU_BIG_ENDIAN
169 bputl_slow(f, q >> 32);
173 bputl_slow(f, q >> 32);
177 void bput5_slow(struct fastbuf *f, u64 o)
181 #ifdef CPU_BIG_ENDIAN
190 uns bread_slow(struct fastbuf *f, void *b, uns l, uns check)
195 uns k = f->bstop - f->bptr;
200 k = f->bstop - f->bptr;
206 memcpy(b, f->bptr, k);
212 if (check && total && l)
213 die("breadb: short read");
217 void bwrite_slow(struct fastbuf *f, void *b, uns l)
221 uns k = f->bufend - f->bptr;
226 k = f->bufend - f->bptr;
230 memcpy(f->bptr, b, k);
237 byte * /* Non-standard */
238 bgets(struct fastbuf *f, byte *b, uns l)
248 if (k == '\n' || k == EOF)
256 die("%s: Line too long", f->name);
260 bgets0(struct fastbuf *f, byte *b, uns l)
278 die("%s: Line too long", f->name);
282 bdirect_read(struct fastbuf *f, byte **buf)
286 if (f->bptr == f->bstop && !f->refill(f))
289 len = f->bstop - f->bptr;
295 bdirect_write_prepare(struct fastbuf *f, byte **buf)
297 if (f->bptr == f->bufend)
300 return f->bufend - f->bptr;
304 bdirect_write_commit(struct fastbuf *f, byte *pos)