/*
 * 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 (c) 1996, by Sun Microsystems, Inc.
 * All rights reserved.
 */

/*
 *      tabs.c
 *
 *      Copyright 1990, 1992 by Mortice Kern Systems Inc.  All rights reserved.
 *
 *      PORTABILITY:
 *      POSIX.2a UPE full support
 *      SVID 3 full support except +m option is stubbed
 *      XPG full support except +m option is stubbed
 *
 *      SYNOPSIS:
 *      tabs [-T term] [+m[n]] [-n]
 *      tabs [-T term] [+m[n]] -t tablist
 *      tabs [-T term] [+m[n]] n1[,n2,...]
 *      tabs [-T term] [+m[n]] tabspec
 *
 *      DESCRIPTION:
 *      The tabs utility shall display a series of characters that first clears
 *      the hardware terminal tab settings and then initializes the tab stops
 *      at the specified positions.
 *
 *      The phrase "tab-stop position N" shall be taken to mean that, from the
 *      start of a line of output, tabbing to position N shall cause the next
 *      character output to be in the (N+1)th column position on that line.
 *      The maximum number of tab stops allowed is terminal dependent.
 *
 *      'tabspec' is one of the following:
 *
 *      Assembler:
 *      -a      1,10,16,36,72
 *      -a2     1,10,16,40,72
 *      -u      1,12,20,44
 *
 *      COBOL:
 *      -c      1,8,12,16,20,55
 *      -c2     1,6,10,14,49
 *      -c3     1,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,67
 *
 *      FORTRAN:
 *      -f      1,7,11,15,19,23
 *
 *      PL/I:
 *      -p      1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61
 *
 *      SNOBOL:
 *      -s      1,10,55
 *
 *
 *      EXIT STATUS:
 *      0       successful completion.
 *
 *      >0      An error occured.
 */
#ifdef M_RCSID
#ifndef lint
static char rcsID[] = "$Id: tabs.c 1.20 1995/09/21 21:00:28 ant Exp $";
#endif
#endif

#include <mks.h>
#include <curses.h>
#define SINGLE  1               /* only one terminal to be concerned about */
#include <term.h>
#include <ctype.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

extern char *_cmdname;


/* Exit Status */
#define SUCCESS         0
#define NOT_DEFINED     1
#define USAGE           2
#define BAD_TERMINAL    3
#define NOT_VALID       4
#define ERROR           5

#define NO_FORM 0
#define N_FORM  1       /* tabs [-T term] [+m[n]] [-<n>] */
#define T_FORM  2       /* tabs [-T term] [+m[n]] -t tablist */
#define P_FORM  3       /* tabs [-T term] [+m[n]] n1[,n2,...]  and
                         * tabs [-T term] [+m[n]] tabspec
                         */


static int form = NO_FORM;
static int n_width = 8;
static int margin = 0;
static wchar_t *tablist;

typedef struct {
        char *option;
        char *list;
} predefined;

static predefined tabspec[] = {
        { "a", "1,10,16,36,72" },
        { "a2", "1,10,16,40,72" },
        { "u", "1,12,20,44" },
        { "c", "1,8,12,16,20,55" },
        { "c2", "1,6,10,14,49" },
        { "c3", "1,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,67" },
        { "f", "1,7,11,15,19,23" },
        { "p", "1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61" },
        { "s", "1,10,55" },
        { NULL, NULL }
};

static char *term_name;
static char dumb_term[] = "dumb";
static char missing_tablist[] = m_textstr(1828, "Missing tab list after -t.\n", "E");
static char missing_terminal[] = m_textstr(1829, "Missing terminal type after -T.\n", "E");
static char unknown_option[] = m_textstr(433, "Unknown option \"-%s\".\n", "E option");
static char bad_list[] = m_textstr(1830, "Illegal tabs in \"%s\".\n", "E tablist");
static char no_margins[] = m_textstr(1831, "Cannot set margins on terminal \"%s\".\n", "E term");
static char no_tabs[] = m_textstr(1832, "Cannot set tabs on terminal \"%s\".\n", "E term");
static char not_ascending[] = m_textstr(1833, "\"%s\" are not in ascending order.\n", "E tablist");
static char usage_msg[] = m_textstr(1834, "\
Usage: tabs [-T term] [+m[n]] [-n]\n\
       tabs [-T term] [+m[n]] -t <tablist>\n\
       tabs [-T term] [+m[n]] n1[,n2,...]\n\
       tabs [-T term] [+m[n]] -a|a2|u|c|c2|c3|f|p|s\n", "U");


