usr/src/contrib/nvi.1.14/sex/sex_screen.c

/*-
 * Copyright (c) 1993, 1994
 *      The Regents of the University of California.  All rights reserved.
 *
 * 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the University of
 *      California, Berkeley and its contributors.
 * 4. 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.
 */

#ifndef lint
static char sccsid[] = "@(#)sex_screen.c        8.40 (Berkeley) 4/14/94";
#endif /* not lint */

#include <sys/types.h>
#include <sys/queue.h>
#include <sys/time.h>

#include <bitstring.h>
#include <limits.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <termios.h>
#include <unistd.h>

#include "compat.h"
#include <db.h>
#include <regex.h>

#include "vi.h"
#include "excmd.h"
#include "sex_screen.h"
#include "../svi/svi_screen.h"

static void     sex_abort __P((void));
static int      sex_noop __P((void));
static int      sex_nope __P((SCR *));

/*
 * sex_screen_init --
 *      Initialize the ex screen.
 */
int
sex_screen_init(sp)
        SCR *sp;
{
        /* Initialize support routines. */
        sp->s_bell              = sex_bell;
        sp->s_bg                = (int (*)())sex_nope;
        sp->s_busy              = (int (*)())sex_busy;
        sp->s_change            = (int (*)())sex_noop;
        sp->s_clear             = (int (*)())sex_noop;
        sp->s_colpos            = (size_t (*)())sex_abort;
        sp->s_column            = (int (*)())sex_abort;
        sp->s_confirm           = sex_confirm;
        sp->s_crel              = (int (*)())sex_nope;
        sp->s_down              = (int (*)())sex_abort;
        sp->s_edit              = sex_screen_edit;
        sp->s_end               = (int (*)())sex_noop;
        sp->s_ex_cmd            = (int (*)())sex_abort;
        sp->s_ex_run            = (int (*)())sex_abort;
        sp->s_ex_write          = (int (*)())sex_abort;
        sp->s_fg                = (int (*)())sex_nope;
        sp->s_fill              = (int (*)())sex_abort;
        sp->s_get               = sex_get;
        sp->s_key_read          = sex_key_read;
        sp->s_optchange         = (int (*)())sex_noop;
        sp->s_position          = (int (*)())sex_abort;
        sp->s_rabs              = (int (*)())sex_nope;
        sp->s_rcm               = (size_t (*)())sex_abort;
        sp->s_refresh           = sex_refresh;
        sp->s_split             = (int (*)())sex_nope;
        sp->s_suspend           = sex_suspend;
        sp->s_up                = (int (*)())sex_abort;

        return (0);
}

/*
 * sex_screen_copy --
 *      Copy to a new screen.
 */
int
sex_screen_copy(orig, sp)
        SCR *orig, *sp;
{
        SEX_PRIVATE *osex, *nsex;

        /* Create the private screen structure. */
        CALLOC_RET(orig, nsex, SEX_PRIVATE *, 1, sizeof(SEX_PRIVATE));
        sp->sex_private = nsex;

/* INITIALIZED AT SCREEN CREATE. */

/* PARTIALLY OR COMPLETELY COPIED FROM PREVIOUS SCREEN. */
        if (orig == NULL) {
        } else {
                osex = SXP(orig);
                if (osex->SE != NULL && (nsex->SE = strdup(osex->SE)) == NULL) {
                        msgq(sp, M_SYSERR, NULL);
                        return (1);
                }
                if (osex->SO != NULL && (nsex->SO = strdup(osex->SO)) == NULL) {
                        msgq(sp, M_SYSERR, NULL);
                        free(osex->SE);
                        return (1);
                }
                F_SET(nsex, F_ISSET(osex, SEX_NO_INVERSE));
        }

        return (0);
}

/*
 * sex_screen_end --
 *      End a screen.
 */
int
sex_screen_end(sp)
        SCR *sp;
{
        /* Free inverse video strings. */
        if (SXP(sp)->SE != NULL)
                free(SXP(sp)->SE);
        if (SXP(sp)->SO != NULL)
                free(SXP(sp)->SO);

        /* Free private memory. */
        FREE(SXP(sp), sizeof(SEX_PRIVATE));
        sp->sex_private = NULL;

        return (0);
}

/*
 * sex_screen_edit --
 *      Main ex screen loop.  The ex screen is relatively uncomplicated.
 *      As long as it has a stdio FILE pointer for output, it's happy.
 */
int
sex_screen_edit(sp, ep)
        SCR *sp;
        EXF *ep;
{
        struct termios t;
        GS *gp;
        int force, rval;

        /* Initialize the terminal state. */
        gp = sp->gp;
        if (F_ISSET(gp, G_STDIN_TTY))
                SEX_RAW(t);

        /* Write to the terminal. */
        sp->stdfp = stdout;

        for (;;) {
                sp->rows = O_VAL(sp, O_LINES);
                sp->cols = O_VAL(sp, O_COLUMNS);

                /*
                 * Run ex.  If ex fails, sex data structures
                 * may be corrupted, be careful what you do.
                 */
                if (rval = ex(sp, sp->ep)) {
                        if (F_ISSET(ep, F_RCV_ON)) {
                                F_SET(ep, F_RCV_NORM);
                                (void)rcv_sync(sp, sp->ep);
                        }
                        (void)file_end(sp, sp->ep, 1);
                        (void)screen_end(sp);   /* General SCR info. */
                        break;
                }

                force = 0;
                switch (F_ISSET(sp, S_MAJOR_CHANGE)) {
                case S_EXIT_FORCE:
                        force = 1;
                        /* FALLTHROUGH */
                case S_EXIT:
                        F_CLR(sp, S_EXIT_FORCE | S_EXIT);
                        if (file_end(sp, sp->ep, force))
                                break;
                        (void)screen_end(sp);   /* General SCR info. */
                        goto ret;
                case 0:                         /* Changing from ex mode. */
                        goto ret;
                case S_FSWITCH:
                        F_CLR(sp, S_FSWITCH);
                        break;
                case S_SSWITCH:
                default:
                        abort();
                }
        }

        /* Reset the terminal state. */
ret:    if (F_ISSET(gp, G_STDIN_TTY) && SEX_NORAW(t))
                rval = 1;
        return (rval);
}

/*
 * sex_abort --
 *      Fake function.  Die.
 */
static void
sex_abort()
{
        abort();
}

/*
 * sex_noop --
 *      Fake function.  Do nothing.
 */
static int
sex_noop()
{
        return (0);
}

/*
 * sex_nope --
 *      Fake function.  Not in ex, you don't.
 */
static int
sex_nope(sp)
        SCR *sp;
{
        msgq(sp, M_ERR, "Command not applicable to ex mode.");
        return (1);
}