1 /* PSPP - computes sample statistics.
2 Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3 Written by Ben Pfaff <blp@gnu.org>.
5 This program is free software; you can redistribute it and/or
6 modify it under the terms of the GNU General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 This program is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 /*this #if encloses the remainder of the file. */
38 #include "bit-vector.h"
48 #include "start-date.h"
52 #define _(msgid) gettext (msgid)
56 optimize-text-size not implemented.
58 Line buffering is the only possibility; page buffering should also
63 Should add a field to give a file that has a list of fonts
66 Should add an option that tells the driver it can emit %%Include:'s.
68 Should have auto-encode=true stream-edit or whatever to allow
69 addition to list of encodings.
71 Should align fonts of different sizes along their baselines (see
74 /* PostScript driver options: (defaults listed first)
78 data=clean7bit|clean8bit|binary
81 paper-size=letter (see "papersize" file)
82 orientation=portrait|landscape
91 prologue-file=ps-prologue
93 encoding-file=ps-encodings
94 auto-encode=true|false
100 line-style=thick|double
106 optimize-text-size=1|0|2
107 optimize-line-size=1|0
108 max-fonts-simult=0 Max # of fonts in printer memory at once (0=infinite)
111 /* The number of `psus' (PostScript driver UnitS) per inch. Although
112 this is a #define, the value is expected never to change. If it
113 does, review all uses. */
116 /* Magic numbers for PostScript and EPSF drivers. */
126 OTN_PORTRAIT, /* Portrait. */
127 OTN_LANDSCAPE /* Landscape. */
130 /* Output options. */
133 OPO_MIRROR_HORZ = 001, /* 1=Mirror across a horizontal axis. */
134 OPO_MIRROR_VERT = 002, /* 1=Mirror across a vertical axis. */
135 OPO_ROTATE_180 = 004, /* 1=Rotate the page 180 degrees. */
136 OPO_COLOR = 010, /* 1=Enable color. */
137 OPO_HEADERS = 020, /* 1=Draw headers at top of page. */
138 OPO_AUTO_ENCODE = 040, /* 1=Add encodings semi-intelligently. */
139 OPO_DOUBLE_LINE = 0100 /* 1=Double lines instead of thick lines. */
142 /* Data allowed in output. */
145 ODA_CLEAN7BIT, /* 0x09, 0x0a, 0x0d, 0x1b...0x7e */
146 ODA_CLEAN8BIT, /* 0x09, 0x0a, 0x0d, 0x1b...0xff */
147 ODA_BINARY, /* 0x00...0xff */
151 /* Types of lines for purpose of caching. */
154 horz, /* Single horizontal. */
155 dbl_horz, /* Double horizontal. */
156 spl_horz, /* Special horizontal. */
157 vert, /* Single vertical. */
158 dbl_vert, /* Double vertical. */
159 spl_vert, /* Special vertical. */
166 int ind; /* Independent var. Don't reorder. */
167 int mdep; /* Maximum number of dependent var pairs. */
168 int ndep; /* Current number of dependent var pairs. */
169 int dep[1][2]; /* Dependent var pairs. */
172 /* Contents of ps_driver_ext.loaded. */
175 char *dit; /* Font Groff name. */
176 struct font_desc *font; /* Font descriptor. */
179 /* Combines a font with a font size for benefit of generated code. */
182 struct font_entry *font; /* Font. */
183 int size; /* Font size. */
184 int index; /* PostScript index. */
187 /* A font encoding. */
190 char *filename; /* Normalized filename of this encoding. */
191 int index; /* Index value. */
194 /* PostScript output driver extension record. */
197 /* User parameters. */
198 int orientation; /* OTN_PORTRAIT or OTN_LANDSCAPE. */
199 int output_options; /* OPO_*. */
200 int data; /* ODA_*. */
202 int left_margin; /* Left margin in psus. */
203 int right_margin; /* Right margin in psus. */
204 int top_margin; /* Top margin in psus. */
205 int bottom_margin; /* Bottom margin in psus. */
207 char eol[3]; /* End of line--CR, LF, or CRLF. */
209 char *font_dir; /* Font directory relative to font path. */
210 char *prologue_fn; /* Prologue's filename relative to font dir. */
211 char *desc_fn; /* DESC filename relative to font dir. */
212 char *encoding_fn; /* Encoding's filename relative to font dir. */
214 char *prop_family; /* Default proportional font family. */
215 char *fixed_family; /* Default fixed-pitch font family. */
216 int font_size; /* Default font size (psus). */
218 int line_gutter; /* Space around lines. */
219 int line_space; /* Space between lines. */
220 int line_width; /* Width of lines. */
221 int line_width_thick; /* Width of thick lines. */
223 int text_opt; /* Text optimization level. */
224 int line_opt; /* Line optimization level. */
225 int max_fonts; /* Max # of simultaneous fonts (0=infinite). */
227 /* Internal state. */
228 struct file_ext file; /* Output file. */
229 int page_number; /* Current page number. */
230 int file_page_number; /* Page number in this file. */
231 int w, l; /* Paper size. */
232 struct hsh_table *lines[n_line_types]; /* Line buffers. */
234 struct font_entry *prop; /* Default Roman proportional font. */
235 struct font_entry *fixed; /* Default Roman fixed-pitch font. */
236 struct hsh_table *loaded; /* Fonts in memory. */
238 struct hsh_table *combos; /* Combinations of fonts with font sizes. */
239 struct ps_font_combo *last_font; /* PostScript selected font. */
240 int next_combo; /* Next font combo position index. */
242 struct hsh_table *encodings;/* Set of encodings. */
243 int next_encoding; /* Next font encoding index. */
245 /* Currently selected font. */
246 struct font_entry *current; /* Current font. */
247 char *family; /* Font family. */
248 int size; /* Size in psus. */
252 /* Transform logical y-ordinate Y into a page ordinate. */
253 #define YT(Y) (this->length - (Y))
256 static int postopen (struct file_ext *);
257 static int preclose (struct file_ext *);
258 static void draw_headers (struct outp_driver *this);
260 static int compare_font_entry (const void *, const void *, void *param);
261 static unsigned hash_font_entry (const void *, void *param);
262 static void free_font_entry (void *, void *foo);
263 static struct font_entry *load_font (struct outp_driver *, const char *dit);
264 static void init_fonts (void);
265 static void done_fonts (void);
267 static void dump_lines (struct outp_driver *this);
269 static void read_ps_encodings (struct outp_driver *this);
270 static int compare_ps_encoding (const void *pa, const void *pb, void *foo);
271 static unsigned hash_ps_encoding (const void *pa, void *foo);
272 static void free_ps_encoding (void *a, void *foo);
273 static void add_encoding (struct outp_driver *this, char *filename);
274 static struct ps_encoding *default_encoding (struct outp_driver *this);
276 static int compare_ps_combo (const void *pa, const void *pb, void *foo);
277 static unsigned hash_ps_combo (const void *pa, void *foo);
278 static void free_ps_combo (void *a, void *foo);
280 static char *quote_ps_name (char *dest, const char *string);
281 static char *quote_ps_string (char *dest, const char *string);
283 /* Driver initialization. */
286 ps_open_global (struct outp_class *this UNUSED)
294 ps_close_global (struct outp_class *this UNUSED)
302 ps_font_sizes (struct outp_class *this UNUSED, int *n_valid_sizes)
304 /* Allow fonts up to 1" in height. */
305 static int valid_sizes[] =
308 assert (n_valid_sizes != NULL);
314 ps_preopen_driver (struct outp_driver *this)
316 struct ps_driver_ext *x;
320 assert (this->driver_open == 0);
321 msg (VM (1), _("PostScript driver initializing as `%s'..."), this->name);
323 this->ext = x = xmalloc (sizeof *x);
325 this->horiz = this->vert = 1;
326 this->width = this->length = 0;
328 x->orientation = OTN_PORTRAIT;
329 x->output_options = OPO_COLOR | OPO_HEADERS | OPO_AUTO_ENCODE;
330 x->data = ODA_CLEAN7BIT;
332 x->left_margin = x->right_margin =
333 x->top_margin = x->bottom_margin = PSUS / 2;
335 strcpy (x->eol, "\n");
338 x->prologue_fn = NULL;
340 x->encoding_fn = NULL;
342 x->prop_family = NULL;
343 x->fixed_family = NULL;
344 x->font_size = PSUS * 10 / 72;
346 x->line_gutter = PSUS / 144;
347 x->line_space = PSUS / 144;
348 x->line_width = PSUS / 144;
349 x->line_width_thick = PSUS / 48;
355 x->file.filename = NULL;
358 x->file.sequence_no = &x->page_number;
359 x->file.param = this;
360 x->file.postopen = postopen;
361 x->file.preclose = preclose;
365 x->file_page_number = 0;
366 for (i = 0; i < n_line_types; i++)
377 x->encodings = hsh_create (31, compare_ps_encoding, hash_ps_encoding,
378 free_ps_encoding, NULL);
379 x->next_encoding = 0;
389 ps_postopen_driver (struct outp_driver *this)
391 struct ps_driver_ext *x = this->ext;
393 assert (this->driver_open == 0);
395 if (this->width == 0)
397 this->width = PSUS * 17 / 2; /* Defaults to 8.5"x11". */
398 this->length = PSUS * 11;
401 if (x->text_opt == -1)
402 x->text_opt = (this->device & OUTP_DEV_SCREEN) ? 0 : 1;
403 if (x->line_opt == -1)
404 x->line_opt = (this->device & OUTP_DEV_SCREEN) ? 0 : 1;
408 if (x->orientation == OTN_LANDSCAPE)
410 int temp = this->width;
411 this->width = this->length;
414 this->width -= x->left_margin + x->right_margin;
415 this->length -= x->top_margin + x->bottom_margin;
416 if (x->output_options & OPO_HEADERS)
418 this->length -= 3 * x->font_size;
419 x->top_margin += 3 * x->font_size;
421 if (NULL == x->file.filename)
422 x->file.filename = xstrdup ("pspp.ps");
424 if (x->font_dir == NULL)
425 x->font_dir = xstrdup ("devps");
426 if (x->prologue_fn == NULL)
427 x->prologue_fn = xstrdup ("ps-prologue");
428 if (x->desc_fn == NULL)
429 x->desc_fn = xstrdup ("DESC");
430 if (x->encoding_fn == NULL)
431 x->encoding_fn = xstrdup ("ps-encodings");
433 if (x->prop_family == NULL)
434 x->prop_family = xstrdup ("H");
435 if (x->fixed_family == NULL)
436 x->fixed_family = xstrdup ("C");
438 read_ps_encodings (this);
443 if (this->length / x->font_size < 15)
445 msg (SE, _("PostScript driver: The defined page is not long "
446 "enough to hold margins and headers, plus least 15 "
447 "lines of the default fonts. In fact, there's only "
448 "room for %d lines of each font at the default size "
449 "of %d.%03d points."),
450 this->length / x->font_size,
451 x->font_size / 1000, x->font_size % 1000);
455 this->driver_open = 1;
456 msg (VM (2), _("%s: Initialization complete."), this->name);
462 ps_close_driver (struct outp_driver *this)
464 struct ps_driver_ext *x = this->ext;
468 assert (this->driver_open == 1);
469 msg (VM (2), _("%s: Beginning closing..."), this->name);
471 fn_close_ext (&x->file);
472 free (x->file.filename);
474 free (x->prologue_fn);
476 free (x->encoding_fn);
477 free (x->prop_family);
478 free (x->fixed_family);
480 for (i = 0; i < n_line_types; i++)
481 hsh_destroy (x->lines[i]);
482 hsh_destroy (x->encodings);
483 hsh_destroy (x->combos);
484 hsh_destroy (x->loaded);
487 this->driver_open = 0;
488 msg (VM (3), _("%s: Finished closing."), this->name);
493 /* font_entry comparison function for hash tables. */
495 compare_font_entry (const void *a, const void *b, void *foobar UNUSED)
497 return strcmp (((struct font_entry *) a)->dit, ((struct font_entry *) b)->dit);
500 /* font_entry hash function for hash tables. */
502 hash_font_entry (const void *fe_, void *foobar UNUSED)
504 const struct font_entry *fe = fe_;
505 return hsh_hash_string (fe->dit);
508 /* font_entry destructor function for hash tables. */
510 free_font_entry (void *pa, void *foo UNUSED)
512 struct font_entry *a = pa;
517 /* Generic option types. */
527 /* All the options that the PostScript driver supports. */
528 static struct outp_option option_tab[] =
531 {"output-file", 1, 0},
532 {"paper-size", 2, 0},
533 {"orientation", 3, 0},
534 {"color", boolean_arg, 0},
536 {"auto-encode", boolean_arg, 5},
537 {"headers", boolean_arg, 1},
538 {"left-margin", pos_int_arg, 0},
539 {"right-margin", pos_int_arg, 1},
540 {"top-margin", pos_int_arg, 2},
541 {"bottom-margin", pos_int_arg, 3},
542 {"font-dir", string_arg, 0},
543 {"prologue-file", string_arg, 1},
544 {"device-file", string_arg, 2},
545 {"encoding-file", string_arg, 3},
546 {"prop-font-family", string_arg, 5},
547 {"fixed-font-family", string_arg, 6},
548 {"font-size", pos_int_arg, 4},
549 {"optimize-text-size", nonneg_int_arg, 0},
550 {"optimize-line-size", nonneg_int_arg, 1},
551 {"max-fonts-simult", nonneg_int_arg, 2},
553 {"line-style", 7, 0},
554 {"line-width", dimension_arg, 2},
555 {"line-gutter", dimension_arg, 3},
556 {"line-width", dimension_arg, 4},
557 {"line-width-thick", dimension_arg, 5},
561 static struct outp_option_info option_info;
564 ps_option (struct outp_driver *this, const char *key, const struct string *val)
566 struct ps_driver_ext *x = this->ext;
568 char *value = ds_c_str (val);
570 cat = outp_match_keyword (key, option_tab, &option_info, &subcat);
575 msg (SE, _("Unknown configuration parameter `%s' for PostScript device "
579 free (x->file.filename);
580 x->file.filename = xstrdup (value);
583 outp_get_paper_size (value, &this->width, &this->length);
586 if (!strcmp (value, "portrait"))
587 x->orientation = OTN_PORTRAIT;
588 else if (!strcmp (value, "landscape"))
589 x->orientation = OTN_LANDSCAPE;
591 msg (SE, _("Unknown orientation `%s'. Valid orientations are "
592 "`portrait' and `landscape'."), value);
595 if (!strcmp (value, "clean7bit") || !strcmp (value, "Clean7Bit"))
596 x->data = ODA_CLEAN7BIT;
597 else if (!strcmp (value, "clean8bit")
598 || !strcmp (value, "Clean8Bit"))
599 x->data = ODA_CLEAN8BIT;
600 else if (!strcmp (value, "binary") || !strcmp (value, "Binary"))
601 x->data = ODA_BINARY;
603 msg (SE, _("Unknown value for `data'. Valid values are `clean7bit', "
604 "`clean8bit', and `binary'."));
607 if (!strcmp (value, "lf"))
608 strcpy (x->eol, "\n");
609 else if (!strcmp (value, "crlf"))
610 strcpy (x->eol, "\r\n");
612 msg (SE, _("Unknown value for `line-ends'. Valid values are `lf' and "
616 if (!strcmp (value, "thick"))
617 x->output_options &= ~OPO_DOUBLE_LINE;
618 else if (!strcmp (value, "double"))
619 x->output_options |= OPO_DOUBLE_LINE;
621 msg (SE, _("Unknown value for `line-style'. Valid values are `thick' "
629 if (!strcmp (value, "on") || !strcmp (value, "true")
630 || !strcmp (value, "yes") || atoi (value))
632 else if (!strcmp (value, "off") || !strcmp (value, "false")
633 || !strcmp (value, "no") || !strcmp (value, "0"))
637 msg (SE, _("Boolean value expected for %s."), key);
649 mask = OPO_MIRROR_HORZ;
652 mask = OPO_MIRROR_VERT;
655 mask = OPO_ROTATE_180;
658 mask = OPO_AUTO_ENCODE;
665 x->output_options |= mask;
667 x->output_options &= ~mask;
676 arg = strtol (value, &tail, 0);
677 if (arg < 1 || errno == ERANGE || *tail)
679 msg (SE, _("Positive integer required as value for `%s'."), key);
682 if ((subcat == 4 || subcat == 5) && arg < 1000)
684 msg (SE, _("Default font size must be at least 1 point (value "
685 "of 1000 for key `%s')."), key);
691 x->left_margin = arg;
694 x->right_margin = arg;
700 x->bottom_margin = arg;
712 int dimension = outp_evaluate_dimension (value, NULL);
716 msg (SE, _("Value for `%s' must be a dimension of positive "
717 "length (i.e., `1in')."), key);
723 x->line_width = dimension;
726 x->line_gutter = dimension;
729 x->line_width = dimension;
732 x->line_width_thick = dimension;
748 dest = &x->prologue_fn;
754 dest = &x->encoding_fn;
757 dest = &x->prop_family;
760 dest = &x->fixed_family;
768 *dest = xstrdup (value);
777 arg = strtol (value, &tail, 0);
778 if (arg < 0 || errno == ERANGE || *tail)
780 msg (SE, _("Nonnegative integer required as value for `%s'."), key);
804 /* Looks for a PostScript font file or config file in all the
805 appropriate places. Returns the filename on success, NULL on
807 /* PORTME: Filename operations. */
809 find_ps_file (struct outp_driver *this, const char *name)
811 struct ps_driver_ext *x = this->ext;
814 /* x->font_dir + name: "devps/ps-encodings". */
817 /* Usually equal to groff_font_path. */
820 /* Final filename. */
824 basename = local_alloc (strlen (x->font_dir) + 1 + strlen (name) + 1);
825 cp = stpcpy (basename, x->font_dir);
826 *cp++ = DIR_SEPARATOR;
829 /* Decide on search path. */
831 const char *pre_pathname;
833 pre_pathname = getenv ("STAT_GROFF_FONT_PATH");
834 if (pre_pathname == NULL)
835 pre_pathname = getenv ("GROFF_FONT_PATH");
836 if (pre_pathname == NULL)
837 pre_pathname = groff_font_path;
838 pathname = fn_tilde_expand (pre_pathname);
841 /* Search all possible places for the file. */
842 fn = fn_search_path (basename, pathname, NULL);
844 fn = fn_search_path (basename, config_path, NULL);
846 fn = fn_search_path (name, pathname, NULL);
848 fn = fn_search_path (name, config_path, NULL);
850 local_free (basename);
857 /* Hash table comparison function for ps_encoding's. */
859 compare_ps_encoding (const void *pa, const void *pb, void *foo UNUSED)
861 const struct ps_encoding *a = pa;
862 const struct ps_encoding *b = pb;
864 return strcmp (a->filename, b->filename);
867 /* Hash table hash function for ps_encoding's. */
869 hash_ps_encoding (const void *pa, void *foo UNUSED)
871 const struct ps_encoding *a = pa;
873 return hsh_hash_string (a->filename);
876 /* Hash table free function for ps_encoding's. */
878 free_ps_encoding (void *pa, void *foo UNUSED)
880 struct ps_encoding *a = pa;
886 /* Iterates through the list of encodings used for this driver
887 instance, reads each of them from disk, and writes them as
888 PostScript code to the output file. */
890 output_encodings (struct outp_driver *this)
892 struct ps_driver_ext *x = this->ext;
894 struct hsh_iterator iter;
895 struct ps_encoding *pe;
897 struct string line, buf;
899 ds_init (&line, 128);
901 for (pe = hsh_first (x->encodings, &iter); pe != NULL;
902 pe = hsh_next (x->encodings, &iter))
906 msg (VM (1), _("%s: %s: Opening PostScript font encoding..."),
907 this->name, pe->filename);
909 f = fopen (pe->filename, "r");
912 msg (IE, _("PostScript driver: Cannot open encoding file `%s': %s. "
913 "Substituting ISOLatin1Encoding for missing encoding."),
914 pe->filename, strerror (errno));
915 fprintf (x->file.file, "/E%x ISOLatin1Encoding def%s",
920 struct file_locator where;
922 const char *tab[256];
929 const char *notdef = ".notdef";
933 for (i = 0; i < 256; i++)
936 where.filename = pe->filename;
937 where.line_number = 0;
938 err_push_file_locator (&where);
940 while (ds_get_config_line (f, &buf, &where))
947 pschar = strtok_r (ds_c_str (&buf), " \t\r\n", &sp);
948 code = strtok_r (NULL, " \t\r\n", &sp);
949 if (*pschar == 0 || *code == 0)
951 code_val = strtol (code, &fubar, 0);
954 msg (IS, _("PostScript driver: Invalid numeric format."));
957 if (code_val < 0 || code_val > 255)
959 msg (IS, _("PostScript driver: Codes must be between 0 "
960 "and 255. (%d is not allowed.)"), code_val);
963 tab[code_val] = local_alloc (strlen (pschar) + 1);
964 strcpy ((char *) (tab[code_val]), pschar);
966 err_pop_file_locator (&where);
969 ds_printf (&line, "/E%x[", pe->index);
970 for (i = 0; i < 257; i++)
976 quote_ps_name (temp, tab[i]);
977 if (tab[i] != notdef)
981 strcpy (temp, "]def");
983 if (ds_length (&line) + strlen (temp) > 70)
985 ds_puts (&line, x->eol);
986 fputs (ds_c_str (&line), x->file.file);
989 ds_puts (&line, temp);
991 ds_puts (&line, x->eol);
992 fputs (ds_c_str (&line), x->file.file);
994 if (fclose (f) == EOF)
995 msg (MW, _("PostScript driver: Error closing encoding file `%s'."),
998 msg (VM (2), _("%s: PostScript font encoding read successfully."),
1006 /* Finds the ps_encoding in THIS that corresponds to the file with
1007 name NORM_FILENAME, which must have previously been normalized with
1008 normalize_filename(). */
1009 static struct ps_encoding *
1010 get_encoding (struct outp_driver *this, const char *norm_filename)
1012 struct ps_driver_ext *x = this->ext;
1013 struct ps_encoding *pe;
1015 pe = (struct ps_encoding *) hsh_find (x->encodings, (void *) &norm_filename);
1019 /* Searches the filesystem for an encoding file with name FILENAME;
1020 returns its malloc'd, normalized name if found, otherwise NULL. */
1022 find_encoding_file (struct outp_driver *this, char *filename)
1026 if (filename == NULL)
1028 while (isspace ((unsigned char) *filename))
1030 for (cp = filename; *cp && !isspace ((unsigned char) *cp); cp++)
1036 temp = find_ps_file (this, filename);
1040 filename = fn_normalize (temp);
1041 assert (filename != NULL);
1047 /* Adds the encoding represented by the not-necessarily-normalized
1048 file FILENAME to the list of encodings, if it exists and is not
1049 already in the list. */
1051 add_encoding (struct outp_driver *this, char *filename)
1053 struct ps_driver_ext *x = this->ext;
1054 struct ps_encoding **pe;
1056 filename = find_encoding_file (this, filename);
1060 pe = (struct ps_encoding **) hsh_probe (x->encodings, &filename);
1066 *pe = xmalloc (sizeof **pe);
1067 (*pe)->filename = filename;
1068 (*pe)->index = x->next_encoding++;
1071 /* Finds the file on disk that contains the list of encodings to
1072 include in the output file, then adds those encodings to the list
1075 read_ps_encodings (struct outp_driver *this)
1077 struct ps_driver_ext *x = this->ext;
1079 /* Encodings file. */
1080 char *encoding_fn; /* `ps-encodings' filename. */
1084 struct file_locator where;
1086 /* It's okay if there's no list of encodings; not everyone cares. */
1087 encoding_fn = find_ps_file (this, x->encoding_fn);
1088 if (encoding_fn == NULL)
1092 msg (VM (1), _("%s: %s: Opening PostScript encoding list file."),
1093 this->name, encoding_fn);
1094 f = fopen (encoding_fn, "r");
1097 msg (IE, _("Opening %s: %s."), encoding_fn, strerror (errno));
1101 where.filename = encoding_fn;
1102 where.line_number = 0;
1103 err_push_file_locator (&where);
1105 ds_init (&line, 128);
1109 if (!ds_get_config_line (f, &line, &where))
1112 msg (ME, _("Reading %s: %s."), encoding_fn, strerror (errno));
1116 add_encoding (this, line.string);
1120 err_pop_file_locator (&where);
1122 if (-1 == fclose (f))
1123 msg (MW, _("Closing %s: %s."), encoding_fn, strerror (errno));
1125 msg (VM (2), _("%s: PostScript encoding list file read successfully."), this->name);
1128 /* Creates a default encoding for driver D that can be substituted for
1129 an unavailable encoding. */
1130 struct ps_encoding *
1131 default_encoding (struct outp_driver *d)
1133 struct ps_driver_ext *x = d->ext;
1134 static struct ps_encoding *enc;
1138 enc = xmalloc (sizeof *enc);
1139 enc->filename = xstrdup (_("<<default encoding>>"));
1140 enc->index = x->next_encoding++;
1145 /* Basic file operations. */
1147 /* Variables for the prologue. */
1154 static struct ps_variable *ps_var_tab;
1156 /* Searches ps_var_tab for a ps_variable with key KEY, and returns the
1157 associated value. */
1159 ps_get_var (const char *key)
1161 struct ps_variable *v;
1163 for (v = ps_var_tab; v->key; v++)
1164 if (!strcmp (key, v->key))
1169 /* Writes the PostScript prologue to file F. */
1171 postopen (struct file_ext *f)
1173 static struct ps_variable dict[] =
1175 {"bounding-box", 0},
1184 {"scale-factor", 0},
1186 {"paper-length", 0},
1190 {"line-width-thick", 0},
1194 char boundbox[INT_STRLEN_BOUND (int) * 4 + 4];
1198 char scaling[INT_STRLEN_BOUND (int) + 5];
1202 char paper_width[INT_STRLEN_BOUND (int) + 1];
1203 char paper_length[INT_STRLEN_BOUND (int) + 1];
1204 char left_margin[INT_STRLEN_BOUND (int) + 1];
1205 char top_margin[INT_STRLEN_BOUND (int) + 1];
1206 char line_width[INT_STRLEN_BOUND (int) + 1];
1207 char line_width_thick[INT_STRLEN_BOUND (int) + 1];
1209 struct outp_driver *this = f->param;
1210 struct ps_driver_ext *x = this->ext;
1212 char *prologue_fn = find_ps_file (this, x->prologue_fn);
1213 FILE *prologue_file;
1216 size_t buf_size = 0;
1218 x->loaded = hsh_create (31, compare_font_entry, hash_font_entry,
1219 free_font_entry, NULL);
1222 char *font_name = local_alloc (2 + max (strlen (x->prop_family),
1223 strlen (x->fixed_family)));
1225 strcpy (stpcpy (font_name, x->prop_family), "R");
1226 x->prop = load_font (this, font_name);
1228 strcpy (stpcpy (font_name, x->fixed_family), "R");
1229 x->fixed = load_font (this, font_name);
1231 local_free(font_name);
1234 x->current = x->prop;
1235 x->family = xstrdup (x->prop_family);
1236 x->size = x->font_size;
1239 int *h = this->horiz_line_width, *v = this->vert_line_width;
1241 this->cp_x = this->cp_y = 0;
1242 this->font_height = x->font_size;
1244 struct char_metrics *metric;
1246 metric = font_get_char_metrics (x->prop->font, '0');
1247 this->prop_em_width = ((metric
1248 ? metric->width : x->prop->font->space_width)
1249 * x->font_size / 1000);
1251 metric = font_get_char_metrics (x->fixed->font, '0');
1252 this->fixed_width = ((metric
1253 ? metric->width : x->fixed->font->space_width)
1254 * x->font_size / 1000);
1258 h[1] = v[1] = 2 * x->line_gutter + x->line_width;
1259 if (x->output_options & OPO_DOUBLE_LINE)
1260 h[2] = v[2] = 2 * x->line_gutter + 2 * x->line_width + x->line_space;
1262 h[2] = v[2] = 2 * x->line_gutter + x->line_width_thick;
1263 h[3] = v[3] = 2 * x->line_gutter + x->line_width;
1268 for (i = 0; i < (1 << OUTP_L_COUNT); i++)
1272 /* Maximum width of any line type so far. */
1275 for (bit = 0; bit < OUTP_L_COUNT; bit++)
1276 if ((i & (1 << bit)) && h[bit] > max)
1278 this->horiz_line_spacing[i] = this->vert_line_spacing[i] = max;
1283 if (x->output_options & OPO_AUTO_ENCODE)
1285 /* It's okay if this is done more than once since add_encoding()
1286 is idempotent over identical encodings. */
1287 add_encoding (this, x->prop->font->encoding);
1288 add_encoding (this, x->fixed->font->encoding);
1291 x->file_page_number = 0;
1294 if (prologue_fn == NULL)
1296 msg (IE, _("Cannot find PostScript prologue. The use of `-vv' "
1297 "on the command line is suggested as a debugging aid."));
1301 msg (VM (1), _("%s: %s: Opening PostScript prologue..."),
1302 this->name, prologue_fn);
1303 prologue_file = fopen (prologue_fn, "rb");
1304 if (prologue_file == NULL)
1306 fclose (prologue_file);
1308 msg (IE, "%s: %s", prologue_fn, strerror (errno));
1312 sprintf (boundbox, "0 0 %d %d",
1313 x->w / (PSUS / 72) + (x->w % (PSUS / 72) > 0),
1314 x->l / (PSUS / 72) + (x->l % (PSUS / 72) > 0));
1315 dict[0].value = boundbox;
1317 dict[1].value = (char *) version;
1319 curtime = time (NULL);
1320 loctime = localtime (&curtime);
1321 dict[2].value = asctime (loctime);
1322 cp = strchr (dict[2].value, '\n');
1329 dict[3].value = "Clean7Bit";
1332 dict[3].value = "Clean8Bit";
1335 dict[3].value = "Binary";
1341 if (x->orientation == OTN_PORTRAIT)
1342 dict[4].value = "Portrait";
1344 dict[4].value = "Landscape";
1346 /* PORTME: Determine username, net address. */
1348 dict[5].value = getenv ("LOGNAME");
1350 dict[5].value = getlogin ();
1352 dict[5].value = _("nobody");
1354 if (gethostname (host, 128) == -1)
1356 if (errno == ENAMETOOLONG)
1359 strcpy (host, _("nowhere"));
1361 dict[6].value = host;
1362 #else /* !HAVE_UNISTD_H */
1363 dict[5].value = _("nobody");
1364 dict[6].value = _("nowhere");
1365 #endif /* !HAVE_UNISTD_H */
1367 cp = stpcpy (p = local_alloc (288), "font ");
1368 quote_ps_string (cp, x->prop->font->internal_name);
1371 cp = stpcpy (p = local_alloc (288), "font ");
1372 quote_ps_string (cp, x->fixed->font->internal_name);
1375 sprintf (scaling, "%.3f", PSUS / 72.0);
1376 dict[9].value = scaling;
1378 sprintf (paper_width, "%g", x->w / (PSUS / 72.0));
1379 dict[10].value = paper_width;
1381 sprintf (paper_length, "%g", x->l / (PSUS / 72.0));
1382 dict[11].value = paper_length;
1384 sprintf (left_margin, "%d", x->left_margin);
1385 dict[12].value = left_margin;
1387 sprintf (top_margin, "%d", x->top_margin);
1388 dict[13].value = top_margin;
1390 sprintf (line_width, "%d", x->line_width);
1391 dict[14].value = line_width;
1393 sprintf (line_width, "%d", x->line_width_thick);
1394 dict[15].value = line_width_thick;
1398 dict[16].value = cp = local_alloc (strlen (dict[17].value) + 30);
1399 sprintf (cp, "PSPP (%s)", dict[17].value);
1403 dict[16].value = local_alloc (strlen (outp_title) + 1);
1404 strcpy ((char *) (dict[16].value), outp_title);
1408 while (-1 != getline (&buf, &buf_size, prologue_file))
1414 cp = strstr (buf, "!eps");
1417 if (this->class->magic == MAGIC_PS)
1424 cp = strstr (buf, "!ps");
1427 if (this->class->magic == MAGIC_EPSF)
1432 if (strstr (buf, "!!!"))
1437 if (!strncmp (buf, "!encodings", 10))
1438 output_encodings (this);
1442 beg = buf2 = fn_interp_vars (buf, ps_get_var);
1443 len = strlen (buf2);
1444 while (isspace ((unsigned char) *beg))
1446 if (beg[len - 1] == '\n')
1448 if (beg[len - 1] == '\r')
1450 fwrite (beg, len, 1, f->file);
1451 fputs (x->eol, f->file);
1455 if (ferror (f->file))
1456 msg (IE, _("Reading `%s': %s."), prologue_fn, strerror (errno));
1457 fclose (prologue_file);
1462 local_free (dict[7].value);
1463 local_free (dict[8].value);
1464 local_free (dict[16].value);
1466 if (ferror (f->file))
1469 msg (VM (2), _("%s: PostScript prologue read successfully."), this->name);
1473 msg (VM (1), _("%s: Error reading PostScript prologue."), this->name);
1477 /* Writes the string STRING to buffer DEST (of at least 288
1478 characters) as a PostScript name object. Returns a pointer
1479 to the null terminator of the resultant string. */
1481 quote_ps_name (char *dest, const char *string)
1485 for (sp = string; *sp; sp++)
1559 for (sp = string; *sp && dp < &dest[256]; sp++)
1561 sprintf (dp, "%02x", (unsigned char) *sp);
1564 return stpcpy (dp, ">cvn");
1568 return stpcpy (&dest[1], string);
1571 /* Adds the string STRING to buffer DEST as a PostScript quoted
1572 string; returns a pointer to the null terminator added. Will not
1573 add more than 235 characters. */
1575 quote_ps_string (char *dest, const char *string)
1577 const char *sp = string;
1581 for (; *sp && dp < &dest[235]; sp++)
1583 dp = stpcpy (dp, "\\(");
1584 else if (*sp == ')')
1585 dp = stpcpy (dp, "\\)");
1586 else if (*sp < 32 || (unsigned char) *sp > 127)
1587 dp = spprintf (dp, "\\%3o", *sp);
1590 return stpcpy (dp, ")");
1593 /* Writes the PostScript epilogue to file F. */
1595 preclose (struct file_ext *f)
1597 struct outp_driver *this = f->param;
1598 struct ps_driver_ext *x = this->ext;
1599 struct hsh_iterator iter;
1600 struct font_entry *fe;
1605 "%%%%DocumentNeededResources:%s"),
1606 x->eol, x->file_page_number, x->eol, x->eol);
1608 for (fe = hsh_first (x->loaded, &iter); fe != NULL;
1609 fe = hsh_next (x->loaded, &iter))
1613 cp = stpcpy (buf, "%%+ font ");
1614 cp = quote_ps_string (cp, fe->font->internal_name);
1615 strcpy (cp, x->eol);
1616 fputs (buf, f->file);
1619 hsh_destroy (x->loaded);
1621 hsh_destroy (x->combos);
1623 x->last_font = NULL;
1626 fprintf (f->file, "%%EOF%s", x->eol);
1627 if (ferror (f->file))
1633 ps_open_page (struct outp_driver *this)
1635 struct ps_driver_ext *x = this->ext;
1637 assert (this->driver_open && !this->page_open);
1640 if (!fn_open_ext (&x->file))
1643 msg (ME, _("PostScript output driver: %s: %s"), x->file.filename,
1647 x->file_page_number++;
1649 hsh_destroy (x->combos);
1650 x->combos = hsh_create (31, compare_ps_combo, hash_ps_combo,
1651 free_ps_combo, NULL);
1652 x->last_font = NULL;
1655 fprintf (x->file.file,
1657 "%%%%BeginPageSetup%s"
1658 "/pg save def 0.001 dup scale%s",
1659 x->page_number, x->file_page_number, x->eol,
1663 if (x->orientation == OTN_LANDSCAPE)
1664 fprintf (x->file.file,
1665 "%d 0 translate 90 rotate%s",
1668 if (x->bottom_margin != 0 || x->left_margin != 0)
1669 fprintf (x->file.file,
1670 "%d %d translate%s",
1671 x->left_margin, x->bottom_margin, x->eol);
1673 fprintf (x->file.file,
1674 "/LW %d def/TW %d def %d setlinewidth%s"
1675 "%%%%EndPageSetup%s",
1676 x->line_width, x->line_width_thick, x->line_width, x->eol,
1679 if (!ferror (x->file.file))
1681 this->page_open = 1;
1682 if (x->output_options & OPO_HEADERS)
1683 draw_headers (this);
1688 return !ferror (x->file.file);
1692 ps_close_page (struct outp_driver *this)
1694 struct ps_driver_ext *x = this->ext;
1696 assert (this->driver_open && this->page_open);
1701 fprintf (x->file.file,
1706 this->page_open = 0;
1707 return !ferror (x->file.file);
1711 ps_submit (struct outp_driver *this UNUSED, struct som_entity *s)
1725 /* qsort() comparison function for int tuples. */
1727 int_2_compare (const void *a_, const void *b_)
1732 return *a < *b ? -1 : *a > *b;
1735 /* Hash table comparison function for cached lines. */
1737 compare_line (const void *a_, const void *b_, void *foo UNUSED)
1739 const struct line_form *a = a_;
1740 const struct line_form *b = b_;
1742 return a->ind < b->ind ? -1 : a->ind > b->ind;
1745 /* Hash table hash function for cached lines. */
1747 hash_line (const void *pa, void *foo UNUSED)
1749 const struct line_form *a = pa;
1754 /* Hash table free function for cached lines. */
1756 free_line (void *pa, void *foo UNUSED)
1761 /* Writes PostScript code to draw a line from (x1,y1) to (x2,y2) to
1763 #define dump_line(x1, y1, x2, y2) \
1764 fprintf (ext->file.file, "%d %d %d %d L%s", \
1765 x1, YT (y1), x2, YT (y2), ext->eol)
1767 /* Write PostScript code to draw a thick line from (x1,y1) to (x2,y2)
1768 to the output file. */
1769 #define dump_thick_line(x1, y1, x2, y2) \
1770 fprintf (ext->file.file, "%d %d %d %d TL%s", \
1771 x1, YT (y1), x2, YT (y2), ext->eol)
1773 /* Writes a line of type TYPE to THIS driver's output file. The line
1774 (or its center, in the case of double lines) has its independent
1775 axis coordinate at IND; it extends from DEP1 to DEP2 on the
1778 dump_fancy_line (struct outp_driver *this, int type, int ind, int dep1, int dep2)
1780 struct ps_driver_ext *ext = this->ext;
1781 int ofs = ext->line_space / 2 + ext->line_width / 2;
1786 dump_line (dep1, ind, dep2, ind);
1789 if (ext->output_options & OPO_DOUBLE_LINE)
1791 dump_line (dep1, ind - ofs, dep2, ind - ofs);
1792 dump_line (dep1, ind + ofs, dep2, ind + ofs);
1795 dump_thick_line (dep1, ind, dep2, ind);
1800 dump_line (ind, dep1, ind, dep2);
1803 if (ext->output_options & OPO_DOUBLE_LINE)
1805 dump_line (ind - ofs, dep1, ind - ofs, dep2);
1806 dump_line (ind + ofs, dep1, ind + ofs, dep2);
1809 dump_thick_line (ind, dep1, ind, dep2);
1820 /* Writes all the cached lines to the output file, then clears the
1823 dump_lines (struct outp_driver *this)
1825 struct ps_driver_ext *x = this->ext;
1827 struct hsh_iterator iter;
1830 for (type = 0; type < n_line_types; type++)
1832 struct line_form *line;
1834 if (x->lines[type] == NULL)
1837 for (line = hsh_first (x->lines[type], &iter); line != NULL;
1838 line = hsh_next (x->lines[type], &iter))
1841 int lo = INT_MIN, hi;
1843 qsort (line->dep, line->ndep, sizeof *line->dep, int_2_compare);
1844 lo = line->dep[0][0];
1845 hi = line->dep[0][1];
1846 for (i = 1; i < line->ndep; i++)
1847 if (line->dep[i][0] <= hi + 1)
1849 int min_hi = line->dep[i][1];
1855 dump_fancy_line (this, type, line->ind, lo, hi);
1856 lo = line->dep[i][0];
1857 hi = line->dep[i][1];
1859 dump_fancy_line (this, type, line->ind, lo, hi);
1862 hsh_destroy (x->lines[type]);
1863 x->lines[type] = NULL;
1867 /* (Same args as dump_fancy_line()). Either dumps the line directly
1868 to the output file, or adds it to the cache, depending on the
1869 user-selected line optimization mode. */
1871 line (struct outp_driver *this, int type, int ind, int dep1, int dep2)
1873 struct ps_driver_ext *ext = this->ext;
1874 struct line_form **f;
1876 assert (dep2 >= dep1);
1877 if (ext->line_opt == 0)
1879 dump_fancy_line (this, type, ind, dep1, dep2);
1883 if (ext->lines[type] == NULL)
1884 ext->lines[type] = hsh_create (31, compare_line, hash_line,
1886 f = (struct line_form **) hsh_probe (ext->lines[type], &ind);
1889 *f = xmalloc (sizeof **f + sizeof (int[15][2]));
1893 (*f)->dep[0][0] = dep1;
1894 (*f)->dep[0][1] = dep2;
1897 if ((*f)->ndep >= (*f)->mdep)
1900 *f = xrealloc (*f, sizeof **f + sizeof (int[2]) * ((*f)->mdep - 1));
1902 (*f)->dep[(*f)->ndep][0] = dep1;
1903 (*f)->dep[(*f)->ndep][1] = dep2;
1908 ps_line_horz (struct outp_driver *this, const struct rect *r,
1909 const struct color *c UNUSED, int style)
1911 /* Must match output.h:OUTP_L_*. */
1912 static const int types[OUTP_L_COUNT] =
1913 {-1, horz, dbl_horz, spl_horz};
1915 int y = (r->y1 + r->y2) / 2;
1917 assert (this->driver_open && this->page_open);
1918 assert (style >= 0 && style < OUTP_L_COUNT);
1919 style = types[style];
1921 line (this, style, y, r->x1, r->x2);
1925 ps_line_vert (struct outp_driver *this, const struct rect *r,
1926 const struct color *c UNUSED, int style)
1928 /* Must match output.h:OUTP_L_*. */
1929 static const int types[OUTP_L_COUNT] =
1930 {-1, vert, dbl_vert, spl_vert};
1932 int x = (r->x1 + r->x2) / 2;
1934 assert (this->driver_open && this->page_open);
1935 assert (style >= 0 && style < OUTP_L_COUNT);
1936 style = types[style];
1938 line (this, style, x, r->y1, r->y2);
1941 #define L (style->l != OUTP_L_NONE)
1942 #define R (style->r != OUTP_L_NONE)
1943 #define T (style->t != OUTP_L_NONE)
1944 #define B (style->b != OUTP_L_NONE)
1947 ps_line_intersection (struct outp_driver *this, const struct rect *r,
1948 const struct color *c UNUSED,
1949 const struct outp_styles *style)
1951 struct ps_driver_ext *ext = this->ext;
1953 int x = (r->x1 + r->x2) / 2;
1954 int y = (r->y1 + r->y2) / 2;
1955 int ofs = (ext->line_space + ext->line_width) / 2;
1956 int x1 = x - ofs, x2 = x + ofs;
1957 int y1 = y - ofs, y2 = y + ofs;
1959 assert (this->driver_open && this->page_open);
1960 assert (!((style->l != style->r && style->l != OUTP_L_NONE
1961 && style->r != OUTP_L_NONE)
1962 || (style->t != style->b && style->t != OUTP_L_NONE
1963 && style->b != OUTP_L_NONE)));
1965 switch ((style->l | style->r) | ((style->t | style->b) << 8))
1967 case (OUTP_L_SINGLE) | (OUTP_L_SINGLE << 8):
1968 case (OUTP_L_SINGLE) | (OUTP_L_NONE << 8):
1969 case (OUTP_L_NONE) | (OUTP_L_SINGLE << 8):
1971 line (this, horz, y, r->x1, x);
1973 line (this, horz, y, x, r->x2);
1975 line (this, vert, x, r->y1, y);
1977 line (this, vert, x, y, r->y2);
1979 case (OUTP_L_SINGLE) | (OUTP_L_DOUBLE << 8):
1980 case (OUTP_L_NONE) | (OUTP_L_DOUBLE << 8):
1982 line (this, horz, y, r->x1, x1);
1984 line (this, horz, y, x2, r->x2);
1986 line (this, dbl_vert, x, r->y1, y);
1988 line (this, dbl_vert, x, y, r->y2);
1989 if ((L && R) && !(T && B))
1990 line (this, horz, y, x1, x2);
1992 case (OUTP_L_DOUBLE) | (OUTP_L_SINGLE << 8):
1993 case (OUTP_L_DOUBLE) | (OUTP_L_NONE << 8):
1995 line (this, dbl_horz, y, r->x1, x);
1997 line (this, dbl_horz, y, x, r->x2);
1999 line (this, vert, x, r->y1, y);
2001 line (this, vert, x, y, r->y2);
2002 if ((T && B) && !(L && R))
2003 line (this, vert, x, y1, y2);
2005 case (OUTP_L_DOUBLE) | (OUTP_L_DOUBLE << 8):
2007 line (this, dbl_horz, y, r->x1, x);
2009 line (this, dbl_horz, y, x, r->x2);
2011 line (this, dbl_vert, x, r->y1, y);
2013 line (this, dbl_vert, x, y, r->y2);
2015 line (this, vert, x1, y1, y2);
2017 line (this, vert, x2, y1, y2);
2019 line (this, horz, y1, x1, x2);
2021 line (this, horz, y2, x1, x2);
2029 ps_box (struct outp_driver *this UNUSED, const struct rect *r UNUSED,
2030 const struct color *bord UNUSED, const struct color *fill UNUSED)
2032 assert (this->driver_open && this->page_open);
2036 ps_polyline_begin (struct outp_driver *this UNUSED,
2037 const struct color *c UNUSED)
2039 assert (this->driver_open && this->page_open);
2042 ps_polyline_point (struct outp_driver *this UNUSED, int x UNUSED, int y UNUSED)
2044 assert (this->driver_open && this->page_open);
2047 ps_polyline_end (struct outp_driver *this UNUSED)
2049 assert (this->driver_open && this->page_open);
2052 /* Returns the width of string S for THIS driver. */
2054 text_width (struct outp_driver *this, char *s)
2056 struct outp_text text;
2058 text.options = OUTP_T_JUST_LEFT;
2059 ls_init (&text.s, s, strlen (s));
2060 this->class->text_metrics (this, &text);
2064 /* Write string S at location (X,Y) with width W for THIS driver. */
2066 out_text_plain (struct outp_driver *this, char *s, int x, int y, int w)
2068 struct outp_text text;
2070 text.options = OUTP_T_JUST_LEFT | OUTP_T_HORZ | OUTP_T_VERT;
2071 ls_init (&text.s, s, strlen (s));
2073 text.v = this->font_height;
2076 this->class->text_draw (this, &text);
2079 /* Draw top of page headers for THIS driver. */
2081 draw_headers (struct outp_driver *this)
2083 struct ps_driver_ext *ext = this->ext;
2085 struct font_entry *old_current = ext->current;
2086 char *old_family = xstrdup (ext->family); /* FIXME */
2087 int old_size = ext->size;
2089 int fh = this->font_height;
2092 fprintf (ext->file.file, "%d %d %d %d GB%s",
2093 0, YT (y), this->width, YT (y + 2 * fh + ext->line_gutter),
2095 this->class->text_set_font_family (this, "T");
2097 y += ext->line_width + ext->line_gutter;
2103 sprintf (buf, _("%s - Page %d"), get_start_date (), ext->page_number);
2104 rh_width = text_width (this, buf);
2106 out_text_plain (this, buf, this->width - this->prop_em_width - rh_width,
2109 if (outp_title && outp_subtitle)
2110 out_text_plain (this, outp_title, this->prop_em_width, y,
2111 this->width - 3 * this->prop_em_width - rh_width);
2119 char *string = outp_subtitle ? outp_subtitle : outp_title;
2121 sprintf (buf, "%s - %s", version, host_system);
2122 rh_width = text_width (this, buf);
2124 out_text_plain (this, buf, this->width - this->prop_em_width - rh_width,
2128 out_text_plain (this, string, this->prop_em_width, y,
2129 this->width - 3 * this->prop_em_width - rh_width);
2134 ext->current = old_current;
2136 ext->family = old_family;
2137 ext->size = old_size;
2144 ps_text_set_font_by_name (struct outp_driver *this, const char *dit)
2146 struct ps_driver_ext *x = this->ext;
2147 struct font_entry *fe;
2149 assert (this->driver_open && this->page_open);
2151 /* Short-circuit common fonts. */
2152 if (!strcmp (dit, "PROP"))
2154 x->current = x->prop;
2155 x->size = x->font_size;
2158 else if (!strcmp (dit, "FIXED"))
2160 x->current = x->fixed;
2161 x->size = x->font_size;
2165 /* Find font_desc corresponding to Groff name dit. */
2166 fe = hsh_find (x->loaded, &dit);
2168 fe = load_font (this, dit);
2173 ps_text_set_font_by_position (struct outp_driver *this, int pos)
2175 struct ps_driver_ext *x = this->ext;
2178 assert (this->driver_open && this->page_open);
2180 /* Determine font name by suffixing position string to font family
2185 dit = local_alloc (strlen (x->family) + 3);
2186 cp = stpcpy (dit, x->family);
2208 /* Find font_desc corresponding to Groff name dit. */
2210 struct font_entry *fe = hsh_find (x->loaded, &dit);
2212 fe = load_font (this, dit);
2220 ps_text_set_font_family (struct outp_driver *this, const char *s)
2222 struct ps_driver_ext *x = this->ext;
2224 assert (this->driver_open && this->page_open);
2227 x->family = xstrdup (s);
2231 ps_text_get_font_name (struct outp_driver *this)
2233 struct ps_driver_ext *x = this->ext;
2235 assert (this->driver_open && this->page_open);
2236 return x->current->font->name;
2240 ps_text_get_font_family (struct outp_driver *this)
2242 struct ps_driver_ext *x = this->ext;
2244 assert (this->driver_open && this->page_open);
2249 ps_text_set_size (struct outp_driver *this, int size)
2251 struct ps_driver_ext *x = this->ext;
2253 assert (this->driver_open && this->page_open);
2254 x->size = PSUS / 72000 * size;
2259 ps_text_get_size (struct outp_driver *this, int *em_width)
2261 struct ps_driver_ext *x = this->ext;
2263 assert (this->driver_open && this->page_open);
2265 *em_width = (x->current->font->space_width * x->size) / 1000;
2266 return x->size / (PSUS / 72000);
2269 /* An output character. */
2272 struct font_entry *font; /* Font of character. */
2273 int size; /* Size of character. */
2274 int x, y; /* Location of character. */
2275 unsigned char ch; /* Character. */
2276 char separate; /* Must be separate from previous char. */
2279 /* Hash table comparison function for ps_combo structs. */
2281 compare_ps_combo (const void *pa, const void *pb, void *foo UNUSED)
2283 const struct ps_font_combo *a = pa;
2284 const struct ps_font_combo *b = pb;
2286 return !((a->font == b->font) && (a->size == b->size));
2289 /* Hash table hash function for ps_combo structs. */
2291 hash_ps_combo (const void *pa, void *foo UNUSED)
2293 const struct ps_font_combo *a = pa;
2294 unsigned name_hash = hsh_hash_string (a->font->font->internal_name);
2295 return name_hash ^ hsh_hash_int (a->size);
2298 /* Hash table free function for ps_combo structs. */
2300 free_ps_combo (void *a, void *foo UNUSED)
2305 /* Causes PostScript code to be output that switches to the font
2306 CP->FONT and font size CP->SIZE. The first time a particular
2307 font/size combination is used on a particular page, this involves
2308 outputting PostScript code to load the font. */
2310 switch_font (struct outp_driver *this, const struct output_char *cp)
2312 struct ps_driver_ext *ext = this->ext;
2313 struct ps_font_combo srch, **fc;
2315 srch.font = cp->font;
2316 srch.size = cp->size;
2318 fc = (struct ps_font_combo **) hsh_probe (ext->combos, &srch);
2321 fprintf (ext->file.file, "F%x%s", (*fc)->index, ext->eol);
2326 struct ps_encoding *encoding;
2329 *fc = xmalloc (sizeof **fc);
2330 (*fc)->font = cp->font;
2331 (*fc)->size = cp->size;
2332 (*fc)->index = ext->next_combo++;
2334 filename = find_encoding_file (this, cp->font->font->encoding);
2337 encoding = get_encoding (this, filename);
2342 msg (IE, _("PostScript driver: Cannot find encoding `%s' for "
2343 "PostScript font `%s'."), cp->font->font->encoding,
2344 cp->font->font->internal_name);
2345 encoding = default_encoding (this);
2348 if (cp->font != ext->fixed && cp->font != ext->prop)
2350 bp = stpcpy (buf, "%%IncludeResource: font ");
2351 bp = quote_ps_string (bp, cp->font->font->internal_name);
2352 bp = stpcpy (bp, ext->eol);
2357 bp = spprintf (bp, "/F%x E%x %d", (*fc)->index, encoding->index,
2359 bp = quote_ps_name (bp, cp->font->font->internal_name);
2360 sprintf (bp, " SF%s", ext->eol);
2361 fputs (buf, ext->file.file);
2363 ext->last_font = *fc;
2366 /* (write_text) Writes the accumulated line buffer to the output
2368 #define output_line() \
2371 lp = stpcpy (lp, ext->eol); \
2373 fputs (line, ext->file.file); \
2378 /* (write_text) Adds the string representing number X to the line
2379 buffer, flushing the buffer to disk beforehand if necessary. */
2380 #define put_number(X) \
2383 int n = nsprintf (number, "%d", X); \
2384 if (n + lp > &line[75]) \
2386 lp = stpcpy (lp, number); \
2390 /* Outputs PostScript code to THIS driver's output file to display the
2391 characters represented by the output_char's between CP and END,
2392 using the associated outp_text T to determine formatting. WIDTH is
2393 the width of the output region; WIDTH_LEFT is the amount of the
2394 WIDTH that is not taken up by text (so it can be used to determine
2397 write_text (struct outp_driver *this,
2398 const struct output_char *cp, const struct output_char *end,
2399 struct outp_text *t, int width UNUSED, int width_left)
2401 struct ps_driver_ext *ext = this->ext;
2406 char number[INT_STRLEN_BOUND (int) + 1];
2410 switch (t->options & OUTP_T_JUST_MASK)
2412 case OUTP_T_JUST_LEFT:
2415 case OUTP_T_JUST_RIGHT:
2418 case OUTP_T_JUST_CENTER:
2419 ofs = width_left / 2;
2430 int x = cp->x + ofs;
2431 int y = cp->y + (cp->font->font->ascent * cp->size / 1000);
2433 if (ext->last_font == NULL
2434 || cp->font != ext->last_font->font
2435 || cp->size != ext->last_font->size)
2436 switch_font (this, cp);
2442 static unsigned char literal_chars[ODA_COUNT][32] =
2444 {0x00, 0x00, 0x00, 0xf8, 0xff, 0xfc, 0xff, 0xff,
2445 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f,
2446 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2447 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2449 {0x00, 0x00, 0x00, 0xf8, 0xff, 0xfc, 0xff, 0xff,
2450 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
2451 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
2452 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
2454 {0x7e, 0xd6, 0xff, 0xfb, 0xff, 0xfc, 0xff, 0xff,
2455 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
2456 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
2457 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
2461 if (TEST_BIT (literal_chars[ext->data], cp->ch))
2464 switch ((char) cp->ch)
2467 lp = stpcpy (lp, "\\(");
2470 lp = stpcpy (lp, "\\)");
2473 lp = spprintf (lp, "\\%03o", cp->ch);
2478 while (cp < end && lp < &line[70] && cp->separate == 0);
2486 put_number (YT (y));
2497 if (lp >= &line[70])
2507 /* Displays the text in outp_text T, if DRAW is nonzero; or, merely
2508 determine the text metrics, if DRAW is zero. */
2510 text (struct outp_driver *this, struct outp_text *t, int draw)
2512 struct ps_driver_ext *ext = this->ext;
2515 struct output_char *buf; /* Output buffer. */
2516 struct output_char *buf_end; /* End of output buffer. */
2517 struct output_char *buf_loc; /* Current location in output buffer. */
2520 struct font_entry *old_current = ext->current;
2521 char *old_family = xstrdup (ext->family); /* FIXME */
2522 int old_size = ext->size;
2527 /* Current location. */
2530 /* Keeping track of what's left over. */
2531 int width; /* Width available for characters. */
2532 int width_left, height_left; /* Width, height left over. */
2533 int max_height; /* Tallest character on this line so far. */
2535 /* Previous character. */
2538 /* Information about location of previous space. */
2539 char *space_char; /* Character after space. */
2540 struct output_char *space_buf_loc; /* Buffer location after space. */
2541 int space_width_left; /* Width of characters before space. */
2543 /* Name of the current character. */
2544 const char *char_name;
2545 char local_char_name[2] = {0, 0};
2547 local_char_name[0] = local_char_name[1] = 0;
2549 buf = local_alloc (sizeof *buf * 128);
2550 buf_end = &buf[128];
2553 assert (!ls_null_p (&t->s));
2554 cp = ls_c_str (&t->s);
2555 end = ls_end (&t->s);
2563 width = width_left = (t->options & OUTP_T_HORZ) ? t->h : INT_MAX;
2564 height_left = (t->options & OUTP_T_VERT) ? t->v : INT_MAX;
2568 space_buf_loc = NULL;
2569 space_width_left = 0;
2572 if (!width || !height_left)
2577 struct char_metrics *metric;
2583 /* Set char_name to the name of the character or ligature at
2585 local_char_name[0] = *cp;
2586 char_name = local_char_name;
2587 if (ext->current->font->ligatures && *cp == 'f')
2596 lig = LIG_fi, char_name = "fi";
2599 lig = LIG_fl, char_name = "fl";
2606 lig = LIG_ffi, char_name = "ffi";
2609 lig = LIG_ffl, char_name = "ffl";
2612 lig = LIG_ff, char_name = "ff";
2616 if ((lig & ext->current->font->ligatures) == 0)
2618 local_char_name[0] = *cp; /* 'f' */
2619 char_name = local_char_name;
2622 else if (*cp == '\n')
2626 write_text (this, buf, buf_loc, t, width, width_left);
2633 height_left -= max_height;
2639 /* FIXME: when we're page buffering it will be necessary to
2640 set separate to 1. */
2643 cp += strlen (char_name);
2645 /* Figure out what size this character is, and what kern
2646 adjustment we need. */
2647 cur_char = font_char_name_to_index (char_name);
2648 metric = font_get_char_metrics (ext->current->font, cur_char);
2651 static struct char_metrics m;
2653 m.width = ext->current->font->space_width;
2654 m.code = *char_name;
2656 kern_amt = font_get_kern_adjust (ext->current->font, prev_char,
2660 kern_amt = (kern_amt * ext->size / 1000);
2663 char_width = metric->width * ext->size / 1000;
2665 /* Record the current status if this is a space character. */
2666 if (cur_char == space_index && buf_loc > buf)
2669 space_buf_loc = buf_loc;
2670 space_width_left = width_left;
2673 /* Drop down to a new line if there's no room left on this
2675 if (char_width + kern_amt > width_left)
2677 /* Regress to previous space, if any. */
2681 width_left = space_width_left;
2682 buf_loc = space_buf_loc;
2687 write_text (this, buf, buf_loc, t, width, width_left);
2694 height_left -= max_height;
2702 /* FIXME: when we're page buffering it will be
2703 necessary to set separate to 1. */
2708 if (ext->size > max_height)
2709 max_height = ext->size;
2710 if (max_height > height_left)
2713 /* Actually draw the character. */
2716 if (buf_loc >= buf_end)
2718 int buf_len = buf_end - buf;
2722 struct output_char *new_buf;
2724 new_buf = xmalloc (sizeof *new_buf * 256);
2725 memcpy (new_buf, buf, sizeof *new_buf * 128);
2726 buf_loc = new_buf + 128;
2727 buf_end = new_buf + 256;
2733 buf = xnrealloc (buf, buf_len * 2, sizeof *buf);
2734 buf_loc = buf + buf_len;
2735 buf_end = buf + buf_len * 2;
2740 buf_loc->font = ext->current;
2741 buf_loc->size = ext->size;
2744 buf_loc->ch = metric->code;
2745 buf_loc->separate = separate;
2750 /* Prepare for next iteration. */
2751 width_left -= char_width + kern_amt;
2752 prev_char = cur_char;
2754 height_left -= max_height;
2755 if (buf_loc > buf && draw)
2756 write_text (this, buf, buf_loc, t, width, width_left);
2759 if (!(t->options & OUTP_T_HORZ))
2760 t->h = INT_MAX - width_left;
2761 if (!(t->options & OUTP_T_VERT))
2762 t->v = INT_MAX - height_left;
2764 t->v -= height_left;
2765 if (buf_end - buf == 128)
2769 ext->current = old_current;
2771 ext->family = old_family;
2772 ext->size = old_size;
2776 ps_text_metrics (struct outp_driver *this, struct outp_text *t)
2778 assert (this->driver_open && this->page_open);
2783 ps_text_draw (struct outp_driver *this, struct outp_text *t)
2785 assert (this->driver_open && this->page_open);
2791 /* Translate a filename to a font. */
2792 struct filename2font
2794 char *filename; /* Normalized filename. */
2795 struct font_desc *font;
2798 /* Table of `filename2font's. */
2799 static struct hsh_table *ps_fonts;
2801 /* Hash table comparison function for filename2font structs. */
2803 compare_filename2font (const void *a, const void *b, void *param UNUSED)
2805 return strcmp (((struct filename2font *) a)->filename,
2806 ((struct filename2font *) b)->filename);
2809 /* Hash table hash function for filename2font structs. */
2811 hash_filename2font (const void *f2f_, void *param UNUSED)
2813 const struct filename2font *f2f = f2f_;
2814 return hsh_hash_string (f2f->filename);
2817 /* Initializes the global font list by creating the hash table for
2818 translation of filenames to font_desc structs. */
2822 ps_fonts = hsh_create (31, compare_filename2font, hash_filename2font,
2829 hsh_destroy (ps_fonts);
2832 /* Loads the font having Groff name DIT into THIS driver instance.
2833 Specifically, adds it into the THIS driver's `loaded' hash
2835 static struct font_entry *
2836 load_font (struct outp_driver *this, const char *dit)
2838 struct ps_driver_ext *x = this->ext;
2839 char *filename1, *filename2;
2841 struct font_entry *fe;
2843 filename1 = find_ps_file (this, dit);
2845 filename1 = xstrdup (dit);
2846 filename2 = fn_normalize (filename1);
2849 entry = hsh_probe (ps_fonts, &filename2);
2852 struct filename2font *f2f;
2853 struct font_desc *f = groff_read_font (filename2);
2860 f = default_font ();
2863 f2f = xmalloc (sizeof *f2f);
2864 f2f->filename = filename2;
2871 fe = xmalloc (sizeof *fe);
2872 fe->dit = xstrdup (dit);
2873 fe->font = ((struct filename2font *) * entry)->font;
2874 *hsh_probe (x->loaded, &dit) = fe;
2880 ps_chart_initialise (struct outp_driver *this UNUSED, struct chart *ch)
2885 struct ps_driver_ext *x = this->ext;
2886 char page_size[128];
2888 int x_origin, y_origin;
2890 ch->file = tmpfile ();
2891 if (ch->file == NULL)
2897 size = this->width < this->length ? this->width : this->length;
2898 x_origin = x->left_margin + (size - this->width) / 2;
2899 y_origin = x->bottom_margin + (size - this->length) / 2;
2901 snprintf (page_size, sizeof page_size,
2902 "a,xsize=%.3f,ysize=%.3f,xorigin=%.3f,yorigin=%.3f",
2903 (double) size / PSUS, (double) size / PSUS,
2904 (double) x_origin / PSUS, (double) y_origin / PSUS);
2906 ch->pl_params = pl_newplparams ();
2907 pl_setplparam (ch->pl_params, "PAGESIZE", page_size);
2908 ch->lp = pl_newpl_r ("ps", NULL, ch->file, stderr, ch->pl_params);
2913 ps_chart_finalise (struct outp_driver *this UNUSED, struct chart *ch UNUSED)
2916 struct ps_driver_ext *x = this->ext;
2918 static int doc_num = 0;
2920 if (this->page_open)
2922 this->class->close_page (this);
2923 this->page_open = 0;
2925 this->class->open_page (this);
2926 fprintf (x->file.file,
2928 "%d %d translate 1000 dup scale%s"
2930 "/showpage { } def%s"
2931 "0 setgray 0 setlinecap 1 setlinewidth%s"
2932 "0 setlinejoin 10 setmiterlimit [ ] 0 setdash newpath clear%s"
2933 "%%%%BeginDocument: %d%s",
2935 -x->left_margin, -x->bottom_margin, x->eol,
2943 while (fwrite (buf, 1, fread (buf, 1, sizeof buf, ch->file), x->file.file))
2947 fprintf (x->file.file,
2954 this->class->close_page (this);
2955 this->page_open = 0;
2959 /* PostScript driver class. */
2960 struct outp_class postscript_class =
2982 ps_line_intersection,
2989 ps_text_set_font_by_name,
2990 ps_text_set_font_by_position,
2991 ps_text_set_font_family,
2992 ps_text_get_font_name,
2993 ps_text_get_font_family,
2999 ps_chart_initialise,
3003 /* EPSF driver class. FIXME: Probably doesn't work right. */
3004 struct outp_class epsf_class =
3026 ps_line_intersection,
3033 ps_text_set_font_by_name,
3034 ps_text_set_font_by_position,
3035 ps_text_set_font_family,
3036 ps_text_get_font_name,
3037 ps_text_get_font_family,
3043 ps_chart_initialise,
3048 #endif /* NO_POSTSCRIPT */