[BACK]Return to fmt.c CVS log [TXT][DIR] Up to [local] / src / usr.bin / fmt

Annotation of src/usr.bin/fmt/fmt.c, Revision 1.29

1.29    ! lum         1: /*     $OpenBSD: fmt.c,v 1.28 2012/01/15 11:43:45 schwarze Exp $       */
1.1       deraadt     2:
1.10      millert     3: /* Sensible version of fmt
                      4:  *
                      5:  * Syntax: fmt [ options ] [ goal [ max ] ] [ filename ... ]
                      6:  *
                      7:  * Since the documentation for the original fmt is so poor, here
                      8:  * is an accurate description of what this one does. It's usually
                      9:  * the same. The *mechanism* used may differ from that suggested
                     10:  * here. Note that we are *not* entirely compatible with fmt,
                     11:  * because fmt gets so many things wrong.
                     12:  *
                     13:  * 1. Tabs are expanded, assuming 8-space tab stops.
                     14:  *    If the `-t <n>' option is given, we assume <n>-space
                     15:  *    tab stops instead.
                     16:  *    Trailing blanks are removed from all lines.
                     17:  *    x\b == nothing, for any x other than \b.
                     18:  *    Other control characters are simply stripped. This
                     19:  *    includes \r.
                     20:  * 2. Each line is split into leading whitespace and
                     21:  *    everything else. Maximal consecutive sequences of
                     22:  *    lines with the same leading whitespace are considered
                     23:  *    to form paragraphs, except that a blank line is always
                     24:  *    a paragraph to itself.
                     25:  *    If the `-p' option is given then the first line of a
                     26:  *    paragraph is permitted to have indentation different
                     27:  *    from that of the other lines.
                     28:  *    If the `-m' option is given then a line that looks
                     29:  *    like a mail message header, if it is not immediately
                     30:  *    preceded by a non-blank non-message-header line, is
                     31:  *    taken to start a new paragraph, which also contains
                     32:  *    any subsequent lines with non-empty leading whitespace.
1.19      millert    33:  *    Unless the `-n' option is given, lines beginning with
                     34:  *    a . (dot) are not formatted.
1.10      millert    35:  * 3. The "everything else" is split into words; a word
                     36:  *    includes its trailing whitespace, and a word at the
                     37:  *    end of a line is deemed to be followed by a single
                     38:  *    space, or two spaces if it ends with a sentence-end
                     39:  *    character. (See the `-d' option for how to change that.)
                     40:  *    If the `-s' option has been given, then a word's trailing
                     41:  *    whitespace is replaced by what it would have had if it
                     42:  *    had occurred at end of line.
                     43:  * 4. Each paragraph is sent to standard output as follows.
                     44:  *    We output the leading whitespace, and then enough words
                     45:  *    to make the line length as near as possible to the goal
                     46:  *    without exceeding the maximum. (If a single word would
                     47:  *    exceed the maximum, we output that anyway.) Of course
                     48:  *    the trailing whitespace of the last word is ignored.
                     49:  *    We then emit a newline and start again if there are any
                     50:  *    words left.
                     51:  *    Note that for a blank line this translates as "We emit
                     52:  *    a newline".
                     53:  *    If the `-l <n>' option is given, then leading whitespace
                     54:  *    is modified slightly: <n> spaces are replaced by a tab.
                     55:  *    Indented paragraphs (see above under `-p') make matters
                     56:  *    more complicated than this suggests. Actually every paragraph
                     57:  *    has two `leading whitespace' values; the value for the first
                     58:  *    line, and the value for the most recent line. (While processing
                     59:  *    the first line, the two are equal. When `-p' has not been
                     60:  *    given, they are always equal.) The leading whitespace
                     61:  *    actually output is that of the first line (for the first
                     62:  *    line of *output*) or that of the most recent line (for
                     63:  *    all other lines of output).
                     64:  *    When `-m' has been given, message header paragraphs are
                     65:  *    taken as having first-leading-whitespace empty and
                     66:  *    subsequent-leading-whitespace two spaces.
                     67:  *
                     68:  * Multiple input files are formatted one at a time, so that a file
                     69:  * never ends in the middle of a line.
                     70:  *
                     71:  * There's an alternative mode of operation, invoked by giving
                     72:  * the `-c' option. In that case we just center every line,
                     73:  * and most of the other options are ignored. This should
                     74:  * really be in a separate program, but we must stay compatible
                     75:  * with old `fmt'.
                     76:  *
                     77:  * QUERY: Should `-m' also try to do the right thing with quoted text?
                     78:  * QUERY: `-b' to treat backslashed whitespace as old `fmt' does?
                     79:  * QUERY: Option meaning `never join lines'?
                     80:  * QUERY: Option meaning `split in mid-word to avoid overlong lines'?
                     81:  * (Those last two might not be useful, since we have `fold'.)
                     82:  *
                     83:  * Differences from old `fmt':
                     84:  *
                     85:  *   - We have many more options. Options that aren't understood
                     86:  *     generate a lengthy usage message, rather than being
                     87:  *     treated as filenames.
                     88:  *   - Even with `-m', our handling of message headers is
                     89:  *     significantly different. (And much better.)
                     90:  *   - We don't treat `\ ' as non-word-breaking.
                     91:  *   - Downward changes of indentation start new paragraphs
                     92:  *     for us, as well as upward. (I think old `fmt' behaves
                     93:  *     in the way it does in order to allow indented paragraphs,
                     94:  *     but this is a broken way of making indented paragraphs
                     95:  *     behave right.)
                     96:  *   - Given the choice of going over or under |goal_length|
                     97:  *     by the same amount, we go over; old `fmt' goes under.
                     98:  *   - We treat `?' as ending a sentence, and not `:'. Old `fmt'
                     99:  *     does the reverse.
                    100:  *   - We return approved return codes. Old `fmt' returns
                    101:  *     1 for some errors, and *the number of unopenable files*
                    102:  *     when that was all that went wrong.
                    103:  *   - We have fewer crashes and more helpful error messages.
                    104:  *   - We don't turn spaces into tabs at starts of lines unless
                    105:  *     specifically requested.
                    106:  *   - New `fmt' is somewhat smaller and slightly faster than
                    107:  *     old `fmt'.
                    108:  *
                    109:  * Bugs:
                    110:  *
                    111:  *   None known. There probably are some, though.
                    112:  *
                    113:  * Portability:
                    114:  *
                    115:  *   I believe this code to be pretty portable. It does require
                    116:  *   that you have `getopt'. If you need to include "getopt.h"
                    117:  *   for this (e.g., if your system didn't come with `getopt'
                    118:  *   and you installed it yourself) then you should arrange for
                    119:  *   NEED_getopt_h to be #defined.
                    120:  *
                    121:  *   Everything here should work OK even on nasty 16-bit
                    122:  *   machines and nice 64-bit ones. However, it's only really
                    123:  *   been tested on my FreeBSD machine. Your mileage may vary.
                    124:  */
                    125:
                    126: /* Copyright (c) 1997 Gareth McCaughan. All rights reserved.
                    127:  *
                    128:  * Redistribution and use of this code, in source or binary forms,
                    129:  * with or without modification, are permitted subject to the following
                    130:  * conditions:
                    131:  *
                    132:  *  - Redistribution of source code must retain the above copyright
1.1       deraadt   133:  *    notice, this list of conditions and the following disclaimer.
1.10      millert   134:  *
                    135:  *  - If you distribute modified source code it must also include
                    136:  *    a notice saying that it has been modified, and giving a brief
                    137:  *    description of what changes have been made.
                    138:  *
                    139:  * Disclaimer: I am not responsible for the results of using this code.
                    140:  *             If it formats your hard disc, sends obscene messages to
                    141:  *             your boss and kills your children then that's your problem
                    142:  *             not mine. I give absolutely no warranty of any sort as to
                    143:  *             what the program will do, and absolutely refuse to be held
                    144:  *             liable for any consequences of your using it.
                    145:  *             Thank you. Have a nice day.
                    146:  */
                    147:
                    148: /* RCS change log:
                    149:  * Revision 1.5  1998/03/02 18:02:21  gjm11
                    150:  * Minor changes for portability.
                    151:  *
                    152:  * Revision 1.4  1997/10/01 11:51:28  gjm11
                    153:  * Repair broken indented-paragraph handling.
                    154:  * Add mail message header stuff.
                    155:  * Improve comments and layout.
                    156:  * Make usable with non-BSD systems.
                    157:  * Add revision display to usage message.
                    158:  *
                    159:  * Revision 1.3  1997/09/30 16:24:47  gjm11
                    160:  * Add copyright notice, rcsid string and log message.
                    161:  *
                    162:  * Revision 1.2  1997/09/30 16:13:39  gjm11
                    163:  * Add options: -d <chars>, -l <width>, -p, -s, -t <width>, -h .
                    164:  * Parse options with `getopt'. Clean up code generally.
                    165:  * Make comments more accurate.
                    166:  *
                    167:  * Revision 1.1  1997/09/30 11:29:57  gjm11
                    168:  * Initial revision
1.1       deraadt   169:  */
                    170:
