dev.c

   1 #include <ctype.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include <string.h>
   5 #include "xroff.h"
   6
   7 char dev_dir[PATHLEN];  /* device directory */
   8 int dev_res;            /* device resolution */
   9 int dev_uwid;           /* device unitwidth */
  10 int dev_hor;            /* minimum horizontal movement */
  11 int dev_ver;            /* minimum vertical movement */
  12
  13 /* mounted fonts */
  14 static char fn_name[NFONTS][FNLEN];     /* font names */
  15 static struct font *fn_font[NFONTS];    /* font structs */
  16 static int fn_n;                        /* number of mounted fonts */
  17
  18 static void skipline(FILE* filp)
  19 {
  20         int c;
  21         do {
  22                 c = getc(filp);
  23         } while (c != '\n' && c != EOF);
  24 }
  25
  26 static void dev_prologue(void)
  27 {
  28         out("x T utf\n");
  29         out("x res %d %d %d\n", dev_res, dev_hor, dev_ver);
  30         out("x init\n");
  31 }
  32
  33 int dev_mnt(int pos, char *id, char *name)
  34 {
  35         char path[PATHLEN];
  36         struct font *fn;
  37         sprintf(path, "%s/%s", dev_dir, name);
  38         fn = font_open(path);
  39         if (!fn)
  40                 return -1;
  41         if (fn_font[pos])
  42                 font_close(fn_font[pos]);
  43         if (fn_name[pos] != name)       /* ignore if fn_name[pos] is passed */
  44                 strcpy(fn_name[pos], id);
  45         fn_font[pos] = fn;
  46         out("x font %d %s\n", pos, name);
  47         return pos;
  48 }
  49
  50 int dev_open(char *dir)
  51 {
  52         char path[PATHLEN];
  53         char tok[ILNLEN];
  54         int i;
  55         FILE *desc;
  56         strcpy(dev_dir, dir);
  57         sprintf(path, "%s/DESC", dir);
  58         desc = fopen(path, "r");
  59         while (fscanf(desc, "%s", tok) == 1) {
  60                 if (tok[0] == '#') {
  61                         skipline(desc);
  62                         continue;
  63                 }
  64                 if (!strcmp("fonts", tok)) {
  65                         fscanf(desc, "%d", &fn_n);
  66                         for (i = 0; i < fn_n; i++)
  67                                 fscanf(desc, "%s", fn_name[i + 1]);
  68                         fn_n++;
  69                         continue;
  70                 }
  71                 if (!strcmp("sizes", tok)) {
  72                         while (fscanf(desc, "%s", tok) == 1)
  73                                 if (!strcmp("0", tok))
  74                                         break;
  75                         continue;
  76                 }
  77                 if (!strcmp("res", tok)) {
  78                         fscanf(desc, "%d", &dev_res);
  79                         continue;
  80                 }
  81                 if (!strcmp("unitwidth", tok)) {
  82                         fscanf(desc, "%d", &dev_uwid);
  83                         continue;
  84                 }
  85                 if (!strcmp("hor", tok)) {
  86                         fscanf(desc, "%d", &dev_hor);
  87                         continue;
  88                 }
  89                 if (!strcmp("ver", tok)) {
  90                         fscanf(desc, "%d", &dev_ver);
  91                         continue;
  92                 }
  93                 if (!strcmp("charset", tok)) {
  94                         break;
  95                 }
  96         }
  97         fclose(desc);
  98         dev_prologue();
  99         for (i = 0; i < fn_n; i++)
 100                 if (*fn_name[i])
 101                         dev_mnt(i, fn_name[i], fn_name[i]);
 102         return 0;
 103 }
 104
 105 static void dev_epilogue(void)
 106 {
 107         out("x trailer\n");
 108         out("x stop\n");
 109 }
 110
 111 void dev_close(void)
 112 {
 113         int i;
 114         dev_epilogue();
 115         for (i = 0; i < fn_n; i++) {
 116                 if (fn_font[i])
 117                         font_close(fn_font[i]);
 118                 fn_font[i] = NULL;
 119         }
 120 }
 121
 122 /* glyph handling functions */
 123
 124 struct glyph *dev_glyph(char *c, int fn)
 125 {
 126         struct glyph *g;
 127         int i;
 128         if ((c[0] == c_ec || c[0] == c_ni) && c[1] == c_ec)
 129                 c++;
 130         if (c[0] == c_ec && c[1] == '(')
 131                 c += 2;
 132         g = font_find(fn_font[fn], c);
 133         if (g)
 134                 return g;
 135         for (i = 0; i < fn_n; i++)
 136                 if (fn_font[i] && fn_font[i]->special)
 137                         if ((g = font_find(fn_font[i], c)))
 138                                 return g;
 139         return NULL;
 140 }
 141
 142 struct glyph *dev_glyph_byid(char *id, int fn)
 143 {
 144         return font_glyph(fn_font[fn], id);
 145 }
 146
 147 struct glyph *dev_ligature(char **s, int n)
 148 {
 149         return NULL;
 150 }
 151
 152 int dev_kernpair(char *c1, char *c2)
 153 {
 154         return 0;
 155 }
 156
 157 int dev_spacewid(void)
 158 {
 159         return fn_font[n_f]->spacewid;
 160 }
 161
 162 int dev_font(char *id)
 163 {
 164         int i;
 165         if (isdigit(id[0])) {
 166                 int num = atoi(id);
 167                 if (num < 0 || num >= fn_n || !fn_font[num]) {
 168                         errmsg("bad font position\n");
 169                         return -1;
 170                 }
 171                 return num;
 172         }
 173         for (i = 0; i < fn_n; i++)
 174                 if (!strcmp(fn_name[i], id))
 175                         return i;
 176         return dev_mnt(0, id, id);
 177 }
 178
 179 int charwid(int wid, int sz)
 180 {
 181         /* the original troff rounds the widths up */
 182         return (wid * sz + dev_uwid / 2) / dev_uwid;
 183 }