Home | History | Annotate | Line # | Download | only in sh
histedit.c revision 1.52
      1  1.52       kre /*	$NetBSD: histedit.c,v 1.52 2017/06/28 13:46:06 kre Exp $	*/
      2   1.6       cgd 
      3   1.1       jtc /*-
      4   1.1       jtc  * Copyright (c) 1993
      5   1.1       jtc  *	The Regents of the University of California.  All rights reserved.
      6   1.1       jtc  *
      7   1.1       jtc  * This code is derived from software contributed to Berkeley by
      8   1.1       jtc  * Kenneth Almquist.
      9   1.1       jtc  *
     10   1.1       jtc  * Redistribution and use in source and binary forms, with or without
     11   1.1       jtc  * modification, are permitted provided that the following conditions
     12   1.1       jtc  * are met:
     13   1.1       jtc  * 1. Redistributions of source code must retain the above copyright
     14   1.1       jtc  *    notice, this list of conditions and the following disclaimer.
     15   1.1       jtc  * 2. Redistributions in binary form must reproduce the above copyright
     16   1.1       jtc  *    notice, this list of conditions and the following disclaimer in the
     17   1.1       jtc  *    documentation and/or other materials provided with the distribution.
     18  1.31       agc  * 3. Neither the name of the University nor the names of its contributors
     19   1.1       jtc  *    may be used to endorse or promote products derived from this software
     20   1.1       jtc  *    without specific prior written permission.
     21   1.1       jtc  *
     22   1.1       jtc  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     23   1.1       jtc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     24   1.1       jtc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     25   1.1       jtc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     26   1.1       jtc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     27   1.1       jtc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     28   1.1       jtc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     29   1.1       jtc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     30   1.1       jtc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     31   1.1       jtc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     32   1.1       jtc  * SUCH DAMAGE.
     33   1.1       jtc  */
     34   1.1       jtc 
     35  1.14  christos #include <sys/cdefs.h>
     36   1.1       jtc #ifndef lint
     37   1.6       cgd #if 0
     38   1.8  christos static char sccsid[] = "@(#)histedit.c	8.2 (Berkeley) 5/4/95";
     39   1.6       cgd #else
     40  1.52       kre __RCSID("$NetBSD: histedit.c,v 1.52 2017/06/28 13:46:06 kre Exp $");
     41   1.6       cgd #endif
     42   1.1       jtc #endif /* not lint */
     43   1.1       jtc 
     44   1.1       jtc #include <sys/param.h>
     45   1.1       jtc #include <paths.h>
     46   1.1       jtc #include <stdio.h>
     47   1.2       jtc #include <stdlib.h>
     48   1.2       jtc #include <unistd.h>
     49   1.8  christos /*
     50   1.8  christos  * Editline and history functions (and glue).
     51   1.8  christos  */
     52   1.1       jtc #include "shell.h"
     53   1.1       jtc #include "parser.h"
     54   1.1       jtc #include "var.h"
     55   1.1       jtc #include "options.h"
     56  1.43  christos #include "builtins.h"
     57   1.8  christos #include "main.h"
     58   1.4       cgd #include "output.h"
     59   1.1       jtc #include "mystring.h"
     60   1.8  christos #include "myhistedit.h"
     61   1.1       jtc #include "error.h"
     62  1.47  christos #include "alias.h"
     63  1.17       cjs #ifndef SMALL
     64   1.5       cgd #include "eval.h"
     65   1.1       jtc #include "memalloc.h"
     66   1.1       jtc 
     67   1.1       jtc #define MAXHISTLOOPS	4	/* max recursions through fc */
     68   1.1       jtc #define DEFEDITOR	"ed"	/* default editor *should* be $EDITOR */
     69   1.1       jtc 
     70   1.1       jtc History *hist;	/* history cookie */
     71   1.1       jtc EditLine *el;	/* editline cookie */
     72   1.1       jtc int displayhist;
     73   1.1       jtc static FILE *el_in, *el_out;
     74  1.35       dsl unsigned char _el_fn_complete(EditLine *, int);
     75   1.1       jtc 
     76  1.27  christos STATIC const char *fc_replace(const char *, char *, char *);
     77  1.27  christos 
     78  1.27  christos #ifdef DEBUG
     79  1.27  christos extern FILE *tracefile;
     80  1.27  christos #endif
     81   1.1       jtc 
     82   1.1       jtc /*
     83   1.1       jtc  * Set history and editing status.  Called whenever the status may
     84   1.1       jtc  * have changed (figures out what to do).
     85   1.1       jtc  */
     86   1.5       cgd void
     87  1.27  christos histedit(void)
     88   1.4       cgd {
     89  1.27  christos 	FILE *el_err;
     90   1.1       jtc 
     91   1.1       jtc #define editing (Eflag || Vflag)
     92   1.1       jtc 
     93  1.37  christos 	if (iflag == 1) {
     94   1.1       jtc 		if (!hist) {
     95   1.1       jtc 			/*
     96   1.1       jtc 			 * turn history on
     97   1.1       jtc 			 */
     98   1.1       jtc 			INTOFF;
     99   1.1       jtc 			hist = history_init();
    100   1.1       jtc 			INTON;
    101   1.1       jtc 
    102   1.1       jtc 			if (hist != NULL)
    103   1.9  christos 				sethistsize(histsizeval());
    104   1.1       jtc 			else
    105   1.1       jtc 				out2str("sh: can't initialize history\n");
    106   1.1       jtc 		}
    107   1.1       jtc 		if (editing && !el && isatty(0)) { /* && isatty(2) ??? */
    108   1.1       jtc 			/*
    109   1.1       jtc 			 * turn editing on
    110   1.1       jtc 			 */
    111  1.34     lukem 			char *term, *shname;
    112  1.32     lukem 
    113   1.1       jtc 			INTOFF;
    114   1.1       jtc 			if (el_in == NULL)
    115   1.1       jtc 				el_in = fdopen(0, "r");
    116   1.1       jtc 			if (el_out == NULL)
    117   1.1       jtc 				el_out = fdopen(2, "w");
    118   1.1       jtc 			if (el_in == NULL || el_out == NULL)
    119   1.1       jtc 				goto bad;
    120  1.27  christos 			el_err = el_out;
    121  1.27  christos #if DEBUG
    122  1.27  christos 			if (tracefile)
    123  1.27  christos 				el_err = tracefile;
    124  1.27  christos #endif
    125  1.32     lukem 			term = lookupvar("TERM");
    126  1.32     lukem 			if (term)
    127  1.32     lukem 				setenv("TERM", term, 1);
    128  1.32     lukem 			else
    129  1.32     lukem 				unsetenv("TERM");
    130  1.34     lukem 			shname = arg0;
    131  1.34     lukem 			if (shname[0] == '-')
    132  1.34     lukem 				shname++;
    133  1.34     lukem 			el = el_init(shname, el_in, el_out, el_err);
    134   1.1       jtc 			if (el != NULL) {
    135   1.1       jtc 				if (hist)
    136   1.1       jtc 					el_set(el, EL_HIST, history, hist);
    137  1.52       kre 
    138  1.52       kre 				set_prompt_lit(lookupvar("PSlit"));
    139  1.33  christos 				el_set(el, EL_SIGNAL, 1);
    140  1.47  christos 				el_set(el, EL_ALIAS_TEXT, alias_text, NULL);
    141  1.36  christos 				el_set(el, EL_ADDFN, "rl-complete",
    142  1.36  christos 				    "ReadLine compatible completion function",
    143  1.36  christos 				    _el_fn_complete);
    144   1.1       jtc 			} else {
    145   1.1       jtc bad:
    146   1.1       jtc 				out2str("sh: can't initialize editing\n");
    147   1.1       jtc 			}
    148   1.1       jtc 			INTON;
    149   1.1       jtc 		} else if (!editing && el) {
    150   1.1       jtc 			INTOFF;
    151   1.1       jtc 			el_end(el);
    152   1.1       jtc 			el = NULL;
    153   1.1       jtc 			INTON;
    154   1.1       jtc 		}
    155   1.1       jtc 		if (el) {
    156   1.1       jtc 			if (Vflag)
    157   1.1       jtc 				el_set(el, EL_EDITOR, "vi");
    158   1.1       jtc 			else if (Eflag)
    159   1.1       jtc 				el_set(el, EL_EDITOR, "emacs");
    160  1.36  christos 			el_set(el, EL_BIND, "^I",
    161  1.36  christos 			    tabcomplete ? "rl-complete" : "ed-insert", NULL);
    162  1.50       kre 			el_source(el, lookupvar("EDITRC"));
    163   1.1       jtc 		}
    164   1.1       jtc 	} else {
    165   1.1       jtc 		INTOFF;
    166   1.1       jtc 		if (el) {	/* no editing if not interactive */
    167   1.1       jtc 			el_end(el);
    168   1.1       jtc 			el = NULL;
    169   1.1       jtc 		}
    170   1.1       jtc 		if (hist) {
    171   1.1       jtc 			history_end(hist);
    172   1.1       jtc 			hist = NULL;
    173   1.1       jtc 		}
    174   1.1       jtc 		INTON;
    175   1.1       jtc 	}
    176   1.1       jtc }
    177   1.1       jtc 
    178  1.50       kre void
    179  1.52       kre set_prompt_lit(const char *lit_ch)
    180  1.52       kre {
    181  1.52       kre 	wchar_t wc;
    182  1.52       kre 
    183  1.52       kre 	if (!(iflag && editing && el))
    184  1.52       kre 		return;
    185  1.52       kre 
    186  1.52       kre 	if (lit_ch == NULL) {
    187  1.52       kre 		el_set(el, EL_PROMPT, getprompt);
    188  1.52       kre 		return;
    189  1.52       kre 	}
    190  1.52       kre 
    191  1.52       kre 	mbtowc(&wc, NULL, 1);		/* state init */
    192  1.52       kre 
    193  1.52       kre 	if (mbtowc(&wc, lit_ch, strlen(lit_ch)) <= 0)
    194  1.52       kre 		el_set(el, EL_PROMPT, getprompt);
    195  1.52       kre 	else
    196  1.52       kre 		el_set(el, EL_PROMPT_ESC, getprompt, (int)wc);
    197  1.52       kre }
    198  1.52       kre 
    199  1.52       kre void
    200  1.50       kre set_editrc(const char *fname)
    201  1.50       kre {
    202  1.50       kre 	if (iflag && editing && el)
    203  1.50       kre 		el_source(el, fname);
    204  1.50       kre }
    205   1.4       cgd 
    206   1.4       cgd void
    207  1.27  christos sethistsize(const char *hs)
    208   1.8  christos {
    209   1.1       jtc 	int histsize;
    210  1.16  christos 	HistEvent he;
    211   1.1       jtc 
    212   1.1       jtc 	if (hist != NULL) {
    213  1.10  christos 		if (hs == NULL || *hs == '\0' ||
    214   1.9  christos 		   (histsize = atoi(hs)) < 0)
    215   1.1       jtc 			histsize = 100;
    216  1.19  christos 		history(hist, &he, H_SETSIZE, histsize);
    217  1.41     joerg 		history(hist, &he, H_SETUNIQUE, 1);
    218   1.1       jtc 	}
    219  1.13  christos }
    220  1.13  christos 
    221  1.13  christos void
    222  1.27  christos setterm(const char *term)
    223  1.13  christos {
    224  1.13  christos 	if (el != NULL && term != NULL)
    225  1.13  christos 		if (el_set(el, EL_TERMINAL, term) != 0) {
    226  1.13  christos 			outfmt(out2, "sh: Can't set terminal type %s\n", term);
    227  1.13  christos 			outfmt(out2, "sh: Using dumb terminal settings.\n");
    228  1.13  christos 		}
    229   1.1       jtc }
    230   1.1       jtc 
    231  1.28  gmcgarry int
    232  1.45      matt inputrc(int argc, char **argv)
    233  1.28  gmcgarry {
    234  1.28  gmcgarry 	if (argc != 2) {
    235  1.28  gmcgarry 		out2str("usage: inputrc file\n");
    236  1.28  gmcgarry 		return 1;
    237  1.28  gmcgarry 	}
    238  1.28  gmcgarry 	if (el != NULL) {
    239  1.28  gmcgarry 		if (el_source(el, argv[1])) {
    240  1.28  gmcgarry 			out2str("inputrc: failed\n");
    241  1.28  gmcgarry 			return 1;
    242  1.28  gmcgarry 		} else
    243  1.28  gmcgarry 			return 0;
    244  1.28  gmcgarry 	} else {
    245  1.28  gmcgarry 		out2str("sh: inputrc ignored, not editing\n");
    246  1.28  gmcgarry 		return 1;
    247  1.28  gmcgarry 	}
    248  1.28  gmcgarry }
    249  1.28  gmcgarry 
    250   1.1       jtc /*
    251   1.1       jtc  *  This command is provided since POSIX decided to standardize
    252   1.1       jtc  *  the Korn shell fc command.  Oh well...
    253   1.1       jtc  */
    254   1.4       cgd int
    255  1.48  christos histcmd(volatile int argc, char ** volatile argv)
    256   1.1       jtc {
    257   1.1       jtc 	int ch;
    258  1.40  christos 	const char * volatile editor = NULL;
    259  1.16  christos 	HistEvent he;
    260  1.48  christos 	volatile int lflg = 0, nflg = 0, rflg = 0, sflg = 0;
    261  1.16  christos 	int i, retval;
    262  1.21  christos 	const char *firststr, *laststr;
    263   1.1       jtc 	int first, last, direction;
    264  1.48  christos 	char * volatile pat = NULL, * volatile repl;	/* ksh "fc old=new" crap */
    265   1.1       jtc 	static int active = 0;
    266   1.1       jtc 	struct jmploc jmploc;
    267   1.1       jtc 	struct jmploc *volatile savehandler;
    268   1.1       jtc 	char editfile[MAXPATHLEN + 1];
    269  1.48  christos 	FILE * volatile efp;
    270   1.8  christos #ifdef __GNUC__
    271  1.39       mrg 	repl = NULL;	/* XXX gcc4 */
    272  1.39       mrg 	efp = NULL;	/* XXX gcc4 */
    273   1.8  christos #endif
    274   1.1       jtc 
    275   1.1       jtc 	if (hist == NULL)
    276   1.1       jtc 		error("history not active");
    277  1.10  christos 
    278   1.1       jtc 	if (argc == 1)
    279   1.1       jtc 		error("missing history argument");
    280   1.1       jtc 
    281   1.1       jtc 	optreset = 1; optind = 1; /* initialize getopt */
    282   1.1       jtc 	while (not_fcnumber(argv[optind]) &&
    283  1.15     lukem 	      (ch = getopt(argc, argv, ":e:lnrs")) != -1)
    284   1.1       jtc 		switch ((char)ch) {
    285   1.1       jtc 		case 'e':
    286  1.25  christos 			editor = optionarg;
    287   1.1       jtc 			break;
    288   1.1       jtc 		case 'l':
    289   1.1       jtc 			lflg = 1;
    290   1.1       jtc 			break;
    291   1.1       jtc 		case 'n':
    292   1.1       jtc 			nflg = 1;
    293   1.1       jtc 			break;
    294   1.1       jtc 		case 'r':
    295   1.1       jtc 			rflg = 1;
    296   1.1       jtc 			break;
    297   1.1       jtc 		case 's':
    298   1.1       jtc 			sflg = 1;
    299   1.1       jtc 			break;
    300   1.1       jtc 		case ':':
    301   1.1       jtc 			error("option -%c expects argument", optopt);
    302  1.20   mycroft 			/* NOTREACHED */
    303   1.1       jtc 		case '?':
    304   1.1       jtc 		default:
    305   1.1       jtc 			error("unknown option: -%c", optopt);
    306  1.20   mycroft 			/* NOTREACHED */
    307   1.1       jtc 		}
    308   1.1       jtc 	argc -= optind, argv += optind;
    309   1.1       jtc 
    310   1.1       jtc 	/*
    311   1.1       jtc 	 * If executing...
    312   1.1       jtc 	 */
    313   1.1       jtc 	if (lflg == 0 || editor || sflg) {
    314   1.1       jtc 		lflg = 0;	/* ignore */
    315   1.1       jtc 		editfile[0] = '\0';
    316   1.1       jtc 		/*
    317   1.1       jtc 		 * Catch interrupts to reset active counter and
    318   1.1       jtc 		 * cleanup temp files.
    319   1.1       jtc 		 */
    320  1.44     joerg 		savehandler = handler;
    321   1.1       jtc 		if (setjmp(jmploc.loc)) {
    322   1.1       jtc 			active = 0;
    323   1.1       jtc 			if (*editfile)
    324   1.1       jtc 				unlink(editfile);
    325   1.1       jtc 			handler = savehandler;
    326   1.1       jtc 			longjmp(handler->loc, 1);
    327   1.1       jtc 		}
    328   1.1       jtc 		handler = &jmploc;
    329   1.1       jtc 		if (++active > MAXHISTLOOPS) {
    330   1.1       jtc 			active = 0;
    331   1.1       jtc 			displayhist = 0;
    332   1.1       jtc 			error("called recursively too many times");
    333   1.1       jtc 		}
    334   1.1       jtc 		/*
    335   1.1       jtc 		 * Set editor.
    336   1.1       jtc 		 */
    337   1.1       jtc 		if (sflg == 0) {
    338   1.1       jtc 			if (editor == NULL &&
    339   1.1       jtc 			    (editor = bltinlookup("FCEDIT", 1)) == NULL &&
    340   1.1       jtc 			    (editor = bltinlookup("EDITOR", 1)) == NULL)
    341   1.1       jtc 				editor = DEFEDITOR;
    342   1.1       jtc 			if (editor[0] == '-' && editor[1] == '\0') {
    343   1.1       jtc 				sflg = 1;	/* no edit */
    344   1.1       jtc 				editor = NULL;
    345   1.1       jtc 			}
    346   1.1       jtc 		}
    347   1.1       jtc 	}
    348   1.1       jtc 
    349   1.1       jtc 	/*
    350   1.1       jtc 	 * If executing, parse [old=new] now
    351   1.1       jtc 	 */
    352  1.10  christos 	if (lflg == 0 && argc > 0 &&
    353   1.1       jtc 	     ((repl = strchr(argv[0], '=')) != NULL)) {
    354   1.1       jtc 		pat = argv[0];
    355   1.1       jtc 		*repl++ = '\0';
    356   1.1       jtc 		argc--, argv++;
    357   1.1       jtc 	}
    358  1.38   aymeric 
    359  1.38   aymeric 	/*
    360  1.38   aymeric 	 * If -s is specified, accept only one operand
    361  1.38   aymeric 	 */
    362  1.38   aymeric 	if (sflg && argc >= 2)
    363  1.38   aymeric 		error("too many args");
    364  1.38   aymeric 
    365   1.1       jtc 	/*
    366   1.1       jtc 	 * determine [first] and [last]
    367   1.1       jtc 	 */
    368   1.1       jtc 	switch (argc) {
    369   1.1       jtc 	case 0:
    370   1.1       jtc 		firststr = lflg ? "-16" : "-1";
    371   1.1       jtc 		laststr = "-1";
    372   1.1       jtc 		break;
    373   1.1       jtc 	case 1:
    374   1.1       jtc 		firststr = argv[0];
    375   1.1       jtc 		laststr = lflg ? "-1" : argv[0];
    376   1.1       jtc 		break;
    377   1.1       jtc 	case 2:
    378   1.1       jtc 		firststr = argv[0];
    379   1.1       jtc 		laststr = argv[1];
    380   1.1       jtc 		break;
    381   1.1       jtc 	default:
    382   1.1       jtc 		error("too many args");
    383  1.20   mycroft 		/* NOTREACHED */
    384   1.1       jtc 	}
    385   1.1       jtc 	/*
    386   1.1       jtc 	 * Turn into event numbers.
    387   1.1       jtc 	 */
    388   1.1       jtc 	first = str_to_event(firststr, 0);
    389   1.1       jtc 	last = str_to_event(laststr, 1);
    390   1.1       jtc 
    391   1.1       jtc 	if (rflg) {
    392   1.1       jtc 		i = last;
    393   1.1       jtc 		last = first;
    394   1.1       jtc 		first = i;
    395   1.1       jtc 	}
    396   1.1       jtc 	/*
    397   1.1       jtc 	 * XXX - this should not depend on the event numbers
    398  1.10  christos 	 * always increasing.  Add sequence numbers or offset
    399   1.1       jtc 	 * to the history element in next (diskbased) release.
    400   1.1       jtc 	 */
    401   1.1       jtc 	direction = first < last ? H_PREV : H_NEXT;
    402   1.1       jtc 
    403   1.1       jtc 	/*
    404   1.1       jtc 	 * If editing, grab a temp file.
    405   1.1       jtc 	 */
    406   1.1       jtc 	if (editor) {
    407   1.1       jtc 		int fd;
    408   1.1       jtc 		INTOFF;		/* easier */
    409  1.30    itojun 		snprintf(editfile, sizeof(editfile), "%s_shXXXXXX", _PATH_TMP);
    410   1.1       jtc 		if ((fd = mkstemp(editfile)) < 0)
    411   1.1       jtc 			error("can't create temporary file %s", editfile);
    412   1.1       jtc 		if ((efp = fdopen(fd, "w")) == NULL) {
    413   1.1       jtc 			close(fd);
    414  1.10  christos 			error("can't allocate stdio buffer for temp");
    415   1.1       jtc 		}
    416   1.1       jtc 	}
    417   1.1       jtc 
    418   1.1       jtc 	/*
    419   1.1       jtc 	 * Loop through selected history events.  If listing or executing,
    420   1.1       jtc 	 * do it now.  Otherwise, put into temp file and call the editor
    421   1.1       jtc 	 * after.
    422   1.1       jtc 	 *
    423   1.1       jtc 	 * The history interface needs rethinking, as the following
    424   1.1       jtc 	 * convolutions will demonstrate.
    425   1.1       jtc 	 */
    426  1.16  christos 	history(hist, &he, H_FIRST);
    427  1.16  christos 	retval = history(hist, &he, H_NEXT_EVENT, first);
    428  1.16  christos 	for (;retval != -1; retval = history(hist, &he, direction)) {
    429   1.1       jtc 		if (lflg) {
    430   1.1       jtc 			if (!nflg)
    431  1.16  christos 				out1fmt("%5d ", he.num);
    432  1.16  christos 			out1str(he.str);
    433   1.1       jtc 		} else {
    434  1.21  christos 			const char *s = pat ?
    435  1.21  christos 			   fc_replace(he.str, pat, repl) : he.str;
    436   1.1       jtc 
    437   1.1       jtc 			if (sflg) {
    438   1.1       jtc 				if (displayhist) {
    439   1.1       jtc 					out2str(s);
    440   1.1       jtc 				}
    441  1.21  christos 
    442  1.22  christos 				evalstring(strcpy(stalloc(strlen(s) + 1), s), 0);
    443   1.1       jtc 				if (displayhist && hist) {
    444   1.1       jtc 					/*
    445  1.10  christos 					 *  XXX what about recursive and
    446   1.1       jtc 					 *  relative histnums.
    447   1.1       jtc 					 */
    448  1.16  christos 					history(hist, &he, H_ENTER, s);
    449   1.1       jtc 				}
    450  1.38   aymeric 
    451  1.38   aymeric 				break;
    452   1.1       jtc 			} else
    453   1.1       jtc 				fputs(s, efp);
    454   1.1       jtc 		}
    455   1.1       jtc 		/*
    456  1.16  christos 		 * At end?  (if we were to lose last, we'd sure be
    457   1.1       jtc 		 * messed up).
    458   1.1       jtc 		 */
    459  1.16  christos 		if (he.num == last)
    460   1.1       jtc 			break;
    461   1.1       jtc 	}
    462   1.1       jtc 	if (editor) {
    463   1.1       jtc 		char *editcmd;
    464  1.46  dholland 		size_t cmdlen;
    465   1.1       jtc 
    466   1.1       jtc 		fclose(efp);
    467  1.46  dholland 		cmdlen = strlen(editor) + strlen(editfile) + 2;
    468  1.46  dholland 		editcmd = stalloc(cmdlen);
    469  1.46  dholland 		snprintf(editcmd, cmdlen, "%s %s", editor, editfile);
    470  1.22  christos 		evalstring(editcmd, 0);	/* XXX - should use no JC command */
    471   1.1       jtc 		INTON;
    472   1.1       jtc 		readcmdfile(editfile);	/* XXX - should read back - quick tst */
    473   1.1       jtc 		unlink(editfile);
    474   1.1       jtc 	}
    475  1.10  christos 
    476   1.1       jtc 	if (lflg == 0 && active > 0)
    477   1.1       jtc 		--active;
    478   1.1       jtc 	if (displayhist)
    479   1.1       jtc 		displayhist = 0;
    480   1.8  christos 	return 0;
    481   1.1       jtc }
    482   1.1       jtc 
    483  1.21  christos STATIC const char *
    484  1.27  christos fc_replace(const char *s, char *p, char *r)
    485   1.1       jtc {
    486   1.1       jtc 	char *dest;
    487   1.1       jtc 	int plen = strlen(p);
    488   1.1       jtc 
    489   1.1       jtc 	STARTSTACKSTR(dest);
    490   1.1       jtc 	while (*s) {
    491   1.1       jtc 		if (*s == *p && strncmp(s, p, plen) == 0) {
    492   1.1       jtc 			while (*r)
    493   1.1       jtc 				STPUTC(*r++, dest);
    494   1.1       jtc 			s += plen;
    495   1.1       jtc 			*p = '\0';	/* so no more matches */
    496   1.1       jtc 		} else
    497   1.1       jtc 			STPUTC(*s++, dest);
    498   1.1       jtc 	}
    499   1.1       jtc 	STACKSTRNUL(dest);
    500   1.1       jtc 	dest = grabstackstr(dest);
    501   1.1       jtc 
    502   1.1       jtc 	return (dest);
    503   1.1       jtc }
    504   1.1       jtc 
    505   1.4       cgd int
    506  1.27  christos not_fcnumber(char *s)
    507   1.1       jtc {
    508   1.7  christos 	if (s == NULL)
    509   1.7  christos 		return 0;
    510   1.1       jtc         if (*s == '-')
    511   1.1       jtc                 s++;
    512   1.1       jtc 	return (!is_number(s));
    513   1.1       jtc }
    514   1.1       jtc 
    515   1.4       cgd int
    516  1.27  christos str_to_event(const char *str, int last)
    517   1.1       jtc {
    518  1.16  christos 	HistEvent he;
    519  1.21  christos 	const char *s = str;
    520   1.1       jtc 	int relative = 0;
    521  1.16  christos 	int i, retval;
    522   1.1       jtc 
    523  1.16  christos 	retval = history(hist, &he, H_FIRST);
    524   1.1       jtc 	switch (*s) {
    525   1.1       jtc 	case '-':
    526   1.1       jtc 		relative = 1;
    527   1.1       jtc 		/*FALLTHROUGH*/
    528   1.1       jtc 	case '+':
    529   1.1       jtc 		s++;
    530   1.1       jtc 	}
    531   1.1       jtc 	if (is_number(s)) {
    532   1.1       jtc 		i = atoi(s);
    533   1.1       jtc 		if (relative) {
    534  1.16  christos 			while (retval != -1 && i--) {
    535  1.16  christos 				retval = history(hist, &he, H_NEXT);
    536   1.1       jtc 			}
    537  1.16  christos 			if (retval == -1)
    538  1.16  christos 				retval = history(hist, &he, H_LAST);
    539   1.1       jtc 		} else {
    540  1.16  christos 			retval = history(hist, &he, H_NEXT_EVENT, i);
    541  1.16  christos 			if (retval == -1) {
    542   1.1       jtc 				/*
    543   1.1       jtc 				 * the notion of first and last is
    544   1.1       jtc 				 * backwards to that of the history package
    545   1.1       jtc 				 */
    546  1.16  christos 				retval = history(hist, &he,
    547  1.16  christos 						last ? H_FIRST : H_LAST);
    548   1.1       jtc 			}
    549   1.1       jtc 		}
    550  1.16  christos 		if (retval == -1)
    551   1.1       jtc 			error("history number %s not found (internal error)",
    552   1.1       jtc 			       str);
    553   1.1       jtc 	} else {
    554   1.1       jtc 		/*
    555  1.10  christos 		 * pattern
    556   1.1       jtc 		 */
    557  1.16  christos 		retval = history(hist, &he, H_PREV_STR, str);
    558  1.16  christos 		if (retval == -1)
    559   1.1       jtc 			error("history pattern not found: %s", str);
    560   1.1       jtc 	}
    561  1.16  christos 	return (he.num);
    562   1.1       jtc }
    563  1.11  christos #else
    564  1.11  christos int
    565  1.27  christos histcmd(int argc, char **argv)
    566  1.28  gmcgarry {
    567  1.28  gmcgarry 	error("not compiled with history support");
    568  1.28  gmcgarry 	/* NOTREACHED */
    569  1.28  gmcgarry }
    570  1.28  gmcgarry int
    571  1.28  gmcgarry inputrc(int argc, char **argv)
    572  1.11  christos {
    573  1.11  christos 	error("not compiled with history support");
    574  1.20   mycroft 	/* NOTREACHED */
    575  1.11  christos }
    576  1.11  christos #endif
    577