1.4       millert   171: #include <ctype.h>
1.18      millert   172: #include <err.h>
                    173: #include <locale.h>
1.1       deraadt   174: #include <stdio.h>
                    175: #include <stdlib.h>
                    176: #include <string.h>
1.18      millert   177: #include <sysexits.h>
                    178: #include <unistd.h>
1.10      millert   179:
                    180: /* Something that, we hope, will never be a genuine line length,
                    181:  * indentation etc.
1.1       deraadt   182:  */
1.10      millert   183: #define SILLY ((size_t)-1)
1.1       deraadt   184:
1.10      millert   185: /* I used to use |strtoul| for this, but (1) not all systems have it
                    186:  * and (2) it's probably better to use |strtol| to detect negative
                    187:  * numbers better.
                    188:  * If |fussyp==0| then we don't complain about non-numbers
                    189:  * (returning 0 instead), but we do complain about bad numbers.
                    190:  */
1.18      millert   191: static size_t
1.21      tedu      192: get_positive(const char *s, const char *err_mess, int fussyP)
                    193: {
                    194:        char *t;
                    195:        long result = strtol(s, &t, 0);
                    196:
                    197:        if (*t) {
                    198:                if (fussyP)
                    199:                        goto Lose;
                    200:                else
                    201:                        return 0;
                    202:        }
                    203:        if (result <= 0) {
                    204: Lose:
                    205:                errx(EX_USAGE, "%s", err_mess);
                    206:        }
                    207:
                    208:        return (size_t) result;
1.1       deraadt   209: }
                    210:
1.10      millert   211: /* Global variables */
                    212:
1.21      tedu      213: static int centerP = 0;                                /* Try to center lines? */
                    214: static size_t goal_length = 0;                 /* Target length for output lines */
                    215: static size_t max_length = 0;                  /* Maximum length for output lines */
                    216: static int coalesce_spaces_P = 0;              /* Coalesce multiple whitespace -> ' ' ? */
                    217: static int allow_indented_paragraphs = 0;      /* Can first line have diff. ind.? */
                    218: static int tab_width = 8;                      /* Number of spaces per tab stop */
                    219: static size_t output_tab_width = 0;            /* Ditto, when squashing leading spaces */
                    220: static const char *sentence_enders = ".?!";    /* Double-space after these */
                    221: static int grok_mail_headers = 0;              /* treat embedded mail headers magically? */
                    222: static int format_troff = 0;                   /* Format troff? */
                    223:
1.28      schwarze  224: static int n_errors = 0;                       /* Number of failed files. */
1.21      tedu      225: static char *output_buffer = NULL;             /* Output line will be built here */
                    226: static size_t x;                               /* Horizontal position in output line */
                    227: static size_t x0;                              /* Ditto, ignoring leading whitespace */
                    228: static size_t pending_spaces;                  /* Spaces to add before next word */
                    229: static int output_in_paragraph = 0;            /* Any of current para written out yet? */
1.10      millert   230:
                    231: /* Prototypes */
                    232:
1.21      tedu      233: static void    process_named_file(const char *);
                    234: static void    process_stream(FILE *, const char *);
                    235: static size_t  indent_length(const char *, size_t);
                    236: static int     might_be_header(const unsigned char *);
                    237: static void    new_paragraph(size_t, size_t);
                    238: static void    output_word(size_t, size_t, const char *, size_t, size_t);
                    239: static void    output_indent(size_t);
                    240: static void    center_stream(FILE *, const char *);
                    241: static char    *get_line(FILE *, size_t *);
                    242: static void    *xrealloc(void *, size_t);
                    243: void           usage(void);
1.10      millert   244:
1.21      tedu      245: #define XMALLOC(x) xrealloc(0, x)
1.29    ! lum       246: #define ERRS(x) (x >= 127 ? 127 : ++x)
1.10      millert   247:
                    248: /* Here is perhaps the right place to mention that this code is
                    249:  * all in top-down order. Hence, |main| comes first.
1.1       deraadt   250:  */
1.4       millert   251: int
1.21      tedu      252: main(int argc, char *argv[])
                    253: {
                    254:        int ch;                 /* used for |getopt| processing */
                    255:
                    256:        (void)setlocale(LC_CTYPE, "");
                    257:
                    258:        /* 1. Grok parameters. */
                    259:        while ((ch = getopt(argc, argv, "0123456789cd:hl:mnpst:w:")) != -1) {
                    260:                switch (ch) {
                    261:                case 'c':
                    262:                        centerP = 1;
                    263:                        break;
                    264:                case 'd':
                    265:                        sentence_enders = optarg;
                    266:                        break;
                    267:                case 'l':
                    268:                        output_tab_width
                    269:                                = get_positive(optarg, "output tab width must be positive", 1);
                    270:                        break;
                    271:                case 'm':
                    272:                        grok_mail_headers = 1;
                    273:                        break;
                    274:                case 'n':
                    275:                        format_troff = 1;
                    276:                        break;
                    277:                case 'p':
                    278:                        allow_indented_paragraphs = 1;
                    279:                        break;
                    280:                case 's':
                    281:                        coalesce_spaces_P = 1;
                    282:                        break;
                    283:                case 't':
                    284:                        tab_width = get_positive(optarg, "tab width must be positive", 1);
                    285:                        break;
                    286:                case 'w':
                    287:                        goal_length = get_positive(optarg, "width must be positive", 1);
                    288:                        max_length = goal_length;
                    289:                        break;
                    290:                case '0': case '1': case '2': case '3': case '4': case '5':
                    291:                case '6': case '7': case '8': case '9':
                    292:                        /* XXX  this is not a stylistically approved use of getopt() */
                    293:                        if (goal_length == 0) {
                    294:                                char *p;
                    295:
                    296:                                p = argv[optind - 1];
                    297:                                if (p[0] == '-' && p[1] == ch && !p[2])
                    298:                                        goal_length = get_positive(++p, "width must be nonzero", 1);
                    299:                                else
                    300:                                        goal_length = get_positive(argv[optind]+1,
                    301:                                                        "width must be nonzero", 1);
                    302:                                max_length = goal_length;
                    303:                        }
                    304:                        break;
                    305:                case 'h':
                    306:                default:
                    307:                        usage();
                    308:                        /* NOT REACHED */
                    309:                }
                    310:        }
                    311:
                    312:        argc -= optind;
                    313:        argv += optind;
                    314:
                    315:        /* [ goal [ maximum ] ] */
                    316:        if (argc > 0 && goal_length == 0 &&
                    317:            (goal_length = get_positive(*argv,"goal length must be positive", 0)) != 0) {
                    318:                --argc;
                    319:                ++argv;
                    320:                if (argc > 0 && (max_length = get_positive(*argv,"max length must be positive", 0)) != 0) {
                    321:                        --argc;
                    322:                        ++argv;
                    323:                        if (max_length < goal_length)
                    324:                                errx(EX_USAGE, "max length must be >= goal length");
                    325:                }
                    326:        }
                    327:
                    328:        if (goal_length == 0)
                    329:                goal_length = 65;
                    330:        if (max_length == 0)
                    331:                max_length = goal_length+10;
                    332:        output_buffer = XMALLOC(max_length+1);  /* really needn't be longer */
                    333:
                    334:        /* 2. Process files. */
                    335:
                    336:        if (argc > 0) {
                    337:                while (argc-- > 0)
                    338:                        process_named_file(*argv++);
                    339:        } else {
                    340:                process_stream(stdin, "standard input");
                    341:        }
1.10      millert   342:
1.21      tedu      343:        /* We're done. */
1.29    ! lum       344:        return n_errors;
1.10      millert   345:
                    346: }
                    347:
                    348: /* Process a single file, given its name.
                    349:  */
                    350: static void
1.21      tedu      351: process_named_file(const char *name)
                    352: {
                    353:        FILE *f;
                    354:
                    355:        if ((f = fopen(name, "r")) == NULL) {
1.23      cloder    356:                warn("%s", name);
1.29    ! lum       357:                ERRS(n_errors);
1.21      tedu      358:        } else {
                    359:                process_stream(f, name);
                    360:                fclose(f);
                    361:        }
1.10      millert   362: }
                    363:
                    364: /* Types of mail header continuation lines:
                    365:  */
                    366: typedef enum {
1.21      tedu      367:        hdr_ParagraphStart      = -1,
                    368:        hdr_NonHeader           = 0,
                    369:        hdr_Header              = 1,
                    370:        hdr_Continuation        = 2
1.10      millert   371: } HdrType;
                    372:
                    373: /* Process a stream. This is where the real work happens,
                    374:  * except that centering is handled separately.
                    375:  */
                    376: static void
1.21      tedu      377: process_stream(FILE *stream, const char *name)
                    378: {
                    379:        size_t n;
                    380:        size_t np;
                    381:        size_t last_indent = SILLY;     /* how many spaces in last indent? */
                    382:        size_t para_line_number = 0;    /* how many lines already read in this para? */
                    383:        size_t first_indent = SILLY;    /* indentation of line 0 of paragraph */
                    384:        HdrType prev_header_type = hdr_ParagraphStart;
                    385:        HdrType header_type;
                    386:
1.10      millert   387:        /* ^-- header_type of previous line; -1 at para start */
1.21      tedu      388:        char *line;
                    389:        size_t length;
1.10      millert   390:
1.21      tedu      391:        if (centerP) {
                    392:                center_stream(stream, name);
                    393:                return;
                    394:        }
                    395:
                    396:        while ((line = get_line(stream, &length)) != NULL) {
                    397:                np = indent_length(line, length);
                    398:                header_type = hdr_NonHeader;
                    399:                if (grok_mail_headers && prev_header_type != hdr_NonHeader) {
                    400:                        if (np == 0 && might_be_header(line))
                    401:                                header_type = hdr_Header;
                    402:                        else if (np > 0 && prev_header_type>hdr_NonHeader)
                    403:                                header_type = hdr_Continuation;
                    404:                }
                    405:
                    406:                /* We need a new paragraph if and only if:
                    407:                 *   this line is blank,
                    408:                 *   OR it's a troff request,
                    409:                 *   OR it's a mail header,
                    410:                 *   OR it's not a mail header AND the last line was one,
                    411:                 *   OR the indentation has changed
                    412:                 *      AND the line isn't a mail header continuation line
                    413:                 *      AND this isn't the second line of an indented paragraph.
                    414:                 */
                    415:                if (length == 0 || (line[0] == '.' && !format_troff) ||
                    416:                    header_type == hdr_Header ||
                    417:                    (header_type == hdr_NonHeader && prev_header_type > hdr_NonHeader) ||
                    418:                    (np != last_indent && header_type != hdr_Continuation &&
                    419:                    (!allow_indented_paragraphs || para_line_number != 1)) ) {
                    420:                        new_paragraph(output_in_paragraph ? last_indent : first_indent, np);
                    421:                        para_line_number = 0;
                    422:                        first_indent = np;
                    423:                        last_indent = np;
                    424:
                    425:                        /* nroff compatibility */
                    426:                        if (length > 0 && line[0] == '.' && !format_troff) {
                    427:                                printf("%.*s\n", (int)length, line);
                    428:                                continue;
                    429:                        }
                    430:                        if (header_type == hdr_Header)
                    431:                                last_indent = 2;        /* for cont. lines */
                    432:                        if (length == 0) {
                    433:                                putchar('\n');
                    434:                                prev_header_type = hdr_ParagraphStart;
                    435:                                continue;
                    436:                        } else {
                    437:                                /* If this is an indented paragraph other than a mail header
                    438:                                 * continuation, set |last_indent|.
                    439:                                 */
                    440:                                if (np != last_indent && header_type != hdr_Continuation)
                    441:                                        last_indent = np;
                    442:                        }
                    443:                        prev_header_type = header_type;
                    444:                }
                    445:
                    446:                n = np;
                    447:                while (n < length) {
                    448:                        /* Find word end and count spaces after it */
                    449:                        size_t word_length = 0, space_length = 0;
                    450:                        while (n+word_length < length && line[n+word_length] != ' ')
                    451:                                ++word_length;
                    452:                        space_length = word_length;
                    453:                        while (n+space_length < length && line[n+space_length] == ' ')
                    454:                                ++space_length;
                    455:                        /* Send the word to the output machinery. */
                    456:                        output_word(first_indent, last_indent,
                    457:                                line+n, word_length, space_length-word_length);
                    458:                        n += space_length;
                    459:                }
                    460:                ++para_line_number;
                    461:        }
                    462:
                    463:        new_paragraph(output_in_paragraph ? last_indent : first_indent, 0);
                    464:        if (ferror(stream)) {
1.23      cloder    465:                warn("%s", name);
1.29    ! lum       466:                ERRS(n_errors);
1.21      tedu      467:        }
1.10      millert   468: }
                    469:
                    470: /* How long is the indent on this line?
                    471:  */
                    472: static size_t
