sys/src/cmd/tcs/font/gbits.c

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