/*
 * 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 2003 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.
 */

#ifdef  EUC
#ifdef  NROFF
#include <stddef.h>
#include <stdlib.h>
#include <widec.h>
#endif  /* NROFF */
#endif  /* EUC */
#include <string.h>
#include "tdef.h"
#include "ext.h"

/*
 * troff5.c
 *
 * misc processing requests
 */

int     iflist[NIF];
int     ifx;

int
casead()
{
        int     i;

        ad = 1;
        /*leave admod alone*/
        if (skip())
                return (0);
        switch (i = cbits(getch())) {
        case 'r':       /*right adj, left ragged*/
                admod = 2;
                break;
        case 'l':       /*left adj, right ragged*/
                admod = ad = 0; /*same as casena*/
                break;
        case 'c':       /*centered adj*/
                admod = 1;
                break;
        case 'b':
        case 'n':
                admod = 0;
                break;
        case '0':
        case '2':
        case '4':
                ad = 0;
        case '1':
        case '3':
        case '5':
                admod = (i - '0') / 2;
        }

        return (0);
}


int
casena()
{
        ad = 0;

        return (0);
}


int
casefi()
{
        tbreak();
        fi++;
        pendnf = 0;
        lnsize = LNSIZE;

        return (0);
}


int
casenf()
{
        tbreak();
        fi = 0;

        return (0);
}


int
casers()
{
        dip->nls = 0;

        return (0);
}


int
casens()
{
        dip->nls++;

        return (0);
}


int
chget(c)
int     c;
{
        tchar i;

        if (skip() || ismot(i = getch()) || cbits(i) == ' ' || cbits(i) == '\n') {
                ch = i;
                return(c);
        } else
                return(i & BYTEMASK);
}


int
casecc()
{
        cc = chget('.');

        return (0);
}


int
casec2()
{
        c2 = chget('\'');

        return (0);
}


int
casehc()
{
        ohc = chget(OHC);

        return (0);
}


int
casetc()
{
        tabc = chget(0);

        return (0);
}


int
caselc()
{
        dotc = chget(0);

        return (0);
}


int
casehy()
{
        int     i;

        hyf = 1;
        if (skip())
                return (0);
        noscale++;
        i = atoi();
        noscale = 0;
        if (nonumb)
                return (0);
        hyf = max(i, 0);

        return (0);
}


int
casenh()
{
        hyf = 0;

        return (0);
}


int
max(aa, bb)
int     aa, bb;
{
        if (aa > bb)
                return(aa);
        else
                return(bb);
}


int
casece()
{
        int     i;

        noscale++;
        skip();
        i = max(atoi(), 0);
        if (nonumb)
                i = 1;
        tbreak();
        ce = i;
        noscale = 0;

        return (0);
}


int
casein()
{
        int     i;

        if (skip())
                i = in1;
        else
                i = max(hnumb(&in), 0);
        tbreak();
        in1 = in;
        in = i;
        if (!nc) {
                un = in;
                setnel();
        }

        return (0);
}


int
casell()
{
        int     i;

        if (skip())
                i = ll1;
        else
                i = max(hnumb(&ll), INCH / 10);
        ll1 = ll;
        ll = i;
        setnel();

        return (0);
}


int
caselt()
{
        int     i;

        if (skip())
                i = lt1;
        else
                i = max(hnumb(&lt), 0);
        lt1 = lt;
        lt = i;

        return (0);
}


int
caseti()
{
        int     i;

        if (skip())
                return (0);
        i = max(hnumb(&in), 0);
        tbreak();
        un1 = i;
        setnel();

        return (0);
}


int
casels()
{
        int     i;

        noscale++;
        if (skip())
                i = ls1;
        else
                i = max(inumb(&ls), 1);
        ls1 = ls;
        ls = i;
        noscale = 0;

        return (0);
}


int
casepo()
{
        int     i;

        if (skip())
                i = po1;
        else
                i = max(hnumb(&po), 0);
        po1 = po;
        po = i;
#ifndef NROFF
        if (!ascii)
                esc += po - po1;
#endif
        return (0);
}


int
casepl()
{
        int     i;

        skip();
        if ((i = vnumb(&pl)) == 0)
                pl = 11 * INCH; /*11in*/
        else
                pl = i;
        if (numtab[NL].val > pl)
                numtab[NL].val = pl;

        return (0);
}