1.21      tedu      473: indent_length(const char *line, size_t length)
                    474: {
                    475:        size_t n = 0;
                    476:
                    477:        while (n < length && *line++ == ' ')
                    478:                ++n;
                    479:        return n;
1.10      millert   480: }
                    481:
                    482: /* Might this line be a mail header?
                    483:  * We deem a line to be a possible header if it matches the
                    484:  * Perl regexp /^[A-Z][-A-Za-z0-9]*:\s/. This is *not* the same
                    485:  * as in RFC whatever-number-it-is; we want to be gratuitously
                    486:  * conservative to avoid mangling ordinary civilised text.
                    487:  */
                    488: static int
1.21      tedu      489: might_be_header(const unsigned char *line)
                    490: {
                    491:
                    492:        if (!isupper(*line++))
                    493:                return 0;
1.26      tedu      494:        while (isalnum(*line) || *line == '-')
1.21      tedu      495:                ++line;
                    496:        return (*line == ':' && isspace(line[1]));
1.10      millert   497: }
                    498:
                    499: /* Begin a new paragraph with an indent of |indent| spaces.
                    500:  */
                    501: static void
1.21      tedu      502: new_paragraph(size_t old_indent, size_t indent)
                    503: {
                    504:
                    505:        if (x0) {
                    506:                if (old_indent > 0)
                    507:                        output_indent(old_indent);
                    508:                fwrite(output_buffer, 1, x0, stdout);
                    509:                putchar('\n');
                    510:        }
                    511:        x = indent;
                    512:        x0 = 0;
                    513:        pending_spaces = 0;
                    514:        output_in_paragraph = 0;
1.10      millert   515: }
                    516:
                    517: /* Output spaces or tabs for leading indentation.
                    518:  */
                    519: static void