STATREF int do_tabs ANSI((void));
STATREF void err_msg ANSI((char *fmt, ...));    /* GENTEXT: err_msg */
STATREF void mvcol ANSI((int oc, int nc));
STATREF void set_every ANSI((int n));
STATREF void set_tab_at ANSI((int x));
STATREF int usage ANSI((void));


/*f
 * mainline for tabs
 */
int
main(argc, argv)
int argc;
char **argv;
{
        char *ap;
        int i;
        int err_code;
        predefined *p;
        setlocale(LC_ALL, "");
        _cmdname = m_cmdname(*argv);
        if ((term_name = getenv("TERM")) == NULL)
                term_name = dumb_term;
        while (0 < --argc && (**++argv == '-' || **argv == '+')) {
                ap = &argv[0][1];

                /* Check for standard io '-' */
                if (*ap == '\0')
                        break;
                /* End option list '--'? */
                if (*ap == '-' && ap[1] == '\0') {
                        ++argv;
                        --argc;
                        break;
                }
                if (**argv == '-') {
                        /* '-xyz...' or '-xyzF<parm>' or '-xyzF <parm>' */
                        for (;*ap != '\0'; ++ap) {
                                switch (*ap) {
                                case 't':
                                        if (form != NO_FORM)
                                                return (usage());
                                        form = T_FORM;
                                        if (*++ap != '\0') {
                                                tablist = m_mbstowcsdup(ap);
                                                break;
                                        } else if (1 < argc) {
                                                tablist = m_mbstowcsdup(*++argv);
                                                --argc;
                                                break;
                                        }
                                        err_msg(missing_tablist);
                                        return (usage());
                                        break;
                                case 'T':
                                        /* '-T<term>' or '-T <term>' */
                                        if (*++ap != '\0') {
                                                term_name = ap;
                                                break;
                                        } else if (1 < argc) {
                                                term_name = *++argv;
                                                --argc;
                                                break;
                                        }
                                        err_msg(missing_terminal);
                                        return (usage());
                                default:
                                        if (isdigit(*ap)) {
                                                if (form != NO_FORM)
                                                        return (usage());
                                                form = N_FORM;
                                                n_width =  *ap - '0';
                                                continue;
                                        }
                                        for (p = tabspec;
                                             p->option != NULL
                                             && strcmp(p->option, ap) != 0;
                                             ++p)
                                                ;
                                        if (p->option != NULL) {
                                                form = P_FORM;
                                                tablist = m_mbstowcsdup(p->list);
                                                break;
                                        }
                                        err_msg(unknown_option, ap);
                                        return (usage());
                                }
                                break;
                        }
                } else {
                        /* All '+' options. */
                        if (*ap == 'm') {
                                margin = (int) strtol(++ap, NULL, 0);
                                if (margin == 0)
                                        margin = 10;
                        } else {
                                err_msg(unknown_option, ap);
                                return (usage());
                        }
                }
        }
        if (form == NO_FORM) {
                switch (argc) {
                case 0:
                        form = N_FORM;
                        break;
                case 1:
                        form = P_FORM;
                        tablist = m_mbstowcsdup(*argv);
                        break;
                default:
                        return (usage());
                }
        } else if (0 < argc) {
                return (usage());
        }
        (void) setupterm(term_name, fileno(stdout), &err_code);
        switch (err_code) {
        case 1:
                break;
        case 0:
                err_msg(m_textstr(202, "Unknown terminal \"%s\".\n", "E term"), term_name);
                return (BAD_TERMINAL);
        case -1:
                err_msg(m_textstr(203, "No terminfo database.\n", "E"));
                return (BAD_TERMINAL);
        }
        if (save_cursor != NULL)
                putp(save_cursor);
        err_code = do_tabs();
        if (restore_cursor != NULL)
                putp(restore_cursor);
        else
                mvcol(0, 0);
        return (err_code);
}

