1 a31db67d 2004-04-21 devnull #include	<u.h>
 2 a31db67d 2004-04-21 devnull #include	<libc.h>
 3 a31db67d 2004-04-21 devnull #include	<libg.h>
 4 a31db67d 2004-04-21 devnull #include	<bio.h>
 5 a31db67d 2004-04-21 devnull #include	"hdr.h"
 6 a31db67d 2004-04-21 devnull 
 7 a31db67d 2004-04-21 devnull Bitmap *
 8 a31db67d 2004-04-21 devnull kreadbits(char *file, int n, long *chars, int size, uchar *bits, int **doneptr)
 9 a31db67d 2004-04-21 devnull {
10 a31db67d 2004-04-21 devnull 	Bitmap *bm;
11 a31db67d 2004-04-21 devnull 	Biobuf *bf;
12 a31db67d 2004-04-21 devnull 	char *p;
13 a31db67d 2004-04-21 devnull 	long kmin, kmax;
14 a31db67d 2004-04-21 devnull 	int i, j, byt;
15 a31db67d 2004-04-21 devnull 	int nch;
16 a31db67d 2004-04-21 devnull 	long c;
17 a31db67d 2004-04-21 devnull 	uchar *b;
18 a31db67d 2004-04-21 devnull 	int *done;
19 a31db67d 2004-04-21 devnull 	uchar *nbits;
20 a31db67d 2004-04-21 devnull 	static int dig[256] = {
21 a31db67d 2004-04-21 devnull 	['0'] 0, ['1'] 1, ['2'] 2, ['3'] 3, ['4'] 4, ['5'] 5, ['6'] 6, ['7'] 7,
22 a31db67d 2004-04-21 devnull 	['8'] 8, ['9'] 9, ['a'] 10, ['b'] 11, ['c'] 12, ['d'] 13, ['e'] 14, ['f'] 15,
23 a31db67d 2004-04-21 devnull 	};
24 a31db67d 2004-04-21 devnull 
25 a31db67d 2004-04-21 devnull 	bf = Bopen(file, OREAD);
26 a31db67d 2004-04-21 devnull 	if(bf == 0){
27 a31db67d 2004-04-21 devnull 		fprint(2, "%s: %s: %r\n", argv0, file);
28 a31db67d 2004-04-21 devnull 		exits("bitfile open error");
29 a31db67d 2004-04-21 devnull 	}
30 a31db67d 2004-04-21 devnull 	done = (int *)malloc(n*sizeof(done[0]));
31 a31db67d 2004-04-21 devnull 	if(done == 0){
32 a31db67d 2004-04-21 devnull 		fprint(2, "%s: malloc error (%d bytes)\n", argv0, n);
33 a31db67d 2004-04-21 devnull 		exits("malloc error");
34 a31db67d 2004-04-21 devnull 	}
35 a31db67d 2004-04-21 devnull 	*doneptr = done;
36 a31db67d 2004-04-21 devnull 	memset(done, 0, n*sizeof(done[0]));
37 a31db67d 2004-04-21 devnull 	kmin = 65536;
38 a31db67d 2004-04-21 devnull 	kmax = 0;
39 a31db67d 2004-04-21 devnull 	for(i = 0; i < n; i++){
40 a31db67d 2004-04-21 devnull 		c = chars[i];
41 a31db67d 2004-04-21 devnull 		if(kmin > c)
42 a31db67d 2004-04-21 devnull 			kmin = c;
43 a31db67d 2004-04-21 devnull 		if(kmax < c)
44 a31db67d 2004-04-21 devnull 			kmax = c;
45 a31db67d 2004-04-21 devnull 	}
46 a31db67d 2004-04-21 devnull 	nch = 0;
47 a31db67d 2004-04-21 devnull 	byt = size/8;
48 a31db67d 2004-04-21 devnull 	Brdline(bf, '\n');		/* header line 1 */
49 a31db67d 2004-04-21 devnull 	Brdline(bf, '\n');		/* header line 2 */
50 a31db67d 2004-04-21 devnull 	while(p = (char *)Brdline(bf, '\n')){
51 a31db67d 2004-04-21 devnull 		c = strtol(p+17, (char **)0, 10);
52 a31db67d 2004-04-21 devnull 		if((c < kmin) || (c > kmax))
53 a31db67d 2004-04-21 devnull 			continue;
54 a31db67d 2004-04-21 devnull 		for(i = 0; i < n; i++)
55 a31db67d 2004-04-21 devnull 			if(c == chars[i]){
56 a31db67d 2004-04-21 devnull 				nch++;
57 a31db67d 2004-04-21 devnull 				done[i] = 1;
58 a31db67d 2004-04-21 devnull 				p += 25;
59 a31db67d 2004-04-21 devnull 				b = bits + i*byt;
60 a31db67d 2004-04-21 devnull 				for(i = 0; i < size; i++){	/* rows */
61 a31db67d 2004-04-21 devnull 					for(j = 0; j < byt; j++){
62 a31db67d 2004-04-21 devnull 						*b++ = (dig[*p]<<4) | dig[p[1]];
63 a31db67d 2004-04-21 devnull 						p += 2;
64 a31db67d 2004-04-21 devnull 					}
65 a31db67d 2004-04-21 devnull 					b += (n-1)*byt;
66 a31db67d 2004-04-21 devnull 				}
67 a31db67d 2004-04-21 devnull 				break;
68 a31db67d 2004-04-21 devnull 			}
69 a31db67d 2004-04-21 devnull 	}
70 a31db67d 2004-04-21 devnull 	nbits = (uchar *)malloc(nch*byt*size);
71 a31db67d 2004-04-21 devnull 	if(nbits == 0){
72 a31db67d 2004-04-21 devnull 		fprint(2, "%s: malloc error (%d bytes)\n", argv0, nch*byt);
73 a31db67d 2004-04-21 devnull 		exits("malloc error");
74 a31db67d 2004-04-21 devnull 	}
75 a31db67d 2004-04-21 devnull 	c = 0;
76 a31db67d 2004-04-21 devnull 	for(i = 0; i < n; i++)
77 a31db67d 2004-04-21 devnull 		if(done[i]){
78 a31db67d 2004-04-21 devnull 			for(j = 0; j < size; j++)
79 a31db67d 2004-04-21 devnull 				memmove(nbits+c*byt+j*nch*byt, bits+i*byt+j*n*byt, byt);
80 a31db67d 2004-04-21 devnull 			c++;
81 a31db67d 2004-04-21 devnull 		}
82 a31db67d 2004-04-21 devnull 	bm = balloc((Rectangle){(Point){0, 0}, (Point){nch*size, size}}, 0);
83 a31db67d 2004-04-21 devnull 	if(bm == 0){
84 a31db67d 2004-04-21 devnull 		fprint(2, "%s: balloc failure\n", argv0);
85 a31db67d 2004-04-21 devnull 		exits("balloc failure");
86 a31db67d 2004-04-21 devnull 	}
87 a31db67d 2004-04-21 devnull 	wrbitmap(bm, 0, size, nbits);
88 a31db67d 2004-04-21 devnull 	for(i = 0; i < n; i++)
89 a31db67d 2004-04-21 devnull 		if(done[i] == 0){
90 a31db67d 2004-04-21 devnull 			/*fprint(2, "char 0x%x (%d) not found\n", chars[i], chars[i]);/**/
91 a31db67d 2004-04-21 devnull 		}
92 a31db67d 2004-04-21 devnull 	return(bm);
93 a31db67d 2004-04-21 devnull }