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 /*
  8 a31db67d 2004-04-21 devnull 	this file reads bdf fonts. it is mapping dependent in that the ENCODING
  9 a31db67d 2004-04-21 devnull 	field is font dependent.
 10 a31db67d 2004-04-21 devnull */
 11 a31db67d 2004-04-21 devnull 
 12 a31db67d 2004-04-21 devnull static char *field(Biobuf *, char *);
 13 a31db67d 2004-04-21 devnull 
 14 a31db67d 2004-04-21 devnull Bitmap *
 15 a31db67d 2004-04-21 devnull greadbits(char *file, int n, long *chars, int size, uchar *bits, int **doneptr)
 16 a31db67d 2004-04-21 devnull {
 17 a31db67d 2004-04-21 devnull 	Bitmap *bm;
 18 a31db67d 2004-04-21 devnull 	Biobuf *bf;
 19 a31db67d 2004-04-21 devnull 	char *p, *s;
 20 a31db67d 2004-04-21 devnull 	long kmin, kmax;
 21 a31db67d 2004-04-21 devnull 	int i, j, byt;
 22 a31db67d 2004-04-21 devnull 	int nch;
 23 a31db67d 2004-04-21 devnull 	long c;
 24 a31db67d 2004-04-21 devnull 	uchar *b;
 25 a31db67d 2004-04-21 devnull 	int *done;
 26 a31db67d 2004-04-21 devnull 	uchar *nbits;
 27 a31db67d 2004-04-21 devnull 	char buf[1024];	/* big enough for one char! */
 28 a31db67d 2004-04-21 devnull 	static int dig[256] = {
 29 a31db67d 2004-04-21 devnull 	['0'] 0, ['1'] 1, ['2'] 2, ['3'] 3, ['4'] 4, ['5'] 5, ['6'] 6, ['7'] 7,
 30 a31db67d 2004-04-21 devnull 	['8'] 8, ['9'] 9, ['a'] 10, ['b'] 11, ['c'] 12, ['d'] 13, ['e'] 14, ['f'] 15,
 31 a31db67d 2004-04-21 devnull 	};
 32 a31db67d 2004-04-21 devnull 
 33 a31db67d 2004-04-21 devnull 	bf = Bopen(file, OREAD);
 34 a31db67d 2004-04-21 devnull 	if(bf == 0){
 35 a31db67d 2004-04-21 devnull 		fprint(2, "%s: %s: %r\n", argv0, file);
 36 a31db67d 2004-04-21 devnull 		exits("bitfile open error");
 37 a31db67d 2004-04-21 devnull 	}
 38 a31db67d 2004-04-21 devnull 	done = (int *)malloc(n*sizeof(done[0]));
 39 a31db67d 2004-04-21 devnull 	if(done == 0){
 40 a31db67d 2004-04-21 devnull 		fprint(2, "%s: malloc error (%d bytes)\n", argv0, n);
 41 a31db67d 2004-04-21 devnull 		exits("malloc error");
 42 a31db67d 2004-04-21 devnull 	}
 43 a31db67d 2004-04-21 devnull 	*doneptr = done;
 44 a31db67d 2004-04-21 devnull 	memset(done, 0, n*sizeof(done[0]));
 45 a31db67d 2004-04-21 devnull 	kmin = 65536;
 46 a31db67d 2004-04-21 devnull 	kmax = 0;
 47 a31db67d 2004-04-21 devnull 	for(i = 0; i < n; i++){
 48 a31db67d 2004-04-21 devnull 		c = chars[i];
 49 a31db67d 2004-04-21 devnull 		if(kmin > c)
 50 a31db67d 2004-04-21 devnull 			kmin = c;
 51 a31db67d 2004-04-21 devnull 		if(kmax < c)
 52 a31db67d 2004-04-21 devnull 			kmax = c;
 53 a31db67d 2004-04-21 devnull 	}
 54 a31db67d 2004-04-21 devnull 	nch = 0;
 55 a31db67d 2004-04-21 devnull 	byt = size/8;
 56 a31db67d 2004-04-21 devnull 	for(;;){
 57 a31db67d 2004-04-21 devnull 		while(s = Brdline(bf, '\n')){
 58 a31db67d 2004-04-21 devnull 			if(strncmp(s, "STARTCHAR", 9) == 0)
 59 a31db67d 2004-04-21 devnull 				break;
 60 a31db67d 2004-04-21 devnull 		}
 61 a31db67d 2004-04-21 devnull 		if(s == 0)
 62 a31db67d 2004-04-21 devnull 			break;
 63 a31db67d 2004-04-21 devnull 		s = field(bf, "ENCODING");
 64 a31db67d 2004-04-21 devnull 		c = strtol(s, (char **)0, 10);
 65 a31db67d 2004-04-21 devnull 		c = (c/256 - 0xA0)*100 + (c%256 - 0xA0);
 66 a31db67d 2004-04-21 devnull 		field(bf, "BITMAP");
 67 a31db67d 2004-04-21 devnull 		p = buf;
 68 a31db67d 2004-04-21 devnull 		for(i = 0; i < size; i++){	/* rows */
 69 a31db67d 2004-04-21 devnull 			if((s = Brdline(bf, '\n')) == 0){
 70 a31db67d 2004-04-21 devnull 				exits("bad bdf");
 71 a31db67d 2004-04-21 devnull 			}
 72 a31db67d 2004-04-21 devnull 			memcpy(p, s, 2*byt);
 73 a31db67d 2004-04-21 devnull 			p += 2*byt;
 74 a31db67d 2004-04-21 devnull 		}
 75 a31db67d 2004-04-21 devnull 		field(bf, "ENDCHAR");
 76 a31db67d 2004-04-21 devnull 		if((c < kmin) || (c > kmax))
 77 a31db67d 2004-04-21 devnull 			continue;
 78 a31db67d 2004-04-21 devnull 		for(i = 0; i < n; i++)
 79 a31db67d 2004-04-21 devnull 			if(c == chars[i]){
 80 a31db67d 2004-04-21 devnull 				nch++;
 81 a31db67d 2004-04-21 devnull 				done[i] = 1;
 82 a31db67d 2004-04-21 devnull 				p = buf;
 83 a31db67d 2004-04-21 devnull 				b = bits + i*byt;
 84 a31db67d 2004-04-21 devnull 				for(i = 0; i < size; i++){	/* rows */
 85 a31db67d 2004-04-21 devnull 					for(j = 0; j < byt; j++){
 86 a31db67d 2004-04-21 devnull 						*b++ = (dig[*p]<<4) | dig[p[1]];
 87 a31db67d 2004-04-21 devnull 						p += 2;
 88 a31db67d 2004-04-21 devnull 					}
 89 a31db67d 2004-04-21 devnull 					b += (n-1)*byt;
 90 a31db67d 2004-04-21 devnull 				}
 91 a31db67d 2004-04-21 devnull 				break;
 92 a31db67d 2004-04-21 devnull 			}
 93 a31db67d 2004-04-21 devnull 	}
 94 a31db67d 2004-04-21 devnull 	nbits = (uchar *)malloc(nch*byt*size);
 95 a31db67d 2004-04-21 devnull 	if(nbits == 0){
 96 a31db67d 2004-04-21 devnull 		fprint(2, "%s: malloc error (%d bytes)\n", argv0, nch*byt);
 97 a31db67d 2004-04-21 devnull 		exits("malloc error");
 98 a31db67d 2004-04-21 devnull 	}
 99 a31db67d 2004-04-21 devnull 	c = 0;
100 a31db67d 2004-04-21 devnull 	for(i = 0; i < n; i++)
101 a31db67d 2004-04-21 devnull 		if(done[i]){
102 a31db67d 2004-04-21 devnull 			for(j = 0; j < size; j++)
103 a31db67d 2004-04-21 devnull 				memmove(nbits+c*byt+j*nch*byt, bits+i*byt+j*n*byt, byt);
104 a31db67d 2004-04-21 devnull 			c++;
105 a31db67d 2004-04-21 devnull 		}
106 a31db67d 2004-04-21 devnull 	bm = balloc((Rectangle){(Point){0, 0}, (Point){nch*size, size}}, 0);
107 a31db67d 2004-04-21 devnull 	if(bm == 0){
108 a31db67d 2004-04-21 devnull 		fprint(2, "%s: balloc failure\n", argv0);
109 a31db67d 2004-04-21 devnull 		exits("balloc failure");
110 a31db67d 2004-04-21 devnull 	}
111 a31db67d 2004-04-21 devnull 	wrbitmap(bm, 0, size, nbits);
112 a31db67d 2004-04-21 devnull 	for(i = 0; i < n; i++)
113 a31db67d 2004-04-21 devnull 		if(done[i] == 0){
114 a31db67d 2004-04-21 devnull 			/*fprint(2, "char 0x%x (%d) not found\n", chars[i], chars[i]);/**/
115 a31db67d 2004-04-21 devnull 		}
116 a31db67d 2004-04-21 devnull 	return(bm);
117 a31db67d 2004-04-21 devnull }
118 a31db67d 2004-04-21 devnull 
119 a31db67d 2004-04-21 devnull static char *
120 a31db67d 2004-04-21 devnull field(Biobuf *bf, char *name)
121 a31db67d 2004-04-21 devnull {
122 a31db67d 2004-04-21 devnull 	char *s;
123 a31db67d 2004-04-21 devnull 	int n;
124 a31db67d 2004-04-21 devnull 
125 a31db67d 2004-04-21 devnull 	n = strlen(name);
126 a31db67d 2004-04-21 devnull 	while(s = Brdline(bf, '\n')){
127 a31db67d 2004-04-21 devnull 		if(strncmp(s, name, n) == 0)
128 a31db67d 2004-04-21 devnull 			return(s+n);
129 a31db67d 2004-04-21 devnull 		if(strncmp(s, "ENDCHAR", 7) == 0){
130 a31db67d 2004-04-21 devnull 			fprint(2, "%s: char missing %s field\n", argv0, name);
131 a31db67d 2004-04-21 devnull 			exits("bad bdf");
132 a31db67d 2004-04-21 devnull 		}
133 a31db67d 2004-04-21 devnull 	}
134 a31db67d 2004-04-21 devnull 	fprint(2, "%s: char missing %s field; unexpected EOF\n", argv0, name);
135 a31db67d 2004-04-21 devnull 	exits("bad bdf");
136 a31db67d 2004-04-21 devnull 	return(0);
137 a31db67d 2004-04-21 devnull }