/*f
 * actually do tabs
 */
STATIC int
do_tabs()
{
        int oc = 0;
        int nc = 0;
        wchar_t *p = tablist;
        if (clear_all_tabs == NULL || set_tab == NULL) {
                err_msg(no_tabs, term_name);
                return (NOT_DEFINED);
        }
        mvcol(0, 0);
        putp(clear_all_tabs);
#if 0   /* margins are not yet supported in terminfo */
        if (clear_margins == NULL || set_left_margin == NULL) {
                err_msg(no_margins, term_name);
                return (NOT_DEFINED);
        } else {
                putp(clear_margins);
                mvcol(0, margin);
                putp(set_left_margin);
        }
#endif
        switch (form) {
        case N_FORM:
                if (0 < n_width)
                        set_every(n_width);
                break;
        case T_FORM:
                nc = (int) wcstol(p, &p, 0);
                if (p == tablist || nc < 0) {
                        err_msg(bad_list, tablist);
                        return (NOT_VALID);
                }
                if (*p == '\0') {
                        set_every(nc);
                        break;
                }
                do {
                        if (nc <= oc) {
                                err_msg(not_ascending, tablist);
                                return (NOT_VALID);
                        }
                        if (*p != '\0' && *p != ',' && !iswblank(*p)) {
                                err_msg(bad_list, tablist);
                                return (NOT_VALID);
                        }
                        ++p;
                        oc = nc;
                        set_tab_at(nc);
                        nc = (int) wcstol(p, &p, 0);
                } while (nc != 0);
                break;
        case P_FORM:
                if (*p == '+' || *p == '-') {
                        err_msg(bad_list, tablist);
                        return (NOT_VALID);
                }
                for (;;) {
                        nc += (int) wcstol(p, &p, 0);
                        if (nc == 0)
                                break;
                        if (nc <= oc) {
                                err_msg(not_ascending, tablist);
                                return (NOT_VALID);
                        }
                        if (*p != '\0' && *p != ',' && !iswblank(*p)) {
                                err_msg(bad_list, tablist);
                                return (NOT_VALID);
                        }
                        ++p;
                        oc = nc;
                        set_tab_at(nc);
                        if (*p == '+')
                                ++p;
                        else
                                nc = 0;
                }
                break;
        }
        return (SUCCESS);
}

/*f
 *      Set a tab every n columns starting with column 0.
 */
STATIC void
set_every(n)
int n;
{
        int x;
        for (x = 0; x < columns; x += n)
                set_tab_at(x);
}

/*f
 *      Set tab at column x. Assume that cursor has been positioned at the
 *      start of the line before settiing the first tab.
 */
STATIC void
set_tab_at(x)
int x;
{
        static int col = 0;
        mvcol(col, x);
        putp(set_tab);
        col = x;
}

/*f
 *      Move the cursor on the current row from column 'col' to column 'x'.
 *      We can't use mvcur() because we have no idea what row we're on.
 */
STATIC void
mvcol(oc, nc)
int oc, nc;
{
        int diff = nc - oc;
        if (nc == 0) {
                putchar('\r');
        } else if (column_address != NULL) {
                putp(tparm(column_address, nc, 0, 0, 0, 0, 0, 0, 0, 0));
        } else if (parm_right_cursor != NULL) {
                putp(tparm(parm_right_cursor, diff, 0, 0, 0, 0, 0, 0, 0, 0));
        } else if (cursor_right != NULL) {
                while (diff--)
                        putp(cursor_right);
        } else {
                while (diff--)
                        putchar(' ');
        }
}

/*f
 * usage message for tabs
 */
STATIC int
usage()
{
        (void) fprintf(stderr, m_strmsg(usage_msg));
        return (USAGE);
}

/*f
 * display error message
 */
STATIC void
err_msg VARARG1(char*, fmt)
{
        va_list ap;
        (void) fprintf(stderr, "%s: ", _cmdname);
        va_start(ap, fmt);
        (void) vfprintf(stderr, m_strmsg(fmt), ap);
        va_end(ap);
}