X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fpostscript.c;h=11116b9b6d7a0d3b49db98dda6c7eb455043e5ca;hb=a7c7dd31b1ac252a08d7cfc2748cc3820c96e088;hp=c90cdedd8c95df472d4a483020e36a20dc3a0a45;hpb=f1bdc3abd95899162c3cbbdb63a74145383cbb91;p=pspp-builds.git diff --git a/src/output/postscript.c b/src/output/postscript.c index c90cdedd..11116b9b 100644 --- a/src/output/postscript.c +++ b/src/output/postscript.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2006, 2007 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 @@ -19,11 +19,11 @@ #include #include #include +#include #include #include #include -#include #include #include #include @@ -38,11 +38,12 @@ #include "afm.h" #include "chart.h" #include "error.h" -#include "intprops.h" #include "manager.h" -#include "minmax.h" #include "output.h" -#include "size_max.h" + +#include "intprops.h" +#include "minmax.h" +#include "xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -138,8 +139,7 @@ ps_open_driver (struct outp_driver *this, struct substring 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; @@ -230,18 +230,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]); @@ -375,14 +380,10 @@ handle_option (struct outp_driver *this, const char *key, 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: