1 a0d146ed 2005-07-12 devnull #include "stdinc.h"
2 a0d146ed 2005-07-12 devnull #include "dat.h"
3 a0d146ed 2005-07-12 devnull #include "fns.h"
6 a0d146ed 2005-07-12 devnull fmtzbinit(Fmt *f, ZBlock *b)
8 a0d146ed 2005-07-12 devnull f->runes = 0;
9 a0d146ed 2005-07-12 devnull f->start = b->data;
10 a0d146ed 2005-07-12 devnull f->to = f->start;
11 a0d146ed 2005-07-12 devnull f->stop = (char*)f->start + b->len;
12 a0d146ed 2005-07-12 devnull f->flush = nil;
13 a0d146ed 2005-07-12 devnull f->farg = nil;
14 a0d146ed 2005-07-12 devnull f->nfmt = 0;
17 d67cd5c3 2005-07-19 devnull #define ROUNDUP(p, n) ((void*)(((uintptr)(p)+(n)-1)&~(uintptr)((n)-1)))
19 a0d146ed 2005-07-12 devnull static char zmagic[] = "1234567890abcdefghijkl";
22 a0d146ed 2005-07-12 devnull alloczblock(u32int size, int zeroed, uint blocksize)
24 a0d146ed 2005-07-12 devnull uchar *p, *data;
25 a0d146ed 2005-07-12 devnull ZBlock *b;
26 a0d146ed 2005-07-12 devnull static ZBlock z;
29 a0d146ed 2005-07-12 devnull if(blocksize == 0)
30 a0d146ed 2005-07-12 devnull blocksize = 32; /* try for cache line alignment */
32 a0d146ed 2005-07-12 devnull n = size+32/*XXX*/+sizeof(ZBlock)+blocksize+8;
33 a0d146ed 2005-07-12 devnull p = malloc(n);
34 a0d146ed 2005-07-12 devnull if(p == nil){
35 a0d146ed 2005-07-12 devnull seterr(EOk, "out of memory");
36 a0d146ed 2005-07-12 devnull return nil;
39 a0d146ed 2005-07-12 devnull data = ROUNDUP(p, blocksize);
40 a0d146ed 2005-07-12 devnull b = ROUNDUP(data+size+32/*XXX*/, 8);
41 a0d146ed 2005-07-12 devnull if(0) fprint(2, "alloc %p-%p data %p-%p b %p-%p\n",
42 a0d146ed 2005-07-12 devnull p, p+n, data, data+size, b, b+1);
44 a0d146ed 2005-07-12 devnull b->data = data;
45 a0d146ed 2005-07-12 devnull b->free = p;
46 a0d146ed 2005-07-12 devnull b->len = size;
47 a0d146ed 2005-07-12 devnull b->_size = size;
48 a0d146ed 2005-07-12 devnull if(zeroed)
49 a0d146ed 2005-07-12 devnull memset(b->data, 0, size);
50 a0d146ed 2005-07-12 devnull memmove(b->data+size, zmagic, 32/*XXX*/);
51 a0d146ed 2005-07-12 devnull return b;
55 a0d146ed 2005-07-12 devnull freezblock(ZBlock *b)
58 a0d146ed 2005-07-12 devnull if(memcmp(b->data+b->_size, zmagic, 32) != 0)
60 a0d146ed 2005-07-12 devnull memset(b->data+b->_size, 0, 32);
61 a0d146ed 2005-07-12 devnull free(b->free);
66 a0d146ed 2005-07-12 devnull packet2zblock(Packet *p, u32int size)
68 a0d146ed 2005-07-12 devnull ZBlock *b;
70 a0d146ed 2005-07-12 devnull if(p == nil)
71 a0d146ed 2005-07-12 devnull return nil;
72 a0d146ed 2005-07-12 devnull b = alloczblock(size, 0, 0);
73 a0d146ed 2005-07-12 devnull if(b == nil)
74 a0d146ed 2005-07-12 devnull return nil;
75 a0d146ed 2005-07-12 devnull if(packetcopy(p, b->data, 0, size) < 0){
76 a0d146ed 2005-07-12 devnull freezblock(b);
77 a0d146ed 2005-07-12 devnull return nil;
79 a0d146ed 2005-07-12 devnull return b;
83 a0d146ed 2005-07-12 devnull zblock2packet(ZBlock *zb, u32int size)
85 a0d146ed 2005-07-12 devnull Packet *p;
87 a0d146ed 2005-07-12 devnull if(zb == nil)
88 a0d146ed 2005-07-12 devnull return nil;
89 a0d146ed 2005-07-12 devnull p = packetalloc();
90 a0d146ed 2005-07-12 devnull packetappend(p, zb->data, size);
91 a0d146ed 2005-07-12 devnull return p;