cmd/refer/refer4.c

/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*  Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*    All Rights Reserved   */

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved. The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include "refer..c"
#include <locale.h>

#define punctuat(c) (c == '.' || c == '?' || c == '!' || \
                c == ',' || c == ';' || c == ':')

static int gate = 0;
static char buff[BUFSIZ];

extern void err();

char *trimnl(char *);

void
output(char *s)
{
    if (gate)
        fputs(buff, ftemp);
    else
        gate = 1;
    strcpy(buff, s);
    if (strlen(buff) > BUFSIZ)
        err(gettext("one buff too big (%d)!"), BUFSIZ);
}

void
append(char *s)
{
    char *p;
    int lch;

    trimnl(buff);
    for (p = buff; *p; p++)
        ;
    lch = *--p;
    if (postpunct && punctuat(lch))
        *p = NULL;
    else /* pre-punctuation */
        switch (lch) {
        case '.':
        case '?':
        case '!':
        case ',':
        case ';':
        case ':':
            *p++ = lch;
            *p = NULL;
        }
    strcat(buff, s);
    if (postpunct)
        switch (lch) {
        case '.':
        case '?':
        case '!':
        case ',':
        case ';':
        case ':':
            for (p = buff; *p; p++)
                ;
            if (*--p == '\n')
                *p = NULL;
            *p++ = lch;
            *p++ = '\n';
            *p = NULL;
        }
    if (strlen(buff) > BUFSIZ)
        err(gettext("output buff too long (%d)"), BUFSIZ);
}

void
flout(void)
{
    if (gate)
        fputs(buff, ftemp);
    gate = 0;
}

char *
trimnl(char *ln)
{
    char *p = ln;

    while (*p)
        p++;
    p--;
    if (*p == '\n')
        *p = 0;
    return (ln);
}