1.21      tedu      520: output_indent(size_t n_spaces)
                    521: {
                    522:
                    523:        if (output_tab_width) {
                    524:                while (n_spaces >= output_tab_width) {
                    525:                        putchar('\t');
                    526:                        n_spaces -= output_tab_width;
                    527:                }
                    528:        }
                    529:        while (n_spaces-- > 0)
                    530:                putchar(' ');
1.10      millert   531: }
                    532:
                    533: /* Output a single word, or add it to the buffer.
                    534:  * indent0 and indent1 are the indents to use on the first and subsequent
                    535:  * lines of a paragraph. They'll often be the same, of course.
                    536:  */
                    537: static void
1.21      tedu      538: output_word(size_t indent0, size_t indent1, const char *word, size_t length, size_t spaces)
                    539: {
                    540:        size_t new_x = x + pending_spaces + length;
                    541:        size_t indent = output_in_paragraph ? indent1 : indent0;
                    542:
                    543:        /* If either |spaces==0| (at end of line) or |coalesce_spaces_P|
                    544:         * (squashing internal whitespace), then add just one space;
                    545:         * except that if the last character was a sentence-ender we
                    546:         * actually add two spaces.
                    547:         */
                    548:        if (coalesce_spaces_P || spaces == 0)
                    549:                spaces = strchr(sentence_enders, word[length-1]) ? 2 : 1;
                    550:
                    551:        if (new_x <= goal_length) {
                    552:                /* After adding the word we still aren't at the goal length,
                    553:                 * so clearly we add it to the buffer rather than outputing it.
                    554:                 */
                    555:                memset(output_buffer+x0, ' ', pending_spaces);
                    556:                x0 += pending_spaces;
                    557:                x += pending_spaces;
                    558:                memcpy(output_buffer+x0, word, length);
                    559:                x0 += length;
                    560:                x += length;
                    561:                pending_spaces = spaces;
                    562:        } else {
                    563:                /* Adding the word takes us past the goal. Print the line-so-far,
                    564:                 * and the word too iff either (1) the lsf is empty or (2) that
                    565:                 * makes us nearer the goal but doesn't take us over the limit,
                    566:                 * or (3) the word on its own takes us over the limit.
                    567:                 * In case (3) we put a newline in between.
                    568:                 */
                    569:                if (indent > 0)
                    570:                        output_indent(indent);
                    571:                fwrite(output_buffer, 1, x0, stdout);
                    572:                if (x0 == 0 || (new_x <= max_length && new_x-goal_length <= goal_length-x)) {
                    573:                        printf("%*s", (int)pending_spaces, "");
                    574:                        goto write_out_word;
                    575:                } else {
                    576:                        /* If the word takes us over the limit on its own, just
                    577:                         * spit it out and don't bother buffering it.
                    578:                         */
                    579:                        if (indent+length > max_length) {
                    580:                                putchar('\n');
                    581:                                if (indent > 0)
                    582:                                        output_indent(indent);
1.10      millert   583: write_out_word:
1.21      tedu      584:                                fwrite(word, 1, length, stdout);
                    585:                                x0 = 0;
                    586:                                x = indent1;
                    587:                                pending_spaces = 0;
                    588:                        } else {
                    589:                                memcpy(output_buffer, word, length);
                    590:                                x0 = length;
                    591:                                x = length+indent1;
                    592:                                pending_spaces = spaces;
                    593:                        }
                    594:                }
                    595:
                    596:                putchar('\n');
                    597:                output_in_paragraph = 1;
                    598:        }
1.10      millert   599: }
                    600:
                    601: /* Process a stream, but just center its lines rather than trying to
                    602:  * format them neatly.
                    603:  */
                    604: static void
