X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fpostscript.c;h=394ebbb27dc5fb3c7d0e251908905db97bd54ddc;hb=refs%2Ftags%2Fv0.7.3;hp=43b19f2bfbe85f5e8fa0b5c987e9bb18fecd2a62;hpb=52b9fca3a729eaef7d13469029e4391aa033a659;p=pspp-builds.git diff --git a/src/output/postscript.c b/src/output/postscript.c index 43b19f2b..394ebbb2 100644 --- a/src/output/postscript.c +++ b/src/output/postscript.c @@ -1,32 +1,31 @@ -/* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. - Written by Ben Pfaff . +/* PSPP - a program for statistical analysis. + Copyright (C) 1997-9, 2000, 2006, 2007, 2009 Free Software Foundation, Inc. - This program is free software; you can redistribute it and/or - modify it under the terms of the GNU General Public License as - published by the Free Software Foundation; either version 2 of the - License, or (at your option) any later version. + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. - This program is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - 02110-1301, USA. */ + along with this program. If not, see . */ #include #include #include #include +#include #include #include #include -#include +#include +#include #include #include #include @@ -34,19 +33,16 @@ #include #include #include +#include +#include +#include +#include +#include -#include - -#include "afm.h" -#include "chart.h" #include "error.h" -#include "getline.h" #include "intprops.h" -#include "manager.h" #include "minmax.h" -#include "output.h" -#include "size_max.h" -#include "strsep.h" +#include "xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -108,13 +104,14 @@ struct ps_driver_ext struct font *fonts[OUTP_FONT_CNT]; int last_font; /* Index of last font set with setfont. */ - } -ps_driver_ext; + + int doc_num; /* %%DocumentNumber counter. */ + }; /* Transform logical y-ordinate Y into a page ordinate. */ #define YT(Y) (this->length - (Y)) -static bool handle_option (struct outp_driver *this, const char *key, +static bool handle_option (void *this, const char *key, const struct string *val); static void draw_headers (struct outp_driver *this); @@ -129,11 +126,13 @@ static void setup_font (struct outp_driver *this, struct font *, int index); /* Driver initialization. */ static bool -ps_open_driver (struct outp_driver *this, const struct string *options) +ps_open_driver (const char *name, int types, struct substring options) { + struct outp_driver *this; struct ps_driver_ext *x; size_t i; + this = outp_allocate_driver (&postscript_class, name, types); this->width = this->length = 0; this->font_height = PSUS * 10 / 72; @@ -143,8 +142,7 @@ ps_open_driver (struct outp_driver *this, const struct string *options) x->draw_headers = true; x->page_number = 0; x->portrait = true; - x->paper_width = PSUS * 17 / 2; - x->paper_length = PSUS * 11; + outp_get_paper_size ("", &x->paper_width, &x->paper_length); x->left_margin = PSUS / 2; x->right_margin = PSUS / 2; x->top_margin = PSUS / 2; @@ -154,8 +152,9 @@ ps_open_driver (struct outp_driver *this, const struct string *options) x->line_width = PSUS / 144; for (i = 0; i < OUTP_FONT_CNT; i++) x->fonts[i] = NULL; + x->doc_num = 0; - outp_parse_options (options, handle_option, this); + outp_parse_options (this->name, options, handle_option, this); x->file = fn_open (x->file_name, "w"); if (x->file == NULL) @@ -165,7 +164,7 @@ ps_open_driver (struct outp_driver *this, const struct string *options) goto error; } - if (x->portrait) + if (x->portrait) { this->width = x->paper_width; this->length = x->paper_length; @@ -174,7 +173,7 @@ ps_open_driver (struct outp_driver *this, const struct string *options) { this->width = x->paper_length; this->length = x->paper_width; - } + } this->width -= x->left_margin + x->right_margin; this->length -= x->top_margin + x->bottom_margin; if (x->draw_headers) @@ -224,10 +223,12 @@ ps_open_driver (struct outp_driver *this, const struct string *options) write_ps_prologue (this); + outp_register_driver (this); return true; error: this->class->close_driver (this); + outp_free_driver (this); return false; } @@ -235,18 +236,23 @@ static bool ps_close_driver (struct outp_driver *this) { struct ps_driver_ext *x = this->ext; - bool ok; + bool ok = true; size_t i; - fprintf (x->file, - "%%%%Trailer\n" - "%%%%Pages: %d\n" - "%%%%EOF\n", - x->page_number); - - ok = fn_close (x->file_name, x->file) == 0; - if (!ok) - error (0, errno, _("closing PostScript output file \"%s\""), x->file_name); + if (x->file != NULL) + { + fprintf (x->file, + "%%%%Trailer\n" + "%%%%Pages: %d\n" + "%%%%EOF\n", + x->page_number); + + ok = fn_close (x->file_name, x->file) == 0; + if (!ok) + error (0, errno, _("closing PostScript output file \"%s\""), + x->file_name); + } + free (x->file_name); for (i = 0; i < OUTP_FONT_CNT; i++) free_font (x->fonts[i]); @@ -270,7 +276,7 @@ enum }; /* All the options that the PostScript driver supports. */ -static struct outp_option option_tab[] = +static const struct outp_option option_tab[] = { {"output-file", output_file_arg,0}, {"paper-size", paper_size_arg, 0}, @@ -295,12 +301,13 @@ static struct outp_option option_tab[] = }; static bool -handle_option (struct outp_driver *this, const char *key, +handle_option (void *this_, const char *key, const struct string *val) { + struct outp_driver *this = this_; struct ps_driver_ext *x = this->ext; int subcat; - char *value = ds_c_str (val); + char *value = ds_cstr (val); switch (outp_match_keyword (key, option_tab, &subcat)) { @@ -374,20 +381,16 @@ handle_option (struct outp_driver *this, const char *key, this->font_height = arg; break; default: - abort (); + NOT_REACHED (); } } break; case dimension_arg: { - int dimension = outp_evaluate_dimension (value, NULL); + int dimension = outp_evaluate_dimension (value); if (dimension <= 0) - { - error (0, 0, _("value for `%s' must be a dimension of positive " - "length (i.e., `1in')"), key); - break; - } + break; switch (subcat) { case 0: @@ -400,7 +403,7 @@ handle_option (struct outp_driver *this, const char *key, x->line_width = dimension; break; default: - abort (); + NOT_REACHED (); } } break; @@ -417,24 +420,24 @@ handle_option (struct outp_driver *this, const char *key, } break; default: - abort (); + NOT_REACHED (); } return true; } /* Looks for a PostScript font file or config file in all the - appropriate places. Returns the filename on success, NULL on + appropriate places. Returns the file name on success, NULL on failure. */ static char * find_ps_file (const char *name) { - if (fn_absolute_p (name)) + if (fn_is_absolute (name)) return xstrdup (name); else { - char *base_name = xasprintf ("psfonts%c%s", DIR_SEPARATOR, name); - char *file_name = fn_search_path (base_name, config_path, NULL); + char *base_name = xasprintf ("psfonts/%s", name); + char *file_name = fn_search_path (base_name, config_path); free (base_name); return file_name; } @@ -542,15 +545,15 @@ quote_ps_name (const char *string) if (!isalpha (c) && strchr ("^_|!$&:;.,-+", c) == NULL && (cp == string || !isdigit (c))) { - struct string out = DS_INITIALIZER; - ds_putc (&out, '<'); + struct string out = DS_EMPTY_INITIALIZER; + ds_put_char (&out, '<'); for (cp = string; *cp != '\0'; cp++) { c = *cp; - ds_printf (&out, "%02x", c); + ds_put_format (&out, "%02x", c); } - ds_puts (&out, ">cvn"); - return ds_c_str (&out); + ds_put_cstr (&out, ">cvn"); + return ds_cstr (&out); } } return xasprintf ("/%s", string); @@ -605,11 +608,8 @@ ps_submit (struct outp_driver *this UNUSED, struct som_entity *s) { switch (s->type) { - case SOM_CHART: - break; default: - abort (); - break; + NOT_REACHED (); } } @@ -674,35 +674,35 @@ ps_line (struct outp_driver *this, enum outp_line_style top, enum outp_line_style left, enum outp_line_style bottom, enum outp_line_style right) { -/* The algorithm here is somewhat subtle, to allow it to handle - all the kinds of intersections that we need. - - Three additional ordinates are assigned along the x axis. The - first is xc, midway between x0 and x3. The others are x1 and - x2; for a single vertical line these are equal to xc, and for - a double vertical line they are the ordinates of the left and - right half of the double line. - - yc, y1, and y2 are assigned similarly along the y axis. - - The following diagram shows the coordinate system and output - for double top and bottom lines, single left line, and no - right line: - - x0 x1 xc x2 x3 - y0 ________________________ - | # # | - | # # | - | # # | - | # # | - | # # | - y1 = y2 = yc |######### # | - | # # | - | # # | - | # # | - | # # | - y3 |________#_____#_______| -*/ + /* The algorithm here is somewhat subtle, to allow it to handle + all the kinds of intersections that we need. + + Three additional ordinates are assigned along the x axis. The + first is xc, midway between x0 and x3. The others are x1 and + x2; for a single vertical line these are equal to xc, and for + a double vertical line they are the ordinates of the left and + right half of the double line. + + yc, y1, and y2 are assigned similarly along the y axis. + + The following diagram shows the coordinate system and output + for double top and bottom lines, single left line, and no + right line: + + x0 x1 xc x2 x3 + y0 ________________________ + | # # | + | # # | + | # # | + | # # | + | # # | + y1 = y2 = yc |######### # | + | # # | + | # # | + | # # | + | # # | + y3 |________#_____#_______| + */ struct ps_driver_ext *ext = this->ext; /* Offset from center of each line in a pair of double lines. */ @@ -784,7 +784,7 @@ draw_text (struct outp_driver *this, text.font = OUTP_PROPORTIONAL; text.justification = justification; - ls_init (&text.string, (char *) string, strlen (string)); + text.string = ss_cstr (string); text.h = max_width; text.v = this->font_height; text.x = x; @@ -799,7 +799,7 @@ draw_text (struct outp_driver *this, static void draw_header_line (struct outp_driver *this, const char *left, const char *right, - int x0, int x1, int y) + int x0, int x1, int y) { int right_width = 0; if (right != NULL) @@ -830,12 +830,12 @@ draw_headers (struct outp_driver *this) r1 = xasprintf (_("%s - Page %d"), get_start_date (), ext->page_number); r2 = xasprintf ("%s - %s", version, host_system); - + draw_header_line (this, outp_title, r1, x0, x1, y); y += this->font_height; - + draw_header_line (this, outp_subtitle, r2, x0, x1, y); - + free (r1); free (r2); } @@ -850,7 +850,7 @@ draw_headers (struct outp_driver *this) static void write_text (struct outp_driver *this, int x0, int y0, - enum outp_font font, + enum outp_font font, enum outp_justification justification, const struct afm_character **chars, int *kerns, size_t char_cnt, int width_left) @@ -874,7 +874,7 @@ write_text (struct outp_driver *this, fprintf (ext->file, "F%d setfont\n", font); } - ds_init (&out, 0); + ds_init_empty (&out); for (i = 0; i < char_cnt; i = j) { for (j = i + 1; j < char_cnt; j++) @@ -888,7 +888,7 @@ write_text (struct outp_driver *this, size_t encoded = afm_encode_string (afm, chars + i, j - i, &out); if (encoded > 0) { - fprintf (ext->file, "%sS\n", ds_c_str (&out)); + fprintf (ext->file, "%sS\n", ds_cstr (&out)); ds_clear (&out); i += encoded; } @@ -990,8 +990,8 @@ text (struct outp_driver *this, const struct outp_text *text, bool draw, s.max_width = 0; - cp = ls_c_str (&s.text->string); - while (s.height_left >= this->font_height && cp < ls_end (&s.text->string)) + cp = ss_data (s.text->string); + while (s.height_left >= this->font_height && cp < ss_end (s.text->string)) { const struct afm_character *cur; int char_width; @@ -1006,7 +1006,7 @@ text (struct outp_driver *this, const struct outp_text *text, bool draw, /* Get character and resolve ligatures. */ cur = afm_get_character (afm, *cp); - while (++cp < ls_end (&s.text->string)) + while (++cp < ss_end (s.text->string)) { const struct afm_character *next = afm_get_character (afm, *cp); const struct afm_character *ligature = afm_get_ligature (cur, next); @@ -1017,14 +1017,14 @@ text (struct outp_driver *this, const struct outp_text *text, bool draw, char_width = cur->width * this->font_height / 1000; /* Get kern adjustment. */ - if (s.glyph_cnt > 0) + if (s.glyph_cnt > 0) kern_adjust = (afm_get_kern_adjustment (s.glyphs[s.glyph_cnt - 1], cur) * this->font_height / 1000); else kern_adjust = 0; /* Record the current status if this is a space character. */ - if (cur->code == ' ' && cp > ls_c_str (&s.text->string)) + if (cur->code == ' ' && cp > ss_data (s.text->string)) { s.space_char = cp; s.space_glyph_cnt = s.glyph_cnt; @@ -1087,72 +1087,6 @@ ps_text_draw (struct outp_driver *this, const struct outp_text *t) text (this, t, true, NULL, NULL); } -static void -ps_chart_initialise (struct outp_driver *this UNUSED, struct chart *ch) -{ -#ifdef NO_CHARTS - ch->lp = NULL; -#else - struct ps_driver_ext *x = this->ext; - char page_size[128]; - int size; - int x_origin, y_origin; - - ch->file = tmpfile (); - if (ch->file == NULL) - { - ch->lp = NULL; - return; - } - - size = this->width < this->length ? this->width : this->length; - x_origin = x->left_margin + (size - this->width) / 2; - y_origin = x->bottom_margin + (size - this->length) / 2; - - snprintf (page_size, sizeof page_size, - "a,xsize=%.3f,ysize=%.3f,xorigin=%.3f,yorigin=%.3f", - (double) size / PSUS, (double) size / PSUS, - (double) x_origin / PSUS, (double) y_origin / PSUS); - - ch->pl_params = pl_newplparams (); - pl_setplparam (ch->pl_params, "PAGESIZE", page_size); - ch->lp = pl_newpl_r ("ps", NULL, ch->file, stderr, ch->pl_params); -#endif -} - -static void -ps_chart_finalise (struct outp_driver *this UNUSED, struct chart *ch UNUSED) -{ -#ifndef NO_CHARTS - struct ps_driver_ext *x = this->ext; - char buf[BUFSIZ]; - static int doc_num = 0; - - outp_eject_page (this); - fprintf (x->file, - "/sp save def\n" - "%d %d translate 1000 dup scale\n" - "userdict begin\n" - "/showpage { } def\n" - "0 setgray 0 setlinecap 1 setlinewidth\n" - "0 setlinejoin 10 setmiterlimit [ ] 0 setdash newpath clear\n" - "%%%%BeginDocument: %d\n", - -x->left_margin, -x->bottom_margin, - doc_num++); - - rewind (ch->file); - while (fwrite (buf, 1, fread (buf, 1, sizeof buf, ch->file), x->file)) - continue; - fclose (ch->file); - - fputs ("%%%%EndDocument\n" - "end\n" - "sp restore\n", - x->file); - outp_close_page (this); -#endif -} - static void embed_font (struct outp_driver *this, struct font *font); static void reencode_font (struct outp_driver *this, struct font *font); @@ -1382,8 +1316,8 @@ reencode_font (struct outp_driver *this, struct font *font) line_number = 0; - ds_init (&line, 0); - while (ds_get_config_line (file, &line, &line_number)) + ds_init_empty (&line); + while (ds_read_config_line (&line, &line_number, file)) { char *pschar, *code; char *save_ptr, *tail; @@ -1392,7 +1326,7 @@ reencode_font (struct outp_driver *this, struct font *font) if (ds_is_empty (&line) == 0) continue; - pschar = strtok_r (ds_c_str (&line), " \t\r\n", &save_ptr); + pschar = strtok_r (ds_cstr (&line), " \t\r\n", &save_ptr); code = strtok_r (NULL, " \t\r\n", &save_ptr); if (pschar == NULL || code == NULL) continue; @@ -1423,11 +1357,12 @@ reencode_font (struct outp_driver *this, struct font *font) fputs ("] RF\n", x->file); if (freaderror (file) != 0) - error (errno, 0, "closing Postscript encoding \"%s\"", font->encoding_fn); + error (errno, 0, _("closing Postscript encoding \"%s\""), + font->encoding_fn); } /* PostScript driver class. */ -struct outp_class postscript_class = +const struct outp_class postscript_class = { "postscript", 0, @@ -1437,13 +1372,13 @@ struct outp_class postscript_class = ps_open_page, ps_close_page, + NULL, + + NULL, /* output_chart */ ps_submit, ps_line, ps_text_metrics, ps_text_draw, - - ps_chart_initialise, - ps_chart_finalise };