X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fascii.c;h=6535121d8c0418bcc17686a3985fd00643a7a605;hb=f5711a3a6d3f28e53513269e774bfa1e8274c1c5;hp=305100afe9eb9ee41ee879915e770caf5874abe1;hpb=2322678e8fddbbf158b01b2720db2636404bba3b;p=pspp diff --git a/src/output/ascii.c b/src/output/ascii.c index 305100afe9..6535121d8c 100644 --- a/src/output/ascii.c +++ b/src/output/ascii.c @@ -1,1692 +1,1134 @@ -/* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. - Written by Ben Pfaff . +/* PSPP - a program for statistical analysis. + Copyright (C) 1997-9, 2000, 2007, 2009, 2010, 2011, 2012, 2013, 2014 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 "message.h" + #include #include #include +#include +#include #include -#include "alloc.h" -#include "message.h" -#include "chart.h" -#include "compiler.h" -#include "filename.h" -#include "misc.h" -#include "output.h" -#include "pool.h" -#include "start-date.h" -#include "version.h" +#include +#include +#include +#include + +#ifdef HAVE_TERMIOS_H +# include +# include +#endif + +#include "data/file-name.h" +#include "data/file-handle-def.h" +#include "data/settings.h" +#include "libpspp/assertion.h" +#include "libpspp/cast.h" +#include "libpspp/compiler.h" +#include "libpspp/message.h" +#include "libpspp/start-date.h" +#include "libpspp/string-map.h" +#include "libpspp/u8-line.h" +#include "libpspp/version.h" +#include "output/ascii.h" +#include "output/cairo-chart.h" +#include "output/chart-provider.h" +#include "output/driver-provider.h" +#include "output/options.h" +#include "output/pivot-output.h" +#include "output/pivot-table.h" +#include "output/render.h" +#include "output/output-item.h" + +#include "gl/minmax.h" +#include "gl/xalloc.h" +#include "gl/xsize.h" #include "gettext.h" #define _(msgid) gettext (msgid) -/* ASCII driver options: (defaults listed first) - - output-file="pspp.list" - char-set=ascii|latin1 - form-feed-string="\f" Written as a formfeed. - newline-string=default|"\r\n"|"\n" - Written as a newline. - paginate=on|off Formfeeds are desired? - tab-width=8 Width of a tab; 0 to not use tabs. - init="" Written at beginning of output. - done="" Written at end of output. - - headers=on|off Put headers at top of page? - length=66 - width=130 - lpi=6 Only used to determine font size. - cpi=10 - squeeze=off|on Squeeze multiple newlines into exactly one. - - left-margin=0 - right-margin=0 - top-margin=2 - bottom-margin=2 - - box[x]="strng" Sets box character X (X in base 4: 0-3333). - italic-on=overstrike|"strng" Turns on italic (underline). - italic-off=""|"strng" Turns off italic; ignored for overstrike. - bold-on=overstrike|"strng" Turns on bold. - bold-off=""|"strng" Turns off bold; ignored for overstrike. - bold-italic-on=overstrike|"strng" Turns on bold-italic. - bold-italic-off=""|"strng" Turns off bold-italic; ignored for overstrike. - overstrike-style=single|line Can we print a whole line then BS over it, or - must we go char by char, as on a terminal? - carriage-return-style=bs|cr Must we return the carriage with a sequence of - BSes, or will a single CR do it? - */ - -/* Disable messages by failed range checks. */ -/*#define SUPPRESS_WARNINGS 1 */ - -/* Character set. */ -enum - { - CHS_ASCII, /* 7-bit ASCII */ - CHS_LATIN1 /* Latin 1; not really supported at the moment */ - }; +/* This file uses TABLE_HORZ and TABLE_VERT enough to warrant abbreviating. */ +#define H TABLE_HORZ +#define V TABLE_VERT -/* Overstrike style. */ enum { - OVS_SINGLE, /* Overstrike each character: "a\b_b\b_c\b_" */ - OVS_LINE /* Overstrike lines: "abc\b\b\b___" (or if - newline is "\r\n", then "abc\r___"). Easier - on the printer, doesn't work on a tty. */ + ASCII_LINE_NONE, + ASCII_LINE_DASHED, + ASCII_LINE_SINGLE, + ASCII_LINE_DOUBLE, + ASCII_N_LINES }; -/* Basic output strings. */ -enum +struct box_chars { - OPS_INIT, /* Document initialization string. */ - OPS_DONE, /* Document uninit string. */ - OPS_FORMFEED, /* Formfeed string. */ - OPS_NEWLINE, /* Newline string. */ + ucs4_t c[ASCII_N_LINES][ASCII_N_LINES][ASCII_N_LINES][ASCII_N_LINES]; + }; - OPS_COUNT /* Number of output strings. */ +static const struct box_chars * +get_ascii_box (void) +{ + enum { + _ = ASCII_LINE_NONE, + d = ASCII_LINE_DASHED, + S = ASCII_LINE_SINGLE, + D = ASCII_LINE_DOUBLE, }; -/* Line styles bit shifts. */ -enum - { - LNS_TOP = 0, - LNS_LEFT = 2, - LNS_BOTTOM = 4, - LNS_RIGHT = 6, + static const struct box_chars ascii_box = + { + /* r b l t: _ d S D */ + .c[_][_][_] = { ' ', '|', '|', '#', }, + .c[_][_][d] = { '-', '+', '+', '#', }, + .c[_][_][S] = { '-', '+', '+', '#', }, + .c[_][_][D] = { '=', '#', '#', '#', }, + .c[_][d][_] = { '|', '|', '|', '#', }, + .c[_][d][d] = { '+', '+', '+', '#', }, + .c[_][d][S] = { '+', '+', '+', '#', }, + .c[_][d][D] = { '#', '#', '#', '#', }, + .c[_][S][_] = { '|', '|', '|', '#', }, + .c[_][S][d] = { '+', '+', '+', '#', }, + .c[_][S][S] = { '+', '+', '+', '#', }, + .c[_][S][D] = { '#', '#', '#', '#', }, + .c[_][D][_] = { '#', '#', '#', '#', }, + .c[_][D][d] = { '#', '#', '#', '#', }, + .c[_][D][S] = { '#', '#', '#', '#', }, + .c[_][D][D] = { '#', '#', '#', '#', }, + .c[d][_][_] = { '-', '+', '+', '#', }, + .c[d][_][d] = { '-', '+', '+', '#', }, + .c[d][_][S] = { '-', '+', '+', '#', }, + .c[d][_][D] = { '#', '#', '#', '#', }, + .c[d][d][_] = { '+', '+', '+', '#', }, + .c[d][d][d] = { '+', '+', '+', '#', }, + .c[d][d][S] = { '+', '+', '+', '#', }, + .c[d][d][D] = { '#', '#', '#', '#', }, + .c[d][S][_] = { '+', '+', '+', '#', }, + .c[d][S][d] = { '+', '+', '+', '#', }, + .c[d][S][S] = { '+', '+', '+', '#', }, + .c[d][S][D] = { '#', '#', '#', '#', }, + .c[d][D][_] = { '#', '#', '#', '#', }, + .c[d][D][d] = { '#', '#', '#', '#', }, + .c[d][D][S] = { '#', '#', '#', '#', }, + .c[d][D][D] = { '#', '#', '#', '#', }, + .c[S][_][_] = { '-', '+', '+', '#', }, + .c[S][_][d] = { '-', '+', '+', '#', }, + .c[S][_][S] = { '-', '+', '+', '#', }, + .c[S][_][D] = { '#', '#', '#', '#', }, + .c[S][d][_] = { '+', '+', '+', '#', }, + .c[S][d][d] = { '+', '+', '+', '#', }, + .c[S][d][S] = { '+', '+', '+', '#', }, + .c[S][d][D] = { '#', '#', '#', '#', }, + .c[S][S][_] = { '+', '+', '+', '#', }, + .c[S][S][d] = { '+', '+', '+', '#', }, + .c[S][S][S] = { '+', '+', '+', '#', }, + .c[S][S][D] = { '#', '#', '#', '#', }, + .c[S][D][_] = { '#', '#', '#', '#', }, + .c[S][D][d] = { '#', '#', '#', '#', }, + .c[S][D][S] = { '#', '#', '#', '#', }, + .c[S][D][D] = { '#', '#', '#', '#', }, + .c[D][_][_] = { '=', '#', '#', '#', }, + .c[D][_][d] = { '#', '#', '#', '#', }, + .c[D][_][S] = { '#', '#', '#', '#', }, + .c[D][_][D] = { '=', '#', '#', '#', }, + .c[D][d][_] = { '#', '#', '#', '#', }, + .c[D][d][d] = { '#', '#', '#', '#', }, + .c[D][d][S] = { '#', '#', '#', '#', }, + .c[D][d][D] = { '#', '#', '#', '#', }, + .c[D][S][_] = { '#', '#', '#', '#', }, + .c[D][S][d] = { '#', '#', '#', '#', }, + .c[D][S][S] = { '#', '#', '#', '#', }, + .c[D][S][D] = { '#', '#', '#', '#', }, + .c[D][D][_] = { '#', '#', '#', '#', }, + .c[D][D][d] = { '#', '#', '#', '#', }, + .c[D][D][S] = { '#', '#', '#', '#', }, + .c[D][D][D] = { '#', '#', '#', '#', }, + }; + return &ascii_box; +} - LNS_COUNT = 256 +static const struct box_chars * +get_unicode_box (void) +{ + enum { + _ = ASCII_LINE_NONE, + d = ASCII_LINE_DASHED, + S = ASCII_LINE_SINGLE, + D = ASCII_LINE_DOUBLE, }; -/* Carriage return style. */ -enum - { - CRS_BS, /* Multiple backspaces. */ - CRS_CR /* Single carriage return. */ - }; + static const struct box_chars unicode_box = + { + /* r b l t: _ d S D */ + .c[_][_][_] = { 0x0020, 0x2575, 0x2575, 0x2551, }, /* ╵╵║ */ + .c[_][_][d] = { 0x2574, 0x256f, 0x256f, 0x255c, }, /* ╴╯╯╜ */ + .c[_][_][S] = { 0x2574, 0x256f, 0x256f, 0x255c, }, /* ╴╯╯╜ */ + .c[_][_][D] = { 0x2550, 0x255b, 0x255b, 0x255d, }, /* ═╛╛╝ */ + .c[_][S][_] = { 0x2577, 0x2502, 0x2502, 0x2551, }, /* ╷││║ */ + .c[_][S][d] = { 0x256e, 0x2524, 0x2524, 0x2562, }, /* ╮┤┤╢ */ + .c[_][S][S] = { 0x256e, 0x2524, 0x2524, 0x2562, }, /* ╮┤┤╢ */ + .c[_][S][D] = { 0x2555, 0x2561, 0x2561, 0x2563, }, /* ╕╡╡╣ */ + .c[_][d][_] = { 0x2577, 0x250a, 0x2502, 0x2551, }, /* ╷┊│║ */ + .c[_][d][d] = { 0x256e, 0x2524, 0x2524, 0x2562, }, /* ╮┤┤╢ */ + .c[_][d][S] = { 0x256e, 0x2524, 0x2524, 0x2562, }, /* ╮┤┤╢ */ + .c[_][d][D] = { 0x2555, 0x2561, 0x2561, 0x2563, }, /* ╕╡╡╣ */ + .c[_][D][_] = { 0x2551, 0x2551, 0x2551, 0x2551, }, /* ║║║║ */ + .c[_][D][d] = { 0x2556, 0x2562, 0x2562, 0x2562, }, /* ╖╢╢╢ */ + .c[_][D][S] = { 0x2556, 0x2562, 0x2562, 0x2562, }, /* ╖╢╢╢ */ + .c[_][D][D] = { 0x2557, 0x2563, 0x2563, 0x2563, }, /* ╗╣╣╣ */ + .c[d][_][_] = { 0x2576, 0x2570, 0x2570, 0x2559, }, /* ╶╰╰╙ */ + .c[d][_][d] = { 0x254c, 0x2534, 0x2534, 0x2568, }, /* ╌┴┴╨ */ + .c[d][_][S] = { 0x2500, 0x2534, 0x2534, 0x2568, }, /* ─┴┴╨ */ + .c[d][_][D] = { 0x2550, 0x2567, 0x2567, 0x2569, }, /* ═╧╧╩ */ + .c[d][d][_] = { 0x256d, 0x251c, 0x251c, 0x255f, }, /* ╭├├╟ */ + .c[d][d][d] = { 0x252c, 0x002b, 0x253c, 0x256a, }, /* ┬+┼╪ */ + .c[d][d][S] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[d][d][D] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[d][S][_] = { 0x256d, 0x251c, 0x251c, 0x255f, }, /* ╭├├╟ */ + .c[d][S][d] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[d][S][S] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[d][S][D] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[d][D][_] = { 0x2553, 0x255f, 0x255f, 0x255f, }, /* ╓╟╟╟ */ + .c[d][D][d] = { 0x2565, 0x256b, 0x256b, 0x256b, }, /* ╥╫╫╫ */ + .c[d][D][S] = { 0x2565, 0x256b, 0x256b, 0x256b, }, /* ╥╫╫╫ */ + .c[d][D][D] = { 0x2566, 0x256c, 0x256c, 0x256c, }, /* ╦╬╬╬ */ + .c[S][_][_] = { 0x2576, 0x2570, 0x2570, 0x2559, }, /* ╶╰╰╙ */ + .c[S][_][d] = { 0x2500, 0x2534, 0x2534, 0x2568, }, /* ─┴┴╨ */ + .c[S][_][S] = { 0x2500, 0x2534, 0x2534, 0x2568, }, /* ─┴┴╨ */ + .c[S][_][D] = { 0x2550, 0x2567, 0x2567, 0x2569, }, /* ═╧╧╩ */ + .c[S][d][_] = { 0x256d, 0x251c, 0x251c, 0x255f, }, /* ╭├├╟ */ + .c[S][d][d] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[S][d][S] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[S][d][D] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[S][S][_] = { 0x256d, 0x251c, 0x251c, 0x255f, }, /* ╭├├╟ */ + .c[S][S][d] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[S][S][S] = { 0x252c, 0x253c, 0x253c, 0x256a, }, /* ┬┼┼╪ */ + .c[S][S][D] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[S][D][_] = { 0x2553, 0x255f, 0x255f, 0x255f, }, /* ╓╟╟╟ */ + .c[S][D][d] = { 0x2565, 0x256b, 0x256b, 0x256b, }, /* ╥╫╫╫ */ + .c[S][D][S] = { 0x2565, 0x256b, 0x256b, 0x256b, }, /* ╥╫╫╫ */ + .c[S][D][D] = { 0x2566, 0x256c, 0x256c, 0x256c, }, /* ╦╬╬╬ */ + .c[D][_][_] = { 0x2550, 0x2558, 0x2558, 0x255a, }, /* ═╘╘╚ */ + .c[D][_][d] = { 0x2550, 0x2567, 0x2567, 0x2569, }, /* ═╧╧╩ */ + .c[D][_][S] = { 0x2550, 0x2567, 0x2567, 0x2569, }, /* ═╧╧╩ */ + .c[D][_][D] = { 0x2550, 0x2567, 0x2567, 0x2569, }, /* ═╧╧╩ */ + .c[D][d][_] = { 0x2552, 0x255e, 0x255e, 0x2560, }, /* ╒╞╞╠ */ + .c[D][d][d] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[D][d][S] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[D][d][D] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[D][S][_] = { 0x2552, 0x255e, 0x255e, 0x2560, }, /* ╒╞╞╠ */ + .c[D][S][d] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[D][S][S] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[D][S][D] = { 0x2564, 0x256a, 0x256a, 0x256c, }, /* ╤╪╪╬ */ + .c[D][D][_] = { 0x2554, 0x2560, 0x2560, 0x2560, }, /* ╔╠╠╠ */ + .c[D][D][d] = { 0x2560, 0x256c, 0x256c, 0x256c, }, /* ╠╬╬╬ */ + .c[D][D][S] = { 0x2560, 0x256c, 0x256c, 0x256c, }, /* ╠╬╬╬ */ + .c[D][D][D] = { 0x2566, 0x256c, 0x256c, 0x256c, }, /* ╦╬╬╬ */ + }; + return &unicode_box; +} -/* Assembles a byte from four taystes. */ -#define TAYSTE2BYTE(T, L, B, R) \ - (((T) << LNS_TOP) \ - | ((L) << LNS_LEFT) \ - | ((B) << LNS_BOTTOM) \ - | ((R) << LNS_RIGHT)) +static int +ascii_line_from_render_line (int render_line) +{ + switch (render_line) + { + case RENDER_LINE_NONE: + return ASCII_LINE_NONE; -/* Extract tayste with shift value S from byte B. */ -#define BYTE2TAYSTE(B, S) \ - (((B) >> (S)) & 3) + case RENDER_LINE_DASHED: + return ASCII_LINE_DASHED; -/* Font style; take one of the first group |'d with one of the second group. */ -enum - { - FSTY_ON = 000, /* Turn font on. */ - FSTY_OFF = 001, /* Turn font off. */ + case RENDER_LINE_SINGLE: + case RENDER_LINE_THICK: + case RENDER_LINE_THIN: + return ASCII_LINE_SINGLE; - FSTY_ITALIC = 0, /* Italic font. */ - FSTY_BOLD = 2, /* Bold font. */ - FSTY_BOLD_ITALIC = 4, /* Bold-italic font. */ + case RENDER_LINE_DOUBLE: + return ASCII_LINE_DOUBLE; - FSTY_COUNT = 6 /* Number of font styles. */ - }; + default: + return ASCII_LINE_NONE; + } -/* A line of text. */ -struct line - { - unsigned short *chars; /* Characters and attributes. */ - int char_cnt; /* Length. */ - int char_cap; /* Allocated bytes. */ - }; +} -/* ASCII output driver extension record. */ -struct ascii_driver_ext +static ucs4_t +box_get (const struct box_chars *box, + int left_, int right_, int top_, int bottom_) +{ + bool rtl = render_direction_rtl (); + int left = ascii_line_from_render_line (rtl ? right_ : left_); + int right = ascii_line_from_render_line (rtl ? left_ : right_); + int top = ascii_line_from_render_line (top_); + int bottom = ascii_line_from_render_line (bottom_); + + return box->c[right][bottom][left][top]; +} + +/* ASCII output driver. */ +struct ascii_driver { + struct output_driver driver; + /* User parameters. */ - int char_set; /* CHS_ASCII/CHS_LATIN1; no-op right now. */ - int headers; /* 1=print headers at top of page. */ - int page_length; /* Page length in lines. */ - int page_width; /* Page width in characters. */ - int lpi; /* Lines per inch. */ - int cpi; /* Characters per inch. */ - int left_margin; /* Left margin in characters. */ - int right_margin; /* Right margin in characters. */ - int top_margin; /* Top margin in lines. */ - int bottom_margin; /* Bottom margin in lines. */ - int paginate; /* 1=insert formfeeds. */ - int tab_width; /* Width of a tab; 0 not to use tabs. */ - struct fixed_string ops[OPS_COUNT]; /* Basic output strings. */ - struct fixed_string box[LNS_COUNT]; /* Line & box drawing characters. */ - struct fixed_string fonts[FSTY_COUNT]; /* Font styles; NULL=overstrike. */ - int overstrike_style; /* OVS_SINGLE or OVS_LINE. */ - int carriage_return_style; /* Carriage return style. */ - int squeeze_blank_lines; /* 1=squeeze multiple blank lines into one. */ + bool append; /* Append if output file already exists? */ + bool emphasis; /* Enable bold and underline in output? */ + char *chart_file_name; /* Name of files used for charts. */ + + /* Colours for charts */ + struct cell_color fg; + struct cell_color bg; + + /* How the page width is determined: */ + enum { + FIXED_WIDTH, /* Specified by configuration. */ + VIEW_WIDTH, /* From SET WIDTH. */ + TERMINAL_WIDTH /* From the terminal's width. */ + } width_mode; + int width; /* Page width. */ + + int min_hbreak; /* Min cell size to break across pages. */ + + const struct box_chars *box; /* Line & box drawing characters. */ /* Internal state. */ - struct file_ext file; /* Output file. */ - int page_number; /* Current page number. */ - struct line *lines; /* Page content. */ - int lines_cap; /* Number of lines allocated. */ - int w, l; /* Actual width & length w/o margins, etc. */ - int cur_font; /* Current font by OUTP_F_*. */ -#if GLOBAL_DEBUGGING - int debug; /* Set by som_text_draw(). */ -#endif + struct file_handle *handle; + FILE *file; /* Output file. */ + bool error; /* Output error? */ + struct u8_line *lines; /* Page content. */ + int allocated_lines; /* Number of lines allocated. */ + int n_charts; /* Number of charts so far. */ + int n_objects; /* Number of objects so far. */ + const struct pivot_table *pt; + struct render_params params; }; -static int postopen (struct file_ext *); -static int preclose (struct file_ext *); +static const struct output_driver_class ascii_driver_class; -static struct outp_option_info *option_info; +static void ascii_submit (struct output_driver *, const struct output_item *); -static int -ascii_open_global (struct outp_class *this UNUSED) -{ - option_info = xmalloc (sizeof *option_info); - option_info->initial = 0; - option_info->options = 0; - return 1; -} +static int get_terminal_width (void); +static bool update_page_size (struct ascii_driver *, bool issue_error); +static int parse_page_size (struct driver_option *); -static char *s; -static int -ascii_close_global (struct outp_class *this UNUSED) -{ - free(option_info->initial); - free(option_info->options); - free(option_info); - free(s); - return 1; -} +static void ascii_draw_line (void *, int bb[TABLE_N_AXES][2], + enum render_line_style styles[TABLE_N_AXES][2], + struct cell_color colors[TABLE_N_AXES][2]); +static void ascii_measure_cell_width (void *, const struct table_cell *, + int *min, int *max); +static int ascii_measure_cell_height (void *, const struct table_cell *, + int width); +static void ascii_draw_cell (void *, const struct table_cell *, int color_idx, + int bb[TABLE_N_AXES][2], int valign_offset, + int spill[TABLE_N_AXES][2], + int clip[TABLE_N_AXES][2]); -static int * -ascii_font_sizes (struct outp_class *this UNUSED, int *n_valid_sizes) +static struct ascii_driver * +ascii_driver_cast (struct output_driver *driver) { - static int valid_sizes[] = {12, 12, 0, 0}; - - assert (n_valid_sizes); - *n_valid_sizes = 1; - return valid_sizes; + assert (driver->class == &ascii_driver_class); + return UP_CAST (driver, struct ascii_driver, driver); } -static int -ascii_preopen_driver (struct outp_driver *this) +static struct driver_option * +opt (struct output_driver *d, struct string_map *options, const char *key, + const char *default_value) { - struct ascii_driver_ext *x; - int i; - - assert (this->driver_open == 0); - msg (VM (1), _("ASCII driver initializing as `%s'..."), this->name); - this->ext = x = xmalloc (sizeof *x); - x->char_set = CHS_ASCII; - x->headers = 1; - x->page_length = 66; - x->page_width = 79; - x->lpi = 6; - x->cpi = 10; - x->left_margin = 0; - x->right_margin = 0; - x->top_margin = 2; - x->bottom_margin = 2; - x->paginate = 1; - x->tab_width = 8; - for (i = 0; i < OPS_COUNT; i++) - ls_null (&x->ops[i]); - for (i = 0; i < LNS_COUNT; i++) - ls_null (&x->box[i]); - for (i = 0; i < FSTY_COUNT; i++) - ls_null (&x->fonts[i]); - x->overstrike_style = OVS_SINGLE; - x->carriage_return_style = CRS_BS; - x->squeeze_blank_lines = 0; - x->file.filename = NULL; - x->file.mode = "wb"; - x->file.file = NULL; - x->file.sequence_no = &x->page_number; - x->file.param = x; - x->file.postopen = postopen; - x->file.preclose = preclose; - x->page_number = 0; - x->lines = NULL; - x->lines_cap = 0; - x->cur_font = OUTP_F_R; -#if GLOBAL_DEBUGGING - x->debug = 0; -#endif - return 1; + return driver_option_get (d, options, key, default_value); } -static int -ascii_postopen_driver (struct outp_driver *this) +/* Return true iff the terminal appears to be an xterm with + UTF-8 capabilities */ +static bool +term_is_utf8_xterm (void) { - struct ascii_driver_ext *x = this->ext; - - assert (this->driver_open == 0); - - if (NULL == x->file.filename) - x->file.filename = xstrdup ("pspp.list"); - - x->w = x->page_width - x->left_margin - x->right_margin; - x->l = (x->page_length - (x->headers ? 3 : 0) - x->top_margin - - x->bottom_margin - 1); - if (x->w < 59 || x->l < 15) - { - msg (SE, _("ascii driver: Area of page excluding margins and headers " - "must be at least 59 characters wide by 15 lines long. Page as " - "configured is only %d characters by %d lines."), x->w, x->l); - return 0; - } - - this->res = x->lpi * x->cpi; - this->horiz = x->lpi; - this->vert = x->cpi; - this->width = x->w * this->horiz; - this->length = x->l * this->vert; - - if (ls_null_p (&x->ops[OPS_FORMFEED])) - ls_create (&x->ops[OPS_FORMFEED], "\f"); - if (ls_null_p (&x->ops[OPS_NEWLINE]) - || !strcmp (ls_c_str (&x->ops[OPS_NEWLINE]), "default")) - { - ls_create (&x->ops[OPS_NEWLINE], "\n"); - x->file.mode = "wt"; - } - - { - int i; - - for (i = 0; i < LNS_COUNT; i++) - { - char c[2]; - c[1] = 0; - if (!ls_null_p (&x->box[i])) - continue; - switch (i) - { - case TAYSTE2BYTE (0, 0, 0, 0): - c[0] = ' '; - break; - - case TAYSTE2BYTE (0, 1, 0, 0): - case TAYSTE2BYTE (0, 1, 0, 1): - case TAYSTE2BYTE (0, 0, 0, 1): - c[0] = '-'; - break; - - case TAYSTE2BYTE (1, 0, 0, 0): - case TAYSTE2BYTE (1, 0, 1, 0): - case TAYSTE2BYTE (0, 0, 1, 0): - c[0] = '|'; - break; - - case TAYSTE2BYTE (0, 3, 0, 0): - case TAYSTE2BYTE (0, 3, 0, 3): - case TAYSTE2BYTE (0, 0, 0, 3): - case TAYSTE2BYTE (0, 2, 0, 0): - case TAYSTE2BYTE (0, 2, 0, 2): - case TAYSTE2BYTE (0, 0, 0, 2): - c[0] = '='; - break; - - case TAYSTE2BYTE (3, 0, 0, 0): - case TAYSTE2BYTE (3, 0, 3, 0): - case TAYSTE2BYTE (0, 0, 3, 0): - case TAYSTE2BYTE (2, 0, 0, 0): - case TAYSTE2BYTE (2, 0, 2, 0): - case TAYSTE2BYTE (0, 0, 2, 0): - c[0] = '#'; - break; - - default: - if (BYTE2TAYSTE (i, LNS_LEFT) > 1 - || BYTE2TAYSTE (i, LNS_TOP) > 1 - || BYTE2TAYSTE (i, LNS_RIGHT) > 1 - || BYTE2TAYSTE (i, LNS_BOTTOM) > 1) - c[0] = '#'; - else - c[0] = '+'; - break; - } - ls_create (&x->box[i], c); - } - } - - { - int i; - - this->cp_x = this->cp_y = 0; - this->font_height = this->vert; - this->prop_em_width = this->horiz; - this->fixed_width = this->horiz; - - this->horiz_line_width[0] = 0; - this->vert_line_width[0] = 0; - - for (i = 1; i < OUTP_L_COUNT; i++) - { - this->horiz_line_width[i] = this->vert; - this->vert_line_width[i] = this->horiz; - } - - for (i = 0; i < (1 << OUTP_L_COUNT); i++) - { - this->horiz_line_spacing[i] = (i & ~1) ? this->vert : 0; - this->vert_line_spacing[i] = (i & ~1) ? this->horiz : 0; - } - } - - this->driver_open = 1; - msg (VM (2), _("%s: Initialization complete."), this->name); - - return 1; + const char *term = getenv ("TERM"); + const char *xterm_locale = getenv ("XTERM_LOCAL"); + return (term && xterm_locale + && !strcmp (term, "xterm") + && (strcasestr (xterm_locale, "utf8") + || strcasestr (xterm_locale, "utf-8"))); } -static int -ascii_close_driver (struct outp_driver *this) +static struct output_driver * +ascii_create (struct file_handle *fh, enum settings_output_devices device_type, + struct string_map *o) { - struct ascii_driver_ext *x = this->ext; - int i; - - assert (this->driver_open == 1); - msg (VM (2), _("%s: Beginning closing..."), this->name); - - x = this->ext; - for (i = 0; i < OPS_COUNT; i++) - ls_destroy (&x->ops[i]); - for (i = 0; i < LNS_COUNT; i++) - ls_destroy (&x->box[i]); - for (i = 0; i < FSTY_COUNT; i++) - ls_destroy (&x->fonts[i]); - if (x->lines != NULL) - { - int line; - - for (line = 0; line < x->lines_cap; line++) - free (x->lines[line].chars); - free (x->lines); - } - fn_close_ext (&x->file); - free (x->file.filename); - free (x); - - this->driver_open = 0; - msg (VM (3), _("%s: Finished closing."), this->name); - - return 1; -} - -/* Generic option types. */ -enum - { - pos_int_arg = -10, - nonneg_int_arg, - string_arg, - font_string_arg, - boolean_arg + enum { BOX_ASCII, BOX_UNICODE } box; + struct output_driver *d; + struct ascii_driver *a = XZALLOC (struct ascii_driver); + d = &a->driver; + output_driver_init (&a->driver, &ascii_driver_class, fh_get_file_name (fh), device_type); + a->append = parse_boolean (opt (d, o, "append", "false")); + a->emphasis = parse_boolean (opt (d, o, "emphasis", "false")); + + a->chart_file_name = parse_chart_file_name (opt (d, o, "charts", fh_get_file_name (fh))); + a->handle = fh; + + + bool terminal = !strcmp (fh_get_file_name (fh), "-") && isatty (1); + a->width = parse_page_size (opt (d, o, "width", "-1")); + a->width_mode = (a->width > 0 ? FIXED_WIDTH + : terminal ? TERMINAL_WIDTH + : VIEW_WIDTH); + a->min_hbreak = parse_int (opt (d, o, "min-hbreak", "-1"), -1, INT_MAX); + + a->bg = parse_color (opt (d, o, "background-color", "#FFFFFFFFFFFF")); + a->fg = parse_color (opt (d, o, "foreground-color", "#000000000000")); + + const char *default_box = (terminal && (!strcmp (locale_charset (), "UTF-8") + || term_is_utf8_xterm ()) + ? "unicode" : "ascii"); + box = parse_enum (opt (d, o, "box", default_box), + "ascii", BOX_ASCII, + "unicode", BOX_UNICODE, + NULL_SENTINEL); + a->box = box == BOX_ASCII ? get_ascii_box () : get_unicode_box (); + + a->file = NULL; + a->error = false; + a->lines = NULL; + a->allocated_lines = 0; + a->n_charts = 0; + a->n_objects = 0; + + static const struct render_ops ascii_render_ops = { + .draw_line = ascii_draw_line, + .measure_cell_width = ascii_measure_cell_width, + .measure_cell_height = ascii_measure_cell_height, + .adjust_break = NULL, + .draw_cell = ascii_draw_cell, }; - -static struct outp_option option_tab[] = - { - {"headers", boolean_arg, 0}, - {"output-file", 1, 0}, - {"char-set", 2, 0}, - {"length", pos_int_arg, 0}, - {"width", pos_int_arg, 1}, - {"lpi", pos_int_arg, 2}, - {"cpi", pos_int_arg, 3}, - {"init", string_arg, 0}, - {"done", string_arg, 1}, - {"left-margin", nonneg_int_arg, 0}, - {"right-margin", nonneg_int_arg, 1}, - {"top-margin", nonneg_int_arg, 2}, - {"bottom-margin", nonneg_int_arg, 3}, - {"paginate", boolean_arg, 1}, - {"form-feed-string", string_arg, 2}, - {"newline-string", string_arg, 3}, - {"italic-on", font_string_arg, 0}, - {"italic-off", font_string_arg, 1}, - {"bold-on", font_string_arg, 2}, - {"bold-off", font_string_arg, 3}, - {"bold-italic-on", font_string_arg, 4}, - {"bold-italic-off", font_string_arg, 5}, - {"overstrike-style", 3, 0}, - {"tab-width", nonneg_int_arg, 4}, - {"carriage-return-style", 4, 0}, - {"squeeze", boolean_arg, 2}, - {"", 0, 0}, + a->params.ops = &ascii_render_ops; + a->params.aux = a; + a->params.size[H] = a->width; + a->params.size[V] = INT_MAX; + a->params.font_size[H] = 1; + a->params.font_size[V] = 1; + + static const int ascii_line_widths[RENDER_N_LINES] = { + [RENDER_LINE_NONE] = 0, + [RENDER_LINE_SINGLE] = 1, + [RENDER_LINE_DASHED] = 1, + [RENDER_LINE_THICK] = 1, + [RENDER_LINE_THIN] = 1, + [RENDER_LINE_DOUBLE] = 1, }; + a->params.line_widths = ascii_line_widths; + a->params.supports_margins = false; + a->params.rtl = render_direction_rtl (); + a->params.printing = true; -static void -ascii_option (struct outp_driver *this, const char *key, - const struct string *val) -{ - struct ascii_driver_ext *x = this->ext; - int cat, subcat; - const char *value; + if (!update_page_size (a, true)) + goto error; - value = ds_c_str (val); - if (!strncmp (key, "box[", 4)) + a->file = fn_open (a->handle, a->append ? "a" : "w"); + if (!a->file) { - char *tail; - int indx = strtol (&key[4], &tail, 4); - if (*tail != ']' || indx < 0 || indx > LNS_COUNT) - { - msg (SE, _("Bad index value for `box' key: syntax is box[INDEX], " - "0 <= INDEX < %d decimal, with INDEX expressed in base 4."), - LNS_COUNT); - return; - } - if (!ls_null_p (&x->box[indx])) - msg (SW, _("Duplicate value for key `%s'."), key); - ls_create (&x->box[indx], value); - return; + msg_error (errno, _("ascii: opening output file `%s'"), + fh_get_file_name (a->handle)); + goto error; } - cat = outp_match_keyword (key, option_tab, option_info, &subcat); - switch (cat) - { - case 0: - msg (SE, _("Unknown configuration parameter `%s' for ascii device driver."), - key); - break; - case 1: - free (x->file.filename); - x->file.filename = xstrdup (value); - break; - case 2: - if (!strcmp (value, "ascii")) - x->char_set = CHS_ASCII; - else if (!strcmp (value, "latin1")) - x->char_set = CHS_LATIN1; - else - msg (SE, _("Unknown character set `%s'. Valid character sets are " - "`ascii' and `latin1'."), value); - break; - case 3: - if (!strcmp (value, "single")) - x->overstrike_style = OVS_SINGLE; - else if (!strcmp (value, "line")) - x->overstrike_style = OVS_LINE; - else - msg (SE, _("Unknown overstrike style `%s'. Valid overstrike styles " - "are `single' and `line'."), value); - break; - case 4: - if (!strcmp (value, "bs")) - x->carriage_return_style = CRS_BS; - else if (!strcmp (value, "cr")) - x->carriage_return_style = CRS_CR; - else - msg (SE, _("Unknown carriage return style `%s'. Valid carriage " - "return styles are `cr' and `bs'."), value); - break; - case pos_int_arg: - { - char *tail; - int arg; - - errno = 0; - arg = strtol (value, &tail, 0); - if (arg < 1 || errno == ERANGE || *tail) - { - msg (SE, _("Positive integer required as value for `%s'."), key); - break; - } - switch (subcat) - { - case 0: - x->page_length = arg; - break; - case 1: - x->page_width = arg; - break; - case 2: - x->lpi = arg; - break; - case 3: - x->cpi = arg; - break; - default: - assert (0); - } - } - break; - case nonneg_int_arg: - { - char *tail; - int arg; - - errno = 0; - arg = strtol (value, &tail, 0); - if (arg < 0 || errno == ERANGE || *tail) - { - msg (SE, _("Zero or positive integer required as value for `%s'."), - key); - break; - } - switch (subcat) - { - case 0: - x->left_margin = arg; - break; - case 1: - x->right_margin = arg; - break; - case 2: - x->top_margin = arg; - break; - case 3: - x->bottom_margin = arg; - break; - case 4: - x->tab_width = arg; - break; - default: - assert (0); - } - } - break; - case string_arg: - { - struct fixed_string *s; - switch (subcat) - { - case 0: - s = &x->ops[OPS_INIT]; - break; - case 1: - s = &x->ops[OPS_DONE]; - break; - case 2: - s = &x->ops[OPS_FORMFEED]; - break; - case 3: - s = &x->ops[OPS_NEWLINE]; - break; - default: - assert (0); - abort (); - } - ls_create (s, value); - } - break; - case font_string_arg: - { - if (!strcmp (value, "overstrike")) - { - ls_destroy (&x->fonts[subcat]); - return; - } - ls_create (&x->fonts[subcat], value); - } - break; - case boolean_arg: - { - int setting; - if (!strcmp (value, "on") || !strcmp (value, "true") - || !strcmp (value, "yes") || atoi (value)) - setting = 1; - else if (!strcmp (value, "off") || !strcmp (value, "false") - || !strcmp (value, "no") || !strcmp (value, "0")) - setting = 0; - else - { - msg (SE, _("Boolean value expected for %s."), key); - return; - } - switch (subcat) - { - case 0: - x->headers = setting; - break; - case 1: - x->paginate = setting; - break; - case 2: - x->squeeze_blank_lines = setting; - break; - default: - assert (0); - } - } - break; - default: - assert (0); - } -} - -int -postopen (struct file_ext *f) -{ - struct ascii_driver_ext *x = f->param; - struct fixed_string *s = &x->ops[OPS_INIT]; + return d; - if (!ls_empty_p (s) && fwrite (ls_c_str (s), ls_length (s), 1, f->file) < 1) - { - msg (ME, _("ASCII output driver: %s: %s"), - f->filename, strerror (errno)); - return 0; - } - return 1; -} - -int -preclose (struct file_ext *f) -{ - struct ascii_driver_ext *x = f->param; - struct fixed_string *d = &x->ops[OPS_DONE]; - - if (!ls_empty_p (d) && fwrite (ls_c_str (d), ls_length (d), 1, f->file) < 1) - { - msg (ME, _("ASCII output driver: %s: %s"), - f->filename, strerror (errno)); - return 0; - } - return 1; +error: + output_driver_destroy (d); + return NULL; } static int -ascii_open_page (struct outp_driver *this) +parse_page_size (struct driver_option *option) { - struct ascii_driver_ext *x = this->ext; - int i; + int dim = atol (option->default_value); - assert (this->driver_open && !this->page_open); - x->page_number++; - if (!fn_open_ext (&x->file)) + if (option->value != NULL) { - msg (ME, _("ASCII output driver: %s: %s"), x->file.filename, - strerror (errno)); - return 0; - } - - if (x->l > x->lines_cap) - { - x->lines = xnrealloc (x->lines, x->l, sizeof *x->lines); - for (i = x->lines_cap; i < x->l; i++) + if (!strcmp (option->value, "auto")) + dim = -1; + else { - struct line *line = &x->lines[i]; - line->chars = NULL; - line->char_cap = 0; + int value; + char *tail; + + errno = 0; + value = strtol (option->value, &tail, 0); + if (value >= 1 && errno != ERANGE && *tail == '\0') + dim = value; + else + msg (MW, _("%s: %s must be positive integer or `auto'"), + option->driver_name, option->name); } - x->lines_cap = x->l; } - for (i = 0; i < x->l; i++) - x->lines[i].char_cnt = 0; + driver_option_destroy (option); - this->page_open = 1; - return 1; + return dim; } -/* Ensures that at least the first L characters of line I in the - driver identified by struct ascii_driver_ext *X have been cleared out. */ -static inline void -expand_line (struct ascii_driver_ext *x, int i, int l) +/* Re-calculates the page width based on settings, margins, and, if "auto" is + set, the size of the user's terminal window or GUI output window. */ +static bool +update_page_size (struct ascii_driver *a, bool issue_error) { - struct line *line; - int j; - - assert (i < x->lines_cap); - line = &x->lines[i]; - if (l > line->char_cap) - { - line->char_cap = l * 2; - line->chars = xnrealloc (line->chars, - line->char_cap, sizeof *line->chars); - } - for (j = line->char_cnt; j < l; j++) - line->chars[j] = ' '; - line->char_cnt = l; + enum { MIN_WIDTH = 6 }; + + int want_width = (a->width_mode == VIEW_WIDTH ? settings_get_viewwidth () + : a->width_mode == TERMINAL_WIDTH ? get_terminal_width () + : a->width); + bool ok = want_width >= MIN_WIDTH; + if (!ok && issue_error) + msg (ME, _("ascii: page must be at least %d characters wide, but " + "as configured is only %d characters"), + MIN_WIDTH, want_width); + + a->width = ok ? want_width : MIN_WIDTH; + a->params.size[H] = a->width; + a->params.min_break[H] = a->min_hbreak >= 0 ? a->min_hbreak : a->width / 2; + + return ok; } -/* Puts line L at (H,K) in the current output page. Assumes - struct ascii_driver_ext named `ext'. */ -#define draw_line(H, K, L) \ - ext->lines[K].chars[H] = (L) | 0x800 - -/* Line styles for each position. */ -#define T(STYLE) (STYLE<ext; - int x1 = r->x1 / this->horiz; - int x2 = r->x2 / this->horiz; - int y1 = r->y1 / this->vert; - int x; - - assert (this->driver_open && this->page_open); - if (x1 == x2) - return; -#if GLOBAL_DEBUGGING - if (x1 > x2 - || x1 < 0 || x1 >= ext->w - || x2 <= 0 || x2 > ext->w - || y1 < 0 || y1 >= ext->l) - { -#if !SUPPRESS_WARNINGS - printf (_("ascii_line_horz: bad hline (%d,%d),%d out of (%d,%d)\n"), - x1, x2, y1, ext->w, ext->l); -#endif - return; - } -#endif - - if (ext->lines[y1].char_cnt < x2) - expand_line (ext, y1, x2); + struct ascii_driver *a = ascii_driver_cast (driver); + int i; - for (x = x1; x < x2; x++) - draw_line (x, y1, (style << LNS_LEFT) | (style << LNS_RIGHT)); + if (a->file != NULL) + fn_close (a->handle, a->file); + fh_unref (a->handle); + free (a->chart_file_name); + for (i = 0; i < a->allocated_lines; i++) + u8_line_destroy (&a->lines[i]); + free (a->lines); + free (a); } static void -ascii_line_vert (struct outp_driver *this, const struct rect *r, - const struct color *c UNUSED, int style) +ascii_flush (struct output_driver *driver) { - struct ascii_driver_ext *ext = this->ext; - int x1 = r->x1 / this->horiz; - int y1 = r->y1 / this->vert; - int y2 = r->y2 / this->vert; - int y; - - assert (this->driver_open && this->page_open); - if (y1 == y2) - return; -#if GLOBAL_DEBUGGING - if (y1 > y2 - || x1 < 0 || x1 >= ext->w - || y1 < 0 || y1 >= ext->l - || y2 < 0 || y2 > ext->l) - { -#if !SUPPRESS_WARNINGS - printf (_("ascii_line_vert: bad vline %d,(%d,%d) out of (%d,%d)\n"), - x1, y1, y2, ext->w, ext->l); -#endif - return; - } -#endif - - for (y = y1; y < y2; y++) - if (ext->lines[y].char_cnt <= x1) - expand_line (ext, y, x1 + 1); - - for (y = y1; y < y2; y++) - draw_line (x1, y, (style << LNS_TOP) | (style << LNS_BOTTOM)); + struct ascii_driver *a = ascii_driver_cast (driver); + if (a->file) + fflush (a->file); } static void -ascii_line_intersection (struct outp_driver *this, const struct rect *r, - const struct color *c UNUSED, - const struct outp_styles *style) +ascii_output_lines (struct ascii_driver *a, size_t n_lines) { - struct ascii_driver_ext *ext = this->ext; - int x = r->x1 / this->horiz; - int y = r->y1 / this->vert; - int l; - - assert (this->driver_open && this->page_open); -#if GLOBAL_DEBUGGING - if (x < 0 || x >= ext->w || y < 0 || y >= ext->l) + for (size_t y = 0; y < n_lines; y++) { -#if !SUPPRESS_WARNINGS - printf (_("ascii_line_intersection: bad intsct (%d,%d) out of (%d,%d)\n"), - x, y, ext->w, ext->l); -#endif - return; - } -#endif - - l = ((style->l << LNS_LEFT) | (style->r << LNS_RIGHT) - | (style->t << LNS_TOP) | (style->b << LNS_BOTTOM)); + if (y < a->allocated_lines) + { + struct u8_line *line = &a->lines[y]; - if (ext->lines[y].char_cnt <= x) - expand_line (ext, y, x + 1); - draw_line (x, y, l); + while (ds_chomp_byte (&line->s, ' ')) + continue; + fwrite (ds_data (&line->s), 1, ds_length (&line->s), a->file); + u8_line_clear (&a->lines[y]); + } + putc ('\n', a->file); + } } -/* FIXME: Later we could set this up so that for certain devices it - performs shading? */ static void -ascii_box (struct outp_driver *this UNUSED, const struct rect *r UNUSED, - const struct color *bord UNUSED, const struct color *fill UNUSED) +ascii_output_table_item (struct ascii_driver *a, + const struct output_item *item) { - assert (this->driver_open && this->page_open); -} + update_page_size (a, false); + a->pt = item->table; -/* Polylines not supported. */ -static void -ascii_polyline_begin (struct outp_driver *this UNUSED, const struct color *c UNUSED) -{ - assert (this->driver_open && this->page_open); -} -static void -ascii_polyline_point (struct outp_driver *this UNUSED, int x UNUSED, int y UNUSED) -{ - assert (this->driver_open && this->page_open); + size_t *layer_indexes; + PIVOT_OUTPUT_FOR_EACH_LAYER (layer_indexes, item->table, true) + { + struct render_pager *p = render_pager_create (&a->params, item->table, + layer_indexes); + for (int i = 0; render_pager_has_next (p); i++) + { + if (a->n_objects++) + putc ('\n', a->file); + + ascii_output_lines (a, render_pager_draw_next (p, INT_MAX)); + } + render_pager_destroy (p); + } + + a->pt = NULL; } + static void -ascii_polyline_end (struct outp_driver *this UNUSED) +ascii_output_table_item_unref (struct ascii_driver *a, + struct output_item *table_item) { - assert (this->driver_open && this->page_open); + ascii_output_table_item (a, table_item); + output_item_unref (table_item); } static void -ascii_text_set_font_by_name (struct outp_driver * this, const char *s) +ascii_submit (struct output_driver *driver, const struct output_item *item) { - struct ascii_driver_ext *x = this->ext; - int len = strlen (s); - - assert (this->driver_open && this->page_open); - x->cur_font = OUTP_F_R; - if (len == 0) + struct ascii_driver *a = ascii_driver_cast (driver); + if (a->error) return; - if (s[len - 1] == 'I') + + switch (item->type) { - if (len > 1 && s[len - 2] == 'B') - x->cur_font = OUTP_F_BI; - else - x->cur_font = OUTP_F_I; + case OUTPUT_ITEM_TABLE: + ascii_output_table_item (a, item); + break; + + case OUTPUT_ITEM_IMAGE: + if (a->chart_file_name != NULL) + { + char *file_name = xr_write_png_image ( + item->image, a->chart_file_name, ++a->n_charts); + if (file_name != NULL) + { + struct output_item *text_item = text_item_create_nocopy ( + TEXT_ITEM_LOG, + xasprintf (_("See %s for an image."), file_name), + NULL); + + ascii_submit (driver, text_item); + output_item_unref (text_item); + free (file_name); + } + } + break; + + case OUTPUT_ITEM_CHART: + if (a->chart_file_name != NULL) + { + char *file_name = xr_draw_png_chart ( + item->chart, a->chart_file_name, ++a->n_charts, &a->fg, &a->bg); + if (file_name != NULL) + { + struct output_item *text_item = text_item_create_nocopy ( + TEXT_ITEM_LOG, + xasprintf (_("See %s for a chart."), file_name), + NULL); + + ascii_submit (driver, text_item); + output_item_unref (text_item); + free (file_name); + } + } + break; + + case OUTPUT_ITEM_TEXT: + if (item->text.subtype != TEXT_ITEM_PAGE_TITLE) + ascii_output_table_item_unref ( + a, text_item_to_table_item (output_item_ref (item))); + break; + + case OUTPUT_ITEM_MESSAGE: + ascii_output_table_item_unref ( + a, text_item_to_table_item ( + message_item_to_text_item ( + output_item_ref (item)))); + break; + + case OUTPUT_ITEM_GROUP: + break; + + case OUTPUT_ITEM_PAGE_BREAK: + break; } - else if (s[len - 1] == 'B') - x->cur_font = OUTP_F_B; } -static void -ascii_text_set_font_by_position (struct outp_driver *this, int pos) -{ - struct ascii_driver_ext *x = this->ext; - assert (this->driver_open && this->page_open); - x->cur_font = pos >= 0 && pos < 4 ? pos : 0; -} +const struct output_driver_factory txt_driver_factory = + { "txt", "-", ascii_create }; +const struct output_driver_factory list_driver_factory = + { "list", "-", ascii_create }; -static void -ascii_text_set_font_by_family (struct outp_driver *this UNUSED, const char *s UNUSED) -{ - assert (this->driver_open && this->page_open); -} +static const struct output_driver_class ascii_driver_class = + { + .name = "text", + .destroy = ascii_destroy, + .submit = ascii_submit, + .flush = ascii_flush, + }; + +static char *ascii_reserve (struct ascii_driver *, int y, int x0, int x1, + int n); +static void ascii_layout_cell (struct ascii_driver *, + const struct table_cell *, + int bb[TABLE_N_AXES][2], + int clip[TABLE_N_AXES][2], + int *width, int *height); -static const char * -ascii_text_get_font_name (struct outp_driver *this) +static void +ascii_draw_line (void *a_, int bb[TABLE_N_AXES][2], + enum render_line_style styles[TABLE_N_AXES][2], + struct cell_color colors[TABLE_N_AXES][2] UNUSED) { - struct ascii_driver_ext *x = this->ext; + struct ascii_driver *a = a_; + char mbchar[6]; + int x0, y0, x1, y1; + ucs4_t uc; + int mblen; + int x, y; + + /* Clip to the page. */ + x0 = MAX (bb[H][0], 0); + y0 = MAX (bb[V][0], 0); + x1 = MIN (bb[H][1], a->width); + y1 = bb[V][1]; + if (x1 <= 0 || y1 <= 0 || x0 >= a->width) + return; - assert (this->driver_open && this->page_open); - switch (x->cur_font) + /* Draw. */ + uc = box_get (a->box, styles[V][0], styles[V][1], styles[H][0], styles[H][1]); + mblen = u8_uctomb (CHAR_CAST (uint8_t *, mbchar), uc, 6); + for (y = y0; y < y1; y++) { - case OUTP_F_R: - return "R"; - case OUTP_F_I: - return "I"; - case OUTP_F_B: - return "B"; - case OUTP_F_BI: - return "BI"; - default: - assert (0); + char *p = ascii_reserve (a, y, x0, x1, mblen * (x1 - x0)); + for (x = x0; x < x1; x++) + { + memcpy (p, mbchar, mblen); + p += mblen; + } } - abort (); } -static const char * -ascii_text_get_font_family (struct outp_driver *this UNUSED) +static void +ascii_measure_cell_width (void *a_, const struct table_cell *cell, + int *min_width, int *max_width) { - assert (this->driver_open && this->page_open); - return ""; + struct ascii_driver *a = a_; + int bb[TABLE_N_AXES][2]; + int clip[TABLE_N_AXES][2]; + int h; + + bb[H][0] = 0; + bb[H][1] = INT_MAX; + bb[V][0] = 0; + bb[V][1] = INT_MAX; + clip[H][0] = clip[H][1] = clip[V][0] = clip[V][1] = 0; + ascii_layout_cell (a, cell, bb, clip, max_width, &h); + + bb[H][1] = 1; + ascii_layout_cell (a, cell, bb, clip, min_width, &h); } static int -ascii_text_set_size (struct outp_driver *this, int size) +ascii_measure_cell_height (void *a_, const struct table_cell *cell, int width) { - assert (this->driver_open && this->page_open); - return size == this->vert; + struct ascii_driver *a = a_; + int bb[TABLE_N_AXES][2]; + int clip[TABLE_N_AXES][2]; + int w, h; + + bb[H][0] = 0; + bb[H][1] = width; + bb[V][0] = 0; + bb[V][1] = INT_MAX; + clip[H][0] = clip[H][1] = clip[V][0] = clip[V][1] = 0; + ascii_layout_cell (a, cell, bb, clip, &w, &h); + return h; } -static int -ascii_text_get_size (struct outp_driver *this, int *em_width) +static void +ascii_draw_cell (void *a_, const struct table_cell *cell, int color_idx UNUSED, + int bb[TABLE_N_AXES][2], int valign_offset, + int spill[TABLE_N_AXES][2] UNUSED, + int clip[TABLE_N_AXES][2]) { - assert (this->driver_open && this->page_open); - if (em_width) - *em_width = this->horiz; - return this->vert; -} + struct ascii_driver *a = a_; + int w, h; -static void text_draw (struct outp_driver *this, struct outp_text *t); + bb[V][0] += valign_offset; + ascii_layout_cell (a, cell, bb, clip, &w, &h); +} -/* Divides the text T->S into lines of width T->H. Sets T->V to the - number of lines necessary. Actually draws the text if DRAW is - nonzero. +static char * +ascii_reserve (struct ascii_driver *a, int y, int x0, int x1, int n) +{ + if (y >= a->allocated_lines) + { + size_t new_alloc = MAX (25, a->allocated_lines); + while (new_alloc <= y) + new_alloc = xtimes (new_alloc, 2); + a->lines = xnrealloc (a->lines, new_alloc, sizeof *a->lines); + for (size_t i = a->allocated_lines; i < new_alloc; i++) + u8_line_init (&a->lines[i]); + a->allocated_lines = new_alloc; + } + return u8_line_reserve (&a->lines[y], x0, x1, n); +} - You probably don't want to look at this code. */ static void -delineate (struct outp_driver *this, struct outp_text *t, int draw) +text_draw (struct ascii_driver *a, enum table_halign halign, bool numeric, + bool bold, bool underline, + int bb[TABLE_N_AXES][2], int clip[TABLE_N_AXES][2], + int y, const uint8_t *string, int n, size_t width) { - /* Width we're fitting everything into. */ - int width = t->h / this->horiz; - - /* Maximum `y' position we can write to. */ - int max_y; - - /* Current position in string, character following end of string. */ - const char *s = ls_c_str (&t->s); - const char *end = ls_end (&t->s); + int x0 = MAX (0, clip[H][0]); + int y0 = MAX (0, clip[V][0]); + int x1 = MIN (a->width, clip[H][1]); + int y1 = clip[V][1]; + int x; - /* Temporary struct outp_text to pass to low-level function. */ - struct outp_text temp; + if (y < y0 || y >= y1) + return; -#if GLOBAL_DEBUGGING && 0 - if (!ext->debug) + switch (table_halign_interpret (halign, numeric)) { - ext->debug = 1; - printf (_("%s: horiz=%d, vert=%d\n"), this->name, this->horiz, this->vert); + case TABLE_HALIGN_LEFT: + x = bb[H][0]; + break; + case TABLE_HALIGN_CENTER: + x = (bb[H][0] + bb[H][1] - width + 1) / 2; + break; + case TABLE_HALIGN_RIGHT: + case TABLE_HALIGN_DECIMAL: + x = bb[H][1] - width; + break; + default: + NOT_REACHED (); } -#endif + if (x >= x1) + return; - if (!width) + while (x < x0) { - t->h = t->v = 0; - return; + ucs4_t uc; + int mblen; + int w; + + if (n == 0) + return; + mblen = u8_mbtouc (&uc, string, n); + + string += mblen; + n -= mblen; + + w = uc_width (uc, "UTF-8"); + if (w > 0) + { + x += w; + width -= w; + } } + if (n == 0) + return; - if (draw) + if (x + width > x1) { - temp.options = t->options; - ls_shallow_copy (&temp.s, &t->s); - temp.h = t->h / this->horiz; - temp.x = t->x / this->horiz; + int ofs; + + ofs = width = 0; + for (ofs = 0; ofs < n;) + { + ucs4_t uc; + int mblen; + int w; + + mblen = u8_mbtouc (&uc, string + ofs, n - ofs); + + w = uc_width (uc, "UTF-8"); + if (w > 0) + { + if (width + w > x1 - x) + break; + width += w; + } + ofs += mblen; + } + n = ofs; + if (n == 0) + return; } - else - t->y = 0; - temp.y = t->y / this->vert; - if (t->options & OUTP_T_VERT) - max_y = (t->v / this->vert) + temp.y - 1; + if (!a->emphasis || (!bold && !underline)) + memcpy (ascii_reserve (a, y, x, x + width, n), string, n); else - max_y = INT_MAX; - - while (end - s > width) { - const char *beg = s; - const char *space; - - /* Find first space before &s[width]. */ - space = &s[width]; - for (;;) - { - if (space > s) - { - if (!isspace ((unsigned char) space[-1])) - { - space--; - continue; - } - else - s = space; - } - else - s = space = &s[width]; - break; - } + size_t n_out; + size_t ofs; + char *out; + int mblen; + + /* First figure out how many bytes need to be inserted. */ + n_out = n; + for (ofs = 0; ofs < n; ofs += mblen) + { + ucs4_t uc; + int w; + + mblen = u8_mbtouc (&uc, string + ofs, n - ofs); + w = uc_width (uc, "UTF-8"); + + if (w > 0) + { + if (bold) + n_out += 1 + mblen; + if (underline) + n_out += 2; + } + } - /* Draw text. */ - if (draw) - { - ls_init (&temp.s, beg, space - beg); - temp.w = space - beg; - text_draw (this, &temp); - } - if (++temp.y > max_y) - return; - - /* Find first nonspace after space. */ - while (s < end && isspace ((unsigned char) *s)) - s++; - } - if (s < end) - { - if (draw) - { - ls_init (&temp.s, s, end - s); - temp.w = end - s; - text_draw (this, &temp); - } - temp.y++; + /* Then insert them. */ + out = ascii_reserve (a, y, x, x + width, n_out); + for (ofs = 0; ofs < n; ofs += mblen) + { + ucs4_t uc; + int w; + + mblen = u8_mbtouc (&uc, string + ofs, n - ofs); + w = uc_width (uc, "UTF-8"); + + if (w > 0) + { + if (bold) + { + out = mempcpy (out, string + ofs, mblen); + *out++ = '\b'; + } + if (underline) + { + *out++ = '_'; + *out++ = '\b'; + } + } + out = mempcpy (out, string + ofs, mblen); + } } - - t->v = (temp.y * this->vert) - t->y; } static void -ascii_text_metrics (struct outp_driver *this, struct outp_text *t) +ascii_layout_cell (struct ascii_driver *a, const struct table_cell *cell, + int bb[TABLE_N_AXES][2], int clip[TABLE_N_AXES][2], + int *widthp, int *heightp) { - assert (this->driver_open && this->page_open); - if (!(t->options & OUTP_T_HORZ)) - { - t->v = this->vert; - t->h = ls_length (&t->s) * this->horiz; - } - else - delineate (this, t, 0); -} + *widthp = 0; + *heightp = 0; -static void -ascii_text_draw (struct outp_driver *this, struct outp_text *t) -{ - /* FIXME: orientations not supported. */ - assert (this->driver_open && this->page_open); - if (!(t->options & OUTP_T_HORZ)) + struct string body = DS_EMPTY_INITIALIZER; + bool numeric = pivot_value_format (cell->value, a->pt, &body); + + /* Calculate length; if it's zero, then there's nothing to do. */ + if (ds_is_empty (&body)) { - struct outp_text temp; - - temp.options = t->options; - temp.s = t->s; - temp.h = temp.v = 0; - temp.x = t->x / this->horiz; - temp.y = t->y / this->vert; - text_draw (this, &temp); - ascii_text_metrics (this, t); - + ds_destroy (&body); return; } - delineate (this, t, 1); -} -static void -text_draw (struct outp_driver *this, struct outp_text *t) -{ - struct ascii_driver_ext *ext = this->ext; - unsigned attr = ext->cur_font << 8; - - int x = t->x; - int y = t->y; - - char *s = ls_c_str (&t->s); + size_t length = ds_length (&body); + const uint8_t *text = CHAR_CAST (uint8_t *, ds_cstr (&body)); - /* Expand the line with the assumption that S takes up LEN character - spaces (sometimes it takes up less). */ - int min_len; + char *breaks = xmalloc (length + 1); + u8_possible_linebreaks (text, length, "UTF-8", breaks); + breaks[length] = (breaks[length - 1] == UC_BREAK_MANDATORY + ? UC_BREAK_PROHIBITED : UC_BREAK_POSSIBLE); - assert (this->driver_open && this->page_open); - switch (t->options & OUTP_T_JUST_MASK) + size_t pos = 0; + int bb_width = bb[H][1] - bb[H][0]; + for (int y = bb[V][0]; y < bb[V][1] && pos < length; y++) { - case OUTP_T_JUST_LEFT: - break; - case OUTP_T_JUST_CENTER: - x -= (t->h - t->w) / 2; /* fall through */ - case OUTP_T_JUST_RIGHT: - x += (t->h - t->w); - break; - default: - assert (0); - } + const uint8_t *line = text + pos; + const char *b = breaks + pos; + size_t n = length - pos; - if (!(t->y < ext->l && x < ext->w)) - return; - min_len = min (x + ls_length (&t->s), ext->w); - if (ext->lines[t->y].char_cnt < min_len) - expand_line (ext, t->y, min_len); + size_t last_break_ofs = 0; + int last_break_width = 0; + int width = 0; + size_t graph_ofs; + size_t ofs; - { - int len = ls_length (&t->s); + for (ofs = 0; ofs < n;) + { + ucs4_t uc; + int mblen; + int w; - if (len + x > ext->w) - len = ext->w - x; - while (len--) - ext->lines[y].chars[x++] = *s++ | attr; - } -} - -/* ascii_close_page () and support routines. */ + mblen = u8_mbtouc (&uc, line + ofs, n - ofs); + if (b[ofs] == UC_BREAK_MANDATORY) + break; + else if (b[ofs] == UC_BREAK_POSSIBLE) + { + last_break_ofs = ofs; + last_break_width = width; + } + + w = uc_width (uc, "UTF-8"); + if (w > 0) + { + if (width + w > bb_width) + { + if (isspace (line[ofs])) + break; + else if (last_break_ofs != 0) + { + ofs = last_break_ofs; + width = last_break_width; + break; + } + } + width += w; + } + ofs += mblen; + } -#define LINE_BUF_SIZE 1024 -static char *line_buf; -static char *line_p; + /* Trim any trailing spaces off the end of the text to be drawn. */ + for (graph_ofs = ofs; graph_ofs > 0; graph_ofs--) + if (!isspace (line[graph_ofs - 1])) + break; + width -= ofs - graph_ofs; -static inline int -commit_line_buf (struct outp_driver *this) -{ - struct ascii_driver_ext *x = this->ext; - - if ((int) fwrite (line_buf, 1, line_p - line_buf, x->file.file) - < line_p - line_buf) - { - msg (ME, _("Writing `%s': %s"), x->file.filename, strerror (errno)); - return 0; + /* Draw text. */ + text_draw (a, cell->cell_style->halign, numeric, + cell->font_style->bold, + cell->font_style->underline, + bb, clip, y, line, graph_ofs, width); + + /* If a new-line ended the line, just skip the new-line. Otherwise, skip + past any spaces past the end of the line (but not past a new-line). */ + if (b[ofs] == UC_BREAK_MANDATORY) + ofs++; + else + while (ofs < n && isspace (line[ofs]) && b[ofs] != UC_BREAK_MANDATORY) + ofs++; + + if (width > *widthp) + *widthp = width; + ++*heightp; + pos += ofs; } - line_p = line_buf; - return 1; + free (breaks); + ds_destroy (&body); } -/* Writes everything from BP to EP exclusive into line_buf, or to - THIS->output if line_buf overflows. */ -static inline void -output_string (struct outp_driver *this, const char *bp, const char *ep) +void +ascii_test_write (struct output_driver *driver, + const char *s, int x, int y, bool bold, bool underline) { - if (LINE_BUF_SIZE - (line_p - line_buf) >= ep - bp) - { - memcpy (line_p, bp, ep - bp); - line_p += ep - bp; - } - else - while (bp < ep) - { - if (LINE_BUF_SIZE - (line_p - line_buf) <= 1 && !commit_line_buf (this)) - return; - *line_p++ = *bp++; - } -} + struct ascii_driver *a = ascii_driver_cast (driver); + int bb[TABLE_N_AXES][2]; + int width, height; -/* Writes everything from BP to EP exclusive into line_buf, or to - THIS->output if line_buf overflows. Returns 1 if additional passes - over the line are required. FIXME: probably could do a lot of - optimization here. */ -static inline int -output_shorts (struct outp_driver *this, - const unsigned short *bp, const unsigned short *ep) -{ - struct ascii_driver_ext *ext = this->ext; - size_t remaining = LINE_BUF_SIZE - (line_p - line_buf); - int result = 0; + if (!a->file) + return; - for (; bp < ep; bp++) - { - if (*bp & 0x800) - { - struct fixed_string *box = &ext->box[*bp & 0xff]; - size_t len = ls_length (box); - - if (remaining >= len) - { - memcpy (line_p, ls_c_str (box), len); - line_p += len; - remaining -= len; - } - else - { - if (!commit_line_buf (this)) - return 0; - output_string (this, ls_c_str (box), ls_end (box)); - remaining = LINE_BUF_SIZE - (line_p - line_buf); - } - } - else if (*bp & 0x0300) - { - struct fixed_string *on; - char buf[5]; - int len; - - switch (*bp & 0x0300) - { - case OUTP_F_I << 8: - on = &ext->fonts[FSTY_ON | FSTY_ITALIC]; - break; - case OUTP_F_B << 8: - on = &ext->fonts[FSTY_ON | FSTY_BOLD]; - break; - case OUTP_F_BI << 8: - on = &ext->fonts[FSTY_ON | FSTY_BOLD_ITALIC]; - break; - default: - assert (0); - abort (); - } - if (!on) - { - if (ext->overstrike_style == OVS_SINGLE) - switch (*bp & 0x0300) - { - case OUTP_F_I << 8: - buf[0] = '_'; - buf[1] = '\b'; - buf[2] = *bp; - len = 3; - break; - case OUTP_F_B << 8: - buf[0] = *bp; - buf[1] = '\b'; - buf[2] = *bp; - len = 3; - break; - case OUTP_F_BI << 8: - buf[0] = '_'; - buf[1] = '\b'; - buf[2] = *bp; - buf[3] = '\b'; - buf[4] = *bp; - len = 5; - break; - default: - assert (0); - abort (); - } - else - { - buf[0] = *bp; - result = len = 1; - } - } - else - { - buf[0] = *bp; - len = 1; - } - output_string (this, buf, &buf[len]); - } - else if (remaining) - { - *line_p++ = *bp; - remaining--; - } - else - { - if (!commit_line_buf (this)) - return 0; - remaining = LINE_BUF_SIZE - (line_p - line_buf); - *line_p++ = *bp; - } - } + struct cell_style cell_style = { .halign = TABLE_HALIGN_LEFT }; + struct font_style font_style = { + .bold = bold, + .underline = underline, + }; + const struct pivot_value value = { + .text = { + .type = PIVOT_VALUE_TEXT, + .local = CONST_CAST (char *, s), + .c = CONST_CAST (char *, s), + .id = CONST_CAST (char *, s), + .user_provided = true, + }, + }; + struct table_cell cell = { + .value = &value, + .font_style = &font_style, + .cell_style = &cell_style, + }; - return result; -} + bb[TABLE_HORZ][0] = x; + bb[TABLE_HORZ][1] = a->width; + bb[TABLE_VERT][0] = y; + bb[TABLE_VERT][1] = INT_MAX; -/* Writes CH into line_buf N times, or to THIS->output if line_buf - overflows. */ -static inline void -output_char (struct outp_driver *this, int n, char ch) -{ - if (LINE_BUF_SIZE - (line_p - line_buf) >= n) - { - memset (line_p, ch, n); - line_p += n; - } - else - while (n--) - { - if (LINE_BUF_SIZE - (line_p - line_buf) <= 1 && !commit_line_buf (this)) - return; - *line_p++ = ch; - } + struct pivot_table pt = { + .show_values = SETTINGS_VALUE_SHOW_DEFAULT, + .show_variables = SETTINGS_VALUE_SHOW_DEFAULT, + }; + a->pt = &pt; + ascii_layout_cell (a, &cell, bb, bb, &width, &height); + a->pt = NULL; } -/* Advance the carriage from column 0 to the left margin. */ -static void -advance_to_left_margin (struct outp_driver *this) +void +ascii_test_set_length (struct output_driver *driver, int y, int length) { - struct ascii_driver_ext *ext = this->ext; - int margin; + struct ascii_driver *a = ascii_driver_cast (driver); - margin = ext->left_margin; - if (margin == 0) + if (!a->file) return; - if (ext->tab_width && margin >= ext->tab_width) - { - output_char (this, margin / ext->tab_width, '\t'); - margin %= ext->tab_width; - } - if (margin) - output_char (this, margin, ' '); + + if (y < 0) + return; + u8_line_set_length (&a->lines[y], length); } -/* Move the output file carriage N_CHARS left, to the left margin. */ -static void -return_carriage (struct outp_driver *this, int n_chars) +void +ascii_test_flush (struct output_driver *driver) { - struct ascii_driver_ext *ext = this->ext; + struct ascii_driver *a = ascii_driver_cast (driver); - switch (ext->carriage_return_style) - { - case CRS_BS: - output_char (this, n_chars, '\b'); - break; - case CRS_CR: - output_char (this, 1, '\r'); - advance_to_left_margin (this); - break; - default: - assert (0); - abort (); - } + for (size_t i = a->allocated_lines; i-- > 0;) + if (a->lines[i].width) + { + ascii_output_lines (a, i + 1); + break; + } } + +static sig_atomic_t terminal_changed = true; +static int terminal_width; -/* Writes COUNT lines from the line buffer in THIS, starting at line - number FIRST. */ +#if HAVE_DECL_SIGWINCH static void -output_lines (struct outp_driver *this, int first, int count) +winch_handler (int signum UNUSED) { - struct ascii_driver_ext *ext = this->ext; - int line_num; - - struct fixed_string *newline = &ext->ops[OPS_NEWLINE]; - - int n_chars; - int n_passes; - - if (NULL == ext->file.file) - return; - - /* Iterate over all the lines to be output. */ - for (line_num = first; line_num < first + count; line_num++) - { - struct line *line = &ext->lines[line_num]; - unsigned short *p = line->chars; - unsigned short *end_p = p + line->char_cnt; - unsigned short *bp, *ep; - unsigned short attr = 0; - - assert (end_p >= p); - - /* Squeeze multiple blank lines into a single blank line if - requested. */ - if (ext->squeeze_blank_lines - && line_num > first - && ext->lines[line_num].char_cnt == 0 - && ext->lines[line_num - 1].char_cnt == 0) - continue; - - /* Output every character in the line in the appropriate - manner. */ - n_passes = 1; - bp = ep = p; - n_chars = 0; - advance_to_left_margin (this); - for (;;) - { - while (ep < end_p && attr == (*ep & 0x0300)) - ep++; - if (output_shorts (this, bp, ep)) - n_passes = 2; - n_chars += ep - bp; - bp = ep; - - if (bp >= end_p) - break; - - /* Turn off old font. */ - if (attr != (OUTP_F_R << 8)) - { - struct fixed_string *off; - - switch (attr) - { - case OUTP_F_I << 8: - off = &ext->fonts[FSTY_OFF | FSTY_ITALIC]; - break; - case OUTP_F_B << 8: - off = &ext->fonts[FSTY_OFF | FSTY_BOLD]; - break; - case OUTP_F_BI << 8: - off = &ext->fonts[FSTY_OFF | FSTY_BOLD_ITALIC]; - break; - default: - assert (0); - abort (); - } - if (off) - output_string (this, ls_c_str (off), ls_end (off)); - } - - /* Turn on new font. */ - attr = (*bp & 0x0300); - if (attr != (OUTP_F_R << 8)) - { - struct fixed_string *on; - - switch (attr) - { - case OUTP_F_I << 8: - on = &ext->fonts[FSTY_ON | FSTY_ITALIC]; - break; - case OUTP_F_B << 8: - on = &ext->fonts[FSTY_ON | FSTY_BOLD]; - break; - case OUTP_F_BI << 8: - on = &ext->fonts[FSTY_ON | FSTY_BOLD_ITALIC]; - break; - default: - assert (0); - abort (); - } - if (on) - output_string (this, ls_c_str (on), ls_end (on)); - } - - ep = bp + 1; - } - if (n_passes > 1) - { - char ch; - - return_carriage (this, n_chars); - n_chars = 0; - bp = ep = p; - for (;;) - { - while (ep < end_p && (*ep & 0x0300) == (OUTP_F_R << 8)) - ep++; - if (ep >= end_p) - break; - output_char (this, ep - bp, ' '); - - switch (*ep & 0x0300) - { - case OUTP_F_I << 8: - ch = '_'; - break; - case OUTP_F_B << 8: - ch = *ep; - break; - case OUTP_F_BI << 8: - ch = *ep; - n_passes = 3; - break; - default: - assert (0); - abort (); - } - output_char (this, 1, ch); - n_chars += ep - bp + 1; - bp = ep + 1; - ep = bp; - } - } - if (n_passes > 2) - { - return_carriage (this, n_chars); - bp = ep = p; - for (;;) - { - while (ep < end_p && (*ep & 0x0300) != (OUTP_F_BI << 8)) - ep++; - if (ep >= end_p) - break; - output_char (this, ep - bp, ' '); - output_char (this, 1, '_'); - bp = ep + 1; - ep = bp; - } - } - - output_string (this, ls_c_str (newline), ls_end (newline)); - } + terminal_changed = true; } +#endif - -static int -ascii_close_page (struct outp_driver *this) +int +get_terminal_width (void) { - static int s_len; - - struct ascii_driver_ext *x = this->ext; - int nl_len, ff_len, total_len; - char *cp; - int i; - - assert (this->driver_open && this->page_open); - - if (!line_buf) - line_buf = xmalloc (LINE_BUF_SIZE); - line_p = line_buf; - - nl_len = ls_length (&x->ops[OPS_NEWLINE]); - if (x->top_margin) - { - total_len = x->top_margin * nl_len; - if (s_len < total_len) - { - s_len = total_len; - s = xrealloc (s, s_len); - } - for (cp = s, i = 0; i < x->top_margin; i++) - { - memcpy (cp, ls_c_str (&x->ops[OPS_NEWLINE]), nl_len); - cp += nl_len; - } - output_string (this, s, &s[total_len]); - } - if (x->headers) +#if HAVE_DECL_SIGWINCH + static bool setup_signal; + if (!setup_signal) { - int len; - - total_len = nl_len + x->w; - if (s_len < total_len + 1) - { - s_len = total_len + 1; - s = xrealloc (s, s_len); - } - - memset (s, ' ', x->w); - - { - char temp[40]; - - snprintf (temp, 80, _("%s - Page %d"), get_start_date (), - x->page_number); - memcpy (&s[x->w - strlen (temp)], temp, strlen (temp)); - } + setup_signal = true; - if (outp_title && outp_subtitle) - { - len = min ((int) strlen (outp_title), x->w); - memcpy (s, outp_title, len); - } - memcpy (&s[x->w], ls_c_str (&x->ops[OPS_NEWLINE]), nl_len); - output_string (this, s, &s[total_len]); - - memset (s, ' ', x->w); - len = strlen (version) + 3 + strlen (host_system); - if (len < x->w) - sprintf (&s[x->w - len], "%s - %s" , version, host_system); - if (outp_subtitle || outp_title) - { - char *string = outp_subtitle ? outp_subtitle : outp_title; - len = min ((int) strlen (string), x->w); - memcpy (s, string, len); - } - memcpy (&s[x->w], ls_c_str (&x->ops[OPS_NEWLINE]), nl_len); - output_string (this, s, &s[total_len]); - output_string (this, &s[x->w], &s[total_len]); + struct sigaction action = { .sa_handler = winch_handler }; + sigemptyset (&action.sa_mask); + sigaction (SIGWINCH, &action, NULL); } - if (line_p != line_buf && !commit_line_buf (this)) - return 0; - - output_lines (this, 0, x->l); +#endif - ff_len = ls_length (&x->ops[OPS_FORMFEED]); - total_len = x->bottom_margin * nl_len + ff_len; - if (s_len < total_len) - s = xrealloc (s, total_len); - for (cp = s, i = 0; i < x->bottom_margin; i++) + if (terminal_changed) { - memcpy (cp, ls_c_str (&x->ops[OPS_NEWLINE]), nl_len); - cp += nl_len; - } - memcpy (cp, ls_c_str (&x->ops[OPS_FORMFEED]), ff_len); - if ( x->paginate ) - output_string (this, s, &s[total_len]); - - if (line_p != line_buf && !commit_line_buf (this)) - return 0; - - this->page_open = 0; - return 1; -} - + terminal_changed = false; +#ifdef HAVE_TERMIOS_H + struct winsize ws; + if (!ioctl (0, TIOCGWINSZ, &ws)) + terminal_width = ws.ws_col; + else +#endif + { + if (getenv ("COLUMNS")) + terminal_width = atoi (getenv ("COLUMNS")); + } -static void -ascii_chart_initialise(struct outp_driver *d UNUSED, struct chart *ch ) -{ - msg(MW, _("Charts are unsupported with ascii drivers.")); - ch->lp = 0; -} + if (terminal_width <= 0 || terminal_width > 1024) + terminal_width = 79; + } -static void -ascii_chart_finalise(struct outp_driver *d UNUSED, struct chart *ch UNUSED) -{ - + return terminal_width; } - -struct outp_class ascii_class = -{ - "ascii", - 0, - 0, - - ascii_open_global, - ascii_close_global, - ascii_font_sizes, - - ascii_preopen_driver, - ascii_option, - ascii_postopen_driver, - ascii_close_driver, - - ascii_open_page, - ascii_close_page, - - NULL, - - ascii_line_horz, - ascii_line_vert, - ascii_line_intersection, - - ascii_box, - ascii_polyline_begin, - ascii_polyline_point, - ascii_polyline_end, - - ascii_text_set_font_by_name, - ascii_text_set_font_by_position, - ascii_text_set_font_by_family, - ascii_text_get_font_name, - ascii_text_get_font_family, - ascii_text_set_size, - ascii_text_get_size, - ascii_text_metrics, - ascii_text_draw, - - ascii_chart_initialise, - ascii_chart_finalise -};