/*
 * Copyright (c) 1990, 2010, Oracle and/or its affiliates. All rights reserved.
 */

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

#include "e.h"
#include <stdlib.h>
#include <locale.h>

#define MAXLINE 8192    /* maximum input line */

char in[MAXLINE+1];     /* input buffer */
int noeqn;

void error(int, char *, char *);

static void do_inline(void);
int eqn(int, char *[]);
static int getaline(char *);
static void init(void);
void nrwid(int, int, int);
int oalloc(void);
void ofree(int);
static void setfile(int, char *[]);
void setps(int);

int
main(int argc, char *argv[])
{
        (void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
        (void) textdomain(TEXT_DOMAIN);
        return (eqn(argc, argv));
}

int
eqn(int argc, char *argv[])
{
        int i, type;

        setfile(argc, argv);
        init_tbl();     /* install keywords in tables */
        while ((type = getaline(in)) != EOF) {
                eqline = linect;
                if (in[0] == '.' && in[1] == 'E' && in[2] == 'Q') {
                        for (i = 11; i < 100; used[i++] = 0)
                                ;
                        printf("%s", in);
                        printf(".nr 99 \\n(.s\n.nr 98 \\n(.f\n");
                        markline = 0;
                        init();
                        yyparse();
                        if (eqnreg > 0) {
                                printf(".nr %d \\w'\\*(%d'\n", eqnreg, eqnreg);
                                /*
                                 * printf(".if \\n(%d>\\n(.l .tm too-long eqn,
                                 * file %s, between lines %d-%d\n",
                                 * eqnreg, svargv[ifile], eqline, linect);
                                 */

                                /* for -ms macros */
                                printf(".nr MK %d\n", markline);

                                printf(".if %d>\\n(.v .ne %du\n", eqnht, eqnht);
                                printf(".rn %d 10\n", eqnreg);
                                if (!noeqn) printf("\\*(10\n");
                        }
                        printf(".ps \\n(99\n.ft \\n(98\n");
                        printf(".EN");
                        if (lastchar == EOF) {
                                putchar('\n');
                                break;
                        }
                        if (putchar(lastchar) != '\n')
                                while (putchar(gtc()) != '\n')
                                        ;
                } else if (type == lefteq)
                        do_inline();
                else
                        printf("%s", in);
        }
        return (0);
}

static int
getaline(char *s)
{
        int c;
        while ((*s++ = c = gtc()) != '\n' && c != EOF && c != lefteq)
                if (s >= in+MAXLINE) {
                        error(!FATAL, gettext(
                            "input line too long: %.20s\n"), in);
                        in[MAXLINE] = '\0';
                        break;
                }
        if (c == lefteq)
                s--;
        *s++ = '\0';
        return (c);
}

static void
do_inline(void)
{
        int ds;

        printf(".nr 99 \\n(.s\n.nr 98 \\n(.f\n");
        ds = oalloc();
        printf(".rm %d \n", ds);
        do {
                if (*in)
                        printf(".as %d \"%s\n", ds, in);
                init();
                yyparse();
                if (eqnreg > 0) {
                        printf(".as %d \\*(%d\n", ds, eqnreg);
                        ofree(eqnreg);
                }
                printf(".ps \\n(99\n.ft \\n(98\n");
        } while (getaline(in) == lefteq);
        if (*in)
                printf(".as %d \"%s", ds, in);
        printf(".ps \\n(99\n.ft \\n(98\n");
        printf("\\*(%d\n", ds);
        ofree(ds);
}

void
putout(int p1)
{
        extern int gsize, gfont;
        int before, after;
        if (dbg)
                printf(".\tanswer <- S%d, h=%d,b=%d\n", p1, eht[p1], ebase[p1]);
        eqnht = eht[p1];
        printf(".ds %d \\x'0'", p1);
        /* suppposed to leave room for a subscript or superscript */
#ifndef NEQN
        before = eht[p1] - ebase[p1] - VERT(EM(1.2, ps));
#else   /* NEQN */
        before = eht[p1] - ebase[p1] - VERT(3); /* 3 = 1.5 lines */
#endif  /* NEQN */
        if (spaceval != NULL)
                printf("\\x'0-%s'", spaceval);
        else if (before > 0)
                printf("\\x'0-%du'", before);
        printf("\\f%c\\s%d\\*(%d%s\\s\\n(99\\f\\n(98",
            gfont, gsize, p1, rfont[p1] == ITAL ? "\\|" : "");
#ifndef NEQN
        after = ebase[p1] - VERT(EM(0.2, ps));
#else   /* NEQN */
        after = ebase[p1] - VERT(1);
#endif  /* NEQN */
        if (spaceval == NULL && after > 0)
                printf("\\x'%du'", after);
        putchar('\n');
        eqnreg = p1;
        if (spaceval != NULL) {
                free(spaceval);
                spaceval = NULL;
        }

}

int
max(int i, int j)
{
        return (i > j ? i : j);
}

int
oalloc(void)
{
        int i;
        char ebuf[3];

        for (i = 11; i < 100; i++)
                if (used[i]++ == 0)
                        return (i);
        (void) snprintf(ebuf, sizeof (ebuf), "%d", i);
        error(FATAL, gettext("no eqn strings left"), ebuf);
        return (0);
}

void
ofree(int n)
{
        used[n] = 0;
}

void
setps(int p)
{
        printf(".ps %d\n", EFFPS(p));
}

void
nrwid(int n1, int p, int n2)
{
        printf(".nr %d \\w'\\s%d\\*(%d'\n", n1, EFFPS(p), n2);
}

static void
setfile(int argc, char *argv[])
{
        static char *nullstr = "-";

        svargc = --argc;
        svargv = argv;
        while (svargc > 0 && svargv[1][0] == '-') {
                switch (svargv[1][1]) {

                case 'd': lefteq = svargv[1][2]; righteq = svargv[1][3]; break;
                case 's': gsize = atoi(&svargv[1][2]); break;
                case 'p': deltaps = atoi(&svargv[1][2]); break;
                case 'f': gfont = svargv[1][2]; break;
                case 'e': noeqn++; break;
                case 0: goto endargs;
                default: dbg = 1;
                }
                svargc--;
                svargv++;
        }
endargs:
        ifile = 1;
        linect = 1;
        if (svargc <= 0) {
                curfile = stdin;
                svargv[1] = nullstr;
        }
        else
                openinfile();   /* opens up the first input file */
}

void
yyerror(void)
{
}

static void
init(void)
{
        ct = 0;
        ps = gsize;
        ft = gfont;
        setps(ps);
        printf(".ft %c\n", ft);
}

void
error(int fatal, char *s1, char *s2)
{
        if (fatal > 0)
                printf(gettext("eqn fatal error: "));
        printf(s1, s2);
        printf(gettext("\nfile %s, between lines %d and %d\n"),
            svargv[ifile], eqline, linect);
        fprintf(stderr, gettext("eqn: "));
        if (fatal > 0)
                fprintf(stderr, gettext("fatal error: "));
        fprintf(stderr, s1, s2);
        fprintf(stderr, gettext("\nfile %s, between lines %d and %d\n"),
            svargv[ifile], eqline, linect);
        if (fatal > 0)
                exit(1);
}