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