int
casewh()
{
        int     i, j, k;

        lgf++;
        skip();
        i = vnumb((int *)0);
        if (nonumb)
                return (0);
        skip();
        j = getrq();
        if ((k = findn(i)) != NTRAP) {
                mlist[k] = j;
                return (0);
        }
        for (k = 0; k < NTRAP; k++)
                if (mlist[k] == 0)
                        break;
        if (k == NTRAP) {
                flusho();
                errprint(gettext("cannot plant trap."));
                return (0);
        }
        mlist[k] = j;
        nlist[k] = i;

        return (0);
}


int
casech()
{
        int     i, j, k;

        lgf++;
        skip();
        if (!(j = getrq()))
                return (0);
        else
                for (k = 0; k < NTRAP; k++)
                        if (mlist[k] == j)
                                break;
        if (k == NTRAP)
                return (0);
        skip();
        i = vnumb((int *)0);
        if (nonumb)
                mlist[k] = 0;
        nlist[k] = i;

        return (0);
}


int
findn(i)
int     i;
{
        int     k;

        for (k = 0; k < NTRAP; k++)
                if ((nlist[k] == i) && (mlist[k] != 0))
                        break;
        return(k);
}


int
casepn()
{
        int     i;

        skip();
        noscale++;
        i = max(inumb(&numtab[PN].val), 0);
        noscale = 0;
        if (!nonumb) {
                npn = i;
                npnflg++;
        }

        return (0);
}


int
casebp()
{
        int     i;
        struct s *savframe;

        if (dip != d)
                return (0);
        savframe = frame;
        skip();
        if ((i = inumb(&numtab[PN].val)) < 0)
                i = 0;
        tbreak();
        if (!nonumb) {
                npn = i;
                npnflg++;
        } else if (dip->nls)
                return (0);
        eject(savframe);

        return (0);
}


int
casetm(ab)
        int ab;
{
        int     i;
        char    tmbuf[NTM];

        lgf++;
        copyf++;
        if (skip() && ab)
                errprint(gettext("User Abort"));
        for (i = 0; i < NTM - 2; )
                if ((tmbuf[i++] = getch()) == '\n')
                        break;
        if (i == NTM - 2)
                tmbuf[i++] = '\n';
        tmbuf[i] = 0;
        if (ab) /* truncate output */
                obufp = obuf;   /* should be a function in n2.c */
        flusho();
        fdprintf(stderr, "%s", tmbuf);
        copyf--;
        lgf--;

        return (0);
}


int
casesp(a)
int     a;
{
        int     i, j, savlss;

        tbreak();
        if (dip->nls || trap)
                return (0);
        i = findt1();
        if (!a) {
                skip();
                j = vnumb((int *)0);
                if (nonumb)
                        j = lss;
        } else
                j = a;
        if (j == 0)
                return (0);
        if (i < j)
                j = i;
        savlss = lss;
        if (dip != d)
                i = dip->dnl;
        else
                i = numtab[NL].val;
        if ((i + j) < 0)
                j = -i;
        lss = j;
        newline(0);
        lss = savlss;

        return (0);
}


int
casert()
{
        int     a, *p;

        skip();
        if (dip != d)
                p = &dip->dnl;
        else
                p = &numtab[NL].val;
        a = vnumb(p);
        if (nonumb)
                a = dip->mkline;
        if ((a < 0) || (a >= *p))
                return (0);
        nb++;
        casesp(a - *p);

        return (0);
}


int
caseem()
{
        lgf++;
        skip();
        em = getrq();

        return (0);
}


int
casefl()
{
        tbreak();
        flusho();

        return (0);
}


int
caseev()
{
        int     nxev;

        if (skip()) {
e0:
                if (evi == 0)
                        return (0);
                nxev =  evlist[--evi];
                goto e1;
        }
        noscale++;
        nxev = atoi();
        noscale = 0;
        if (nonumb)
                goto e0;
        flushi();
        if ((nxev >= NEV) || (nxev < 0) || (evi >= EVLSZ)) {
                flusho();
                errprint(gettext("cannot do ev."));
                if (error)
                        done2(040);
                else
                        edone(040);
                return (0);
        }
        evlist[evi++] = ev;
e1:
        if (ev == nxev)
                return (0);
#ifdef INCORE
        {
                extern tchar corebuf[];
                *(struct env *)&corebuf[ev * sizeof(env)/sizeof(tchar)] = env;
                env = *(struct env *)&corebuf[nxev * sizeof(env)/sizeof(tchar)];
        }
#else
        lseek(ibf, ev * (long)sizeof(env), 0);
        write(ibf, (char *) & env, sizeof(env));
        lseek(ibf, nxev * (long)sizeof(env), 0);
        read(ibf, (char *) & env, sizeof(env));
#endif
        ev = nxev;

        return (0);
}

