mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-25 11:37:56 +00:00
b8ba871bd9
files, curses, db, regex etc that we already have). The other glue will follow shortly. Obtained from: Keith Bostic <bostic@bostic.com>
234 lines
4.8 KiB
C
234 lines
4.8 KiB
C
/*-
|
|
* Copyright (c) 1993, 1994
|
|
* The Regents of the University of California. All rights reserved.
|
|
* Copyright (c) 1993, 1994, 1995, 1996
|
|
* Keith Bostic. All rights reserved.
|
|
*
|
|
* See the LICENSE file for redistribution information.
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#ifndef lint
|
|
static const char sccsid[] = "@(#)screen.c 10.15 (Berkeley) 9/15/96";
|
|
#endif /* not lint */
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/queue.h>
|
|
#include <sys/time.h>
|
|
|
|
#include <bitstring.h>
|
|
#include <errno.h>
|
|
#include <limits.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
|
|
#include "common.h"
|
|
#include "../vi/vi.h"
|
|
|
|
/*
|
|
* screen_init --
|
|
* Do the default initialization of an SCR structure.
|
|
*
|
|
* PUBLIC: int screen_init __P((GS *, SCR *, SCR **));
|
|
*/
|
|
int
|
|
screen_init(gp, orig, spp)
|
|
GS *gp;
|
|
SCR *orig, **spp;
|
|
{
|
|
SCR *sp;
|
|
size_t len;
|
|
|
|
*spp = NULL;
|
|
CALLOC_RET(orig, sp, SCR *, 1, sizeof(SCR));
|
|
*spp = sp;
|
|
|
|
/* INITIALIZED AT SCREEN CREATE. */
|
|
sp->id = ++gp->id;
|
|
sp->refcnt = 1;
|
|
|
|
sp->gp = gp; /* All ref the GS structure. */
|
|
|
|
sp->ccnt = 2; /* Anything > 1 */
|
|
|
|
/*
|
|
* XXX
|
|
* sp->defscroll is initialized by the opts_init() code because
|
|
* we don't have the option information yet.
|
|
*/
|
|
|
|
CIRCLEQ_INIT(&sp->tiq);
|
|
|
|
/* PARTIALLY OR COMPLETELY COPIED FROM PREVIOUS SCREEN. */
|
|
if (orig == NULL) {
|
|
sp->searchdir = NOTSET;
|
|
} else {
|
|
/* Alternate file name. */
|
|
if (orig->alt_name != NULL &&
|
|
(sp->alt_name = strdup(orig->alt_name)) == NULL)
|
|
goto mem;
|
|
|
|
/* Last executed at buffer. */
|
|
if (F_ISSET(orig, SC_AT_SET)) {
|
|
F_SET(sp, SC_AT_SET);
|
|
sp->at_lbuf = orig->at_lbuf;
|
|
}
|
|
|
|
/* Retain searching/substitution information. */
|
|
sp->searchdir = orig->searchdir == NOTSET ? NOTSET : FORWARD;
|
|
if (orig->re != NULL && (sp->re =
|
|
v_strdup(sp, orig->re, orig->re_len)) == NULL)
|
|
goto mem;
|
|
sp->re_len = orig->re_len;
|
|
if (orig->subre != NULL && (sp->subre =
|
|
v_strdup(sp, orig->subre, orig->subre_len)) == NULL)
|
|
goto mem;
|
|
sp->subre_len = orig->subre_len;
|
|
if (orig->repl != NULL && (sp->repl =
|
|
v_strdup(sp, orig->repl, orig->repl_len)) == NULL)
|
|
goto mem;
|
|
sp->repl_len = orig->repl_len;
|
|
if (orig->newl_len) {
|
|
len = orig->newl_len * sizeof(size_t);
|
|
MALLOC(sp, sp->newl, size_t *, len);
|
|
if (sp->newl == NULL) {
|
|
mem: msgq(orig, M_SYSERR, NULL);
|
|
goto err;
|
|
}
|
|
sp->newl_len = orig->newl_len;
|
|
sp->newl_cnt = orig->newl_cnt;
|
|
memcpy(sp->newl, orig->newl, len);
|
|
}
|
|
|
|
if (opts_copy(orig, sp))
|
|
goto err;
|
|
|
|
F_SET(sp, F_ISSET(orig, SC_EX | SC_VI));
|
|
}
|
|
|
|
if (ex_screen_copy(orig, sp)) /* Ex. */
|
|
goto err;
|
|
if (v_screen_copy(orig, sp)) /* Vi. */
|
|
goto err;
|
|
|
|
*spp = sp;
|
|
return (0);
|
|
|
|
err: screen_end(sp);
|
|
return (1);
|
|
}
|
|
|
|
/*
|
|
* screen_end --
|
|
* Release a screen, no matter what had (and had not) been
|
|
* initialized.
|
|
*
|
|
* PUBLIC: int screen_end __P((SCR *));
|
|
*/
|
|
int
|
|
screen_end(sp)
|
|
SCR *sp;
|
|
{
|
|
int rval;
|
|
|
|
/* If multiply referenced, just decrement the count and return. */
|
|
if (--sp->refcnt != 0)
|
|
return (0);
|
|
|
|
/*
|
|
* Remove the screen from the displayed queue.
|
|
*
|
|
* If a created screen failed during initialization, it may not
|
|
* be linked into the chain.
|
|
*/
|
|
if (sp->q.cqe_next != NULL)
|
|
CIRCLEQ_REMOVE(&sp->gp->dq, sp, q);
|
|
|
|
/* The screen is no longer real. */
|
|
F_CLR(sp, SC_SCR_EX | SC_SCR_VI);
|
|
|
|
rval = 0;
|
|
#ifdef HAVE_PERL_INTERP
|
|
if (perl_screen_end(sp)) /* End perl. */
|
|
rval = 1;
|
|
#endif
|
|
if (v_screen_end(sp)) /* End vi. */
|
|
rval = 1;
|
|
if (ex_screen_end(sp)) /* End ex. */
|
|
rval = 1;
|
|
|
|
/* Free file names. */
|
|
{ char **ap;
|
|
if (!F_ISSET(sp, SC_ARGNOFREE) && sp->argv != NULL) {
|
|
for (ap = sp->argv; *ap != NULL; ++ap)
|
|
free(*ap);
|
|
free(sp->argv);
|
|
}
|
|
}
|
|
|
|
/* Free any text input. */
|
|
if (sp->tiq.cqh_first != NULL)
|
|
text_lfree(&sp->tiq);
|
|
|
|
/* Free alternate file name. */
|
|
if (sp->alt_name != NULL)
|
|
free(sp->alt_name);
|
|
|
|
/* Free up search information. */
|
|
if (sp->re != NULL)
|
|
free(sp->re);
|
|
if (F_ISSET(sp, SC_RE_SEARCH))
|
|
regfree(&sp->re_c);
|
|
if (sp->subre != NULL)
|
|
free(sp->subre);
|
|
if (F_ISSET(sp, SC_RE_SUBST))
|
|
regfree(&sp->subre_c);
|
|
if (sp->repl != NULL)
|
|
free(sp->repl);
|
|
if (sp->newl != NULL)
|
|
free(sp->newl);
|
|
|
|
/* Free all the options */
|
|
opts_free(sp);
|
|
|
|
/* Free the screen itself. */
|
|
free(sp);
|
|
|
|
return (rval);
|
|
}
|
|
|
|
/*
|
|
* screen_next --
|
|
* Return the next screen in the queue.
|
|
*
|
|
* PUBLIC: SCR *screen_next __P((SCR *));
|
|
*/
|
|
SCR *
|
|
screen_next(sp)
|
|
SCR *sp;
|
|
{
|
|
GS *gp;
|
|
SCR *next;
|
|
|
|
/* Try the display queue, without returning the current screen. */
|
|
gp = sp->gp;
|
|
for (next = gp->dq.cqh_first;
|
|
next != (void *)&gp->dq; next = next->q.cqe_next)
|
|
if (next != sp)
|
|
break;
|
|
if (next != (void *)&gp->dq)
|
|
return (next);
|
|
|
|
/* Try the hidden queue; if found, move screen to the display queue. */
|
|
if (gp->hq.cqh_first != (void *)&gp->hq) {
|
|
next = gp->hq.cqh_first;
|
|
CIRCLEQ_REMOVE(&gp->hq, next, q);
|
|
CIRCLEQ_INSERT_HEAD(&gp->dq, next, q);
|
|
return (next);
|
|
}
|
|
return (NULL);
|
|
}
|