1.21      tedu      605: center_stream(FILE *stream, const char *name)
                    606: {
                    607:        char *line;
                    608:        size_t length;
                    609:        size_t l;
                    610:
                    611:        while ((line = get_line(stream, &length)) != 0) {
                    612:                l = length;
                    613:                while (l > 0 && isspace(*line)) {
                    614:                        ++line;
                    615:                        --l;
                    616:                }
                    617:
                    618:                length = l;
                    619:
                    620:                while (l < goal_length) {
                    621:                        putchar(' ');
                    622:                        l += 2;
                    623:                }
                    624:
                    625:                fwrite(line, 1, length, stdout);
                    626:                putchar('\n');
                    627:        }
                    628:
                    629:        if (ferror(stream)) {
1.23      cloder    630:                warn("%s", name);
1.29    ! lum       631:                ERRS(n_errors);
1.21      tedu      632:        }
1.10      millert   633: }
                    634:
                    635: /* Get a single line from a stream. Expand tabs, strip control
                    636:  * characters and trailing whitespace, and handle backspaces.
                    637:  * Return the address of the buffer containing the line, and
                    638:  * put the length of the line in |lengthp|.
                    639:  * This can cope with arbitrarily long lines, and with lines
                    640:  * without terminating \n.
                    641:  * If there are no characters left or an error happens, we
                    642:  * return 0.
                    643:  * Don't confuse |spaces_pending| here with the global
                    644:  * |pending_spaces|.
                    645:  */
                    646: static char *
1.21      tedu      647: get_line(FILE *stream, size_t *lengthp)
                    648: {
                    649:        int ch;
                    650:        int troff = 0;
                    651:        static char *buf = NULL;
                    652:        static size_t length = 0;
                    653:        size_t len = 0;
                    654:        size_t spaces_pending = 0;
                    655:
                    656:        if (buf == NULL) {
                    657:                length = 100;
                    658:                buf = XMALLOC(length);
                    659:        }
                    660:
                    661:        while ((ch = getc(stream)) != '\n' && ch != EOF) {
                    662:                if ((len + spaces_pending == 0) && (ch == '.' && !format_troff))
                    663:                        troff = 1;
                    664:                if (ch == ' ') {
                    665:                        ++spaces_pending;
                    666:                } else if (troff || !iscntrl(ch)) {
                    667:                        while (len + spaces_pending >= length) {
                    668:                                length *= 2;
                    669:                                buf = xrealloc(buf, length);
                    670:                        }
                    671:
                    672:                        while (spaces_pending > 0) {
                    673:                                --spaces_pending;
                    674:                                buf[len++] = ' ';
                    675:                        }
                    676:                        buf[len++] = ch;
                    677:                } else if (ch == '\t') {
                    678:                        spaces_pending += tab_width - (len+spaces_pending)%tab_width;
                    679:                } else if (ch == '\b') {
                    680:                        if (len)
                    681:                                --len;
                    682:                }
                    683:        }
                    684:
                    685:        *lengthp = len;
                    686:        return (len > 0 || ch != EOF) ? buf : 0;
1.10      millert   687: }
                    688:
                    689: /* (Re)allocate some memory, exiting with an error if we can't.
                    690:  */
                    691: static void *
1.21      tedu      692: xrealloc(void *ptr, size_t nbytes)
                    693: {
                    694:        void *p;
                    695:
                    696:        p  = realloc(ptr, nbytes);
                    697:        if (p == NULL)
                    698:                errx(EX_OSERR, "out of memory");
                    699:        return p;
                    700: }
                    701:
                    702: void
                    703: usage(void)
                    704: {
1.22      mickey    705:        extern char *__progname;
1.21      tedu      706:
                    707:        fprintf(stderr,
1.25      jmc       708:                "usage: %s [-cmnps] [-d chars] [-l number] [-t number]\n"
                    709:                "\t[goal [maximum] | -width | -w width] [file ...]\n",
                    710:                        __progname);
1.22      mickey    711:        exit (1);
1.1       deraadt   712: }