int
caseel()
{
        if (--ifx < 0) {
                ifx = 0;
                iflist[0] = 0;
        }
        caseif(2);

        return (0);
}


int
caseie()
{
        if (ifx >= NIF) {
                errprint(gettext("if-else overflow."));
                ifx = 0;
                edone(040);
        }
        caseif(1);
        ifx++;

        return (0);
}


int
caseif(x)
int     x;
{
        extern int falsef;
        int     notflag, true;
        tchar i;

        if (x == 2) {
                notflag = 0;
                true = iflist[ifx];
                goto i1;
        }
        true = 0;
        skip();
        if ((cbits(i = getch())) == '!') {
                notflag = 1;
        } else {
                notflag = 0;
                ch = i;
        }
        i = atoi();
        if (!nonumb) {
                if (i > 0)
                        true++;
                goto i1;
        }
        i = getch();
        switch (cbits(i)) {
        case 'e':
                if (!(numtab[PN].val & 01))
                        true++;
                break;
        case 'o':
                if (numtab[PN].val & 01)
                        true++;
                break;
#ifdef NROFF
        case 'n':
                true++;
        case 't':
#endif
#ifndef NROFF
        case 't':
                true++;
        case 'n':
#endif
        case ' ':
                break;
        default:
                true = cmpstr(i);
        }
i1:
        true ^= notflag;
        if (x == 1)
                iflist[ifx] = !true;
        if (true) {
i2:
                while ((cbits(i = getch())) == ' ')
                        ;
                if (cbits(i) == LEFT)
                        goto i2;
                ch = i;
                nflush++;
        } else {
                copyf++;
                falsef++;
                eatblk(0);
                copyf--;
                falsef--;
        }

        return (0);
}

int
eatblk(inblk)
int inblk;
{       int cnt, i;

        cnt = 0;
        do {
                if (ch) {
                        i = cbits(ch);
                        ch = 0;
                } else
                        i = cbits(getch0());
                if (i == ESC)
                        cnt++;
                else {
                        if (cnt == 1)
                                switch (i) {
                                case '{':  i = LEFT; break;
                                case '}':  i = RIGHT; break;
                                case '\n': i = 'x'; break;
                                }
                        cnt = 0;
                }
                if (i == LEFT) eatblk(1);
        } while ((!inblk && (i != '\n')) || (inblk && (i != RIGHT)));
        if (i == '\n')
                nlflg++;

        return (0);
}


int
cmpstr(c)
tchar c;
{
        int     j, delim;
        tchar i;
        int     val;
        int savapts, savapts1, savfont, savfont1, savpts, savpts1;
        tchar string[1280];
        tchar *sp;

        if (ismot(c))
                return(0);
        delim = cbits(c);
        savapts = apts;
        savapts1 = apts1;
        savfont = font;
        savfont1 = font1;
        savpts = pts;
        savpts1 = pts1;
        sp = string;
        while ((j = cbits(i = getch()))!=delim && j!='\n' && sp<&string[1280-1])
                *sp++ = i;
        if (sp >= string + 1280) {
                errprint(gettext("too-long string compare."));
                edone(0100);
        }
        if (nlflg) {
                val = sp==string;
                goto rtn;
        }
        *sp++ = 0;
        apts = savapts;
        apts1 = savapts1;
        font = savfont;
        font1 = savfont1;
        pts = savpts;
        pts1 = savpts1;
        mchbits();
        val = 1;
        sp = string;
        while ((j = cbits(i = getch())) != delim && j != '\n') {
                if (*sp != i) {
                        eat(delim);
                        val = 0;
                        goto rtn;
                }
                sp++;
        }
        if (*sp)
                val = 0;
rtn:
        apts = savapts;
        apts1 = savapts1;
        font = savfont;
        font1 = savfont1;
        pts = savpts;
        pts1 = savpts1;
        mchbits();
        return(val);
}


int
caserd()
{

        lgf++;
        skip();
        getname();
        if (!iflg) {
                if (quiet) {
#ifdef  NROFF
                        echo_off();
                        flusho();
#endif  /* NROFF */
                        fdprintf(stderr, "\007"); /*bell*/
                } else {
                        if (nextf[0]) {
                                fdprintf(stderr, "%s:", nextf);
                        } else {
                                fdprintf(stderr, "\007"); /*bell*/
                        }
                }
        }
        collect();
        tty++;
        pushi(NBLIST*BLK, PAIR('r','d'));

        return (0);
}


