2 * Sherlock Library -- Fast Buffered I/O on Memory-Mapped Files
4 * (c) 2002 Martin Mares <mj@ucw.cz>
6 * This software may be freely distributed and used according to the terms
7 * of the GNU Lesser General Public License.
12 * - O_WRONLY ? (& generally processing of mode bits)
16 #define MMAP_WINDOW_SIZE 16*PAGE_SIZE
17 #define MMAP_EXTEND_SIZE 4*PAGE_SIZE
19 #define MMAP_WINDOW_SIZE 256*PAGE_SIZE
20 #define MMAP_EXTEND_SIZE 256*PAGE_SIZE
24 #include "lib/fastbuf.h"
43 #define FB_MMAP(f) ((struct fb_mmap *)(f)->is_fastbuf)
46 bfmm_map_window(struct fastbuf *f)
48 struct fb_mmap *F = FB_MMAP(f);
49 sh_off_t pos0 = f->pos & ~(sh_off_t)(PAGE_SIZE-1);
50 int l = MIN(MMAP_WINDOW_SIZE, F->file_extend - pos0);
51 uns ll = ALIGN(l, PAGE_SIZE);
52 uns oll = ALIGN(f->bufend - f->buffer, PAGE_SIZE);
53 int prot = F->is_writeable ? (PROT_READ | PROT_WRITE) : PROT_READ;
55 DBG(" ... Mapping %x(%x)+%x(%x) len=%x extend=%x", (int)pos0, (int)f->pos, ll, l, (int)F->file_size, (int)F->file_extend);
58 munmap(f->buffer, oll);
62 f->buffer = sh_mmap(NULL, ll, prot, MAP_SHARED, F->fd, pos0);
64 f->buffer = sh_mmap(f->buffer, ll, prot, MAP_SHARED | MAP_FIXED, F->fd, pos0);
65 if (f->buffer == (byte *) MAP_FAILED)
66 die("mmap(%s): %m", f->name);
68 madvise(f->buffer, ll, MADV_SEQUENTIAL);
69 f->bufend = f->buffer + l;
70 f->bptr = f->buffer + (f->pos - pos0);
71 F->window_pos = f->pos;
75 bfmm_refill(struct fastbuf *f)
77 struct fb_mmap *F = FB_MMAP(f);
79 DBG("Refill <- %p %p %p %p", f->buffer, f->bptr, f->bstop, f->bufend);
80 if (f->pos >= F->file_size)
82 if (f->bstop >= f->bufend)
84 if (F->window_pos + (f->bufend - f->buffer) > F->file_size)
85 f->bstop = f->buffer + (F->file_size - F->window_pos);
88 f->pos = F->window_pos + (f->bstop - f->buffer);
89 DBG(" -> %p %p %p(%x) %p", f->buffer, f->bptr, f->bstop, (int)f->pos, f->bufend);
94 bfmm_spout(struct fastbuf *f)
96 struct fb_mmap *F = FB_MMAP(f);
97 sh_off_t end = f->pos + (f->bptr - f->bstop);
99 DBG("Spout <- %p %p %p %p", f->buffer, f->bptr, f->bstop, f->bufend);
100 if (end > F->file_size)
102 if (f->bptr < f->bufend)
105 if (f->pos >= F->file_extend)
107 F->file_extend = ALIGN(F->file_extend + MMAP_EXTEND_SIZE, (sh_off_t)PAGE_SIZE);
108 if (sh_ftruncate(F->fd, F->file_extend))
109 die("ftruncate(%s): %m", f->name);
113 DBG(" -> %p %p %p(%x) %p", f->buffer, f->bptr, f->bstop, (int)f->pos, f->bufend);
117 bfmm_seek(struct fastbuf *f, sh_off_t pos, int whence)
119 if (whence == SEEK_END)
120 pos += FB_MMAP(f)->file_size;
122 ASSERT(whence == SEEK_SET);
123 ASSERT(pos >= 0 && pos <= FB_MMAP(f)->file_size);
125 f->bptr = f->bstop = f->bufend; /* force refill/spout call */
126 DBG("Seek -> %p %p %p(%x) %p", f->buffer, f->bptr, f->bstop, (int)f->pos, f->bufend);
130 bfmm_close(struct fastbuf *f)
132 struct fb_mmap *F = FB_MMAP(f);
135 munmap(f->buffer, ALIGN(f->bufend-f->buffer, PAGE_SIZE));
136 if (F->file_extend > F->file_size &&
137 sh_ftruncate(F->fd, F->file_size))
138 die("ftruncate(%s): %m", f->name);
139 switch (F->is_temp_file)
142 if (unlink(f->name) < 0)
143 log(L_ERROR, "unlink(%s): %m", f->name);
151 bfmm_config(struct fastbuf *f, uns item, int value)
155 case BCONFIG_IS_TEMP_FILE:
156 FB_MMAP(f)->is_temp_file = value;
163 static struct fastbuf *
164 bfmmopen_internal(int fd, byte *name, uns mode)
166 int namelen = strlen(name) + 1;
167 struct fb_mmap *F = xmalloc(sizeof(struct fb_mmap) + namelen);
168 struct fastbuf *f = &F->fb;
170 bzero(F, sizeof(*F));
171 f->name = (byte *)(F+1);
172 memcpy(f->name, name, namelen);
174 F->file_extend = F->file_size = sh_seek(fd, 0, SEEK_END);
176 f->pos = F->file_size;
178 if (mode & O_WRONLY || mode & O_RDWR)
181 f->refill = bfmm_refill;
182 f->spout = bfmm_spout;
184 f->close = bfmm_close;
185 f->config = bfmm_config;
190 bopen_mm(byte *name, uns mode)
192 int fd = sh_open(name, mode, 0666);
194 die("Unable to %s file %s: %m",
195 (mode & O_CREAT) ? "create" : "open", name);
196 return bfmmopen_internal(fd, name, mode);
201 int main(int argc, char **argv)
203 struct fastbuf *f = bopen_mm(argv[1], O_RDONLY);
204 struct fastbuf *g = bopen_mm(argv[2], O_RDWR | O_CREAT | O_TRUNC);
208 while ((c = bgetc(f)) >= 0)
211 DBG("Seek inside last block");
212 bsetpos(g, btell(g)-1333);
214 DBG("Seek to the beginning & write");
221 DBG("Seek nearby & read");
224 DBG("Seek far & read");