1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#include <u.h>
#include <libc.h>
#include <libg.h>
#include <bio.h>
#include "hdr.h"
enum {
Charsperfont = 157,
Void1b = (0xC6-0xA2)*Charsperfont+0x3f,
Void1e = (0xC9-0xA2)*Charsperfont - 1
};
Bitmap *
breadbits(char *file, int n, long *chars, int size, uchar *bits, int **doneptr)
{
Bitmap *bm;
Biobuf *bf;
int i, j, byt;
int nch;
long c;
uchar *b, *nbits;
int *done;
static uchar missing[32] = {0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x08, 0x00, 0x04, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x80, 0x00, 0x40, 0x00, 0x20, 0x00, 0x10, 0x00, 0x08, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 };
uchar buf[32];
bf = Bopen(file, OREAD);
if(bf == 0){
fprint(2, "%s: %s: %r\n", argv0, file);
exits("bitfile open error");
}
done = (int *)malloc(n*sizeof(done[0]));
if(done == 0){
fprint(2, "%s: malloc error (%d bytes)\n", argv0, n);
exits("malloc error");
}
*doneptr = done;
byt = size/8;
nch = 0;
for(i = 0; i < n; i++){
done[i] = 1;
nch++;
c = chars[i];
if((c >= Void1b) && (c <= Void1e)){
done[i] = 0;
nch--;
continue;
}
/* magic via presotto for calculating the seek */
j = c;
if(c >= 2*Charsperfont)
j += 294; /* baffling hole between A3 and A4 */
if(c > Void1e)
j -= 3*Charsperfont - 0x3F;
j *= byt*size; /* bytes per char */
j += 256; /* 256 front matter */
Bseek(bf, j, 0);
Bread(bf, buf, sizeof(missing));
if(memcmp(buf, missing, sizeof(missing)) == 0){
done[i] = 0;
nch--;
continue;
}
Bseek(bf, j, 0);
b = bits + i*byt;
for(j = 0; j < size; j++){ /* rows */
Bread(bf, b, byt);
b += n*byt;
}
}
nbits = (uchar *)malloc(nch*byt*size);
if(nbits == 0){
fprint(2, "%s: malloc error (%d bytes)\n", argv0, nch*byt);
exits("malloc error");
}
c = 0;
for(i = 0; i < n; i++)
if(done[i]){
for(j = 0; j < size; j++)
memmove(nbits+c*byt+j*nch*byt, bits+i*byt+j*n*byt, byt);
c++;
}
bm = balloc((Rectangle){(Point){0, 0}, (Point){nch*size, size}}, 0);
if(bm == 0){
fprint(2, "%s: balloc failure\n", argv0);
exits("balloc failure");
}
wrbitmap(bm, 0, size, nbits);
return(bm);
}
|