int
rdtty()
{
        char    onechar;
#ifdef EUC
#ifdef NROFF
        int     i, n, col_index;
#endif /* NROFF */
#endif /* EUC */

        onechar = 0;
        if (read(0, &onechar, 1) == 1) {
                if (onechar == '\n')
                        tty++;
                else
                        tty = 1;
#ifndef EUC
                if (tty != 3)
                        return(onechar);
#else
#ifndef NROFF
                if (tty != 3)
                        return(onechar);
#else
                if (tty != 3) {
                        if (!multi_locale)
                                return(onechar);
                        i = onechar & 0377;
                        *mbbuf1p++ = i;
                        *mbbuf1p = 0;
                        if ((n = mbtowc(&twc, mbbuf1, MB_CUR_MAX)) <= 0) {
                                if (mbbuf1p >= mbbuf1 + MB_CUR_MAX) {
                                        i &= ~(MBMASK | CSMASK);
                                        twc = 0;
                                        mbbuf1p = mbbuf1;
                                        *mbbuf1p = 0;
                                } else {
                                        i |= (MIDDLEOFMB);
                                }
                        } else {
                                if (n > 1)
                                        i |= (LASTOFMB);
                                else
                                        i |= (BYTE_CHR);
                                if (isascii(twc)) {
                                        col_index = 0;
                                } else {
                                        if ((col_index = wcwidth(twc)) < 0)
                                                col_index = 0;
                                }
                                setcsbits(i, col_index);
                                twc = 0;
                                mbbuf1p = mbbuf1;
                        }
                        return(i);
                }
#endif /* NROFF */
#endif /* EUC */
        }
        popi();
        tty = 0;
#ifdef  NROFF
        if (quiet)
                echo_on();
#endif  /* NROFF */
        return(0);
}


int
caseec()
{
        eschar = chget('\\');

        return (0);
}


int
caseeo()
{
        eschar = 0;

        return (0);
}


int
caseta()
{
        int     i;

        tabtab[0] = nonumb = 0;
        for (i = 0; ((i < (NTAB - 1)) && !nonumb); i++) {
                if (skip())
                        break;
                tabtab[i] = max(hnumb(&tabtab[max(i-1,0)]), 0) & TABMASK;
                if (!nonumb)
                        switch (cbits(ch)) {
                        case 'C':
                                tabtab[i] |= CTAB;
                                break;
                        case 'R':
                                tabtab[i] |= RTAB;
                                break;
                        default: /*includes L*/
                                break;
                        }
                nonumb = ch = 0;
        }
        tabtab[i] = 0;

        return (0);
}


int
casene()
{
        int     i, j;

        skip();
        i = vnumb((int *)0);
        if (nonumb)
                i = lss;
        if (i > (j = findt1())) {
                i = lss;
                lss = j;
                dip->nls = 0;
                newline(0);
                lss = i;
        }

        return (0);
}


int
casetr()
{
        int     i, j;
        tchar k;

        lgf++;
        skip();
        while ((i = cbits(k=getch())) != '\n') {
                if (ismot(k))
                        return (0);
                if (ismot(k = getch()))
                        return (0);
                if ((j = cbits(k)) == '\n')
                        j = ' ';
                trtab[i] = j;
        }

        return (0);
}


int
casecu()
{
        cu++;
        caseul();

        return (0);
}


int
caseul()
{
        int     i;

        noscale++;
        if (skip())
                i = 1;
        else
                i = atoi();
        if (ul && (i == 0)) {
                font = sfont;
                ul = cu = 0;
        }
        if (i) {
                if (!ul) {
                        sfont = font;
                        font = ulfont;
                }
                ul = i;
        }
        noscale = 0;
        mchbits();

        return (0);
}


int
caseuf()
{
        int     i, j;

        if (skip() || !(i = getrq()) || i == 'S' ||  (j = findft(i))  == -1)
                ulfont = ULFONT; /*default underline position*/
        else
                ulfont = j;
#ifdef NROFF
        if (ulfont == FT)
                ulfont = ULFONT;
#endif
        return (0);
}


int
caseit()
{
        int     i;

        lgf++;
        it = itmac = 0;
        noscale++;
        skip();
        i = atoi();
        skip();
        if (!nonumb && (itmac = getrq()))
                it = i;
        noscale = 0;

        return (0);
}


int
casemc()
{
        int     i;

        if (icf > 1)
                ic = 0;
        icf = 0;
        if (skip())
                return (0);
        ic = getch();
        icf = 1;
        skip();
        i = max(hnumb((int *)0), 0);
        if (!nonumb)
                ics = i;

        return (0);
}


