X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput.c;h=292a334c38974b1bd257991c09784283b3e501e3;hb=0d1247a98f058356ba1cf24c26f642004ba5fbc5;hp=86e8534cedad1efcc659f7cc81346406a707887d;hpb=c663f9861a1425f0858f3f5849a19bdc46c868b7;p=pspp-builds.git diff --git a/src/output.c b/src/output.c index 86e8534c..292a334c 100644 --- a/src/output.c +++ b/src/output.c @@ -14,25 +14,29 @@ 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., 59 Temple Place - Suite 330, Boston, MA - 02111-1307, USA. */ + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA + 02110-1301, USA. */ #include -#include +#include "output.h" +#include "error.h" #include #include #include #include #include "alloc.h" -#include "approx.h" +#include "devind.h" #include "error.h" #include "filename.h" +#include "htmlP.h" #include "lexer.h" #include "misc.h" -#include "output.h" #include "settings.h" #include "str.h" +#include "gettext.h" +#define _(msgid) gettext (msgid) + /* FIXME? Should the output configuration format be changed to drivername:classname:devicetype:options, where devicetype is zero or more of screen, printer, listing? */ @@ -73,7 +77,7 @@ char *outp_subtitle; /* A set of OUTP_DEV_* bits indicating the devices that are disabled. */ -int disabled_devices; +static int disabled_devices; static void destroy_driver (struct outp_driver *); static void configure_driver (char *); @@ -194,7 +198,7 @@ expand_name (char *bp, char *ep) /* Looks for a macro with key KEY, and returns the corresponding value if found, or NULL if not. */ -const char * +static const char * find_defn_value (const char *key) { static char buf[INT_DIGITS + 1]; @@ -205,12 +209,12 @@ find_defn_value (const char *key) return d->value; if (!strcmp (key, "viewwidth")) { - sprintf (buf, "%d", set_viewwidth); + sprintf (buf, "%d", get_viewwidth()); return buf; } else if (!strcmp (key, "viewlength")) { - sprintf (buf, "%d", set_viewlength); + sprintf (buf, "%d", get_viewlength()); return buf; } else @@ -226,9 +230,8 @@ outp_init (void) extern struct outp_class postscript_class; extern struct outp_class epsf_class; #endif -#if !NO_HTML extern struct outp_class html_class; -#endif + extern struct outp_class devind_class; char def[] = "default"; @@ -239,6 +242,7 @@ outp_init (void) add_class (&epsf_class); add_class (&postscript_class); #endif + add_class (&devind_class); add_class (&ascii_class); add_name (def, &def[strlen (def)], OUTP_S_INIT_FILE); @@ -287,12 +291,12 @@ outp_read_devices (void) where.line_number = 0; err_push_file_locator (&where); - ds_init (NULL, &line, 128); + ds_init (&line, 128); if (init_fn == NULL) { - msg (IE, _("Cannot find output initialization file. Use `-vv' to view " - "search path.")); + msg (IE, _("Cannot find output initialization file. " + "Use `-vvvvv' to view search path.")); goto exit; } @@ -314,7 +318,7 @@ outp_read_devices (void) msg (ME, _("Reading %s: %s."), init_fn, strerror (errno)); break; } - for (cp = ds_value (&line); isspace ((unsigned char) *cp); cp++); + for (cp = ds_c_str (&line); isspace ((unsigned char) *cp); cp++); if (!strncmp ("define", cp, 6) && isspace ((unsigned char) cp[6])) outp_configure_macro (&cp[7]); else if (*cp) @@ -423,7 +427,7 @@ outp_configure_macro (char *bp) /* Destroys all the drivers in driver list *DL and sets *DL to NULL. */ -void +static void destroy_list (struct outp_driver ** dl) { struct outp_driver *d, *next; @@ -441,12 +445,27 @@ destroy_list (struct outp_driver ** dl) int outp_done (void) { + struct outp_driver_class_list *n = outp_class_list ; #if GLOBAL_DEBUGGING if (iterating_driver_list) reentrancy (); #endif destroy_list (&outp_driver_list); + while (n) + { + struct outp_driver_class_list *next = n->next; + free(n); + n = next; + } + outp_class_list = NULL; + + free (outp_title); + outp_title = NULL; + + free (outp_subtitle); + outp_subtitle = NULL; + return 1; } @@ -454,7 +473,7 @@ outp_done (void) void outp_list_classes (void) { - int width = set_viewwidth; + int width = get_viewwidth(); struct outp_driver_class_list *c; printf (_("Driver classes:\n\t")); @@ -464,7 +483,7 @@ outp_list_classes (void) if ((int) strlen (c->class->name) + 1 > width) { printf ("\n\t"); - width = set_viewwidth - 8; + width = get_viewwidth() - 8; } else putc (' ', stdout); @@ -510,7 +529,7 @@ tokener (void) while (*prog && *prog != quote) { if (*prog != '\\') - ds_putchar (&op_tokstr, *prog++); + ds_putc (&op_tokstr, *prog++); else { int c; @@ -587,15 +606,16 @@ tokener (void) break; default: msg (IS, _("Syntax error in string constant.")); + continue; } - ds_putchar (&op_tokstr, (unsigned char) c); + ds_putc (&op_tokstr, (unsigned char) c); } } prog++; } else while (*prog && !isspace ((unsigned char) *prog) && *prog != '=') - ds_putchar (&op_tokstr, *prog++); + ds_putc (&op_tokstr, *prog++); op_token = 'a'; } @@ -610,7 +630,7 @@ parse_options (char *s, struct outp_driver * d) prog = s; op_token = -1; - ds_init (NULL, &op_tokstr, 64); + ds_init (&op_tokstr, 64); while (tokener ()) { char key[65]; @@ -622,7 +642,7 @@ parse_options (char *s, struct outp_driver * d) } ds_truncate (&op_tokstr, 64); - strcpy (key, ds_value (&op_tokstr)); + strcpy (key, ds_c_str (&op_tokstr)); tokener (); if (op_token != '=') @@ -891,7 +911,7 @@ outp_match_keyword (const char *s, struct outp_option *tab, *++cp = 0; info->initial = xstrdup (s); - info->options = xmalloc (sizeof *info->options * (cp - s)); + info->options = xnmalloc (cp - s, sizeof *info->options); memcpy (info->options, ptr, sizeof *info->options * (cp - s)); } @@ -957,7 +977,7 @@ outp_evaluate_dimension (char *dimen, char **tail) if (c <= 0.0 || ptail == s) goto lossage; s = ptail; - if (approx_eq (c, 0.0)) + if (c == 0.0) goto lossage; if (value > 0) value += b / c; @@ -969,7 +989,7 @@ outp_evaluate_dimension (char *dimen, char **tail) double b; s = &ptail[1]; b = strtod (s, &ptail); - if (approx_le (b, 0.0) || ptail == s) + if (b <= 0.0 || ptail == s) goto lossage; s = ptail; value /= b; @@ -1028,7 +1048,7 @@ outp_evaluate_dimension (char *dimen, char **tail) ptail += 2; value *= factor; } - if (approx_lt (value, 0.0)) + if (value <= 0.0) goto lossage; if (tail) *tail = ptail; @@ -1148,6 +1168,7 @@ outp_get_paper_size (char *size, int *h, int *v) where.filename = pprsz_fn; where.line_number = 0; err_push_file_locator (&where); + ds_init (&line, 128); if (pprsz_fn == NULL) { @@ -1163,7 +1184,6 @@ outp_get_paper_size (char *size, int *h, int *v) goto exit; } - ds_init (NULL, &line, 128); for (;;) { char *cp, *bp, *ep; @@ -1174,7 +1194,7 @@ outp_get_paper_size (char *size, int *h, int *v) msg (ME, _("Reading %s: %s."), pprsz_fn, strerror (errno)); break; } - for (cp = ds_value (&line); isspace ((unsigned char) *cp); cp++); + for (cp = ds_c_str (&line); isspace ((unsigned char) *cp); cp++); if (*cp == 0) continue; if (*cp != '"')