/*      @(#)lcmd1.c     8.1 (Berkeley) 6/6/93   */
/*      $NetBSD: lcmd1.c,v 1.11 2006/12/18 20:04:55 christos Exp $      */

/*
 * Copyright (c) 1983, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Edward Wang at The University of California, Berkeley.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <string.h>
#include <unistd.h>
#include "defs.h"
#include "window_string.h"
#include "lcmd.h"
#include "var.h"

char    vtobool(struct value *, char, char);

struct lcmd_arg arg_window[] = {
        { "row",        1,      ARG_NUM },
        { "column",     1,      ARG_NUM },
        { "nrows",      2,      ARG_NUM },
        { "ncols",      2,      ARG_NUM },
        { "nlines",     2,      ARG_NUM },
        { "label",      1,      ARG_STR },
        { "pty",        1,      ARG_ANY },
        { "frame",      1,      ARG_ANY },
        { "mapnl",      1,      ARG_ANY },
        { "keepopen",   1,      ARG_ANY },
        { "smooth",     1,      ARG_ANY },
        { "shell",      1,      ARG_STR|ARG_LIST },
        { NULL,         0,      0 }
};

void
l_window(struct value *v, struct value *a)
{
        struct ww *w;
        int col, row, ncol, nrow, id, nline;
        char *label;
        int haspty, hasframe, mapnl, keepopen, smooth;
        char *shf, **sh;
        char *argv[sizeof default_shell / sizeof *default_shell];
        char **pp;

        if ((id = findid()) < 0)
                return;
        row = a->v_type == V_ERR ? 1 : a->v_num;
        a++;
        col = a->v_type == V_ERR ? 0 : a->v_num;
        a++;
        nrow = a->v_type == V_ERR ? wwnrow - row : a->v_num;
        a++;
        ncol = a->v_type == V_ERR ? wwncol - col : a->v_num;
        a++;
        nline = a->v_type == V_ERR ? default_nline : a->v_num;
        a++;
        label = a->v_type == V_ERR ? 0 : a->v_str;
        if ((haspty = vtobool(++a, 1, -1)) < 0)
                return;
        if ((hasframe = vtobool(++a, 1, -1)) < 0)
                return;
        if ((mapnl = vtobool(++a, !haspty, -1)) < 0)
                return;
        if ((keepopen = vtobool(++a, 0, -1)) < 0)
                return;
        if ((smooth = vtobool(++a, default_smooth, -1)) < 0)
                return;
        if ((++a)->v_type != V_ERR) {
                for (pp = argv; a->v_type != V_ERR &&
                     pp < &argv[sizeof argv/sizeof *argv-1]; pp++, a++)
                        *pp = a->v_str;
                *pp = NULL;
                shf = *(sh = argv);
                if ((*sh = strrchr(shf, '/')))
                        (*sh)++;
                else
                        *sh = shf;
        } else {
                sh = default_shell;
                shf = default_shellfile;
        }
        if ((w = openwin(id, row, col, nrow, ncol, nline, label,
            haspty ? WWT_PTY : WWT_SOCKET, hasframe ? WWU_HASFRAME : 0, shf,
            sh)) == NULL)
                return;
        if (mapnl)
                SET(w->ww_wflags, WWW_MAPNL);
        else
                CLR(w->ww_wflags, WWW_MAPNL);
        if (keepopen)
                SET(w->ww_uflags, WWU_KEEPOPEN);
        else
                CLR(w->ww_uflags, WWU_KEEPOPEN);
        if (!smooth)
                SET(w->ww_wflags, WWW_NOUPDATE);
        else
                CLR(w->ww_wflags, WWW_NOUPDATE);
        v->v_type = V_NUM;
        v->v_num = id + 1;
}

struct lcmd_arg arg_def_nline[] = {
        { "nlines",     1,      ARG_NUM },
        { NULL,         0,      0 }
};

void
l_def_nline(struct value *v, struct value *a)
{
        v->v_num = default_nline;
        v->v_type = V_NUM;
        if (a->v_type != V_ERR)
                default_nline = a->v_num;
}

struct lcmd_arg arg_smooth[] = {
        { "window",     1,      ARG_NUM },
        { "flag",       1,      ARG_ANY },
        { NULL,         0,      0 }
};

void
l_smooth(struct value *v, struct value *a)
{
        struct ww *w;

        v->v_type = V_NUM;
        v->v_num = 0;
        if ((w = vtowin(a++, selwin)) == NULL)
                return;
        v->v_num = ISSET(w->ww_wflags, WWW_NOUPDATE) == 0;
        if (!vtobool(a, v->v_num, v->v_num))
                SET(w->ww_wflags, WWW_NOUPDATE);
        else
                CLR(w->ww_wflags, WWW_NOUPDATE);
}

struct lcmd_arg arg_def_smooth[] = {
        { "flag",       1,      ARG_ANY },
        { NULL,         0,      0 }
};

void
l_def_smooth(struct value *v, struct value *a)
{
        v->v_type = V_NUM;
        v->v_num = default_smooth;
        default_smooth = vtobool(a, v->v_num, v->v_num);
}

struct lcmd_arg arg_select[] = {
        { "window",     1,      ARG_NUM },
        { NULL,         0,      0 }
};

void
l_select(struct value *v, struct value *a)
{
        struct ww *w;

        v->v_type = V_NUM;
        v->v_num = selwin ? selwin->ww_id + 1 : -1;
        if (a->v_type == V_ERR)
                return;
        if ((w = vtowin(a, (struct ww *)0)) == NULL)
                return;
        setselwin(w);
}

struct lcmd_arg arg_debug[] = {
        { "flag",       1,      ARG_ANY },
        { NULL,         0,      0 }
};

void
l_debug(struct value *v, struct value *a)
{
        v->v_type = V_NUM;
        v->v_num = debug;
        debug = vtobool(a, debug, debug);
}

struct lcmd_arg arg_escape[] = {
        { "escapec",    1,      ARG_STR },
        { NULL,         0,      0 }
};

void
l_escape(struct value *v, struct value *a)
{
        char buf[2];

        buf[0] = escapec;
        buf[1] = 0;
        if ((v->v_str = str_cpy(buf)) == 0) {
                error("Out of memory.");
                return;
        }
        v->v_type = V_STR;
        if (a->v_type != V_ERR)
                setescape(a->v_str);
}

struct lcmd_arg arg_label[] = {
        { "window",     1,      ARG_NUM },
        { "label",      1,      ARG_STR },
        { NULL,         0,      0 }
};

void
l_label(struct value *v __unused, struct value *a)
{
        struct ww *w;

        if ((w = vtowin(a, selwin)) == NULL)
                return;
        if ((++a)->v_type != V_ERR && setlabel(w, a->v_str) < 0)
                error("Out of memory.");
        reframe();
}

struct lcmd_arg arg_foreground[] = {
        { "window",     1,      ARG_NUM },
        { "flag",       1,      ARG_ANY },
        { NULL,         0,      0 }
};

void
l_foreground(struct value *v, struct value *a)
{
        struct ww *w;
        char flag;

        if ((w = vtowin(a, selwin)) == NULL)
                return;
        v->v_type = V_NUM;
        v->v_num = isfg(w);
        flag = vtobool(++a, v->v_num, v->v_num);
        if (flag == v->v_num)
                return;
        deletewin(w);
        addwin(w, flag);
        reframe();
}

struct lcmd_arg arg_terse[] = {
        { "flag",       1,      ARG_ANY },
        { NULL,         0,      0 }
};

void
l_terse(struct value *v, struct value *a)
{
        v->v_type = V_NUM;
        v->v_num = terse;
        setterse(vtobool(a, terse, terse));
}

struct lcmd_arg arg_source[] = {
        { "filename",   1,      ARG_STR },
        { NULL,         0,      0 }
};

void
l_source(struct value *v, struct value *a)
{
        v->v_type = V_NUM;
        if (a->v_type != V_ERR && dosource(a->v_str) < 0) {
                error("Can't open %s.", a->v_str);
                v->v_num = -1;
        } else
                v->v_num = 0;
}

struct lcmd_arg arg_write[] = {
        { "window",     1,      ARG_NUM },
        { "",           0,      ARG_ANY|ARG_LIST },
        { NULL,         0,      0 }
};

void
l_write(struct value *v __unused, struct value *a)
{
        char buf[20];
        struct ww *w;

        if ((w = vtowin(a++, selwin)) == NULL)
                return;
        while (a->v_type != V_ERR) {
                if (a->v_type == V_NUM) {
                        (void) sprintf(buf, "%d", a->v_num);
                        (void) write(w->ww_pty, buf, strlen(buf));
                } else
                        (void) write(w->ww_pty, a->v_str, strlen(a->v_str));
                if ((++a)->v_type != V_ERR)
                        (void) write(w->ww_pty, " ", 1);
        }
}

struct lcmd_arg arg_close[] = {
        { "window",     1,      ARG_ANY|ARG_LIST },
        { NULL,         0,      0 }
};

void
l_close(struct value *v __unused, struct value *a)
{
        struct ww *w;

        if (a->v_type == V_STR && str_match(a->v_str, "all", 3))
                closewin((struct ww *)0);
        else
                for (; a->v_type != V_ERR; a++)
                        if ((w = vtowin(a, (struct ww *)0)) != NULL)
                                closewin(w);
}

struct lcmd_arg arg_cursormodes[] = {
        { "modes",      1,      ARG_NUM },
        { NULL,         0,      0 }
};

void
l_cursormodes(struct value *v, struct value *a)
{

        v->v_type = V_NUM;
        v->v_num = wwcursormodes;
        if (a->v_type != V_ERR)
                wwsetcursormodes(a->v_num);
}

struct lcmd_arg arg_unset[] = {
        { "variable",   1,      ARG_ANY },
        { NULL,         0,      0 }
};

void
l_unset(struct value *v, struct value *a)
{
        v->v_type = V_NUM;
        switch (a->v_type) {
        case V_ERR:
                v->v_num = -1;
                return;
        case V_NUM:
                if ((a->v_str = str_itoa(a->v_num)) == 0) {
                        error("Out of memory.");
                        v->v_num = -1;
                        return;
                }
                a->v_type = V_STR;
                break;
        }
        v->v_num = var_unset(a->v_str);
}

struct ww *
vtowin(struct value *v, struct ww *w)
{
        switch (v->v_type) {
        case V_ERR:
                if (w != NULL)
                        return w;
                error("No window specified.");
                return 0;
        case V_STR:
                error("%s: No such window.", v->v_str);
                return 0;
        }
        if (v->v_num < 1 || v->v_num > NWINDOW
            || (w = window[v->v_num - 1]) == NULL) {
                error("%d: No such window.", v->v_num);
                return 0;
        }
        return w;
}

char
vtobool(struct value *v, char def, char err)
{
        switch (v->v_type) {
        case V_NUM:
                return v->v_num != 0;
        case V_STR:
                if (str_match(v->v_str, "true", 1)
                    || str_match(v->v_str, "on", 2)
                    || str_match(v->v_str, "yes", 1))
                        return 1;
                else if (str_match(v->v_str, "false", 1)
                    || str_match(v->v_str, "off", 2)
                    || str_match(v->v_str, "no", 1))
                        return 0;
                else {
                        error("%s: Illegal boolean value.", v->v_str);
                        return err;
                }
                /*NOTREACHED*/
        case V_ERR:
                return def;
        }
        /*NOTREACHED*/
        return (0);
}