int
casemk()
{
        int     i, j;

        if (dip != d)
                j = dip->dnl;
        else
                j = numtab[NL].val;
        if (skip()) {
                dip->mkline = j;
                return (0);
        }
        if ((i = getrq()) == 0)
                return (0);
        numtab[findr(i)].val = j;

        return (0);
}


int
casesv()
{
        int     i;

        skip();
        if ((i = vnumb((int *)0)) < 0)
                return (0);
        if (nonumb)
                i = 1;
        sv += i;
        caseos();

        return (0);
}


int
caseos()
{
        int     savlss;

        if (sv <= findt1()) {
                savlss = lss;
                lss = sv;
                newline(0);
                lss = savlss;
                sv = 0;
        }

        return (0);
}


int
casenm()
{
        int     i;

        lnmod = nn = 0;
        if (skip())
                return (0);
        lnmod++;
        noscale++;
        i = inumb(&numtab[LN].val);
        if (!nonumb)
                numtab[LN].val = max(i, 0);
        getnm(&ndf, 1);
        getnm(&nms, 0);
        getnm(&ni, 0);
        noscale = 0;
        nmbits = chbits;

        return (0);
}


int
getnm(p, min)
int     *p, min;
{
        int     i;

        eat(' ');
        if (skip())
                return (0);
        i = atoi();
        if (nonumb)
                return (0);
        *p = max(i, min);

        return (0);
}


int
casenn()
{
        noscale++;
        skip();
        nn = max(atoi(), 1);
        noscale = 0;

        return (0);
}


int
caseab()
{
        casetm(1);
        done3(0);

        return (0);
}


#ifdef  NROFF
/*
 * The following routines are concerned with setting terminal options.
 *      The manner of doing this differs between research/Berkeley systems
 *      and UNIX System V systems (i.e. DOCUMENTER'S WORKBENCH)
 *      The distinction is controlled by the #define'd variable USG,
 *      which must be set by System V users.
 */


#ifdef  USG
#include <termio.h>
#define ECHO_USG (ECHO | ECHOE | ECHOK | ECHONL)
struct termio   ttys;
#else
#include <sgtty.h>
struct  sgttyb  ttys[2];
#endif  /* USG */

int     ttysave[2] = {-1, -1};

int
save_tty()                      /*save any tty settings that may be changed*/
{

#ifdef  USG
        if (ioctl(0, TCGETA, &ttys) >= 0)
                ttysave[0] = ttys.c_lflag;
#else
        if (gtty(0, &ttys[0]) >= 0)
                ttysave[0] = ttys[0].sg_flags;
        if (gtty(1, &ttys[1]) >= 0)
                ttysave[1] = ttys[1].sg_flags;
#endif  /* USG */

        return (0);
}


int
restore_tty()                   /*restore tty settings from beginning*/
{

        if (ttysave[0] != -1) {
#ifdef  USG
                ttys.c_lflag = ttysave[0];
                ioctl(0, TCSETAW, &ttys);
#else
                ttys[0].sg_flags = ttysave[0];
                stty(0, &ttys[0]);
        }
        if (ttysave[1] != -1) {
                ttys[1].sg_flags = ttysave[1];
                stty(1, &ttys[1]);
#endif  /* USG */
        }

        return (0);
}


int
set_tty()                       /*this replaces the use of bset and breset*/
{

#ifndef USG                     /*for research/BSD only, reset CRMOD*/
        if (ttysave[1] == -1)
                save_tty();
        if (ttysave[1] != -1) {
                ttys[1].sg_flags &= ~CRMOD;
                stty(1, &ttys[1]);
        }
#endif  /* USG */

        return (0);
}


int
echo_off()                      /*turn off ECHO for .rd in "-q" mode*/
{
        if (ttysave[0] == -1)
                return (0);

#ifdef  USG
        ttys.c_lflag &= ~ECHO_USG;
        ioctl(0, TCSETAW, &ttys);
#else
        ttys[0].sg_flags &= ~ECHO;
        stty(0, &ttys[0]);
#endif  /* USG */

        return (0);

}


int
echo_on()                       /*restore ECHO after .rd in "-q" mode*/
{
        if (ttysave[0] == -1)
                return (0);

#ifdef  USG
        ttys.c_lflag |= ECHO_USG;
        ioctl(0, TCSETAW, &ttys);
#else
        ttys[0].sg_flags |= ECHO;
        stty(0, &ttys[0]);
#endif  /* USG */

        return (0);
}
#endif  /* NROFF */