/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 1989 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

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

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

/*
 * n2.c
 *
 * output, cleanup
 */

#include <signal.h>
#include "tdef.h"
#ifdef NROFF
#include "tw.h"
#endif
#include <setjmp.h>
#include "ext.h"
#ifdef EUC
#ifdef NROFF
#include <stddef.h>
#include <widec.h>
#include <limits.h>
#include <ctype.h>

char mbobuf[MB_LEN_MAX] = {0};
wchar_t wchar;
int     nmb1 = 0;
#endif /* NROFF */
#endif /* EUC */

extern  jmp_buf sjbuf;
int     toolate;
int     error;

int
pchar(i)
        tchar i;
{
        int j;
        static int hx = 0;      /* records if have seen HX */

        if (hx) {
                hx = 0;
                j = absmot(i);
                if (isnmot(i)) {
                        if (j > dip->blss)
                                dip->blss = j;
                } else {
                        if (j > dip->alss)
                                dip->alss = j;
                        ralss = dip->alss;
                }
                return (0);
        }
        if (ismot(i)) {
                pchar1(i);
                return (0);
        }
        switch (j = cbits(i)) {
        case 0:
        case IMP:
        case RIGHT:
        case LEFT:
                return (0);
        case HX:
                hx = 1;
                return (0);
        case PRESC:
                if (dip == &d[0])
                        j = eschar;     /* fall through */
        default:
#ifndef EUC
                setcbits(i, trtab[j]);
#else
#ifndef NROFF
                setcbits(i, trtab[j]);
#else
                if (!multi_locale || (!(j & CSMASK) && !(j & MBMASK1)))
                        setcbits(i, trtab[j]);
#endif /* NROFF */
#endif /* EUC */
        }
        pchar1(i);

        return (0);
}


int
pchar1(i)
        tchar i;
{
        int     j;

        j = cbits(i);
        if (dip != &d[0]) {
                wbf(i);
                dip->op = offset;
                return (0);
        }
        if (!tflg && !print) {
                if (j == '\n')
                        dip->alss = dip->blss = 0;
                return (0);
        }
        if (no_out || j == FILLER)
                return (0);
        if (tflg) {     /* transparent mode, undiverted */
                fdprintf(ptid, "%c", j);
                return (0);
        }
#ifndef NROFF
        if (ascii)
                outascii(i);
        else
#endif
                ptout(i);

        return (0);
}

int
outascii(i)     /* print i in best-guess ascii */
        tchar i;
{
        int j = cbits(i);

        if (ismot(i)) {
                oput(' ');
                return (0);
        }
        if (j < 0177 && j >= ' ' || j == '\n') {
                oput(j);
                return (0);
        }
        if (j == DRAWFCN)
                oputs("\\D");
        else if (j == HYPHEN || j == MINUS)
                oput('-');
        else if (j == XON)
                oputs("\\X");
        else if (j == LIG_FI)
                oputs("fi");
        else if (j == LIG_FL)
                oputs("fl");
        else if (j == LIG_FF)
                oputs("ff");
        else if (j == LIG_FFI)
                oputs("ffi");
        else if (j == LIG_FFL)
                oputs("ffl");
        else if (j == WORDSP)
                ;       /* nothing at all */
        else if (j > 0177) {
                oput('\\');
                oput('(');
                oput(chname[chtab[j-128]]);
                oput(chname[chtab[j-128]+1]);
        }

        return (0);
}


/*
 * now a macro
int
oput(i)
        int     i;
{
        *obufp++ = i;
        if (obufp >= &obuf[OBUFSZ])
                flusho();

        return (0);
}
*/

int
oputs(i)
char    *i;
{
        while (*i != 0)
                oput(*i++);

        return (0);
}


int
flusho()
{
        if (obufp == obuf)
                return (0);
        if (no_out == 0) {
                if (!toolate) {
                        toolate++;
#ifdef NROFF
                        set_tty();
                        {
                                char    *p = t.twinit;
                                while (*p++)
                                        ;
                                if (p - t.twinit > 1)
                                        write(ptid, t.twinit, p - t.twinit - 1);
                        }
#endif
                }
                toolate += write(ptid, obuf, obufp - obuf);
        }
        obufp = obuf;

        return (0);
}


int
done(x)
int     x;
{
        int     i;

        error |= x;
        app = ds = lgf = 0;
        if (i = em) {
                donef = -1;
                em = 0;
                if (control(i, 0))
                        longjmp(sjbuf, 1);
        }
        if (!nfo)
                done3(0);
        mflg = 0;
        dip = &d[0];
        if (woff)
                wbt((tchar)0);
        if (pendw)
                getword(1);
        pendnf = 0;
        if (donef == 1)
                done1(0);
        donef = 1;
        ip = 0;
        frame = stk;
        nxf = frame + 1;
        if (!ejf)
                tbreak();
        nflush++;
        eject((struct s *)0);
        longjmp(sjbuf, 1);

        return (0);
}


int
done1(x)
int     x;
{
        error |= x;
        if (numtab[NL].val) {
                trap = 0;
                eject((struct s *)0);
                longjmp(sjbuf, 1);
        }
        if (nofeed) {
                ptlead();
                flusho();
                done3(0);
        } else {
                if (!gflag)
                        pttrailer();
                done2(0);
        }

        return (0);
}


int
done2(x)
int     x;
{
        ptlead();
#ifndef NROFF
        if (!ascii)
                ptstop();
#endif
        flusho();
        done3(x);

        return (0);
}

int
done3(x)
int     x;
{
        error |= x;
        signal(SIGINT, SIG_IGN);
        signal(SIGTERM, SIG_IGN);
        unlink(unlkp);
#ifdef NROFF
        twdone();
#endif
        if (ascii)
                mesg(1);
        exit(error);

        return (0);
}


int
edone(x)
int     x;
{
        frame = stk;
        nxf = frame + 1;
        ip = 0;
        done(x);

        return (0);
}


int
casepi()
{
        int     i;
        int     id[2];

        if (toolate || skip() || !getname() || pipe(id) == -1 || (i = fork()) == -1) {
                errprint(gettext("Pipe not created."));
                return (0);
        }
        ptid = id[1];
        if (i > 0) {
                close(id[0]);
                toolate++;
                pipeflg++;
                return (0);
        }
        close(0);
        dup(id[0]);
        close(id[1]);
        execl(nextf, nextf, 0);
        errprint(gettext("Cannot exec %s"), nextf);
        exit(-4);

        return (0);
}