510 lines
9.5 KiB
C
510 lines
9.5 KiB
C
/* $NetBSD: el.c,v 1.29 2002/03/18 16:00:52 christos Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 1992, 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to Berkeley by
|
|
* Christos Zoulas of Cornell University.
|
|
*
|
|
* 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.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#if !defined(lint) && !defined(SCCSID)
|
|
#if 0
|
|
static char sccsid[] = "@(#)el.c 8.2 (Berkeley) 1/3/94";
|
|
#else
|
|
__RCSID("$NetBSD: el.c,v 1.29 2002/03/18 16:00:52 christos Exp $");
|
|
#endif
|
|
#endif /* not lint && not SCCSID */
|
|
|
|
/*
|
|
* el.c: EditLine interface functions
|
|
*/
|
|
#include <sys/types.h>
|
|
#include <sys/param.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include "el.h"
|
|
|
|
/* el_init():
|
|
* Initialize editline and set default parameters.
|
|
*/
|
|
public EditLine *
|
|
el_init(const char *prog, FILE *fin, FILE *fout, FILE *ferr)
|
|
{
|
|
|
|
EditLine *el = (EditLine *) el_malloc(sizeof(EditLine));
|
|
|
|
if (el == NULL)
|
|
return (NULL);
|
|
|
|
memset(el, 0, sizeof(EditLine));
|
|
|
|
el->el_infd = fileno(fin);
|
|
el->el_outfile = fout;
|
|
el->el_errfile = ferr;
|
|
el->el_prog = strdup(prog);
|
|
|
|
/*
|
|
* Initialize all the modules. Order is important!!!
|
|
*/
|
|
el->el_flags = 0;
|
|
|
|
if (term_init(el) == -1) {
|
|
free(el->el_prog);
|
|
el_free(el);
|
|
return NULL;
|
|
}
|
|
(void) key_init(el);
|
|
(void) map_init(el);
|
|
if (tty_init(el) == -1)
|
|
el->el_flags |= NO_TTY;
|
|
(void) ch_init(el);
|
|
(void) search_init(el);
|
|
(void) hist_init(el);
|
|
(void) prompt_init(el);
|
|
(void) sig_init(el);
|
|
(void) read_init(el);
|
|
|
|
return (el);
|
|
}
|
|
|
|
|
|
/* el_end():
|
|
* Clean up.
|
|
*/
|
|
public void
|
|
el_end(EditLine *el)
|
|
{
|
|
|
|
if (el == NULL)
|
|
return;
|
|
|
|
el_reset(el);
|
|
|
|
term_end(el);
|
|
key_end(el);
|
|
map_end(el);
|
|
tty_end(el);
|
|
ch_end(el);
|
|
search_end(el);
|
|
hist_end(el);
|
|
prompt_end(el);
|
|
sig_end(el);
|
|
|
|
if (el->el_prog)
|
|
el_free((ptr_t) el->el_prog);
|
|
el_free((ptr_t) el);
|
|
}
|
|
|
|
|
|
/* el_reset():
|
|
* Reset the tty and the parser
|
|
*/
|
|
public void
|
|
el_reset(EditLine *el)
|
|
{
|
|
|
|
tty_cookedmode(el);
|
|
ch_reset(el); /* XXX: Do we want that? */
|
|
}
|
|
|
|
|
|
/* el_set():
|
|
* set the editline parameters
|
|
*/
|
|
public int
|
|
el_set(EditLine *el, int op, ...)
|
|
{
|
|
va_list va;
|
|
int rv = 0;
|
|
|
|
if (el == NULL)
|
|
return (-1);
|
|
va_start(va, op);
|
|
|
|
switch (op) {
|
|
case EL_PROMPT:
|
|
case EL_RPROMPT:
|
|
rv = prompt_set(el, va_arg(va, el_pfunc_t), op);
|
|
break;
|
|
|
|
case EL_TERMINAL:
|
|
rv = term_set(el, va_arg(va, char *));
|
|
break;
|
|
|
|
case EL_EDITOR:
|
|
rv = map_set_editor(el, va_arg(va, char *));
|
|
break;
|
|
|
|
case EL_SIGNAL:
|
|
if (va_arg(va, int))
|
|
el->el_flags |= HANDLE_SIGNALS;
|
|
else
|
|
el->el_flags &= ~HANDLE_SIGNALS;
|
|
break;
|
|
|
|
case EL_BIND:
|
|
case EL_TELLTC:
|
|
case EL_SETTC:
|
|
case EL_ECHOTC:
|
|
case EL_SETTY:
|
|
{
|
|
const char *argv[20];
|
|
int i;
|
|
|
|
for (i = 1; i < 20; i++)
|
|
if ((argv[i] = va_arg(va, char *)) == NULL)
|
|
break;
|
|
|
|
switch (op) {
|
|
case EL_BIND:
|
|
argv[0] = "bind";
|
|
rv = map_bind(el, i, argv);
|
|
break;
|
|
|
|
case EL_TELLTC:
|
|
argv[0] = "telltc";
|
|
rv = term_telltc(el, i, argv);
|
|
break;
|
|
|
|
case EL_SETTC:
|
|
argv[0] = "settc";
|
|
rv = term_settc(el, i, argv);
|
|
break;
|
|
|
|
case EL_ECHOTC:
|
|
argv[0] = "echotc";
|
|
rv = term_echotc(el, i, argv);
|
|
break;
|
|
|
|
case EL_SETTY:
|
|
argv[0] = "setty";
|
|
rv = tty_stty(el, i, argv);
|
|
break;
|
|
|
|
default:
|
|
rv = -1;
|
|
EL_ABORT((el->el_errfile, "Bad op %d\n", op));
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case EL_ADDFN:
|
|
{
|
|
char *name = va_arg(va, char *);
|
|
char *help = va_arg(va, char *);
|
|
el_func_t func = va_arg(va, el_func_t);
|
|
|
|
rv = map_addfunc(el, name, help, func);
|
|
break;
|
|
}
|
|
|
|
case EL_HIST:
|
|
{
|
|
hist_fun_t func = va_arg(va, hist_fun_t);
|
|
ptr_t ptr = va_arg(va, char *);
|
|
|
|
rv = hist_set(el, func, ptr);
|
|
break;
|
|
}
|
|
|
|
case EL_EDITMODE:
|
|
if (va_arg(va, int))
|
|
el->el_flags &= ~EDIT_DISABLED;
|
|
else
|
|
el->el_flags |= EDIT_DISABLED;
|
|
rv = 0;
|
|
break;
|
|
|
|
case EL_GETCFN:
|
|
{
|
|
el_rfunc_t rc = va_arg(va, el_rfunc_t);
|
|
rv = el_read_setfn(el, rc);
|
|
break;
|
|
}
|
|
|
|
case EL_CLIENTDATA:
|
|
el->el_data = va_arg(va, void *);
|
|
break;
|
|
|
|
default:
|
|
rv = -1;
|
|
break;
|
|
}
|
|
|
|
va_end(va);
|
|
return (rv);
|
|
}
|
|
|
|
|
|
/* el_get():
|
|
* retrieve the editline parameters
|
|
*/
|
|
public int
|
|
el_get(EditLine *el, int op, void *ret)
|
|
{
|
|
int rv;
|
|
|
|
if (el == NULL || ret == NULL)
|
|
return (-1);
|
|
switch (op) {
|
|
case EL_PROMPT:
|
|
case EL_RPROMPT:
|
|
rv = prompt_get(el, (el_pfunc_t *) & ret, op);
|
|
break;
|
|
|
|
case EL_EDITOR:
|
|
rv = map_get_editor(el, (const char **) &ret);
|
|
break;
|
|
|
|
case EL_SIGNAL:
|
|
*((int *) ret) = (el->el_flags & HANDLE_SIGNALS);
|
|
rv = 0;
|
|
break;
|
|
|
|
case EL_EDITMODE:
|
|
*((int *) ret) = (!(el->el_flags & EDIT_DISABLED));
|
|
rv = 0;
|
|
break;
|
|
|
|
#if 0 /* XXX */
|
|
case EL_TERMINAL:
|
|
rv = term_get(el, (const char *) &ret);
|
|
break;
|
|
|
|
case EL_BIND:
|
|
case EL_TELLTC:
|
|
case EL_SETTC:
|
|
case EL_ECHOTC:
|
|
case EL_SETTY:
|
|
{
|
|
char *argv[20];
|
|
int i;
|
|
|
|
for (i = 1; i < 20; i++)
|
|
if ((argv[i] = va_arg(va, char *)) == NULL)
|
|
break;
|
|
|
|
switch (op) {
|
|
case EL_BIND:
|
|
argv[0] = "bind";
|
|
rv = map_bind(el, i, argv);
|
|
break;
|
|
|
|
case EL_TELLTC:
|
|
argv[0] = "telltc";
|
|
rv = term_telltc(el, i, argv);
|
|
break;
|
|
|
|
case EL_SETTC:
|
|
argv[0] = "settc";
|
|
rv = term_settc(el, i, argv);
|
|
break;
|
|
|
|
case EL_ECHOTC:
|
|
argv[0] = "echotc";
|
|
rv = term_echotc(el, i, argv);
|
|
break;
|
|
|
|
case EL_SETTY:
|
|
argv[0] = "setty";
|
|
rv = tty_stty(el, i, argv);
|
|
break;
|
|
|
|
default:
|
|
rv = -1;
|
|
EL_ABORT((el->errfile, "Bad op %d\n", op));
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case EL_ADDFN:
|
|
{
|
|
char *name = va_arg(va, char *);
|
|
char *help = va_arg(va, char *);
|
|
el_func_t func = va_arg(va, el_func_t);
|
|
|
|
rv = map_addfunc(el, name, help, func);
|
|
break;
|
|
}
|
|
|
|
case EL_HIST:
|
|
{
|
|
hist_fun_t func = va_arg(va, hist_fun_t);
|
|
ptr_t ptr = va_arg(va, char *);
|
|
rv = hist_set(el, func, ptr);
|
|
}
|
|
break;
|
|
#endif /* XXX */
|
|
|
|
case EL_GETCFN:
|
|
*((el_rfunc_t *)ret) = el_read_getfn(el);
|
|
rv = 0;
|
|
break;
|
|
|
|
case EL_CLIENTDATA:
|
|
*((void **)ret) = el->el_data;
|
|
rv = 0;
|
|
break;
|
|
|
|
default:
|
|
rv = -1;
|
|
}
|
|
|
|
return (rv);
|
|
}
|
|
|
|
|
|
/* el_line():
|
|
* Return editing info
|
|
*/
|
|
public const LineInfo *
|
|
el_line(EditLine *el)
|
|
{
|
|
|
|
return (const LineInfo *) (void *) &el->el_line;
|
|
}
|
|
|
|
|
|
/* el_source():
|
|
* Source a file
|
|
*/
|
|
public int
|
|
el_source(EditLine *el, const char *fname)
|
|
{
|
|
FILE *fp;
|
|
size_t len;
|
|
char *ptr;
|
|
|
|
fp = NULL;
|
|
if (fname == NULL) {
|
|
#ifdef HAVE_ISSETUGID
|
|
static const char elpath[] = "/.editrc";
|
|
char path[MAXPATHLEN];
|
|
|
|
if (issetugid())
|
|
return (-1);
|
|
if ((ptr = getenv("HOME")) == NULL)
|
|
return (-1);
|
|
if (strlcpy(path, ptr, sizeof(path)) >= sizeof(path))
|
|
return (-1);
|
|
if (strlcat(path, elpath, sizeof(path)) >= sizeof(path))
|
|
return (-1);
|
|
fname = path;
|
|
#else
|
|
/*
|
|
* If issetugid() is missing, always return an error, in order
|
|
* to keep from inadvertently opening up the user to a security
|
|
* hole.
|
|
*/
|
|
return (-1);
|
|
#endif
|
|
}
|
|
if (fp == NULL)
|
|
fp = fopen(fname, "r");
|
|
if (fp == NULL)
|
|
return (-1);
|
|
|
|
while ((ptr = fgetln(fp, &len)) != NULL) {
|
|
if (len > 0 && ptr[len - 1] == '\n')
|
|
--len;
|
|
ptr[len] = '\0';
|
|
if (parse_line(el, ptr) == -1) {
|
|
(void) fclose(fp);
|
|
return (-1);
|
|
}
|
|
}
|
|
|
|
(void) fclose(fp);
|
|
return (0);
|
|
}
|
|
|
|
|
|
/* el_resize():
|
|
* Called from program when terminal is resized
|
|
*/
|
|
public void
|
|
el_resize(EditLine *el)
|
|
{
|
|
int lins, cols;
|
|
sigset_t oset, nset;
|
|
|
|
(void) sigemptyset(&nset);
|
|
(void) sigaddset(&nset, SIGWINCH);
|
|
(void) sigprocmask(SIG_BLOCK, &nset, &oset);
|
|
|
|
/* get the correct window size */
|
|
if (term_get_size(el, &lins, &cols))
|
|
term_change_size(el, lins, cols);
|
|
|
|
(void) sigprocmask(SIG_SETMASK, &oset, NULL);
|
|
}
|
|
|
|
|
|
/* el_beep():
|
|
* Called from the program to beep
|
|
*/
|
|
public void
|
|
el_beep(EditLine *el)
|
|
{
|
|
|
|
term_beep(el);
|
|
}
|
|
|
|
|
|
/* el_editmode()
|
|
* Set the state of EDIT_DISABLED from the `edit' command.
|
|
*/
|
|
protected int
|
|
/*ARGSUSED*/
|
|
el_editmode(EditLine *el, int argc, const char **argv)
|
|
{
|
|
const char *how;
|
|
|
|
if (argv == NULL || argc != 2 || argv[1] == NULL)
|
|
return (-1);
|
|
|
|
how = argv[1];
|
|
if (strcmp(how, "on") == 0)
|
|
el->el_flags &= ~EDIT_DISABLED;
|
|
else if (strcmp(how, "off") == 0)
|
|
el->el_flags |= EDIT_DISABLED;
|
|
else {
|
|
(void) fprintf(el->el_errfile, "edit: Bad value `%s'.\n", how);
|
|
return (-1);
|
|
}
|
|
return (0);
|
|
}
|