out.c

   1 #include <ctype.h>
   2 #include <stdarg.h>
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <string.h>
   6 #include "post.h"
   7
   8 static int o_f, o_s, o_m;       /* font and size */
   9 static int o_h, o_v;            /* current user position */
  10 static int p_f, p_s, p_m;       /* output postscript font */
  11 static int o_qtype;             /* queued character type */
  12 static int o_qv, o_qh, o_qend;  /* queued character position */
  13 static int o_rh, o_rv, o_rdeg;  /* previous rotation position and degree */
  14 static int o_gname;             /* use glyphshow for all glyphs */
  15
  16 char o_fonts[FNLEN * NFONTS] = " ";
  17
  18 static void outvf(char *s, va_list ap)
  19 {
  20         vfprintf(stdout, s, ap);
  21 }
  22
  23 static void outf(char *s, ...)
  24 {
  25         va_list ap;
  26         va_start(ap, s);
  27         outvf(s, ap);
  28         va_end(ap);
  29 }
  30
  31 static void o_flush(void)
  32 {
  33         if (o_qtype == 1)
  34                 outf(") %d %d w\n", o_qh, o_qv);
  35         if (o_qtype == 2)
  36                 outf("] %d %d g\n", o_qh, o_qv);
  37         o_qtype = 0;
  38 }
  39
  40 void outgname(int g)
  41 {
  42         o_gname = g;
  43 }
  44
  45 void outpage(void)
  46 {
  47         o_flush();
  48         o_v = 0;
  49         o_h = 0;
  50         p_s = 0;
  51         p_f = 0;
  52         p_m = 0;
  53         o_rdeg = 0;
  54 }
  55
  56 static void o_queue(struct glyph *g)
  57 {
  58         int type = 1 + (g->pos <= 0 || o_gname);
  59         if (o_qtype != type || o_qend != o_h || o_qv != o_v) {
  60                 o_flush();
  61                 o_qh = o_h;
  62                 o_qv = o_v;
  63                 o_qtype = type;
  64                 outf(type == 1 ? "(" : "[");
  65         }
  66         if (o_qtype == 1) {
  67                 if (g->pos >= ' ' && g->pos <= '~')
  68                         outf("%s%c", strchr("()\\", g->pos) ? "\\" : "", g->pos);
  69                 else
  70                         outf("\\%d%d%d", (g->pos >> 6) & 7,
  71                                         (g->pos >> 3) & 7, g->pos & 7);
  72         } else {
  73                 outf("/%s", g->id);
  74         }
  75         o_qend = o_h + font_wid(g->font, o_s, g->wid);
  76 }
  77
  78 /* calls o_flush() if necessary */
  79 void out(char *s, ...)
  80 {
  81         va_list ap;
  82         o_flush();
  83         va_start(ap, s);
  84         outvf(s, ap);
  85         va_end(ap);
  86 }
  87
  88 static void out_fontup(int fid)
  89 {
  90         char fnname[FNLEN];
  91         struct font *fn;
  92         if (o_m != p_m) {
  93                 out("%d %d %d rgb\n", CLR_R(o_m), CLR_G(o_m), CLR_B(o_m));
  94                 p_m = o_m;
  95         }
  96         if (fid != p_f || o_s != p_s) {
  97                 fn = dev_font(fid);
  98                 out("%d /%s f\n", o_s, font_name(fn));
  99                 p_f = fid;
 100                 p_s = o_s;
 101                 sprintf(fnname, " %s ", font_name(fn));
 102                 if (!strstr(o_fonts, fnname))
 103                         sprintf(strchr(o_fonts, '\0'), "%s ", font_name(fn));
 104         }
 105 }
 106
 107 void outc(char *c)
 108 {
 109         struct glyph *g;
 110         struct font *fn;
 111         g = dev_glyph(c, o_f);
 112         fn = g ? g->font : dev_font(o_f);
 113         if (!g) {
 114                 outrel(*c == ' ' && fn ? font_swid(fn, o_s) : 1, 0);
 115                 return;
 116         }
 117         out_fontup(dev_fontid(fn));
 118         o_queue(g);
 119 }
 120
 121 void outh(int h)
 122 {
 123         o_h = h;
 124 }
 125
 126 void outv(int v)
 127 {
 128         o_v = v;
 129 }
 130
 131 void outrel(int h, int v)
 132 {
 133         o_h += h;
 134         o_v += v;
 135 }
 136
 137 void outfont(int f)
 138 {
 139         if (dev_font(f))
 140                 o_f = f;
 141 }
 142
 143 /* a font was mounted at pos f */
 144 void outmnt(int f)
 145 {
 146         if (p_f == f)
 147                 p_f = -1;
 148 }
 149
 150 void outsize(int s)
 151 {
 152         if (s > 0)
 153                 o_s = s;
 154 }
 155
 156 void outcolor(int c)
 157 {
 158         o_m = c;
 159 }
 160
 161 void outrotate(int deg)
 162 {
 163         o_flush();
 164         out_fontup(o_f);
 165         if (o_rdeg)
 166                 outf("%d %d %d rot\n", -o_rdeg, o_rh, o_rv);
 167         o_rdeg = deg;
 168         o_rh = o_h;
 169         o_rv = o_v;
 170         outf("%d %d %d rot\n", deg, o_h, o_v);
 171 }
 172
 173 static int draw_path;   /* number of path segments */
 174 static int draw_point;  /* point was set for postscript newpath */
 175
 176 static void drawmv(void)
 177 {
 178         if (!draw_point)
 179                 outf("%d %d m ", o_h, o_v);
 180         draw_point = 1;
 181 }
 182
 183 /* start a multi-segment path */
 184 void drawmbeg(char *s)
 185 {
 186         o_flush();
 187         out_fontup(o_f);
 188         draw_path = 1;
 189         outf("gsave newpath %s\n", s);
 190 }
 191
 192 /* end a multi-segment path */
 193 void drawmend(char *s)
 194 {
 195         draw_path = 0;
 196         draw_point = 0;
 197         outf("%s grestore\n", s);
 198 }
 199
 200 void drawbeg(void)
 201 {
 202         o_flush();
 203         out_fontup(o_f);
 204         if (draw_path)
 205                 return;
 206         outf("newpath ");
 207 }
 208
 209 void drawend(int close, int fill)
 210 {
 211         if (draw_path)
 212                 return;
 213         draw_point = 0;
 214         if (close)
 215                 outf("closepath ");
 216         if (fill)
 217                 outf("fill\n");
 218         else
 219                 outf("stroke\n");
 220 }
 221
 222 void drawl(int h, int v)
 223 {
 224         drawmv();
 225         outrel(h, v);
 226         outf("%d %d drawl ", o_h, o_v);
 227 }
 228
 229 void drawc(int c)
 230 {
 231         drawmv();
 232         outrel(c, 0);
 233         outf("%d %d drawe ", c, c);
 234 }
 235
 236 void drawe(int h, int v)
 237 {
 238         drawmv();
 239         outrel(h, 0);
 240         outf("%d %d drawe ", h, v);
 241 }
 242
 243 void drawa(int h1, int v1, int h2, int v2)
 244 {
 245         drawmv();
 246         outf("%d %d %d %d drawa ", h1, v1, h2, v2);
 247         outrel(h1 + h2, v1 + v2);
 248 }
 249
 250 void draws(int h1, int v1, int h2, int v2)
 251 {
 252         drawmv();
 253         outf("%d %d %d %d %d %d draws ", o_h, o_v, o_h + h1, o_v + v1,
 254                 o_h + h1 + h2, o_v + v1 + v2);
 255         outrel(h1, v1);
 256 }
 257
 258 void outeps(char *spec)
 259 {
 260         char eps[1 << 12];
 261         char buf[1 << 12];
 262         int llx, lly, urx, ury;
 263         int hwid, vwid;
 264         FILE *filp;
 265         int nspec, nbb;
 266         if ((nspec = sscanf(spec, "%s %d %d", eps, &hwid, &vwid)) < 1)
 267                 return;
 268         if (nspec < 2)
 269                 hwid = 0;
 270         if (nspec < 3)
 271                 vwid = 0;
 272         if (!(filp = fopen(eps, "r")))
 273                 return;
 274         if (!fgets(buf, sizeof(buf), filp) ||
 275                         (strcmp(buf, "%!PS-Adobe-2.0 EPSF-1.2\n") &&
 276                         strcmp(buf, "%!PS-Adobe-2.0 EPSF-2.0\n") &&
 277                         strcmp(buf, "%!PS-Adobe-3.0 EPSF-3.0\n"))) {
 278                 fclose(filp);
 279                 return;
 280         }
 281         nbb = 0;
 282         while (fgets(buf, sizeof(buf), filp))
 283                 if (!strncmp(buf, "%%BoundingBox: ", 15))
 284                         if ((nbb = sscanf(buf + 15, "%d %d %d %d",
 285                                         &llx, &lly, &urx, &ury)) == 4)
 286                                 break;
 287         fclose(filp);
 288         if (nbb < 4)            /* no BoundingBox comment */
 289                 return;
 290         if (hwid <= 0 && vwid <= 0)
 291                 hwid = (urx - llx) * dev_res / 72;
 292         if (vwid <= 0)
 293                 vwid = (ury - lly) * hwid / (urx - llx);
 294         if (hwid <= 0)
 295                 hwid = (urx - llx) * vwid / (ury - lly);
 296         /* output the EPS file */
 297         o_flush();
 298         out_fontup(o_f);
 299         outf("%d %d %d %d %d %d %d %d EPSFBEG\n",
 300                 llx, lly, hwid, urx - llx, vwid, ury - lly, o_h, o_v);
 301         outf("%%%%BeginDocument: %s\n", eps);
 302         filp = fopen(eps, "r");
 303         while (fgets(buf, sizeof(buf), filp))
 304                 out("%s", buf);
 305         fclose(filp);
 306         outf("%%%%EndDocument\n");
 307         outf("EPSFEND\n");
 308 }
 309
 310 void outlink(char *spec)
 311 {
 312         char lnk[1 << 12];
 313         int hwid, vwid;
 314         int nspec;
 315         if ((nspec = sscanf(spec, "%s %d %d", lnk, &hwid, &vwid)) != 3)
 316                 return;
 317         o_flush();
 318         if (isdigit((unsigned char) lnk[0])) {
 319                 outf("[ /Rect [ %d %d t %d %d t ] /Page %s"
 320                         "/Subtype /Link /LNK pdfmark\n",
 321                         o_h, o_v, o_h + hwid, o_v + vwid, lnk);
 322         } else {
 323                 outf("[ /Rect [ %d %d t %d %d t ]"
 324                         "/Action << /Subtype /URI /URI (%s) >> /Open true "
 325                         "/Subtype /Link /LNK pdfmark\n",
 326                         o_h, o_v, o_h + hwid, o_v + vwid, lnk);
 327         }
 328 }