X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput.c;h=f318cb86d72bca8f948dab87728c90fc63cf4b0b;hb=e48df05eeeb85838526a03a3371964f5f6b14321;hp=86e8534cedad1efcc659f7cc81346406a707887d;hpb=eaf83d4cae00ae2e2ccccc3c02d5262330a31c8a;p=pspp-builds.git diff --git a/src/output.c b/src/output.c index 86e8534c..f318cb86 100644 --- a/src/output.c +++ b/src/output.c @@ -18,18 +18,19 @@ 02111-1307, 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" @@ -73,7 +74,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 +195,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 +206,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 +227,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 +239,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,7 +288,7 @@ 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) { @@ -314,7 +315,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 +424,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 +442,22 @@ 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; + } + free (outp_title); + free (outp_subtitle); + return 1; } @@ -454,7 +465,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 +475,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 +521,7 @@ tokener (void) while (*prog && *prog != quote) { if (*prog != '\\') - ds_putchar (&op_tokstr, *prog++); + ds_putc (&op_tokstr, *prog++); else { int c; @@ -587,15 +598,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 +622,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 +634,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 != '=') @@ -957,7 +969,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 +981,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 +1040,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 +1160,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 +1176,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 +1186,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 != '"')