xref: /freebsd/contrib/tcsh/ed.chared.c (revision 9ccc37e32070303fb293a2a1697ffa71eeb49b25)
1*9ccc37e3SMark Peek /* $Header: /p/tcsh/cvsroot/tcsh/ed.chared.c,v 3.98 2010/05/08 00:37:39 christos Exp $ */
2c80476e4SDavid E. O'Brien /*
3c80476e4SDavid E. O'Brien  * ed.chared.c: Character editing functions.
4c80476e4SDavid E. O'Brien  */
5c80476e4SDavid E. O'Brien /*-
6c80476e4SDavid E. O'Brien  * Copyright (c) 1980, 1991 The Regents of the University of California.
7c80476e4SDavid E. O'Brien  * All rights reserved.
8c80476e4SDavid E. O'Brien  *
9c80476e4SDavid E. O'Brien  * Redistribution and use in source and binary forms, with or without
10c80476e4SDavid E. O'Brien  * modification, are permitted provided that the following conditions
11c80476e4SDavid E. O'Brien  * are met:
12c80476e4SDavid E. O'Brien  * 1. Redistributions of source code must retain the above copyright
13c80476e4SDavid E. O'Brien  *    notice, this list of conditions and the following disclaimer.
14c80476e4SDavid E. O'Brien  * 2. Redistributions in binary form must reproduce the above copyright
15c80476e4SDavid E. O'Brien  *    notice, this list of conditions and the following disclaimer in the
16c80476e4SDavid E. O'Brien  *    documentation and/or other materials provided with the distribution.
1729301572SMark Peek  * 3. Neither the name of the University nor the names of its contributors
18c80476e4SDavid E. O'Brien  *    may be used to endorse or promote products derived from this software
19c80476e4SDavid E. O'Brien  *    without specific prior written permission.
20c80476e4SDavid E. O'Brien  *
21c80476e4SDavid E. O'Brien  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22c80476e4SDavid E. O'Brien  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c80476e4SDavid E. O'Brien  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24c80476e4SDavid E. O'Brien  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25c80476e4SDavid E. O'Brien  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26c80476e4SDavid E. O'Brien  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27c80476e4SDavid E. O'Brien  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28c80476e4SDavid E. O'Brien  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29c80476e4SDavid E. O'Brien  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30c80476e4SDavid E. O'Brien  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31c80476e4SDavid E. O'Brien  * SUCH DAMAGE.
32c80476e4SDavid E. O'Brien  */
33c80476e4SDavid E. O'Brien /*
34c80476e4SDavid E. O'Brien   Bjorn Knutsson @ Thu Jun 24 19:02:17 1999
35c80476e4SDavid E. O'Brien 
36c80476e4SDavid E. O'Brien   e_dabbrev_expand() did not do proper completion if quoted spaces were present
37c80476e4SDavid E. O'Brien   in the string being completed. Exemple:
38c80476e4SDavid E. O'Brien 
39c80476e4SDavid E. O'Brien   # echo hello\ world
40c80476e4SDavid E. O'Brien   hello world
41c80476e4SDavid E. O'Brien   # echo h<press key bound to dabbrev-expande>
42c80476e4SDavid E. O'Brien   # echo hello\<cursor>
43c80476e4SDavid E. O'Brien 
44c80476e4SDavid E. O'Brien   Correct behavior is:
45c80476e4SDavid E. O'Brien   # echo h<press key bound to dabbrev-expande>
46c80476e4SDavid E. O'Brien   # echo hello\ world<cursor>
47c80476e4SDavid E. O'Brien 
48c80476e4SDavid E. O'Brien   The same problem occured if spaces were present in a string withing quotation
49c80476e4SDavid E. O'Brien   marks. Example:
50c80476e4SDavid E. O'Brien 
51c80476e4SDavid E. O'Brien   # echo "hello world"
52c80476e4SDavid E. O'Brien   hello world
53c80476e4SDavid E. O'Brien   # echo "h<press key bound to dabbrev-expande>
54c80476e4SDavid E. O'Brien   # echo "hello<cursor>
55c80476e4SDavid E. O'Brien 
56c80476e4SDavid E. O'Brien   The former problem could be solved with minor modifications of c_preword()
57c80476e4SDavid E. O'Brien   and c_endword(). The latter, however, required a significant rewrite of
58c80476e4SDavid E. O'Brien   c_preword(), since quoted strings must be parsed from start to end to
59c80476e4SDavid E. O'Brien   determine if a given character is inside or outside the quotation marks.
60c80476e4SDavid E. O'Brien 
61c80476e4SDavid E. O'Brien   Compare the following two strings:
62c80476e4SDavid E. O'Brien 
63c80476e4SDavid E. O'Brien   # echo \"" 'foo \' bar\"
64c80476e4SDavid E. O'Brien   " 'foo \' bar\
65c80476e4SDavid E. O'Brien   # echo '\"" 'foo \' bar\"
66c80476e4SDavid E. O'Brien   \"" foo ' bar"
67c80476e4SDavid E. O'Brien 
68c80476e4SDavid E. O'Brien   The only difference between the two echo lines is in the first character
69c80476e4SDavid E. O'Brien   after the echo command. The result is either one or three arguments.
70c80476e4SDavid E. O'Brien 
71c80476e4SDavid E. O'Brien  */
72c80476e4SDavid E. O'Brien 
73c80476e4SDavid E. O'Brien #include "sh.h"
74c80476e4SDavid E. O'Brien 
75*9ccc37e3SMark Peek RCSID("$tcsh: ed.chared.c,v 3.98 2010/05/08 00:37:39 christos Exp $")
76c80476e4SDavid E. O'Brien 
77c80476e4SDavid E. O'Brien #include "ed.h"
78c80476e4SDavid E. O'Brien #include "tw.h"
79c80476e4SDavid E. O'Brien #include "ed.defns.h"
80c80476e4SDavid E. O'Brien 
81c80476e4SDavid E. O'Brien /* #define SDEBUG */
82c80476e4SDavid E. O'Brien 
83c80476e4SDavid E. O'Brien #define TCSHOP_NOP    	  0x00
84c80476e4SDavid E. O'Brien #define TCSHOP_DELETE 	  0x01
85c80476e4SDavid E. O'Brien #define TCSHOP_INSERT 	  0x02
86c80476e4SDavid E. O'Brien #define TCSHOP_CHANGE 	  0x04
87c80476e4SDavid E. O'Brien 
88c80476e4SDavid E. O'Brien #define CHAR_FWD	0
89c80476e4SDavid E. O'Brien #define CHAR_BACK	1
90c80476e4SDavid E. O'Brien 
91c80476e4SDavid E. O'Brien /*
92c80476e4SDavid E. O'Brien  * vi word treatment
93c80476e4SDavid E. O'Brien  * from: Gert-Jan Vons <vons@cesar.crbca1.sinet.slb.com>
94c80476e4SDavid E. O'Brien  */
95c80476e4SDavid E. O'Brien #define C_CLASS_WHITE	1
96c80476e4SDavid E. O'Brien #define C_CLASS_ALNUM	2
97c80476e4SDavid E. O'Brien #define C_CLASS_OTHER	3
98c80476e4SDavid E. O'Brien 
99c80476e4SDavid E. O'Brien static Char *InsertPos = InputBuf; /* Where insertion starts */
100c80476e4SDavid E. O'Brien static Char *ActionPos = 0;	   /* Where action begins  */
101c80476e4SDavid E. O'Brien static int  ActionFlag = TCSHOP_NOP;	   /* What delayed action to take */
102c80476e4SDavid E. O'Brien /*
103c80476e4SDavid E. O'Brien  * Word search state
104c80476e4SDavid E. O'Brien  */
105c80476e4SDavid E. O'Brien static int  searchdir = F_UP_SEARCH_HIST; 	/* Direction of last search */
10645e5710bSMark Peek static struct Strbuf patbuf; /* = Strbuf_INIT; Search target */
107c80476e4SDavid E. O'Brien /*
108c80476e4SDavid E. O'Brien  * Char search state
109c80476e4SDavid E. O'Brien  */
110c80476e4SDavid E. O'Brien static int  srch_dir = CHAR_FWD;		/* Direction of last search */
111c80476e4SDavid E. O'Brien static Char srch_char = 0;			/* Search target */
112c80476e4SDavid E. O'Brien 
113c80476e4SDavid E. O'Brien /* all routines that start with c_ are private to this set of routines */
11445e5710bSMark Peek static	void	 c_alternativ_key_map	(int);
11545e5710bSMark Peek void	 c_insert		(int);
11645e5710bSMark Peek void	 c_delafter		(int);
11745e5710bSMark Peek void	 c_delbefore		(int);
11845e5710bSMark Peek static 	int	 c_to_class		(Char);
11945e5710bSMark Peek static	Char	*c_prev_word		(Char *, Char *, int);
12045e5710bSMark Peek static	Char	*c_next_word		(Char *, Char *, int);
12145e5710bSMark Peek static	Char	*c_number		(Char *, int *, int);
12245e5710bSMark Peek static	Char	*c_expand		(Char *);
123a15e6f9aSMark Peek static	int	 c_excl			(Char *);
124a15e6f9aSMark Peek static	int	 c_substitute		(void);
12545e5710bSMark Peek static	void	 c_delfini		(void);
12645e5710bSMark Peek static	int	 c_hmatch		(Char *);
12745e5710bSMark Peek static	void	 c_hsetpat		(void);
128c80476e4SDavid E. O'Brien #ifdef COMMENT
12945e5710bSMark Peek static	void	 c_get_word		(Char **, Char **);
130c80476e4SDavid E. O'Brien #endif
13145e5710bSMark Peek static	Char	*c_preword		(Char *, Char *, int, Char *);
13245e5710bSMark Peek static	Char	*c_nexword		(Char *, Char *, int);
13345e5710bSMark Peek static	Char	*c_endword		(Char *, Char *, int, Char *);
13445e5710bSMark Peek static	Char	*c_eword		(Char *, Char *, int);
13545e5710bSMark Peek static	void	 c_push_kill		(Char *, Char *);
13645e5710bSMark Peek static	void	 c_save_inputbuf	(void);
13745e5710bSMark Peek static  CCRETVAL c_search_line		(Char *, int);
13845e5710bSMark Peek static  CCRETVAL v_repeat_srch		(int);
13945e5710bSMark Peek static	CCRETVAL e_inc_search		(int);
14045e5710bSMark Peek #ifdef notyet
14145e5710bSMark Peek static  CCRETVAL e_insert_str		(Char *);
14245e5710bSMark Peek #endif
14345e5710bSMark Peek static	CCRETVAL v_search		(int);
14445e5710bSMark Peek static	CCRETVAL v_csearch_fwd		(Char, int, int);
14545e5710bSMark Peek static	CCRETVAL v_action		(int);
14645e5710bSMark Peek static	CCRETVAL v_csearch_back		(Char, int, int);
147c80476e4SDavid E. O'Brien 
148c80476e4SDavid E. O'Brien static void
14945e5710bSMark Peek c_alternativ_key_map(int state)
150c80476e4SDavid E. O'Brien {
151c80476e4SDavid E. O'Brien     switch (state) {
152c80476e4SDavid E. O'Brien     case 0:
153c80476e4SDavid E. O'Brien 	CurrentKeyMap = CcKeyMap;
154c80476e4SDavid E. O'Brien 	break;
155c80476e4SDavid E. O'Brien     case 1:
156c80476e4SDavid E. O'Brien 	CurrentKeyMap = CcAltMap;
157c80476e4SDavid E. O'Brien 	break;
158c80476e4SDavid E. O'Brien     default:
159c80476e4SDavid E. O'Brien 	return;
160c80476e4SDavid E. O'Brien     }
161c80476e4SDavid E. O'Brien 
162c80476e4SDavid E. O'Brien     AltKeyMap = (Char) state;
163c80476e4SDavid E. O'Brien }
164c80476e4SDavid E. O'Brien 
1656767bd61SMark Peek void
16645e5710bSMark Peek c_insert(int num)
167c80476e4SDavid E. O'Brien {
1686767bd61SMark Peek     Char *cp;
169c80476e4SDavid E. O'Brien 
170c80476e4SDavid E. O'Brien     if (LastChar + num >= InputLim)
171c80476e4SDavid E. O'Brien 	return;			/* can't go past end of buffer */
172c80476e4SDavid E. O'Brien 
173c80476e4SDavid E. O'Brien     if (Cursor < LastChar) {	/* if I must move chars */
174c80476e4SDavid E. O'Brien 	for (cp = LastChar; cp >= Cursor; cp--)
175c80476e4SDavid E. O'Brien 	    cp[num] = *cp;
17623338178SMark Peek 	if (Mark && Mark > Cursor)
17723338178SMark Peek 		Mark += num;
178c80476e4SDavid E. O'Brien     }
179c80476e4SDavid E. O'Brien     LastChar += num;
180c80476e4SDavid E. O'Brien }
181c80476e4SDavid E. O'Brien 
1823b6eaa7bSAndrey A. Chernov void
18345e5710bSMark Peek c_delafter(int num)
184c80476e4SDavid E. O'Brien {
1856767bd61SMark Peek     Char *cp, *kp = NULL;
186c80476e4SDavid E. O'Brien 
187c80476e4SDavid E. O'Brien     if (num > LastChar - Cursor)
188c80476e4SDavid E. O'Brien 	num = (int) (LastChar - Cursor);	/* bounds check */
189c80476e4SDavid E. O'Brien 
190c80476e4SDavid E. O'Brien     if (num > 0) {			/* if I can delete anything */
191c80476e4SDavid E. O'Brien 	if (VImode) {
192c80476e4SDavid E. O'Brien 	    kp = UndoBuf;		/* Set Up for VI undo command */
193c80476e4SDavid E. O'Brien 	    UndoAction = TCSHOP_INSERT;
194c80476e4SDavid E. O'Brien 	    UndoSize = num;
195c80476e4SDavid E. O'Brien 	    UndoPtr  = Cursor;
196c80476e4SDavid E. O'Brien 	    for (cp = Cursor; cp <= LastChar; cp++) {
197c80476e4SDavid E. O'Brien 		*kp++ = *cp;	/* Save deleted chars into undobuf */
198c80476e4SDavid E. O'Brien 		*cp = cp[num];
199c80476e4SDavid E. O'Brien 	    }
200c80476e4SDavid E. O'Brien 	}
201c80476e4SDavid E. O'Brien 	else
20223338178SMark Peek 	    for (cp = Cursor; cp + num <= LastChar; cp++)
203c80476e4SDavid E. O'Brien 		*cp = cp[num];
204c80476e4SDavid E. O'Brien 	LastChar -= num;
20545e5710bSMark Peek 	/* Mark was within the range of the deleted word? */
20645e5710bSMark Peek 	if (Mark && Mark > Cursor && Mark <= Cursor+num)
20745e5710bSMark Peek 		Mark = Cursor;
20845e5710bSMark Peek 	/* Mark after the deleted word? */
20945e5710bSMark Peek 	else if (Mark && Mark > Cursor)
21023338178SMark Peek 		Mark -= num;
211c80476e4SDavid E. O'Brien     }
212c80476e4SDavid E. O'Brien #ifdef notdef
213c80476e4SDavid E. O'Brien     else {
214c80476e4SDavid E. O'Brien 	/*
215c80476e4SDavid E. O'Brien 	 * XXX: We don't want to do that. In emacs mode overwrite should be
216c80476e4SDavid E. O'Brien 	 * sticky. I am not sure how that affects vi mode
217c80476e4SDavid E. O'Brien 	 */
218c80476e4SDavid E. O'Brien 	inputmode = MODE_INSERT;
219c80476e4SDavid E. O'Brien     }
220c80476e4SDavid E. O'Brien #endif /* notdef */
221c80476e4SDavid E. O'Brien }
222c80476e4SDavid E. O'Brien 
2233b6eaa7bSAndrey A. Chernov void
22445e5710bSMark Peek c_delbefore(int num)		/* delete before dot, with bounds checking */
225c80476e4SDavid E. O'Brien {
2266767bd61SMark Peek     Char *cp, *kp = NULL;
227c80476e4SDavid E. O'Brien 
228c80476e4SDavid E. O'Brien     if (num > Cursor - InputBuf)
229c80476e4SDavid E. O'Brien 	num = (int) (Cursor - InputBuf);	/* bounds check */
230c80476e4SDavid E. O'Brien 
231c80476e4SDavid E. O'Brien     if (num > 0) {			/* if I can delete anything */
232c80476e4SDavid E. O'Brien 	if (VImode) {
233c80476e4SDavid E. O'Brien 	    kp = UndoBuf;		/* Set Up for VI undo command */
234c80476e4SDavid E. O'Brien 	    UndoAction = TCSHOP_INSERT;
235c80476e4SDavid E. O'Brien 	    UndoSize = num;
236c80476e4SDavid E. O'Brien 	    UndoPtr  = Cursor - num;
237c80476e4SDavid E. O'Brien 	    for (cp = Cursor - num; cp <= LastChar; cp++) {
238c80476e4SDavid E. O'Brien 		*kp++ = *cp;
239c80476e4SDavid E. O'Brien 		*cp = cp[num];
240c80476e4SDavid E. O'Brien 	    }
241c80476e4SDavid E. O'Brien 	}
242c80476e4SDavid E. O'Brien 	else
24323338178SMark Peek 	    for (cp = Cursor - num; cp + num <= LastChar; cp++)
244c80476e4SDavid E. O'Brien 		*cp = cp[num];
245c80476e4SDavid E. O'Brien 	LastChar -= num;
24623338178SMark Peek 	Cursor -= num;
24745e5710bSMark Peek 	/* Mark was within the range of the deleted word? */
24845e5710bSMark Peek 	if (Mark && Mark > Cursor && Mark <= Cursor+num)
24945e5710bSMark Peek 		Mark = Cursor;
25045e5710bSMark Peek 	/* Mark after the deleted word? */
25145e5710bSMark Peek 	else if (Mark && Mark > Cursor)
25223338178SMark Peek 		Mark -= num;
253c80476e4SDavid E. O'Brien     }
254c80476e4SDavid E. O'Brien }
255c80476e4SDavid E. O'Brien 
256c80476e4SDavid E. O'Brien static Char *
25745e5710bSMark Peek c_preword(Char *p, Char *low, int n, Char *delim)
258c80476e4SDavid E. O'Brien {
259c80476e4SDavid E. O'Brien   while (n--) {
2606767bd61SMark Peek     Char *prev = low;
2616767bd61SMark Peek     Char *new;
262c80476e4SDavid E. O'Brien 
2636767bd61SMark Peek     while (prev < p) {		/* Skip initial non-word chars */
2646767bd61SMark Peek       if (!Strchr(delim, *prev) || *(prev-1) == (Char)'\\')
265c80476e4SDavid E. O'Brien 	break;
266c80476e4SDavid E. O'Brien       prev++;
267c80476e4SDavid E. O'Brien     }
268c80476e4SDavid E. O'Brien 
269c80476e4SDavid E. O'Brien     new = prev;
270c80476e4SDavid E. O'Brien 
271c80476e4SDavid E. O'Brien     while (new < p) {
272c80476e4SDavid E. O'Brien       prev = new;
2736767bd61SMark Peek       new = c_endword(prev-1, p, 1, delim); /* Skip to next non-word char */
274c80476e4SDavid E. O'Brien       new++;			/* Step away from end of word */
2756767bd61SMark Peek       while (new <= p) {	/* Skip trailing non-word chars */
2766767bd61SMark Peek 	if (!Strchr(delim, *new) || *(new-1) == (Char)'\\')
277c80476e4SDavid E. O'Brien 	  break;
278c80476e4SDavid E. O'Brien 	new++;
279c80476e4SDavid E. O'Brien       }
280c80476e4SDavid E. O'Brien     }
281c80476e4SDavid E. O'Brien 
282c80476e4SDavid E. O'Brien     p = prev;			/* Set to previous word start */
283c80476e4SDavid E. O'Brien 
284c80476e4SDavid E. O'Brien   }
285c80476e4SDavid E. O'Brien   if (p < low)
286c80476e4SDavid E. O'Brien     p = low;
287c80476e4SDavid E. O'Brien   return (p);
288c80476e4SDavid E. O'Brien }
289c80476e4SDavid E. O'Brien 
290c80476e4SDavid E. O'Brien /*
291c80476e4SDavid E. O'Brien  * c_to_class() returns the class of the given character.
292c80476e4SDavid E. O'Brien  *
293c80476e4SDavid E. O'Brien  * This is used to make the c_prev_word() and c_next_word() functions
294c80476e4SDavid E. O'Brien  * work like vi's, which classify characters. A word is a sequence of
295c80476e4SDavid E. O'Brien  * characters belonging to the same class, classes being defined as
296c80476e4SDavid E. O'Brien  * follows:
297c80476e4SDavid E. O'Brien  *
298c80476e4SDavid E. O'Brien  *	1/ whitespace
299c80476e4SDavid E. O'Brien  *	2/ alphanumeric chars, + underscore
300c80476e4SDavid E. O'Brien  *	3/ others
301c80476e4SDavid E. O'Brien  */
302c80476e4SDavid E. O'Brien static int
30345e5710bSMark Peek c_to_class(Char ch)
304c80476e4SDavid E. O'Brien {
305c80476e4SDavid E. O'Brien     if (Isspace(ch))
306c80476e4SDavid E. O'Brien         return C_CLASS_WHITE;
307c80476e4SDavid E. O'Brien 
308c80476e4SDavid E. O'Brien     if (Isdigit(ch) || Isalpha(ch) || ch == '_')
309c80476e4SDavid E. O'Brien         return C_CLASS_ALNUM;
310c80476e4SDavid E. O'Brien 
311c80476e4SDavid E. O'Brien     return C_CLASS_OTHER;
312c80476e4SDavid E. O'Brien }
313c80476e4SDavid E. O'Brien 
314c80476e4SDavid E. O'Brien static Char *
31545e5710bSMark Peek c_prev_word(Char *p, Char *low, int n)
316c80476e4SDavid E. O'Brien {
317c80476e4SDavid E. O'Brien     p--;
318c80476e4SDavid E. O'Brien 
319c80476e4SDavid E. O'Brien     if (!VImode) {
320c80476e4SDavid E. O'Brien 	while (n--) {
321c80476e4SDavid E. O'Brien 	    while ((p >= low) && !isword(*p))
322c80476e4SDavid E. O'Brien 		p--;
323c80476e4SDavid E. O'Brien 	    while ((p >= low) && isword(*p))
324c80476e4SDavid E. O'Brien 		p--;
325c80476e4SDavid E. O'Brien 	}
326c80476e4SDavid E. O'Brien 
327c80476e4SDavid E. O'Brien 	/* cp now points to one character before the word */
328c80476e4SDavid E. O'Brien 	p++;
329c80476e4SDavid E. O'Brien 	if (p < low)
330c80476e4SDavid E. O'Brien 	    p = low;
331c80476e4SDavid E. O'Brien 	/* cp now points where we want it */
332c80476e4SDavid E. O'Brien 	return(p);
333c80476e4SDavid E. O'Brien     }
334c80476e4SDavid E. O'Brien 
335c80476e4SDavid E. O'Brien     while (n--) {
3366767bd61SMark Peek         int  c_class;
337c80476e4SDavid E. O'Brien 
338c80476e4SDavid E. O'Brien         if (p < low)
339c80476e4SDavid E. O'Brien             break;
340c80476e4SDavid E. O'Brien 
341c80476e4SDavid E. O'Brien         /* scan until beginning of current word (may be all whitespace!) */
342c80476e4SDavid E. O'Brien         c_class = c_to_class(*p);
343c80476e4SDavid E. O'Brien         while ((p >= low) && c_class == c_to_class(*p))
344c80476e4SDavid E. O'Brien             p--;
345c80476e4SDavid E. O'Brien 
346c80476e4SDavid E. O'Brien         /* if this was a non_whitespace word, we're ready */
347c80476e4SDavid E. O'Brien         if (c_class != C_CLASS_WHITE)
348c80476e4SDavid E. O'Brien             continue;
349c80476e4SDavid E. O'Brien 
350c80476e4SDavid E. O'Brien         /* otherwise, move back to beginning of the word just found */
351c80476e4SDavid E. O'Brien         c_class = c_to_class(*p);
352c80476e4SDavid E. O'Brien         while ((p >= low) && c_class == c_to_class(*p))
353c80476e4SDavid E. O'Brien             p--;
354c80476e4SDavid E. O'Brien     }
355c80476e4SDavid E. O'Brien 
356c80476e4SDavid E. O'Brien     p++;                        /* correct overshoot */
357c80476e4SDavid E. O'Brien 
358c80476e4SDavid E. O'Brien     return (p);
359c80476e4SDavid E. O'Brien }
360c80476e4SDavid E. O'Brien 
361c80476e4SDavid E. O'Brien static Char *
36245e5710bSMark Peek c_next_word(Char *p, Char *high, int n)
363c80476e4SDavid E. O'Brien {
364c80476e4SDavid E. O'Brien     if (!VImode) {
365c80476e4SDavid E. O'Brien 	while (n--) {
366c80476e4SDavid E. O'Brien 	    while ((p < high) && !isword(*p))
367c80476e4SDavid E. O'Brien 		p++;
368c80476e4SDavid E. O'Brien 	    while ((p < high) && isword(*p))
369c80476e4SDavid E. O'Brien 		p++;
370c80476e4SDavid E. O'Brien 	}
371c80476e4SDavid E. O'Brien 	if (p > high)
372c80476e4SDavid E. O'Brien 	    p = high;
373c80476e4SDavid E. O'Brien 	/* p now points where we want it */
374c80476e4SDavid E. O'Brien 	return(p);
375c80476e4SDavid E. O'Brien     }
376c80476e4SDavid E. O'Brien 
377c80476e4SDavid E. O'Brien     while (n--) {
3786767bd61SMark Peek         int  c_class;
379c80476e4SDavid E. O'Brien 
380c80476e4SDavid E. O'Brien         if (p >= high)
381c80476e4SDavid E. O'Brien             break;
382c80476e4SDavid E. O'Brien 
383c80476e4SDavid E. O'Brien         /* scan until end of current word (may be all whitespace!) */
384c80476e4SDavid E. O'Brien         c_class = c_to_class(*p);
385c80476e4SDavid E. O'Brien         while ((p < high) && c_class == c_to_class(*p))
386c80476e4SDavid E. O'Brien             p++;
387c80476e4SDavid E. O'Brien 
388c80476e4SDavid E. O'Brien         /* if this was all whitespace, we're ready */
389c80476e4SDavid E. O'Brien         if (c_class == C_CLASS_WHITE)
390c80476e4SDavid E. O'Brien             continue;
391c80476e4SDavid E. O'Brien 
392c80476e4SDavid E. O'Brien 	/* if we've found white-space at the end of the word, skip it */
393c80476e4SDavid E. O'Brien         while ((p < high) && c_to_class(*p) == C_CLASS_WHITE)
394c80476e4SDavid E. O'Brien             p++;
395c80476e4SDavid E. O'Brien     }
396c80476e4SDavid E. O'Brien 
397c80476e4SDavid E. O'Brien     p--;                        /* correct overshoot */
398c80476e4SDavid E. O'Brien 
399c80476e4SDavid E. O'Brien     return (p);
400c80476e4SDavid E. O'Brien }
401c80476e4SDavid E. O'Brien 
402c80476e4SDavid E. O'Brien static Char *
40345e5710bSMark Peek c_nexword(Char *p, Char *high, int n)
404c80476e4SDavid E. O'Brien {
405c80476e4SDavid E. O'Brien     while (n--) {
406c80476e4SDavid E. O'Brien 	while ((p < high) && !Isspace(*p))
407c80476e4SDavid E. O'Brien 	    p++;
408c80476e4SDavid E. O'Brien 	while ((p < high) && Isspace(*p))
409c80476e4SDavid E. O'Brien 	    p++;
410c80476e4SDavid E. O'Brien     }
411c80476e4SDavid E. O'Brien 
412c80476e4SDavid E. O'Brien     if (p > high)
413c80476e4SDavid E. O'Brien 	p = high;
414c80476e4SDavid E. O'Brien     /* p now points where we want it */
415c80476e4SDavid E. O'Brien     return(p);
416c80476e4SDavid E. O'Brien }
417c80476e4SDavid E. O'Brien 
418c80476e4SDavid E. O'Brien /*
419c80476e4SDavid E. O'Brien  * Expand-History (originally "Magic-Space") code added by
420c80476e4SDavid E. O'Brien  * Ray Moody <ray@gibbs.physics.purdue.edu>
421c80476e4SDavid E. O'Brien  * this is a neat, but odd, addition.
422c80476e4SDavid E. O'Brien  */
423c80476e4SDavid E. O'Brien 
424c80476e4SDavid E. O'Brien /*
425c80476e4SDavid E. O'Brien  * c_number: Ignore character p points to, return number appearing after that.
426c80476e4SDavid E. O'Brien  * A '$' by itself means a big number; "$-" is for negative; '^' means 1.
427c80476e4SDavid E. O'Brien  * Return p pointing to last char used.
428c80476e4SDavid E. O'Brien  */
429c80476e4SDavid E. O'Brien 
430c80476e4SDavid E. O'Brien /*
431c80476e4SDavid E. O'Brien  * dval is the number to subtract from for things like $-3
432c80476e4SDavid E. O'Brien  */
433c80476e4SDavid E. O'Brien 
434c80476e4SDavid E. O'Brien static Char *
43545e5710bSMark Peek c_number(Char *p, int *num, int dval)
436c80476e4SDavid E. O'Brien {
4376767bd61SMark Peek     int i;
4386767bd61SMark Peek     int sign = 1;
439c80476e4SDavid E. O'Brien 
440c80476e4SDavid E. O'Brien     if (*++p == '^') {
441c80476e4SDavid E. O'Brien 	*num = 1;
442c80476e4SDavid E. O'Brien 	return(p);
443c80476e4SDavid E. O'Brien     }
444c80476e4SDavid E. O'Brien     if (*p == '$') {
445c80476e4SDavid E. O'Brien 	if (*++p != '-') {
44645e5710bSMark Peek 	    *num = INT_MAX;	/* Handle $ */
447c80476e4SDavid E. O'Brien 	    return(--p);
448c80476e4SDavid E. O'Brien 	}
449c80476e4SDavid E. O'Brien 	sign = -1;		/* Handle $- */
450c80476e4SDavid E. O'Brien 	++p;
451c80476e4SDavid E. O'Brien     }
452c80476e4SDavid E. O'Brien     for (i = 0; *p >= '0' && *p <= '9'; i = 10 * i + *p++ - '0')
453c80476e4SDavid E. O'Brien 	continue;
454c80476e4SDavid E. O'Brien     *num = (sign < 0 ? dval - i : i);
455c80476e4SDavid E. O'Brien     return(--p);
456c80476e4SDavid E. O'Brien }
457c80476e4SDavid E. O'Brien 
458c80476e4SDavid E. O'Brien /*
459c80476e4SDavid E. O'Brien  * excl_expand: There is an excl to be expanded to p -- do the right thing
460c80476e4SDavid E. O'Brien  * with it and return a version of p advanced over the expanded stuff.  Also,
461c80476e4SDavid E. O'Brien  * update tsh_cur and related things as appropriate...
462c80476e4SDavid E. O'Brien  */
463c80476e4SDavid E. O'Brien 
464c80476e4SDavid E. O'Brien static Char *
46545e5710bSMark Peek c_expand(Char *p)
466c80476e4SDavid E. O'Brien {
4676767bd61SMark Peek     Char *q;
4686767bd61SMark Peek     struct Hist *h = Histlist.Hnext;
4696767bd61SMark Peek     struct wordent *l;
470c80476e4SDavid E. O'Brien     int     i, from, to, dval;
47123338178SMark Peek     int    all_dig;
47223338178SMark Peek     int    been_once = 0;
473c80476e4SDavid E. O'Brien     Char   *op = p;
47445e5710bSMark Peek     Char   *buf;
47545e5710bSMark Peek     size_t buf_len;
47645e5710bSMark Peek     Char   *modbuf;
477c80476e4SDavid E. O'Brien 
47845e5710bSMark Peek     buf = NULL;
479c80476e4SDavid E. O'Brien     if (!h)
480c80476e4SDavid E. O'Brien 	goto excl_err;
481c80476e4SDavid E. O'Brien excl_sw:
482c80476e4SDavid E. O'Brien     switch (*(q = p + 1)) {
483c80476e4SDavid E. O'Brien 
484c80476e4SDavid E. O'Brien     case '^':
48545e5710bSMark Peek 	buf = expand_lex(&h->Hlex, 1, 1);
486c80476e4SDavid E. O'Brien 	break;
487c80476e4SDavid E. O'Brien 
488c80476e4SDavid E. O'Brien     case '$':
489c80476e4SDavid E. O'Brien 	if ((l = (h->Hlex).prev) != 0)
49045e5710bSMark Peek 	    buf = expand_lex(l->prev->prev, 0, 0);
491c80476e4SDavid E. O'Brien 	break;
492c80476e4SDavid E. O'Brien 
493c80476e4SDavid E. O'Brien     case '*':
49445e5710bSMark Peek 	buf = expand_lex(&h->Hlex, 1, INT_MAX);
495c80476e4SDavid E. O'Brien 	break;
496c80476e4SDavid E. O'Brien 
497c80476e4SDavid E. O'Brien     default:
498c80476e4SDavid E. O'Brien 	if (been_once) {	/* unknown argument */
499c80476e4SDavid E. O'Brien 	    /* assume it's a modifier, e.g. !foo:h, and get whole cmd */
50045e5710bSMark Peek 	    buf = expand_lex(&h->Hlex, 0, INT_MAX);
501c80476e4SDavid E. O'Brien 	    q -= 2;
502c80476e4SDavid E. O'Brien 	    break;
503c80476e4SDavid E. O'Brien 	}
504c80476e4SDavid E. O'Brien 	been_once = 1;
505c80476e4SDavid E. O'Brien 
506c80476e4SDavid E. O'Brien 	if (*q == ':')		/* short form: !:arg */
507c80476e4SDavid E. O'Brien 	    --q;
508c80476e4SDavid E. O'Brien 
509*9ccc37e3SMark Peek 	if (HIST != '\0' && *q != HIST) {
510c80476e4SDavid E. O'Brien 	    /*
511c80476e4SDavid E. O'Brien 	     * Search for a space, tab, or colon.  See if we have a number (as
512c80476e4SDavid E. O'Brien 	     * in !1234:xyz).  Remember the number.
513c80476e4SDavid E. O'Brien 	     */
514c80476e4SDavid E. O'Brien 	    for (i = 0, all_dig = 1;
515c80476e4SDavid E. O'Brien 		 *q != ' ' && *q != '\t' && *q != ':' && q < Cursor; q++) {
516c80476e4SDavid E. O'Brien 		/*
517c80476e4SDavid E. O'Brien 		 * PWP: !-4 is a valid history argument too, therefore the test
518c80476e4SDavid E. O'Brien 		 * is if not a digit, or not a - as the first character.
519c80476e4SDavid E. O'Brien 		 */
520c80476e4SDavid E. O'Brien 		if ((*q < '0' || *q > '9') && (*q != '-' || q != p + 1))
521c80476e4SDavid E. O'Brien 		    all_dig = 0;
522c80476e4SDavid E. O'Brien 		else if (*q == '-')
523c80476e4SDavid E. O'Brien 		    all_dig = 2;/* we are sneeky about this */
524c80476e4SDavid E. O'Brien 		else
525c80476e4SDavid E. O'Brien 		    i = 10 * i + *q - '0';
526c80476e4SDavid E. O'Brien 	    }
527c80476e4SDavid E. O'Brien 	    --q;
528c80476e4SDavid E. O'Brien 
529c80476e4SDavid E. O'Brien 	    /*
530c80476e4SDavid E. O'Brien 	     * If we have a number, search for event i.  Otherwise, search for
531c80476e4SDavid E. O'Brien 	     * a named event (as in !foo).  (In this case, I is the length of
532c80476e4SDavid E. O'Brien 	     * the named event).
533c80476e4SDavid E. O'Brien 	     */
534c80476e4SDavid E. O'Brien 	    if (all_dig) {
535c80476e4SDavid E. O'Brien 		if (all_dig == 2)
536c80476e4SDavid E. O'Brien 		    i = -i;	/* make it negitive */
537c80476e4SDavid E. O'Brien 		if (i < 0)	/* if !-4 (for example) */
538c80476e4SDavid E. O'Brien 		    i = eventno + 1 + i;	/* remember: i is < 0 */
539c80476e4SDavid E. O'Brien 		for (; h; h = h->Hnext) {
540c80476e4SDavid E. O'Brien 		    if (h->Hnum == i)
541c80476e4SDavid E. O'Brien 			break;
542c80476e4SDavid E. O'Brien 		}
543c80476e4SDavid E. O'Brien 	    }
544c80476e4SDavid E. O'Brien 	    else {
545c80476e4SDavid E. O'Brien 		for (i = (int) (q - p); h; h = h->Hnext) {
546c80476e4SDavid E. O'Brien 		    if ((l = &h->Hlex) != 0) {
547c80476e4SDavid E. O'Brien 			if (!Strncmp(p + 1, l->next->word, (size_t) i))
548c80476e4SDavid E. O'Brien 			    break;
549c80476e4SDavid E. O'Brien 		    }
550c80476e4SDavid E. O'Brien 		}
551c80476e4SDavid E. O'Brien 	    }
552c80476e4SDavid E. O'Brien 	}
553c80476e4SDavid E. O'Brien 	if (!h)
554c80476e4SDavid E. O'Brien 	    goto excl_err;
555c80476e4SDavid E. O'Brien 	if (q[1] == ':' || q[1] == '-' || q[1] == '*' ||
556c80476e4SDavid E. O'Brien 	    q[1] == '$' || q[1] == '^') {	/* get some args */
557c80476e4SDavid E. O'Brien 	    p = q[1] == ':' ? ++q : q;
558c80476e4SDavid E. O'Brien 	    /*
559c80476e4SDavid E. O'Brien 	     * Go handle !foo:*
560c80476e4SDavid E. O'Brien 	     */
561c80476e4SDavid E. O'Brien 	    if ((q[1] < '0' || q[1] > '9') &&
562c80476e4SDavid E. O'Brien 		q[1] != '-' && q[1] != '$' && q[1] != '^')
563c80476e4SDavid E. O'Brien 		goto excl_sw;
564c80476e4SDavid E. O'Brien 	    /*
565c80476e4SDavid E. O'Brien 	     * Go handle !foo:$
566c80476e4SDavid E. O'Brien 	     */
567c80476e4SDavid E. O'Brien 	    if (q[1] == '$' && (q[2] != '-' || q[3] < '0' || q[3] > '9'))
568c80476e4SDavid E. O'Brien 		goto excl_sw;
569c80476e4SDavid E. O'Brien 	    /*
570c80476e4SDavid E. O'Brien 	     * Count up the number of words in this event.  Store it in dval.
571c80476e4SDavid E. O'Brien 	     * Dval will be fed to number.
572c80476e4SDavid E. O'Brien 	     */
573c80476e4SDavid E. O'Brien 	    dval = 0;
574c80476e4SDavid E. O'Brien 	    if ((l = h->Hlex.prev) != 0) {
575c80476e4SDavid E. O'Brien 		for (l = l->prev; l != h->Hlex.next; l = l->prev, dval++)
576c80476e4SDavid E. O'Brien 		    continue;
577c80476e4SDavid E. O'Brien 	    }
578c80476e4SDavid E. O'Brien 	    if (!dval)
579c80476e4SDavid E. O'Brien 		goto excl_err;
580c80476e4SDavid E. O'Brien 	    if (q[1] == '-')
581c80476e4SDavid E. O'Brien 		from = 0;
582c80476e4SDavid E. O'Brien 	    else
583c80476e4SDavid E. O'Brien 		q = c_number(q, &from, dval);
584c80476e4SDavid E. O'Brien 	    if (q[1] == '-') {
585c80476e4SDavid E. O'Brien 		++q;
586c80476e4SDavid E. O'Brien 		if ((q[1] < '0' || q[1] > '9') && q[1] != '$')
587c80476e4SDavid E. O'Brien 		    to = dval - 1;
588c80476e4SDavid E. O'Brien 		else
589c80476e4SDavid E. O'Brien 		    q = c_number(q, &to, dval);
590c80476e4SDavid E. O'Brien 	    }
591c80476e4SDavid E. O'Brien 	    else if (q[1] == '*') {
592c80476e4SDavid E. O'Brien 		++q;
59345e5710bSMark Peek 		to = INT_MAX;
594c80476e4SDavid E. O'Brien 	    }
595c80476e4SDavid E. O'Brien 	    else {
596c80476e4SDavid E. O'Brien 		to = from;
597c80476e4SDavid E. O'Brien 	    }
598c80476e4SDavid E. O'Brien 	    if (from < 0 || to < from)
599c80476e4SDavid E. O'Brien 		goto excl_err;
60045e5710bSMark Peek 	    buf = expand_lex(&h->Hlex, from, to);
601c80476e4SDavid E. O'Brien 	}
60245e5710bSMark Peek 	else			/* get whole cmd */
60345e5710bSMark Peek 	    buf = expand_lex(&h->Hlex, 0, INT_MAX);
604c80476e4SDavid E. O'Brien 	break;
605c80476e4SDavid E. O'Brien     }
60645e5710bSMark Peek     if (buf == NULL)
60745e5710bSMark Peek 	buf = SAVE("");
608c80476e4SDavid E. O'Brien 
609c80476e4SDavid E. O'Brien     /*
610c80476e4SDavid E. O'Brien      * Apply modifiers, if any.
611c80476e4SDavid E. O'Brien      */
612c80476e4SDavid E. O'Brien     if (q[1] == ':') {
61345e5710bSMark Peek 	modbuf = buf;
614c80476e4SDavid E. O'Brien 	while (q[1] == ':' && modbuf != NULL) {
615c80476e4SDavid E. O'Brien 	    switch (q[2]) {
616c80476e4SDavid E. O'Brien 	    case 'r':
617c80476e4SDavid E. O'Brien 	    case 'e':
618c80476e4SDavid E. O'Brien 	    case 'h':
619c80476e4SDavid E. O'Brien 	    case 't':
620c80476e4SDavid E. O'Brien 	    case 'q':
621c80476e4SDavid E. O'Brien 	    case 'x':
622c80476e4SDavid E. O'Brien 	    case 'u':
623c80476e4SDavid E. O'Brien 	    case 'l':
62445e5710bSMark Peek 		if ((modbuf = domod(buf, (int) q[2])) != NULL) {
62545e5710bSMark Peek 		    xfree(buf);
62645e5710bSMark Peek 		    buf = modbuf;
627c80476e4SDavid E. O'Brien 		}
628c80476e4SDavid E. O'Brien 		++q;
629c80476e4SDavid E. O'Brien 		break;
630c80476e4SDavid E. O'Brien 
631c80476e4SDavid E. O'Brien 	    case 'a':
632c80476e4SDavid E. O'Brien 	    case 'g':
633c80476e4SDavid E. O'Brien 		/* Not implemented; this needs to be done before expanding
634c80476e4SDavid E. O'Brien 		 * lex. We don't have the words available to us anymore.
635c80476e4SDavid E. O'Brien 		 */
636c80476e4SDavid E. O'Brien 		++q;
637c80476e4SDavid E. O'Brien 		break;
638c80476e4SDavid E. O'Brien 
639c80476e4SDavid E. O'Brien 	    case 'p':
640c80476e4SDavid E. O'Brien 		/* Ok */
641c80476e4SDavid E. O'Brien 		++q;
642c80476e4SDavid E. O'Brien 		break;
643c80476e4SDavid E. O'Brien 
644c80476e4SDavid E. O'Brien 	    case '\0':
645c80476e4SDavid E. O'Brien 		break;
646c80476e4SDavid E. O'Brien 
647c80476e4SDavid E. O'Brien 	    default:
648c80476e4SDavid E. O'Brien 		++q;
649c80476e4SDavid E. O'Brien 		break;
650c80476e4SDavid E. O'Brien 	    }
651c80476e4SDavid E. O'Brien 	    if (q[1])
652c80476e4SDavid E. O'Brien 		++q;
653c80476e4SDavid E. O'Brien 	}
654c80476e4SDavid E. O'Brien     }
655c80476e4SDavid E. O'Brien 
65645e5710bSMark Peek     buf_len = Strlen(buf);
657c80476e4SDavid E. O'Brien     /*
65845e5710bSMark Peek      * Now replace the text from op to q inclusive with the text from buf.
659c80476e4SDavid E. O'Brien      */
660c80476e4SDavid E. O'Brien     q++;
661c80476e4SDavid E. O'Brien 
662c80476e4SDavid E. O'Brien     /*
663c80476e4SDavid E. O'Brien      * Now replace text non-inclusively like a real CS major!
664c80476e4SDavid E. O'Brien      */
66545e5710bSMark Peek     if (LastChar + buf_len - (q - op) >= InputLim)
666c80476e4SDavid E. O'Brien 	goto excl_err;
66745e5710bSMark Peek     (void) memmove(op + buf_len, q, (LastChar - q) * sizeof(Char));
66845e5710bSMark Peek     LastChar += buf_len - (q - op);
66945e5710bSMark Peek     Cursor += buf_len - (q - op);
67045e5710bSMark Peek     (void) memcpy(op, buf, buf_len * sizeof(Char));
671c80476e4SDavid E. O'Brien     *LastChar = '\0';
67245e5710bSMark Peek     xfree(buf);
67345e5710bSMark Peek     return op + buf_len;
674c80476e4SDavid E. O'Brien excl_err:
67545e5710bSMark Peek     xfree(buf);
676c80476e4SDavid E. O'Brien     SoundBeep();
677c80476e4SDavid E. O'Brien     return(op + 1);
678c80476e4SDavid E. O'Brien }
679c80476e4SDavid E. O'Brien 
680c80476e4SDavid E. O'Brien /*
681c80476e4SDavid E. O'Brien  * c_excl: An excl has been found at point p -- back up and find some white
682c80476e4SDavid E. O'Brien  * space (or the beginning of the buffer) and properly expand all the excl's
683c80476e4SDavid E. O'Brien  * from there up to the current cursor position. We also avoid (trying to)
684c80476e4SDavid E. O'Brien  * expanding '>!'
685a15e6f9aSMark Peek  * Returns number of expansions attempted (doesn't matter whether they succeeded
686a15e6f9aSMark Peek  * or not).
687c80476e4SDavid E. O'Brien  */
688c80476e4SDavid E. O'Brien 
689a15e6f9aSMark Peek static int
69045e5710bSMark Peek c_excl(Char *p)
691c80476e4SDavid E. O'Brien {
6926767bd61SMark Peek     int i;
6936767bd61SMark Peek     Char *q;
694a15e6f9aSMark Peek     int nr_exp;
695c80476e4SDavid E. O'Brien 
696c80476e4SDavid E. O'Brien     /*
697c80476e4SDavid E. O'Brien      * if />[SPC TAB]*![SPC TAB]/, back up p to just after the >. otherwise,
698c80476e4SDavid E. O'Brien      * back p up to just before the current word.
699c80476e4SDavid E. O'Brien      */
700c80476e4SDavid E. O'Brien     if ((p[1] == ' ' || p[1] == '\t') &&
701c80476e4SDavid E. O'Brien 	(p[-1] == ' ' || p[-1] == '\t' || p[-1] == '>')) {
702c80476e4SDavid E. O'Brien 	for (q = p - 1; q > InputBuf && (*q == ' ' || *q == '\t'); --q)
703c80476e4SDavid E. O'Brien 	    continue;
704c80476e4SDavid E. O'Brien 	if (*q == '>')
705c80476e4SDavid E. O'Brien 	    ++p;
706c80476e4SDavid E. O'Brien     }
707c80476e4SDavid E. O'Brien     else {
708c80476e4SDavid E. O'Brien 	while (*p != ' ' && *p != '\t' && p > InputBuf)
709c80476e4SDavid E. O'Brien 	    --p;
710c80476e4SDavid E. O'Brien     }
711c80476e4SDavid E. O'Brien 
712c80476e4SDavid E. O'Brien     /*
713c80476e4SDavid E. O'Brien      * Forever: Look for history char.  (Stop looking when we find the cursor.)
714a15e6f9aSMark Peek      * Count backslashes.  If odd, skip history char.  Expand if even number of
715a15e6f9aSMark Peek      * backslashes.
716c80476e4SDavid E. O'Brien      */
717a15e6f9aSMark Peek     nr_exp = 0;
718c80476e4SDavid E. O'Brien     for (;;) {
719*9ccc37e3SMark Peek 	if (HIST != '\0')
720c80476e4SDavid E. O'Brien 	    while (*p != HIST && p < Cursor)
721c80476e4SDavid E. O'Brien 		++p;
722c80476e4SDavid E. O'Brien 	for (i = 1; (p - i) >= InputBuf && p[-i] == '\\'; i++)
723c80476e4SDavid E. O'Brien 	    continue;
724c80476e4SDavid E. O'Brien 	if (i % 2 == 0)
725c80476e4SDavid E. O'Brien 	    ++p;
726a15e6f9aSMark Peek 	if (p >= Cursor)   /* all done */
727a15e6f9aSMark Peek 	    return nr_exp;
728a15e6f9aSMark Peek 	if (i % 2 == 1) {
729c80476e4SDavid E. O'Brien 	    p = c_expand(p);
730a15e6f9aSMark Peek 	    ++nr_exp;
731c80476e4SDavid E. O'Brien 	}
732c80476e4SDavid E. O'Brien     }
733a15e6f9aSMark Peek }
734c80476e4SDavid E. O'Brien 
735a15e6f9aSMark Peek 
736a15e6f9aSMark Peek static int
73745e5710bSMark Peek c_substitute(void)
738c80476e4SDavid E. O'Brien {
7396767bd61SMark Peek     Char *p;
740a15e6f9aSMark Peek     int  nr_exp;
741c80476e4SDavid E. O'Brien 
742c80476e4SDavid E. O'Brien     /*
743c80476e4SDavid E. O'Brien      * Start p out one character before the cursor.  Move it backwards looking
744c80476e4SDavid E. O'Brien      * for white space, the beginning of the line, or a history character.
745c80476e4SDavid E. O'Brien      */
746c80476e4SDavid E. O'Brien     for (p = Cursor - 1;
747*9ccc37e3SMark Peek 	 p > InputBuf && *p != ' ' && *p != '\t' && *p && *p != HIST; --p)
748c80476e4SDavid E. O'Brien 	continue;
749c80476e4SDavid E. O'Brien 
750c80476e4SDavid E. O'Brien     /*
751c80476e4SDavid E. O'Brien      * If we found a history character, go expand it.
752c80476e4SDavid E. O'Brien      */
753*9ccc37e3SMark Peek     if (HIST != '\0' && *p == HIST)
754a15e6f9aSMark Peek 	nr_exp = c_excl(p);
755a15e6f9aSMark Peek     else
756a15e6f9aSMark Peek         nr_exp = 0;
757c80476e4SDavid E. O'Brien     Refresh();
758a15e6f9aSMark Peek 
759a15e6f9aSMark Peek     return nr_exp;
760c80476e4SDavid E. O'Brien }
761c80476e4SDavid E. O'Brien 
762c80476e4SDavid E. O'Brien static void
76345e5710bSMark Peek c_delfini(void)		/* Finish up delete action */
764c80476e4SDavid E. O'Brien {
7656767bd61SMark Peek     int Size;
766c80476e4SDavid E. O'Brien 
767c80476e4SDavid E. O'Brien     if (ActionFlag & TCSHOP_INSERT)
768c80476e4SDavid E. O'Brien 	c_alternativ_key_map(0);
769c80476e4SDavid E. O'Brien 
770c80476e4SDavid E. O'Brien     ActionFlag = TCSHOP_NOP;
771c80476e4SDavid E. O'Brien 
772c80476e4SDavid E. O'Brien     if (ActionPos == 0)
773c80476e4SDavid E. O'Brien 	return;
774c80476e4SDavid E. O'Brien 
775c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_INSERT;
776c80476e4SDavid E. O'Brien 
777c80476e4SDavid E. O'Brien     if (Cursor > ActionPos) {
778c80476e4SDavid E. O'Brien 	Size = (int) (Cursor-ActionPos);
779c80476e4SDavid E. O'Brien 	c_delbefore(Size);
780c80476e4SDavid E. O'Brien 	RefCursor();
781c80476e4SDavid E. O'Brien     }
782c80476e4SDavid E. O'Brien     else if (Cursor < ActionPos) {
783c80476e4SDavid E. O'Brien 	Size = (int)(ActionPos-Cursor);
784c80476e4SDavid E. O'Brien 	c_delafter(Size);
785c80476e4SDavid E. O'Brien     }
786c80476e4SDavid E. O'Brien     else  {
787c80476e4SDavid E. O'Brien 	Size = 1;
788c80476e4SDavid E. O'Brien 	c_delafter(Size);
789c80476e4SDavid E. O'Brien     }
790c80476e4SDavid E. O'Brien     UndoPtr = Cursor;
791c80476e4SDavid E. O'Brien     UndoSize = Size;
792c80476e4SDavid E. O'Brien }
793c80476e4SDavid E. O'Brien 
794c80476e4SDavid E. O'Brien static Char *
79545e5710bSMark Peek c_endword(Char *p, Char *high, int n, Char *delim)
796c80476e4SDavid E. O'Brien {
79723338178SMark Peek     Char inquote = 0;
798c80476e4SDavid E. O'Brien     p++;
799c80476e4SDavid E. O'Brien 
800c80476e4SDavid E. O'Brien     while (n--) {
8016767bd61SMark Peek         while (p < high) {	/* Skip non-word chars */
8026767bd61SMark Peek 	  if (!Strchr(delim, *p) || *(p-1) == (Char)'\\')
803c80476e4SDavid E. O'Brien 	    break;
804c80476e4SDavid E. O'Brien 	  p++;
805c80476e4SDavid E. O'Brien         }
806c80476e4SDavid E. O'Brien 	while (p < high) {	/* Skip string */
807c80476e4SDavid E. O'Brien 	  if ((*p == (Char)'\'' || *p == (Char)'"')) { /* Quotation marks? */
8086767bd61SMark Peek 	    if (inquote || *(p-1) != (Char)'\\') { /* Should it be honored? */
809c80476e4SDavid E. O'Brien 	      if (inquote == 0) inquote = *p;
810c80476e4SDavid E. O'Brien 	      else if (inquote == *p) inquote = 0;
811c80476e4SDavid E. O'Brien 	    }
812c80476e4SDavid E. O'Brien 	  }
8136767bd61SMark Peek 	  /* Break if unquoted non-word char */
8146767bd61SMark Peek 	  if (!inquote && Strchr(delim, *p) && *(p-1) != (Char)'\\')
815c80476e4SDavid E. O'Brien 	    break;
816c80476e4SDavid E. O'Brien 	  p++;
817c80476e4SDavid E. O'Brien 	}
818c80476e4SDavid E. O'Brien     }
819c80476e4SDavid E. O'Brien 
820c80476e4SDavid E. O'Brien     p--;
821c80476e4SDavid E. O'Brien     return(p);
822c80476e4SDavid E. O'Brien }
823c80476e4SDavid E. O'Brien 
824c80476e4SDavid E. O'Brien 
825c80476e4SDavid E. O'Brien static Char *
82645e5710bSMark Peek c_eword(Char *p, Char *high, int n)
827c80476e4SDavid E. O'Brien {
828c80476e4SDavid E. O'Brien     p++;
829c80476e4SDavid E. O'Brien 
830c80476e4SDavid E. O'Brien     while (n--) {
831c80476e4SDavid E. O'Brien 	while ((p < high) && Isspace(*p))
832c80476e4SDavid E. O'Brien 	    p++;
833c80476e4SDavid E. O'Brien 
834*9ccc37e3SMark Peek 	if (isword(*p))
835*9ccc37e3SMark Peek 	    while ((p < high) && isword(*p))
836c80476e4SDavid E. O'Brien 		p++;
837c80476e4SDavid E. O'Brien 	else
838*9ccc37e3SMark Peek 	    while ((p < high) && !(Isspace(*p) || isword(*p)))
839c80476e4SDavid E. O'Brien 		p++;
840c80476e4SDavid E. O'Brien     }
841c80476e4SDavid E. O'Brien 
842c80476e4SDavid E. O'Brien     p--;
843c80476e4SDavid E. O'Brien     return(p);
844c80476e4SDavid E. O'Brien }
845c80476e4SDavid E. O'Brien 
8466767bd61SMark Peek /* Set the max length of the kill ring */
8476767bd61SMark Peek void
84845e5710bSMark Peek SetKillRing(int max)
8496767bd61SMark Peek {
8506767bd61SMark Peek     CStr *new;
8516767bd61SMark Peek     int count, i, j;
8526767bd61SMark Peek 
8536767bd61SMark Peek     if (max < 1)
8546767bd61SMark Peek 	max = 1;		/* no ring, but always one buffer */
8556767bd61SMark Peek     if (max == KillRingMax)
8566767bd61SMark Peek 	return;
85745e5710bSMark Peek     new = xcalloc(max, sizeof(CStr));
8586767bd61SMark Peek     if (KillRing != NULL) {
8596767bd61SMark Peek 	if (KillRingLen != 0) {
8606767bd61SMark Peek 	    if (max >= KillRingLen) {
8616767bd61SMark Peek 		count = KillRingLen;
8626767bd61SMark Peek 		j = KillPos;
8636767bd61SMark Peek 	    } else {
8646767bd61SMark Peek 		count = max;
8656767bd61SMark Peek 		j = (KillPos - count + KillRingLen) % KillRingLen;
8666767bd61SMark Peek 	    }
8676767bd61SMark Peek 	    for (i = 0; i < KillRingLen; i++) {
8686767bd61SMark Peek 		if (i < count)	/* copy latest */
8696767bd61SMark Peek 		    new[i] = KillRing[j];
8706767bd61SMark Peek 		else		/* free the others */
8716767bd61SMark Peek 		    xfree(KillRing[j].buf);
8726767bd61SMark Peek 		j = (j + 1) % KillRingLen;
8736767bd61SMark Peek 	    }
8746767bd61SMark Peek 	    KillRingLen = count;
8756767bd61SMark Peek 	    KillPos = count % max;
8766767bd61SMark Peek 	    YankPos = count - 1;
8776767bd61SMark Peek 	}
8786767bd61SMark Peek 	xfree(KillRing);
8796767bd61SMark Peek     }
8806767bd61SMark Peek     KillRing = new;
8816767bd61SMark Peek     KillRingMax = max;
8826767bd61SMark Peek }
8836767bd61SMark Peek 
8846767bd61SMark Peek /* Push string from start upto (but not including) end onto kill ring */
8856767bd61SMark Peek static void
88645e5710bSMark Peek c_push_kill(Char *start, Char *end)
8876767bd61SMark Peek {
8886767bd61SMark Peek     CStr save, *pos;
8896767bd61SMark Peek     Char *dp, *cp, *kp;
8906767bd61SMark Peek     int len = end - start, i, j, k;
8916767bd61SMark Peek 
8926767bd61SMark Peek     /* Check for duplicates? */
8936767bd61SMark Peek     if (KillRingLen > 0 && (dp = varval(STRkilldup)) != STRNULL) {
8946767bd61SMark Peek 	YankPos = (KillPos - 1 + KillRingLen) % KillRingLen;
8956767bd61SMark Peek 	if (eq(dp, STRerase)) {	/* erase earlier one (actually move up) */
8966767bd61SMark Peek 	    j = YankPos;
8976767bd61SMark Peek 	    for (i = 0; i < KillRingLen; i++) {
8986767bd61SMark Peek 		if (Strncmp(KillRing[j].buf, start, (size_t) len) == 0 &&
8996767bd61SMark Peek 		    KillRing[j].buf[len] == '\0') {
9006767bd61SMark Peek 		    save = KillRing[j];
9016767bd61SMark Peek 		    for ( ; i > 0; i--) {
9026767bd61SMark Peek 			k = j;
9036767bd61SMark Peek 			j = (j + 1) % KillRingLen;
9046767bd61SMark Peek 			KillRing[k] = KillRing[j];
9056767bd61SMark Peek 		    }
9066767bd61SMark Peek 		    KillRing[j] = save;
9076767bd61SMark Peek 		    return;
9086767bd61SMark Peek 		}
9096767bd61SMark Peek 		j = (j - 1 + KillRingLen) % KillRingLen;
9106767bd61SMark Peek 	    }
9116767bd61SMark Peek 	} else if (eq(dp, STRall)) { /* skip if any earlier */
9126767bd61SMark Peek 	    for (i = 0; i < KillRingLen; i++)
9136767bd61SMark Peek 		if (Strncmp(KillRing[i].buf, start, (size_t) len) == 0 &&
9146767bd61SMark Peek 		    KillRing[i].buf[len] == '\0')
9156767bd61SMark Peek 		    return;
9166767bd61SMark Peek 	} else if (eq(dp, STRprev)) { /* skip if immediately previous */
9176767bd61SMark Peek 	    j = YankPos;
9186767bd61SMark Peek 	    if (Strncmp(KillRing[j].buf, start, (size_t) len) == 0 &&
9196767bd61SMark Peek 		KillRing[j].buf[len] == '\0')
9206767bd61SMark Peek 		return;
9216767bd61SMark Peek 	}
9226767bd61SMark Peek     }
9236767bd61SMark Peek 
9246767bd61SMark Peek     /* No duplicate, go ahead and push */
9256767bd61SMark Peek     len++;			/* need space for '\0' */
9266767bd61SMark Peek     YankPos = KillPos;
9276767bd61SMark Peek     if (KillRingLen < KillRingMax)
9286767bd61SMark Peek 	KillRingLen++;
9296767bd61SMark Peek     pos = &KillRing[KillPos];
9306767bd61SMark Peek     KillPos = (KillPos + 1) % KillRingMax;
9316767bd61SMark Peek     if (pos->len < len) {
93245e5710bSMark Peek 	pos->buf = xrealloc(pos->buf, len * sizeof(Char));
9336767bd61SMark Peek 	pos->len = len;
9346767bd61SMark Peek     }
9356767bd61SMark Peek     cp = start;
9366767bd61SMark Peek     kp = pos->buf;
9376767bd61SMark Peek     while (cp < end)
9386767bd61SMark Peek 	*kp++ = *cp++;
9396767bd61SMark Peek     *kp = '\0';
9406767bd61SMark Peek }
9416767bd61SMark Peek 
94245e5710bSMark Peek /* Save InputBuf etc in SavedBuf etc for restore after cmd exec */
94345e5710bSMark Peek static void
94445e5710bSMark Peek c_save_inputbuf()
94545e5710bSMark Peek {
94645e5710bSMark Peek     SavedBuf.len = 0;
94745e5710bSMark Peek     Strbuf_append(&SavedBuf, InputBuf);
94845e5710bSMark Peek     Strbuf_terminate(&SavedBuf);
94945e5710bSMark Peek     LastSaved = LastChar - InputBuf;
95045e5710bSMark Peek     CursSaved = Cursor - InputBuf;
95145e5710bSMark Peek     HistSaved = Hist_num;
95245e5710bSMark Peek     RestoreSaved = 1;
95345e5710bSMark Peek }
95445e5710bSMark Peek 
95545e5710bSMark Peek CCRETVAL
95645e5710bSMark Peek GetHistLine()
957c80476e4SDavid E. O'Brien {
958c80476e4SDavid E. O'Brien     struct Hist *hp;
959c80476e4SDavid E. O'Brien     int     h;
960c80476e4SDavid E. O'Brien 
961c80476e4SDavid E. O'Brien     if (Hist_num == 0) {	/* if really the current line */
96245e5710bSMark Peek 	if (HistBuf.s != NULL)
96345e5710bSMark Peek 	    copyn(InputBuf, HistBuf.s, INBUFSIZE);/*FIXBUF*/
96445e5710bSMark Peek 	else
96545e5710bSMark Peek 	    *InputBuf = '\0';
96645e5710bSMark Peek 	LastChar = InputBuf + HistBuf.len;
967c80476e4SDavid E. O'Brien 
968c80476e4SDavid E. O'Brien #ifdef KSHVI
969c80476e4SDavid E. O'Brien     if (VImode)
970c80476e4SDavid E. O'Brien 	Cursor = InputBuf;
971c80476e4SDavid E. O'Brien     else
972c80476e4SDavid E. O'Brien #endif /* KSHVI */
973c80476e4SDavid E. O'Brien 	Cursor = LastChar;
974c80476e4SDavid E. O'Brien 
975c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
976c80476e4SDavid E. O'Brien     }
977c80476e4SDavid E. O'Brien 
978c80476e4SDavid E. O'Brien     hp = Histlist.Hnext;
979c80476e4SDavid E. O'Brien     if (hp == NULL)
980c80476e4SDavid E. O'Brien 	return(CC_ERROR);
981c80476e4SDavid E. O'Brien 
982c80476e4SDavid E. O'Brien     for (h = 1; h < Hist_num; h++) {
983c80476e4SDavid E. O'Brien 	if ((hp->Hnext) == NULL) {
984c80476e4SDavid E. O'Brien 	    Hist_num = h;
985c80476e4SDavid E. O'Brien 	    return(CC_ERROR);
986c80476e4SDavid E. O'Brien 	}
987c80476e4SDavid E. O'Brien 	hp = hp->Hnext;
988c80476e4SDavid E. O'Brien     }
989c80476e4SDavid E. O'Brien 
990c80476e4SDavid E. O'Brien     if (HistLit && hp->histline) {
99145e5710bSMark Peek 	copyn(InputBuf, hp->histline, INBUFSIZE);/*FIXBUF*/
992c80476e4SDavid E. O'Brien 	CurrentHistLit = 1;
993c80476e4SDavid E. O'Brien     }
994c80476e4SDavid E. O'Brien     else {
99545e5710bSMark Peek 	Char *p;
99645e5710bSMark Peek 
99745e5710bSMark Peek 	p = sprlex(&hp->Hlex);
99845e5710bSMark Peek 	copyn(InputBuf, p, sizeof(InputBuf) / sizeof(Char));/*FIXBUF*/
99945e5710bSMark Peek 	xfree(p);
1000c80476e4SDavid E. O'Brien 	CurrentHistLit = 0;
1001c80476e4SDavid E. O'Brien     }
100245e5710bSMark Peek     LastChar = Strend(InputBuf);
1003c80476e4SDavid E. O'Brien 
1004c80476e4SDavid E. O'Brien     if (LastChar > InputBuf) {
1005c80476e4SDavid E. O'Brien 	if (LastChar[-1] == '\n')
1006c80476e4SDavid E. O'Brien 	    LastChar--;
1007c80476e4SDavid E. O'Brien #if 0
1008c80476e4SDavid E. O'Brien 	if (LastChar[-1] == ' ')
1009c80476e4SDavid E. O'Brien 	    LastChar--;
1010c80476e4SDavid E. O'Brien #endif
1011c80476e4SDavid E. O'Brien 	if (LastChar < InputBuf)
1012c80476e4SDavid E. O'Brien 	    LastChar = InputBuf;
1013c80476e4SDavid E. O'Brien     }
1014c80476e4SDavid E. O'Brien 
1015c80476e4SDavid E. O'Brien #ifdef KSHVI
1016c80476e4SDavid E. O'Brien     if (VImode)
1017c80476e4SDavid E. O'Brien 	Cursor = InputBuf;
1018c80476e4SDavid E. O'Brien     else
1019c80476e4SDavid E. O'Brien #endif /* KSHVI */
1020c80476e4SDavid E. O'Brien 	Cursor = LastChar;
1021c80476e4SDavid E. O'Brien 
1022c80476e4SDavid E. O'Brien     return(CC_REFRESH);
1023c80476e4SDavid E. O'Brien }
1024c80476e4SDavid E. O'Brien 
1025c80476e4SDavid E. O'Brien static CCRETVAL
102645e5710bSMark Peek c_search_line(Char *pattern, int dir)
1027c80476e4SDavid E. O'Brien {
1028c80476e4SDavid E. O'Brien     Char *cp;
102945e5710bSMark Peek     size_t len;
1030c80476e4SDavid E. O'Brien 
103145e5710bSMark Peek     len = Strlen(pattern);
1032c80476e4SDavid E. O'Brien 
1033c80476e4SDavid E. O'Brien     if (dir == F_UP_SEARCH_HIST) {
1034c80476e4SDavid E. O'Brien 	for (cp = Cursor; cp >= InputBuf; cp--)
103545e5710bSMark Peek 	    if (Strncmp(cp, pattern, len) == 0 ||
1036c80476e4SDavid E. O'Brien 		Gmatch(cp, pattern)) {
1037c80476e4SDavid E. O'Brien 		Cursor = cp;
1038c80476e4SDavid E. O'Brien 		return(CC_NORM);
1039c80476e4SDavid E. O'Brien 	    }
1040c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1041c80476e4SDavid E. O'Brien     } else {
1042c80476e4SDavid E. O'Brien 	for (cp = Cursor; *cp != '\0' && cp < InputLim; cp++)
104345e5710bSMark Peek 	    if (Strncmp(cp, pattern, len) == 0 ||
1044c80476e4SDavid E. O'Brien 		Gmatch(cp, pattern)) {
1045c80476e4SDavid E. O'Brien 		Cursor = cp;
1046c80476e4SDavid E. O'Brien 		return(CC_NORM);
1047c80476e4SDavid E. O'Brien 	    }
1048c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1049c80476e4SDavid E. O'Brien     }
1050c80476e4SDavid E. O'Brien }
1051c80476e4SDavid E. O'Brien 
1052c80476e4SDavid E. O'Brien static CCRETVAL
105345e5710bSMark Peek e_inc_search(int dir)
1054c80476e4SDavid E. O'Brien {
105545e5710bSMark Peek     static const Char STRfwd[] = { 'f', 'w', 'd', '\0' },
1056c80476e4SDavid E. O'Brien 		      STRbck[] = { 'b', 'c', 'k', '\0' };
1057c80476e4SDavid E. O'Brien     static Char pchar = ':';	/* ':' = normal, '?' = failed */
1058c80476e4SDavid E. O'Brien     static Char endcmd[2];
105945e5710bSMark Peek     const Char *cp;
106045e5710bSMark Peek     Char ch,
1061c80476e4SDavid E. O'Brien 	*oldCursor = Cursor,
1062c80476e4SDavid E. O'Brien 	oldpchar = pchar;
1063c80476e4SDavid E. O'Brien     CCRETVAL ret = CC_NORM;
1064c80476e4SDavid E. O'Brien     int oldHist_num = Hist_num,
106545e5710bSMark Peek 	oldpatlen = patbuf.len,
1066c80476e4SDavid E. O'Brien 	newdir = dir,
1067c80476e4SDavid E. O'Brien         done, redo;
1068c80476e4SDavid E. O'Brien 
106945e5710bSMark Peek     if (LastChar + sizeof(STRfwd)/sizeof(Char) + 2 + patbuf.len >= InputLim)
1070c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1071c80476e4SDavid E. O'Brien 
1072c80476e4SDavid E. O'Brien     for (;;) {
1073c80476e4SDavid E. O'Brien 
107445e5710bSMark Peek 	if (patbuf.len == 0) {	/* first round */
1075c80476e4SDavid E. O'Brien 	    pchar = ':';
107645e5710bSMark Peek 	    Strbuf_append1(&patbuf, '*');
1077c80476e4SDavid E. O'Brien 	}
1078c80476e4SDavid E. O'Brien 	done = redo = 0;
1079c80476e4SDavid E. O'Brien 	*LastChar++ = '\n';
1080c80476e4SDavid E. O'Brien 	for (cp = newdir == F_UP_SEARCH_HIST ? STRbck : STRfwd;
1081c80476e4SDavid E. O'Brien 	     *cp; *LastChar++ = *cp++)
1082c80476e4SDavid E. O'Brien 	    continue;
1083c80476e4SDavid E. O'Brien 	*LastChar++ = pchar;
108445e5710bSMark Peek 	for (cp = &patbuf.s[1]; cp < &patbuf.s[patbuf.len];
108545e5710bSMark Peek 	     *LastChar++ = *cp++)
1086c80476e4SDavid E. O'Brien 	    continue;
1087c80476e4SDavid E. O'Brien 	*LastChar = '\0';
108845e5710bSMark Peek 	if (adrof(STRhighlight) && pchar == ':') {
108945e5710bSMark Peek 	    /* if the no-glob-search patch is applied, remove the - 1 below */
109045e5710bSMark Peek 	    IncMatchLen = patbuf.len - 1;
109145e5710bSMark Peek 	    ClearLines();
109245e5710bSMark Peek 	    ClearDisp();
109345e5710bSMark Peek 	}
1094c80476e4SDavid E. O'Brien 	Refresh();
1095c80476e4SDavid E. O'Brien 
1096c80476e4SDavid E. O'Brien 	if (GetNextChar(&ch) != 1)
1097c80476e4SDavid E. O'Brien 	    return(e_send_eof(0));
1098c80476e4SDavid E. O'Brien 
109923338178SMark Peek 	switch (ch > NT_NUM_KEYS
110023338178SMark Peek 		? F_INSERT : CurrentKeyMap[(unsigned char) ch]) {
1101c80476e4SDavid E. O'Brien 	case F_INSERT:
1102c80476e4SDavid E. O'Brien 	case F_DIGIT:
1103c80476e4SDavid E. O'Brien 	case F_MAGIC_SPACE:
110445e5710bSMark Peek 	    if (LastChar + 1 >= InputLim) /*FIXBUF*/
1105c80476e4SDavid E. O'Brien 		SoundBeep();
1106c80476e4SDavid E. O'Brien 	    else {
110745e5710bSMark Peek 		Strbuf_append1(&patbuf, ch);
1108c80476e4SDavid E. O'Brien 		*LastChar++ = ch;
1109c80476e4SDavid E. O'Brien 		*LastChar = '\0';
1110c80476e4SDavid E. O'Brien 		Refresh();
1111c80476e4SDavid E. O'Brien 	    }
1112c80476e4SDavid E. O'Brien 	    break;
1113c80476e4SDavid E. O'Brien 
1114c80476e4SDavid E. O'Brien 	case F_INC_FWD:
1115c80476e4SDavid E. O'Brien 	    newdir = F_DOWN_SEARCH_HIST;
1116c80476e4SDavid E. O'Brien 	    redo++;
1117c80476e4SDavid E. O'Brien 	    break;
1118c80476e4SDavid E. O'Brien 
1119c80476e4SDavid E. O'Brien 	case F_INC_BACK:
1120c80476e4SDavid E. O'Brien 	    newdir = F_UP_SEARCH_HIST;
1121c80476e4SDavid E. O'Brien 	    redo++;
1122c80476e4SDavid E. O'Brien 	    break;
1123c80476e4SDavid E. O'Brien 
1124c80476e4SDavid E. O'Brien 	case F_DELPREV:
112545e5710bSMark Peek 	    if (patbuf.len > 1)
1126c80476e4SDavid E. O'Brien 		done++;
1127c80476e4SDavid E. O'Brien 	    else
1128c80476e4SDavid E. O'Brien 		SoundBeep();
1129c80476e4SDavid E. O'Brien 	    break;
1130c80476e4SDavid E. O'Brien 
1131c80476e4SDavid E. O'Brien 	default:
113245e5710bSMark Peek 	    switch (ASC(ch)) {
1133c80476e4SDavid E. O'Brien 	    case 0007:		/* ^G: Abort */
1134c80476e4SDavid E. O'Brien 		ret = CC_ERROR;
1135c80476e4SDavid E. O'Brien 		done++;
1136c80476e4SDavid E. O'Brien 		break;
1137c80476e4SDavid E. O'Brien 
1138c80476e4SDavid E. O'Brien 	    case 0027:		/* ^W: Append word */
1139c80476e4SDavid E. O'Brien 		/* No can do if globbing characters in pattern */
114045e5710bSMark Peek 		for (cp = &patbuf.s[1]; ; cp++)
114145e5710bSMark Peek 		    if (cp >= &patbuf.s[patbuf.len]) {
114245e5710bSMark Peek 			Cursor += patbuf.len - 1;
1143c80476e4SDavid E. O'Brien 			cp = c_next_word(Cursor, LastChar, 1);
1144c80476e4SDavid E. O'Brien 			while (Cursor < cp && *Cursor != '\n') {
114545e5710bSMark Peek 			    if (LastChar + 1 >= InputLim) {/*FIXBUF*/
1146c80476e4SDavid E. O'Brien 				SoundBeep();
1147c80476e4SDavid E. O'Brien 				break;
1148c80476e4SDavid E. O'Brien 			    }
114945e5710bSMark Peek 			    Strbuf_append1(&patbuf, *Cursor);
1150c80476e4SDavid E. O'Brien 			    *LastChar++ = *Cursor++;
1151c80476e4SDavid E. O'Brien 			}
1152c80476e4SDavid E. O'Brien 			Cursor = oldCursor;
1153c80476e4SDavid E. O'Brien 			*LastChar = '\0';
1154c80476e4SDavid E. O'Brien 			Refresh();
1155c80476e4SDavid E. O'Brien 			break;
1156c80476e4SDavid E. O'Brien 		    } else if (isglob(*cp)) {
1157c80476e4SDavid E. O'Brien 			SoundBeep();
1158c80476e4SDavid E. O'Brien 			break;
1159c80476e4SDavid E. O'Brien 		    }
1160c80476e4SDavid E. O'Brien 		break;
1161c80476e4SDavid E. O'Brien 
1162c80476e4SDavid E. O'Brien 	    default:		/* Terminate and execute cmd */
1163c80476e4SDavid E. O'Brien 		endcmd[0] = ch;
1164c80476e4SDavid E. O'Brien 		PushMacro(endcmd);
1165c80476e4SDavid E. O'Brien 		/*FALLTHROUGH*/
1166c80476e4SDavid E. O'Brien 
1167c80476e4SDavid E. O'Brien 	    case 0033:		/* ESC: Terminate */
1168c80476e4SDavid E. O'Brien 		ret = CC_REFRESH;
1169c80476e4SDavid E. O'Brien 		done++;
1170c80476e4SDavid E. O'Brien 		break;
1171c80476e4SDavid E. O'Brien 	    }
1172c80476e4SDavid E. O'Brien 	    break;
1173c80476e4SDavid E. O'Brien 	}
1174c80476e4SDavid E. O'Brien 
1175c80476e4SDavid E. O'Brien 	while (LastChar > InputBuf && *LastChar != '\n')
1176c80476e4SDavid E. O'Brien 	    *LastChar-- = '\0';
1177c80476e4SDavid E. O'Brien 	*LastChar = '\0';
1178c80476e4SDavid E. O'Brien 
1179c80476e4SDavid E. O'Brien 	if (!done) {
1180c80476e4SDavid E. O'Brien 
1181c80476e4SDavid E. O'Brien 	    /* Can't search if unmatched '[' */
118245e5710bSMark Peek 	    for (cp = &patbuf.s[patbuf.len - 1], ch = ']'; cp > patbuf.s; cp--)
1183c80476e4SDavid E. O'Brien 		if (*cp == '[' || *cp == ']') {
1184c80476e4SDavid E. O'Brien 		    ch = *cp;
1185c80476e4SDavid E. O'Brien 		    break;
1186c80476e4SDavid E. O'Brien 		}
1187c80476e4SDavid E. O'Brien 
118845e5710bSMark Peek 	    if (patbuf.len > 1 && ch != '[') {
1189c80476e4SDavid E. O'Brien 		if (redo && newdir == dir) {
1190c80476e4SDavid E. O'Brien 		    if (pchar == '?') {	/* wrap around */
119145e5710bSMark Peek 			Hist_num = newdir == F_UP_SEARCH_HIST ? 0 : INT_MAX;
119245e5710bSMark Peek 			if (GetHistLine() == CC_ERROR)
1193c80476e4SDavid E. O'Brien 			    /* Hist_num was fixed by first call */
119445e5710bSMark Peek 			    (void) GetHistLine();
1195c80476e4SDavid E. O'Brien 			Cursor = newdir == F_UP_SEARCH_HIST ?
1196c80476e4SDavid E. O'Brien 			    LastChar : InputBuf;
1197c80476e4SDavid E. O'Brien 		    } else
1198c80476e4SDavid E. O'Brien 			Cursor += newdir == F_UP_SEARCH_HIST ? -1 : 1;
1199c80476e4SDavid E. O'Brien 		}
120045e5710bSMark Peek 		Strbuf_append1(&patbuf, '*');
120145e5710bSMark Peek 		Strbuf_terminate(&patbuf);
1202c80476e4SDavid E. O'Brien 		if (Cursor < InputBuf || Cursor > LastChar ||
120345e5710bSMark Peek 		    (ret = c_search_line(&patbuf.s[1], newdir)) == CC_ERROR) {
1204c80476e4SDavid E. O'Brien 		    LastCmd = (KEYCMD) newdir; /* avoid c_hsetpat */
1205c80476e4SDavid E. O'Brien 		    ret = newdir == F_UP_SEARCH_HIST ?
1206c80476e4SDavid E. O'Brien 			e_up_search_hist(0) : e_down_search_hist(0);
1207c80476e4SDavid E. O'Brien 		    if (ret != CC_ERROR) {
1208c80476e4SDavid E. O'Brien 			Cursor = newdir == F_UP_SEARCH_HIST ?
1209c80476e4SDavid E. O'Brien 			    LastChar : InputBuf;
121045e5710bSMark Peek 			(void) c_search_line(&patbuf.s[1], newdir);
1211c80476e4SDavid E. O'Brien 		    }
1212c80476e4SDavid E. O'Brien 		}
121345e5710bSMark Peek 		patbuf.s[--patbuf.len] = '\0';
1214c80476e4SDavid E. O'Brien 		if (ret == CC_ERROR) {
1215c80476e4SDavid E. O'Brien 		    SoundBeep();
1216c80476e4SDavid E. O'Brien 		    if (Hist_num != oldHist_num) {
1217c80476e4SDavid E. O'Brien 			Hist_num = oldHist_num;
121845e5710bSMark Peek 			if (GetHistLine() == CC_ERROR)
1219c80476e4SDavid E. O'Brien 			    return(CC_ERROR);
1220c80476e4SDavid E. O'Brien 		    }
1221c80476e4SDavid E. O'Brien 		    Cursor = oldCursor;
1222c80476e4SDavid E. O'Brien 		    pchar = '?';
1223c80476e4SDavid E. O'Brien 		} else {
1224c80476e4SDavid E. O'Brien 		    pchar = ':';
1225c80476e4SDavid E. O'Brien 		}
1226c80476e4SDavid E. O'Brien 	    }
1227c80476e4SDavid E. O'Brien 
1228c80476e4SDavid E. O'Brien 	    ret = e_inc_search(newdir);
1229c80476e4SDavid E. O'Brien 
1230c80476e4SDavid E. O'Brien 	    if (ret == CC_ERROR && pchar == '?' && oldpchar == ':') {
1231c80476e4SDavid E. O'Brien 		/* break abort of failed search at last non-failed */
1232c80476e4SDavid E. O'Brien 		ret = CC_NORM;
1233c80476e4SDavid E. O'Brien 	    }
1234c80476e4SDavid E. O'Brien 
1235c80476e4SDavid E. O'Brien 	}
1236c80476e4SDavid E. O'Brien 
1237c80476e4SDavid E. O'Brien 	if (ret == CC_NORM || (ret == CC_ERROR && oldpatlen == 0)) {
1238c80476e4SDavid E. O'Brien 	    /* restore on normal return or error exit */
1239c80476e4SDavid E. O'Brien 	    pchar = oldpchar;
124045e5710bSMark Peek 	    patbuf.len = oldpatlen;
1241c80476e4SDavid E. O'Brien 	    if (Hist_num != oldHist_num) {
1242c80476e4SDavid E. O'Brien 		Hist_num = oldHist_num;
124345e5710bSMark Peek 		if (GetHistLine() == CC_ERROR)
1244c80476e4SDavid E. O'Brien 		    return(CC_ERROR);
1245c80476e4SDavid E. O'Brien 	    }
1246c80476e4SDavid E. O'Brien 	    Cursor = oldCursor;
1247c80476e4SDavid E. O'Brien 	    if (ret == CC_ERROR)
1248c80476e4SDavid E. O'Brien 		Refresh();
1249c80476e4SDavid E. O'Brien 	}
1250c80476e4SDavid E. O'Brien 	if (done || ret != CC_NORM)
1251c80476e4SDavid E. O'Brien 	    return(ret);
1252c80476e4SDavid E. O'Brien 
1253c80476e4SDavid E. O'Brien     }
1254c80476e4SDavid E. O'Brien 
1255c80476e4SDavid E. O'Brien }
1256c80476e4SDavid E. O'Brien 
1257c80476e4SDavid E. O'Brien static CCRETVAL
125845e5710bSMark Peek v_search(int dir)
1259c80476e4SDavid E. O'Brien {
126045e5710bSMark Peek     struct Strbuf tmpbuf = Strbuf_INIT;
1261c80476e4SDavid E. O'Brien     Char ch;
126245e5710bSMark Peek     Char *oldbuf;
1263c80476e4SDavid E. O'Brien     Char *oldlc, *oldc;
1264c80476e4SDavid E. O'Brien 
126545e5710bSMark Peek     cleanup_push(&tmpbuf, Strbuf_cleanup);
126645e5710bSMark Peek     oldbuf = Strsave(InputBuf);
126745e5710bSMark Peek     cleanup_push(oldbuf, xfree);
1268c80476e4SDavid E. O'Brien     oldlc = LastChar;
1269c80476e4SDavid E. O'Brien     oldc = Cursor;
127045e5710bSMark Peek     Strbuf_append1(&tmpbuf, '*');
1271c80476e4SDavid E. O'Brien 
1272c80476e4SDavid E. O'Brien     InputBuf[0] = '\0';
1273c80476e4SDavid E. O'Brien     LastChar = InputBuf;
1274c80476e4SDavid E. O'Brien     Cursor = InputBuf;
1275c80476e4SDavid E. O'Brien     searchdir = dir;
1276c80476e4SDavid E. O'Brien 
1277c80476e4SDavid E. O'Brien     c_insert(2);	/* prompt + '\n' */
1278c80476e4SDavid E. O'Brien     *Cursor++ = '\n';
1279c80476e4SDavid E. O'Brien     *Cursor++ = dir == F_UP_SEARCH_HIST ? '?' : '/';
1280c80476e4SDavid E. O'Brien     Refresh();
1281c80476e4SDavid E. O'Brien     for (ch = 0;ch == 0;) {
128245e5710bSMark Peek 	if (GetNextChar(&ch) != 1) {
128345e5710bSMark Peek 	    cleanup_until(&tmpbuf);
1284c80476e4SDavid E. O'Brien 	    return(e_send_eof(0));
128545e5710bSMark Peek 	}
1286c80476e4SDavid E. O'Brien 	switch (ASC(ch)) {
1287c80476e4SDavid E. O'Brien 	case 0010:	/* Delete and backspace */
1288c80476e4SDavid E. O'Brien 	case 0177:
128945e5710bSMark Peek 	    if (tmpbuf.len > 1) {
1290c80476e4SDavid E. O'Brien 		*Cursor-- = '\0';
1291c80476e4SDavid E. O'Brien 		LastChar = Cursor;
129245e5710bSMark Peek 		tmpbuf.len--;
1293c80476e4SDavid E. O'Brien 	    }
1294c80476e4SDavid E. O'Brien 	    else {
129545e5710bSMark Peek 		copyn(InputBuf, oldbuf, INBUFSIZE);/*FIXBUF*/
1296c80476e4SDavid E. O'Brien 		LastChar = oldlc;
1297c80476e4SDavid E. O'Brien 		Cursor = oldc;
129845e5710bSMark Peek 		cleanup_until(&tmpbuf);
1299c80476e4SDavid E. O'Brien 		return(CC_REFRESH);
1300c80476e4SDavid E. O'Brien 	    }
1301c80476e4SDavid E. O'Brien 	    Refresh();
1302c80476e4SDavid E. O'Brien 	    ch = 0;
1303c80476e4SDavid E. O'Brien 	    break;
1304c80476e4SDavid E. O'Brien 
1305c80476e4SDavid E. O'Brien 	case 0033:	/* ESC */
13063b6eaa7bSAndrey A. Chernov #ifdef IS_ASCII
1307c80476e4SDavid E. O'Brien 	case '\r':	/* Newline */
1308c80476e4SDavid E. O'Brien 	case '\n':
1309c80476e4SDavid E. O'Brien #else
13103b6eaa7bSAndrey A. Chernov 	case '\012':    /* ASCII Line feed */
13113b6eaa7bSAndrey A. Chernov 	case '\015':    /* ASCII (or EBCDIC) Return */
1312c80476e4SDavid E. O'Brien #endif
1313c80476e4SDavid E. O'Brien 	    break;
1314c80476e4SDavid E. O'Brien 
1315c80476e4SDavid E. O'Brien 	default:
131645e5710bSMark Peek 	    Strbuf_append1(&tmpbuf, ch);
1317c80476e4SDavid E. O'Brien 	    *Cursor++ = ch;
1318c80476e4SDavid E. O'Brien 	    LastChar = Cursor;
1319c80476e4SDavid E. O'Brien 	    Refresh();
1320c80476e4SDavid E. O'Brien 	    ch = 0;
1321c80476e4SDavid E. O'Brien 	    break;
1322c80476e4SDavid E. O'Brien 	}
1323c80476e4SDavid E. O'Brien     }
132445e5710bSMark Peek     cleanup_until(oldbuf);
1325c80476e4SDavid E. O'Brien 
132645e5710bSMark Peek     if (tmpbuf.len == 1) {
1327c80476e4SDavid E. O'Brien 	/*
1328c80476e4SDavid E. O'Brien 	 * Use the old pattern, but wild-card it.
1329c80476e4SDavid E. O'Brien 	 */
133045e5710bSMark Peek 	if (patbuf.len == 0) {
1331c80476e4SDavid E. O'Brien 	    InputBuf[0] = '\0';
1332c80476e4SDavid E. O'Brien 	    LastChar = InputBuf;
1333c80476e4SDavid E. O'Brien 	    Cursor = InputBuf;
1334c80476e4SDavid E. O'Brien 	    Refresh();
133545e5710bSMark Peek 	    cleanup_until(&tmpbuf);
1336c80476e4SDavid E. O'Brien 	    return(CC_ERROR);
1337c80476e4SDavid E. O'Brien 	}
133845e5710bSMark Peek 	if (patbuf.s[0] != '*') {
133945e5710bSMark Peek 	    oldbuf = Strsave(patbuf.s);
134045e5710bSMark Peek 	    patbuf.len = 0;
134145e5710bSMark Peek 	    Strbuf_append1(&patbuf, '*');
134245e5710bSMark Peek 	    Strbuf_append(&patbuf, oldbuf);
134345e5710bSMark Peek 	    xfree(oldbuf);
134445e5710bSMark Peek 	    Strbuf_append1(&patbuf, '*');
134545e5710bSMark Peek 	    Strbuf_terminate(&patbuf);
1346c80476e4SDavid E. O'Brien 	}
1347c80476e4SDavid E. O'Brien     }
1348c80476e4SDavid E. O'Brien     else {
134945e5710bSMark Peek 	Strbuf_append1(&tmpbuf, '*');
135045e5710bSMark Peek 	Strbuf_terminate(&tmpbuf);
135145e5710bSMark Peek 	patbuf.len = 0;
135245e5710bSMark Peek 	Strbuf_append(&patbuf, tmpbuf.s);
135345e5710bSMark Peek 	Strbuf_terminate(&patbuf);
1354c80476e4SDavid E. O'Brien     }
135545e5710bSMark Peek     cleanup_until(&tmpbuf);
1356c80476e4SDavid E. O'Brien     LastCmd = (KEYCMD) dir; /* avoid c_hsetpat */
1357c80476e4SDavid E. O'Brien     Cursor = LastChar = InputBuf;
1358c80476e4SDavid E. O'Brien     if ((dir == F_UP_SEARCH_HIST ? e_up_search_hist(0) :
1359c80476e4SDavid E. O'Brien 				   e_down_search_hist(0)) == CC_ERROR) {
1360c80476e4SDavid E. O'Brien 	Refresh();
1361c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1362c80476e4SDavid E. O'Brien     }
1363c80476e4SDavid E. O'Brien     else {
136445e5710bSMark Peek 	if (ASC(ch) == 0033) {
1365c80476e4SDavid E. O'Brien 	    Refresh();
1366c80476e4SDavid E. O'Brien 	    *LastChar++ = '\n';
1367c80476e4SDavid E. O'Brien 	    *LastChar = '\0';
1368c80476e4SDavid E. O'Brien 	    PastBottom();
1369c80476e4SDavid E. O'Brien 	    return(CC_NEWLINE);
1370c80476e4SDavid E. O'Brien 	}
1371c80476e4SDavid E. O'Brien 	else
1372c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
1373c80476e4SDavid E. O'Brien     }
1374c80476e4SDavid E. O'Brien }
1375c80476e4SDavid E. O'Brien 
1376c80476e4SDavid E. O'Brien /*
1377c80476e4SDavid E. O'Brien  * semi-PUBLIC routines.  Any routine that is of type CCRETVAL is an
1378c80476e4SDavid E. O'Brien  * entry point, called from the CcKeyMap indirected into the
1379c80476e4SDavid E. O'Brien  * CcFuncTbl array.
1380c80476e4SDavid E. O'Brien  */
1381c80476e4SDavid E. O'Brien 
1382c80476e4SDavid E. O'Brien /*ARGSUSED*/
1383c80476e4SDavid E. O'Brien CCRETVAL
138445e5710bSMark Peek v_cmd_mode(Char c)
1385c80476e4SDavid E. O'Brien {
1386c80476e4SDavid E. O'Brien     USE(c);
1387c80476e4SDavid E. O'Brien     InsertPos = 0;
1388c80476e4SDavid E. O'Brien     ActionFlag = TCSHOP_NOP;	/* [Esc] cancels pending action */
1389c80476e4SDavid E. O'Brien     ActionPos = 0;
1390c80476e4SDavid E. O'Brien     DoingArg = 0;
1391c80476e4SDavid E. O'Brien     if (UndoPtr > Cursor)
1392c80476e4SDavid E. O'Brien 	UndoSize = (int)(UndoPtr - Cursor);
1393c80476e4SDavid E. O'Brien     else
1394c80476e4SDavid E. O'Brien 	UndoSize = (int)(Cursor - UndoPtr);
1395c80476e4SDavid E. O'Brien 
1396c80476e4SDavid E. O'Brien     inputmode = MODE_INSERT;
1397c80476e4SDavid E. O'Brien     c_alternativ_key_map(1);
1398c80476e4SDavid E. O'Brien #ifdef notdef
1399c80476e4SDavid E. O'Brien     /*
1400c80476e4SDavid E. O'Brien      * We don't want to move the cursor, because all the editing
1401c80476e4SDavid E. O'Brien      * commands don't include the character under the cursor.
1402c80476e4SDavid E. O'Brien      */
1403c80476e4SDavid E. O'Brien     if (Cursor > InputBuf)
1404c80476e4SDavid E. O'Brien 	Cursor--;
1405c80476e4SDavid E. O'Brien #endif
1406c80476e4SDavid E. O'Brien     RefCursor();
1407c80476e4SDavid E. O'Brien     return(CC_NORM);
1408c80476e4SDavid E. O'Brien }
1409c80476e4SDavid E. O'Brien 
1410c80476e4SDavid E. O'Brien /*ARGSUSED*/
1411c80476e4SDavid E. O'Brien CCRETVAL
141245e5710bSMark Peek e_unassigned(Char c)
1413c80476e4SDavid E. O'Brien {				/* bound to keys that arn't really assigned */
1414c80476e4SDavid E. O'Brien     USE(c);
1415c80476e4SDavid E. O'Brien     SoundBeep();
1416c80476e4SDavid E. O'Brien     flush();
1417c80476e4SDavid E. O'Brien     return(CC_NORM);
1418c80476e4SDavid E. O'Brien }
1419c80476e4SDavid E. O'Brien 
142045e5710bSMark Peek #ifdef notyet
142123338178SMark Peek static CCRETVAL
142245e5710bSMark Peek e_insert_str(Char *c)
142323338178SMark Peek {
142423338178SMark Peek     int i, n;
142523338178SMark Peek 
142623338178SMark Peek     n = Strlen(c);
142723338178SMark Peek     if (LastChar + Argument * n >= InputLim)
142823338178SMark Peek 	return(CC_ERROR);	/* end of buffer space */
142923338178SMark Peek     if (inputmode != MODE_INSERT) {
143045e5710bSMark Peek 	c_delafter(Argument * Strlen(c));
143123338178SMark Peek     }
143223338178SMark Peek     c_insert(Argument * n);
143323338178SMark Peek     while (Argument--) {
143423338178SMark Peek 	for (i = 0; i < n; i++)
143523338178SMark Peek 	    *Cursor++ = c[i];
143623338178SMark Peek     }
143723338178SMark Peek     Refresh();
143823338178SMark Peek     return(CC_NORM);
143923338178SMark Peek }
144045e5710bSMark Peek #endif
144123338178SMark Peek 
1442c80476e4SDavid E. O'Brien CCRETVAL
144345e5710bSMark Peek e_insert(Char c)
1444c80476e4SDavid E. O'Brien {
1445c80476e4SDavid E. O'Brien #ifndef SHORT_STRINGS
1446c80476e4SDavid E. O'Brien     c &= ASCII;			/* no meta chars ever */
1447c80476e4SDavid E. O'Brien #endif
1448c80476e4SDavid E. O'Brien 
1449c80476e4SDavid E. O'Brien     if (!c)
1450c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* no NULs in the input ever!! */
1451c80476e4SDavid E. O'Brien 
1452c80476e4SDavid E. O'Brien     if (LastChar + Argument >= InputLim)
1453c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* end of buffer space */
1454c80476e4SDavid E. O'Brien 
1455c80476e4SDavid E. O'Brien     if (Argument == 1) {  	/* How was this optimized ???? */
1456c80476e4SDavid E. O'Brien 
1457c80476e4SDavid E. O'Brien 	if (inputmode != MODE_INSERT) {
1458c80476e4SDavid E. O'Brien 	    UndoBuf[UndoSize++] = *Cursor;
1459c80476e4SDavid E. O'Brien 	    UndoBuf[UndoSize] = '\0';
1460c80476e4SDavid E. O'Brien 	    c_delafter(1);   /* Do NOT use the saving ONE */
1461c80476e4SDavid E. O'Brien     	}
1462c80476e4SDavid E. O'Brien 
1463c80476e4SDavid E. O'Brien         c_insert(1);
1464c80476e4SDavid E. O'Brien 	*Cursor++ = (Char) c;
1465c80476e4SDavid E. O'Brien 	DoingArg = 0;		/* just in case */
146623338178SMark Peek 	RefPlusOne(1);		/* fast refresh for one char. */
1467c80476e4SDavid E. O'Brien     }
1468c80476e4SDavid E. O'Brien     else {
1469c80476e4SDavid E. O'Brien 	if (inputmode != MODE_INSERT) {
147023338178SMark Peek 	    int i;
1471c80476e4SDavid E. O'Brien 	    for(i = 0; i < Argument; i++)
1472c80476e4SDavid E. O'Brien 		UndoBuf[UndoSize++] = *(Cursor + i);
1473c80476e4SDavid E. O'Brien 
1474c80476e4SDavid E. O'Brien 	    UndoBuf[UndoSize] = '\0';
1475c80476e4SDavid E. O'Brien 	    c_delafter(Argument);   /* Do NOT use the saving ONE */
1476c80476e4SDavid E. O'Brien     	}
1477c80476e4SDavid E. O'Brien 
1478c80476e4SDavid E. O'Brien         c_insert(Argument);
1479c80476e4SDavid E. O'Brien 
1480c80476e4SDavid E. O'Brien 	while (Argument--)
1481c80476e4SDavid E. O'Brien 	    *Cursor++ = (Char) c;
1482c80476e4SDavid E. O'Brien 	Refresh();
1483c80476e4SDavid E. O'Brien     }
1484c80476e4SDavid E. O'Brien 
1485c80476e4SDavid E. O'Brien     if (inputmode == MODE_REPLACE_1)
1486c80476e4SDavid E. O'Brien 	(void) v_cmd_mode(0);
1487c80476e4SDavid E. O'Brien 
1488c80476e4SDavid E. O'Brien     return(CC_NORM);
1489c80476e4SDavid E. O'Brien }
1490c80476e4SDavid E. O'Brien 
1491c80476e4SDavid E. O'Brien int
149245e5710bSMark Peek InsertStr(Char *s)		/* insert ASCIZ s at cursor (for complete) */
1493c80476e4SDavid E. O'Brien {
14946767bd61SMark Peek     int len;
1495c80476e4SDavid E. O'Brien 
1496c80476e4SDavid E. O'Brien     if ((len = (int) Strlen(s)) <= 0)
1497c80476e4SDavid E. O'Brien 	return -1;
1498c80476e4SDavid E. O'Brien     if (LastChar + len >= InputLim)
1499c80476e4SDavid E. O'Brien 	return -1;		/* end of buffer space */
1500c80476e4SDavid E. O'Brien 
1501c80476e4SDavid E. O'Brien     c_insert(len);
1502c80476e4SDavid E. O'Brien     while (len--)
1503c80476e4SDavid E. O'Brien 	*Cursor++ = *s++;
1504c80476e4SDavid E. O'Brien     return 0;
1505c80476e4SDavid E. O'Brien }
1506c80476e4SDavid E. O'Brien 
1507c80476e4SDavid E. O'Brien void
150845e5710bSMark Peek DeleteBack(int n)		/* delete the n characters before . */
1509c80476e4SDavid E. O'Brien {
1510c80476e4SDavid E. O'Brien     if (n <= 0)
1511c80476e4SDavid E. O'Brien 	return;
1512c80476e4SDavid E. O'Brien     if (Cursor >= &InputBuf[n]) {
1513c80476e4SDavid E. O'Brien 	c_delbefore(n);		/* delete before dot */
1514c80476e4SDavid E. O'Brien     }
1515c80476e4SDavid E. O'Brien }
1516c80476e4SDavid E. O'Brien 
1517c80476e4SDavid E. O'Brien CCRETVAL
151845e5710bSMark Peek e_digit(Char c)			/* gray magic here */
1519c80476e4SDavid E. O'Brien {
1520c80476e4SDavid E. O'Brien     if (!Isdigit(c))
1521c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* no NULs in the input ever!! */
1522c80476e4SDavid E. O'Brien 
1523c80476e4SDavid E. O'Brien     if (DoingArg) {		/* if doing an arg, add this in... */
1524c80476e4SDavid E. O'Brien 	if (LastCmd == F_ARGFOUR)	/* if last command was ^U */
1525c80476e4SDavid E. O'Brien 	    Argument = c - '0';
1526c80476e4SDavid E. O'Brien 	else {
1527c80476e4SDavid E. O'Brien 	    if (Argument > 1000000)
1528c80476e4SDavid E. O'Brien 		return CC_ERROR;
1529c80476e4SDavid E. O'Brien 	    Argument = (Argument * 10) + (c - '0');
1530c80476e4SDavid E. O'Brien 	}
1531c80476e4SDavid E. O'Brien 	return(CC_ARGHACK);
1532c80476e4SDavid E. O'Brien     }
1533c80476e4SDavid E. O'Brien     else {
1534c80476e4SDavid E. O'Brien 	if (LastChar + 1 >= InputLim)
1535c80476e4SDavid E. O'Brien 	    return CC_ERROR;	/* end of buffer space */
1536c80476e4SDavid E. O'Brien 
1537c80476e4SDavid E. O'Brien 	if (inputmode != MODE_INSERT) {
1538c80476e4SDavid E. O'Brien 	    UndoBuf[UndoSize++] = *Cursor;
1539c80476e4SDavid E. O'Brien 	    UndoBuf[UndoSize] = '\0';
1540c80476e4SDavid E. O'Brien 	    c_delafter(1);   /* Do NOT use the saving ONE */
1541c80476e4SDavid E. O'Brien     	}
1542c80476e4SDavid E. O'Brien 	c_insert(1);
1543c80476e4SDavid E. O'Brien 	*Cursor++ = (Char) c;
1544c80476e4SDavid E. O'Brien 	DoingArg = 0;		/* just in case */
154523338178SMark Peek 	RefPlusOne(1);		/* fast refresh for one char. */
1546c80476e4SDavid E. O'Brien     }
1547c80476e4SDavid E. O'Brien     return(CC_NORM);
1548c80476e4SDavid E. O'Brien }
1549c80476e4SDavid E. O'Brien 
1550c80476e4SDavid E. O'Brien CCRETVAL
155145e5710bSMark Peek e_argdigit(Char c)		/* for ESC-n */
1552c80476e4SDavid E. O'Brien {
155345e5710bSMark Peek #ifdef IS_ASCII
1554c80476e4SDavid E. O'Brien     c &= ASCII;
155545e5710bSMark Peek #else
155645e5710bSMark Peek     c = CTL_ESC(ASC(c) & ASCII); /* stripping for EBCDIC done the ASCII way */
155745e5710bSMark Peek #endif
1558c80476e4SDavid E. O'Brien 
1559c80476e4SDavid E. O'Brien     if (!Isdigit(c))
1560c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* no NULs in the input ever!! */
1561c80476e4SDavid E. O'Brien 
1562c80476e4SDavid E. O'Brien     if (DoingArg) {		/* if doing an arg, add this in... */
1563c80476e4SDavid E. O'Brien 	if (Argument > 1000000)
1564c80476e4SDavid E. O'Brien 	    return CC_ERROR;
1565c80476e4SDavid E. O'Brien 	Argument = (Argument * 10) + (c - '0');
1566c80476e4SDavid E. O'Brien     }
1567c80476e4SDavid E. O'Brien     else {			/* else starting an argument */
1568c80476e4SDavid E. O'Brien 	Argument = c - '0';
1569c80476e4SDavid E. O'Brien 	DoingArg = 1;
1570c80476e4SDavid E. O'Brien     }
1571c80476e4SDavid E. O'Brien     return(CC_ARGHACK);
1572c80476e4SDavid E. O'Brien }
1573c80476e4SDavid E. O'Brien 
1574c80476e4SDavid E. O'Brien CCRETVAL
157545e5710bSMark Peek v_zero(Char c)			/* command mode 0 for vi */
1576c80476e4SDavid E. O'Brien {
1577c80476e4SDavid E. O'Brien     if (DoingArg) {		/* if doing an arg, add this in... */
1578c80476e4SDavid E. O'Brien 	if (Argument > 1000000)
1579c80476e4SDavid E. O'Brien 	    return CC_ERROR;
1580c80476e4SDavid E. O'Brien 	Argument = (Argument * 10) + (c - '0');
1581c80476e4SDavid E. O'Brien 	return(CC_ARGHACK);
1582c80476e4SDavid E. O'Brien     }
1583c80476e4SDavid E. O'Brien     else {			/* else starting an argument */
1584c80476e4SDavid E. O'Brien 	Cursor = InputBuf;
1585c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
1586c80476e4SDavid E. O'Brien 	   c_delfini();
1587c80476e4SDavid E. O'Brien 	   return(CC_REFRESH);
1588c80476e4SDavid E. O'Brien         }
1589c80476e4SDavid E. O'Brien 	RefCursor();		/* move the cursor */
1590c80476e4SDavid E. O'Brien 	return(CC_NORM);
1591c80476e4SDavid E. O'Brien     }
1592c80476e4SDavid E. O'Brien }
1593c80476e4SDavid E. O'Brien 
1594c80476e4SDavid E. O'Brien /*ARGSUSED*/
1595c80476e4SDavid E. O'Brien CCRETVAL
159645e5710bSMark Peek e_newline(Char c)
1597c80476e4SDavid E. O'Brien {				/* always ignore argument */
1598c80476e4SDavid E. O'Brien     USE(c);
159945e5710bSMark Peek     if (adrof(STRhighlight) && MarkIsSet) {
160045e5710bSMark Peek 	MarkIsSet = 0;
160145e5710bSMark Peek 	ClearLines();
160245e5710bSMark Peek 	ClearDisp();
160345e5710bSMark Peek 	Refresh();
160445e5710bSMark Peek     }
160545e5710bSMark Peek     MarkIsSet = 0;
160645e5710bSMark Peek 
1607c80476e4SDavid E. O'Brien   /*  PastBottom();  NOW done in ed.inputl.c */
1608c80476e4SDavid E. O'Brien     *LastChar++ = '\n';		/* for the benefit of CSH */
1609c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1610c80476e4SDavid E. O'Brien     if (VImode)
1611c80476e4SDavid E. O'Brien 	InsertPos = InputBuf;	/* Reset editing position */
1612c80476e4SDavid E. O'Brien     return(CC_NEWLINE);
1613c80476e4SDavid E. O'Brien }
1614c80476e4SDavid E. O'Brien 
1615c80476e4SDavid E. O'Brien /*ARGSUSED*/
1616c80476e4SDavid E. O'Brien CCRETVAL
161745e5710bSMark Peek e_newline_hold(Char c)
161845e5710bSMark Peek {
161945e5710bSMark Peek     USE(c);
162045e5710bSMark Peek     c_save_inputbuf();
162145e5710bSMark Peek     HistSaved = 0;
162245e5710bSMark Peek     *LastChar++ = '\n';		/* for the benefit of CSH */
162345e5710bSMark Peek     *LastChar = '\0';		/* just in case */
162445e5710bSMark Peek     return(CC_NEWLINE);
162545e5710bSMark Peek }
162645e5710bSMark Peek 
162745e5710bSMark Peek /*ARGSUSED*/
162845e5710bSMark Peek CCRETVAL
162945e5710bSMark Peek e_newline_down_hist(Char c)
163045e5710bSMark Peek {
163145e5710bSMark Peek     USE(c);
163245e5710bSMark Peek     if (Hist_num > 1) {
163345e5710bSMark Peek 	HistSaved = Hist_num;
163445e5710bSMark Peek     }
163545e5710bSMark Peek     *LastChar++ = '\n';		/* for the benefit of CSH */
163645e5710bSMark Peek     *LastChar = '\0';		/* just in case */
163745e5710bSMark Peek     return(CC_NEWLINE);
163845e5710bSMark Peek }
163945e5710bSMark Peek 
164045e5710bSMark Peek /*ARGSUSED*/
164145e5710bSMark Peek CCRETVAL
164245e5710bSMark Peek e_send_eof(Char c)
1643c80476e4SDavid E. O'Brien {				/* for when ^D is ONLY send-eof */
1644c80476e4SDavid E. O'Brien     USE(c);
1645c80476e4SDavid E. O'Brien     PastBottom();
1646c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1647c80476e4SDavid E. O'Brien     return(CC_EOF);
1648c80476e4SDavid E. O'Brien }
1649c80476e4SDavid E. O'Brien 
1650c80476e4SDavid E. O'Brien /*ARGSUSED*/
1651c80476e4SDavid E. O'Brien CCRETVAL
165245e5710bSMark Peek e_complete(Char c)
1653c80476e4SDavid E. O'Brien {
1654c80476e4SDavid E. O'Brien     USE(c);
1655c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1656c80476e4SDavid E. O'Brien     return(CC_COMPLETE);
1657c80476e4SDavid E. O'Brien }
1658c80476e4SDavid E. O'Brien 
1659c80476e4SDavid E. O'Brien /*ARGSUSED*/
1660c80476e4SDavid E. O'Brien CCRETVAL
166145e5710bSMark Peek e_complete_back(Char c)
1662c80476e4SDavid E. O'Brien {
1663c80476e4SDavid E. O'Brien     USE(c);
1664c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1665c80476e4SDavid E. O'Brien     return(CC_COMPLETE_BACK);
1666c80476e4SDavid E. O'Brien }
1667c80476e4SDavid E. O'Brien 
1668c80476e4SDavid E. O'Brien /*ARGSUSED*/
1669c80476e4SDavid E. O'Brien CCRETVAL
167045e5710bSMark Peek e_complete_fwd(Char c)
1671c80476e4SDavid E. O'Brien {
1672c80476e4SDavid E. O'Brien     USE(c);
1673c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1674c80476e4SDavid E. O'Brien     return(CC_COMPLETE_FWD);
1675c80476e4SDavid E. O'Brien }
1676c80476e4SDavid E. O'Brien 
1677c80476e4SDavid E. O'Brien /*ARGSUSED*/
1678c80476e4SDavid E. O'Brien CCRETVAL
167945e5710bSMark Peek e_complete_all(Char c)
1680c80476e4SDavid E. O'Brien {
1681c80476e4SDavid E. O'Brien     USE(c);
1682c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1683c80476e4SDavid E. O'Brien     return(CC_COMPLETE_ALL);
1684c80476e4SDavid E. O'Brien }
1685c80476e4SDavid E. O'Brien 
1686c80476e4SDavid E. O'Brien /*ARGSUSED*/
1687c80476e4SDavid E. O'Brien CCRETVAL
168845e5710bSMark Peek v_cm_complete(Char c)
1689c80476e4SDavid E. O'Brien {
1690c80476e4SDavid E. O'Brien     USE(c);
1691c80476e4SDavid E. O'Brien     if (Cursor < LastChar)
1692c80476e4SDavid E. O'Brien 	Cursor++;
1693c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1694c80476e4SDavid E. O'Brien     return(CC_COMPLETE);
1695c80476e4SDavid E. O'Brien }
1696c80476e4SDavid E. O'Brien 
1697c80476e4SDavid E. O'Brien /*ARGSUSED*/
1698c80476e4SDavid E. O'Brien CCRETVAL
169945e5710bSMark Peek e_toggle_hist(Char c)
1700c80476e4SDavid E. O'Brien {
1701c80476e4SDavid E. O'Brien     struct Hist *hp;
1702c80476e4SDavid E. O'Brien     int     h;
1703c80476e4SDavid E. O'Brien 
1704c80476e4SDavid E. O'Brien     USE(c);
1705c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1706c80476e4SDavid E. O'Brien 
1707c80476e4SDavid E. O'Brien     if (Hist_num <= 0) {
1708c80476e4SDavid E. O'Brien 	return CC_ERROR;
1709c80476e4SDavid E. O'Brien     }
1710c80476e4SDavid E. O'Brien 
1711c80476e4SDavid E. O'Brien     hp = Histlist.Hnext;
1712c80476e4SDavid E. O'Brien     if (hp == NULL) {	/* this is only if no history */
1713c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1714c80476e4SDavid E. O'Brien     }
1715c80476e4SDavid E. O'Brien 
1716c80476e4SDavid E. O'Brien     for (h = 1; h < Hist_num; h++)
1717c80476e4SDavid E. O'Brien 	hp = hp->Hnext;
1718c80476e4SDavid E. O'Brien 
1719c80476e4SDavid E. O'Brien     if (!CurrentHistLit) {
1720c80476e4SDavid E. O'Brien 	if (hp->histline) {
172145e5710bSMark Peek 	    copyn(InputBuf, hp->histline, INBUFSIZE);/*FIXBUF*/
1722c80476e4SDavid E. O'Brien 	    CurrentHistLit = 1;
1723c80476e4SDavid E. O'Brien 	}
1724c80476e4SDavid E. O'Brien 	else {
1725c80476e4SDavid E. O'Brien 	    return CC_ERROR;
1726c80476e4SDavid E. O'Brien 	}
1727c80476e4SDavid E. O'Brien     }
1728c80476e4SDavid E. O'Brien     else {
172945e5710bSMark Peek 	Char *p;
173045e5710bSMark Peek 
173145e5710bSMark Peek 	p = sprlex(&hp->Hlex);
173245e5710bSMark Peek 	copyn(InputBuf, p, sizeof(InputBuf) / sizeof(Char));/*FIXBUF*/
173345e5710bSMark Peek 	xfree(p);
1734c80476e4SDavid E. O'Brien 	CurrentHistLit = 0;
1735c80476e4SDavid E. O'Brien     }
1736c80476e4SDavid E. O'Brien 
173745e5710bSMark Peek     LastChar = Strend(InputBuf);
1738c80476e4SDavid E. O'Brien     if (LastChar > InputBuf) {
1739c80476e4SDavid E. O'Brien 	if (LastChar[-1] == '\n')
1740c80476e4SDavid E. O'Brien 	    LastChar--;
1741c80476e4SDavid E. O'Brien 	if (LastChar[-1] == ' ')
1742c80476e4SDavid E. O'Brien 	    LastChar--;
1743c80476e4SDavid E. O'Brien 	if (LastChar < InputBuf)
1744c80476e4SDavid E. O'Brien 	    LastChar = InputBuf;
1745c80476e4SDavid E. O'Brien     }
1746c80476e4SDavid E. O'Brien 
1747c80476e4SDavid E. O'Brien #ifdef KSHVI
1748c80476e4SDavid E. O'Brien     if (VImode)
1749c80476e4SDavid E. O'Brien 	Cursor = InputBuf;
1750c80476e4SDavid E. O'Brien     else
1751c80476e4SDavid E. O'Brien #endif /* KSHVI */
1752c80476e4SDavid E. O'Brien 	Cursor = LastChar;
1753c80476e4SDavid E. O'Brien 
1754c80476e4SDavid E. O'Brien     return(CC_REFRESH);
1755c80476e4SDavid E. O'Brien }
1756c80476e4SDavid E. O'Brien 
1757c80476e4SDavid E. O'Brien /*ARGSUSED*/
1758c80476e4SDavid E. O'Brien CCRETVAL
175945e5710bSMark Peek e_up_hist(Char c)
1760c80476e4SDavid E. O'Brien {
1761c80476e4SDavid E. O'Brien     Char    beep = 0;
1762c80476e4SDavid E. O'Brien 
1763c80476e4SDavid E. O'Brien     USE(c);
1764c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_NOP;
1765c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1766c80476e4SDavid E. O'Brien 
1767c80476e4SDavid E. O'Brien     if (Hist_num == 0) {	/* save the current buffer away */
176845e5710bSMark Peek 	HistBuf.len = 0;
176945e5710bSMark Peek 	Strbuf_append(&HistBuf, InputBuf);
177045e5710bSMark Peek 	Strbuf_terminate(&HistBuf);
1771c80476e4SDavid E. O'Brien     }
1772c80476e4SDavid E. O'Brien 
1773c80476e4SDavid E. O'Brien     Hist_num += Argument;
1774c80476e4SDavid E. O'Brien 
177545e5710bSMark Peek     if (GetHistLine() == CC_ERROR) {
1776c80476e4SDavid E. O'Brien 	beep = 1;
177745e5710bSMark Peek 	(void) GetHistLine(); /* Hist_num was fixed by first call */
1778c80476e4SDavid E. O'Brien     }
1779c80476e4SDavid E. O'Brien 
1780c80476e4SDavid E. O'Brien     Refresh();
1781c80476e4SDavid E. O'Brien     if (beep)
1782c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1783c80476e4SDavid E. O'Brien     else
1784c80476e4SDavid E. O'Brien 	return(CC_NORM);	/* was CC_UP_HIST */
1785c80476e4SDavid E. O'Brien }
1786c80476e4SDavid E. O'Brien 
1787c80476e4SDavid E. O'Brien /*ARGSUSED*/
1788c80476e4SDavid E. O'Brien CCRETVAL
178945e5710bSMark Peek e_down_hist(Char c)
1790c80476e4SDavid E. O'Brien {
1791c80476e4SDavid E. O'Brien     USE(c);
1792c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_NOP;
1793c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1794c80476e4SDavid E. O'Brien 
1795c80476e4SDavid E. O'Brien     Hist_num -= Argument;
1796c80476e4SDavid E. O'Brien 
1797c80476e4SDavid E. O'Brien     if (Hist_num < 0) {
1798c80476e4SDavid E. O'Brien 	Hist_num = 0;
1799c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* make it beep */
1800c80476e4SDavid E. O'Brien     }
1801c80476e4SDavid E. O'Brien 
180245e5710bSMark Peek     return(GetHistLine());
1803c80476e4SDavid E. O'Brien }
1804c80476e4SDavid E. O'Brien 
1805c80476e4SDavid E. O'Brien 
1806c80476e4SDavid E. O'Brien 
1807c80476e4SDavid E. O'Brien /*
1808c80476e4SDavid E. O'Brien  * c_hmatch() return True if the pattern matches the prefix
1809c80476e4SDavid E. O'Brien  */
1810c80476e4SDavid E. O'Brien static int
181145e5710bSMark Peek c_hmatch(Char *str)
1812c80476e4SDavid E. O'Brien {
181345e5710bSMark Peek     if (Strncmp(patbuf.s, str, patbuf.len) == 0)
1814c80476e4SDavid E. O'Brien 	return 1;
181545e5710bSMark Peek     return Gmatch(str, patbuf.s);
1816c80476e4SDavid E. O'Brien }
1817c80476e4SDavid E. O'Brien 
1818c80476e4SDavid E. O'Brien /*
1819c80476e4SDavid E. O'Brien  * c_hsetpat(): Set the history seatch pattern
1820c80476e4SDavid E. O'Brien  */
1821c80476e4SDavid E. O'Brien static void
182245e5710bSMark Peek c_hsetpat(void)
1823c80476e4SDavid E. O'Brien {
1824c80476e4SDavid E. O'Brien     if (LastCmd != F_UP_SEARCH_HIST && LastCmd != F_DOWN_SEARCH_HIST) {
182545e5710bSMark Peek 	patbuf.len = 0;
182645e5710bSMark Peek 	Strbuf_appendn(&patbuf, InputBuf, Cursor - InputBuf);
182745e5710bSMark Peek 	Strbuf_terminate(&patbuf);
1828c80476e4SDavid E. O'Brien     }
1829c80476e4SDavid E. O'Brien #ifdef SDEBUG
1830c80476e4SDavid E. O'Brien     xprintf("\nHist_num = %d\n", Hist_num);
183145e5710bSMark Peek     xprintf("patlen = %d\n", (int)patbuf.len);
183245e5710bSMark Peek     xprintf("patbuf = \"%S\"\n", patbuf.s);
1833c80476e4SDavid E. O'Brien     xprintf("Cursor %d LastChar %d\n", Cursor - InputBuf, LastChar - InputBuf);
1834c80476e4SDavid E. O'Brien #endif
1835c80476e4SDavid E. O'Brien }
1836c80476e4SDavid E. O'Brien 
1837c80476e4SDavid E. O'Brien /*ARGSUSED*/
1838c80476e4SDavid E. O'Brien CCRETVAL
183945e5710bSMark Peek e_up_search_hist(Char c)
1840c80476e4SDavid E. O'Brien {
1841c80476e4SDavid E. O'Brien     struct Hist *hp;
1842c80476e4SDavid E. O'Brien     int h;
184323338178SMark Peek     int    found = 0;
1844c80476e4SDavid E. O'Brien 
1845c80476e4SDavid E. O'Brien     USE(c);
1846c80476e4SDavid E. O'Brien     ActionFlag = TCSHOP_NOP;
1847c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_NOP;
1848c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1849c80476e4SDavid E. O'Brien     if (Hist_num < 0) {
1850c80476e4SDavid E. O'Brien #ifdef DEBUG_EDIT
1851c80476e4SDavid E. O'Brien 	xprintf("%s: e_up_search_hist(): Hist_num < 0; resetting.\n", progname);
1852c80476e4SDavid E. O'Brien #endif
1853c80476e4SDavid E. O'Brien 	Hist_num = 0;
1854c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1855c80476e4SDavid E. O'Brien     }
1856c80476e4SDavid E. O'Brien 
185745e5710bSMark Peek     if (Hist_num == 0) {
185845e5710bSMark Peek 	HistBuf.len = 0;
185945e5710bSMark Peek 	Strbuf_append(&HistBuf, InputBuf);
186045e5710bSMark Peek 	Strbuf_terminate(&HistBuf);
1861c80476e4SDavid E. O'Brien     }
1862c80476e4SDavid E. O'Brien 
1863c80476e4SDavid E. O'Brien 
1864c80476e4SDavid E. O'Brien     hp = Histlist.Hnext;
1865c80476e4SDavid E. O'Brien     if (hp == NULL)
1866c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1867c80476e4SDavid E. O'Brien 
1868c80476e4SDavid E. O'Brien     c_hsetpat();		/* Set search pattern !! */
1869c80476e4SDavid E. O'Brien 
1870c80476e4SDavid E. O'Brien     for (h = 1; h <= Hist_num; h++)
1871c80476e4SDavid E. O'Brien 	hp = hp->Hnext;
1872c80476e4SDavid E. O'Brien 
1873c80476e4SDavid E. O'Brien     while (hp != NULL) {
187445e5710bSMark Peek 	Char *hl;
187545e5710bSMark Peek 	int matched;
187645e5710bSMark Peek 
187745e5710bSMark Peek 	if (hp->histline == NULL)
187845e5710bSMark Peek 	    hp->histline = sprlex(&hp->Hlex);
187945e5710bSMark Peek 	if (HistLit)
188045e5710bSMark Peek 	    hl = hp->histline;
188145e5710bSMark Peek 	else {
188245e5710bSMark Peek 	    hl = sprlex(&hp->Hlex);
188345e5710bSMark Peek 	    cleanup_push(hl, xfree);
1884c80476e4SDavid E. O'Brien 	}
1885c80476e4SDavid E. O'Brien #ifdef SDEBUG
1886c80476e4SDavid E. O'Brien 	xprintf("Comparing with \"%S\"\n", hl);
1887c80476e4SDavid E. O'Brien #endif
188845e5710bSMark Peek 	matched = (Strncmp(hl, InputBuf, (size_t) (LastChar - InputBuf)) ||
188945e5710bSMark Peek 		   hl[LastChar-InputBuf]) && c_hmatch(hl);
189045e5710bSMark Peek 	if (!HistLit)
189145e5710bSMark Peek 	    cleanup_until(hl);
189245e5710bSMark Peek 	if (matched) {
1893c80476e4SDavid E. O'Brien 	    found++;
1894c80476e4SDavid E. O'Brien 	    break;
1895c80476e4SDavid E. O'Brien 	}
1896c80476e4SDavid E. O'Brien 	h++;
1897c80476e4SDavid E. O'Brien 	hp = hp->Hnext;
1898c80476e4SDavid E. O'Brien     }
1899c80476e4SDavid E. O'Brien 
1900c80476e4SDavid E. O'Brien     if (!found) {
1901c80476e4SDavid E. O'Brien #ifdef SDEBUG
1902c80476e4SDavid E. O'Brien 	xprintf("not found\n");
1903c80476e4SDavid E. O'Brien #endif
1904c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1905c80476e4SDavid E. O'Brien     }
1906c80476e4SDavid E. O'Brien 
1907c80476e4SDavid E. O'Brien     Hist_num = h;
1908c80476e4SDavid E. O'Brien 
190945e5710bSMark Peek     return(GetHistLine());
1910c80476e4SDavid E. O'Brien }
1911c80476e4SDavid E. O'Brien 
1912c80476e4SDavid E. O'Brien /*ARGSUSED*/
1913c80476e4SDavid E. O'Brien CCRETVAL
191445e5710bSMark Peek e_down_search_hist(Char c)
1915c80476e4SDavid E. O'Brien {
1916c80476e4SDavid E. O'Brien     struct Hist *hp;
1917c80476e4SDavid E. O'Brien     int h;
191823338178SMark Peek     int    found = 0;
1919c80476e4SDavid E. O'Brien 
1920c80476e4SDavid E. O'Brien     USE(c);
1921c80476e4SDavid E. O'Brien     ActionFlag = TCSHOP_NOP;
1922c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_NOP;
1923c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1924c80476e4SDavid E. O'Brien 
1925c80476e4SDavid E. O'Brien     if (Hist_num == 0)
1926c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1927c80476e4SDavid E. O'Brien 
1928c80476e4SDavid E. O'Brien     hp = Histlist.Hnext;
1929c80476e4SDavid E. O'Brien     if (hp == 0)
1930c80476e4SDavid E. O'Brien 	return(CC_ERROR);
1931c80476e4SDavid E. O'Brien 
1932c80476e4SDavid E. O'Brien     c_hsetpat();		/* Set search pattern !! */
1933c80476e4SDavid E. O'Brien 
1934c80476e4SDavid E. O'Brien     for (h = 1; h < Hist_num && hp; h++) {
193545e5710bSMark Peek 	Char *hl;
193645e5710bSMark Peek 	if (hp->histline == NULL)
193745e5710bSMark Peek 	    hp->histline = sprlex(&hp->Hlex);
193845e5710bSMark Peek 	if (HistLit)
193945e5710bSMark Peek 	    hl = hp->histline;
194045e5710bSMark Peek 	else {
194145e5710bSMark Peek 	    hl = sprlex(&hp->Hlex);
194245e5710bSMark Peek 	    cleanup_push(hl, xfree);
1943c80476e4SDavid E. O'Brien 	}
1944c80476e4SDavid E. O'Brien #ifdef SDEBUG
1945c80476e4SDavid E. O'Brien 	xprintf("Comparing with \"%S\"\n", hl);
1946c80476e4SDavid E. O'Brien #endif
1947c80476e4SDavid E. O'Brien 	if ((Strncmp(hl, InputBuf, (size_t) (LastChar - InputBuf)) ||
1948c80476e4SDavid E. O'Brien 	     hl[LastChar-InputBuf]) && c_hmatch(hl))
1949c80476e4SDavid E. O'Brien 	    found = h;
195045e5710bSMark Peek 	if (!HistLit)
195145e5710bSMark Peek 	    cleanup_until(hl);
1952c80476e4SDavid E. O'Brien 	hp = hp->Hnext;
1953c80476e4SDavid E. O'Brien     }
1954c80476e4SDavid E. O'Brien 
1955c80476e4SDavid E. O'Brien     if (!found) {		/* is it the current history number? */
195645e5710bSMark Peek 	if (!c_hmatch(HistBuf.s)) {
1957c80476e4SDavid E. O'Brien #ifdef SDEBUG
1958c80476e4SDavid E. O'Brien 	    xprintf("not found\n");
1959c80476e4SDavid E. O'Brien #endif
1960c80476e4SDavid E. O'Brien 	    return(CC_ERROR);
1961c80476e4SDavid E. O'Brien 	}
1962c80476e4SDavid E. O'Brien     }
1963c80476e4SDavid E. O'Brien 
1964c80476e4SDavid E. O'Brien     Hist_num = found;
1965c80476e4SDavid E. O'Brien 
196645e5710bSMark Peek     return(GetHistLine());
1967c80476e4SDavid E. O'Brien }
1968c80476e4SDavid E. O'Brien 
1969c80476e4SDavid E. O'Brien /*ARGSUSED*/
1970c80476e4SDavid E. O'Brien CCRETVAL
197145e5710bSMark Peek e_helpme(Char c)
1972c80476e4SDavid E. O'Brien {
1973c80476e4SDavid E. O'Brien     USE(c);
1974c80476e4SDavid E. O'Brien     PastBottom();
1975c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1976c80476e4SDavid E. O'Brien     return(CC_HELPME);
1977c80476e4SDavid E. O'Brien }
1978c80476e4SDavid E. O'Brien 
1979c80476e4SDavid E. O'Brien /*ARGSUSED*/
1980c80476e4SDavid E. O'Brien CCRETVAL
198145e5710bSMark Peek e_correct(Char c)
1982c80476e4SDavid E. O'Brien {
1983c80476e4SDavid E. O'Brien     USE(c);
1984c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1985c80476e4SDavid E. O'Brien     return(CC_CORRECT);
1986c80476e4SDavid E. O'Brien }
1987c80476e4SDavid E. O'Brien 
1988c80476e4SDavid E. O'Brien /*ARGSUSED*/
1989c80476e4SDavid E. O'Brien CCRETVAL
199045e5710bSMark Peek e_correctl(Char c)
1991c80476e4SDavid E. O'Brien {
1992c80476e4SDavid E. O'Brien     USE(c);
1993c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
1994c80476e4SDavid E. O'Brien     return(CC_CORRECT_L);
1995c80476e4SDavid E. O'Brien }
1996c80476e4SDavid E. O'Brien 
1997c80476e4SDavid E. O'Brien /*ARGSUSED*/
1998c80476e4SDavid E. O'Brien CCRETVAL
199945e5710bSMark Peek e_run_fg_editor(Char c)
2000c80476e4SDavid E. O'Brien {
20016767bd61SMark Peek     struct process *pp;
2002c80476e4SDavid E. O'Brien 
2003c80476e4SDavid E. O'Brien     USE(c);
2004c80476e4SDavid E. O'Brien     if ((pp = find_stop_ed()) != NULL) {
2005c80476e4SDavid E. O'Brien 	/* save our editor state so we can restore it */
200645e5710bSMark Peek 	c_save_inputbuf();
2007c80476e4SDavid E. O'Brien 	Hist_num = 0;		/* for the history commands */
2008c80476e4SDavid E. O'Brien 
2009c80476e4SDavid E. O'Brien 	/* put the tty in a sane mode */
2010c80476e4SDavid E. O'Brien 	PastBottom();
2011c80476e4SDavid E. O'Brien 	(void) Cookedmode();	/* make sure the tty is set up correctly */
2012c80476e4SDavid E. O'Brien 
2013c80476e4SDavid E. O'Brien 	/* do it! */
2014c80476e4SDavid E. O'Brien 	fg_proc_entry(pp);
2015c80476e4SDavid E. O'Brien 
2016c80476e4SDavid E. O'Brien 	(void) Rawmode();	/* go on */
2017c80476e4SDavid E. O'Brien 	Refresh();
201845e5710bSMark Peek 	RestoreSaved = 0;
201945e5710bSMark Peek 	HistSaved = 0;
2020c80476e4SDavid E. O'Brien     }
2021c80476e4SDavid E. O'Brien     return(CC_NORM);
2022c80476e4SDavid E. O'Brien }
2023c80476e4SDavid E. O'Brien 
2024c80476e4SDavid E. O'Brien /*ARGSUSED*/
2025c80476e4SDavid E. O'Brien CCRETVAL
202645e5710bSMark Peek e_list_choices(Char c)
2027c80476e4SDavid E. O'Brien {
2028c80476e4SDavid E. O'Brien     USE(c);
2029c80476e4SDavid E. O'Brien     PastBottom();
2030c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2031c80476e4SDavid E. O'Brien     return(CC_LIST_CHOICES);
2032c80476e4SDavid E. O'Brien }
2033c80476e4SDavid E. O'Brien 
2034c80476e4SDavid E. O'Brien /*ARGSUSED*/
2035c80476e4SDavid E. O'Brien CCRETVAL
203645e5710bSMark Peek e_list_all(Char c)
2037c80476e4SDavid E. O'Brien {
2038c80476e4SDavid E. O'Brien     USE(c);
2039c80476e4SDavid E. O'Brien     PastBottom();
2040c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2041c80476e4SDavid E. O'Brien     return(CC_LIST_ALL);
2042c80476e4SDavid E. O'Brien }
2043c80476e4SDavid E. O'Brien 
2044c80476e4SDavid E. O'Brien /*ARGSUSED*/
2045c80476e4SDavid E. O'Brien CCRETVAL
204645e5710bSMark Peek e_list_glob(Char c)
2047c80476e4SDavid E. O'Brien {
2048c80476e4SDavid E. O'Brien     USE(c);
2049c80476e4SDavid E. O'Brien     PastBottom();
2050c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2051c80476e4SDavid E. O'Brien     return(CC_LIST_GLOB);
2052c80476e4SDavid E. O'Brien }
2053c80476e4SDavid E. O'Brien 
2054c80476e4SDavid E. O'Brien /*ARGSUSED*/
2055c80476e4SDavid E. O'Brien CCRETVAL
205645e5710bSMark Peek e_expand_glob(Char c)
2057c80476e4SDavid E. O'Brien {
2058c80476e4SDavid E. O'Brien     USE(c);
2059c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2060c80476e4SDavid E. O'Brien     return(CC_EXPAND_GLOB);
2061c80476e4SDavid E. O'Brien }
2062c80476e4SDavid E. O'Brien 
2063c80476e4SDavid E. O'Brien /*ARGSUSED*/
2064c80476e4SDavid E. O'Brien CCRETVAL
206545e5710bSMark Peek e_normalize_path(Char c)
2066c80476e4SDavid E. O'Brien {
2067c80476e4SDavid E. O'Brien     USE(c);
2068c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2069c80476e4SDavid E. O'Brien     return(CC_NORMALIZE_PATH);
2070c80476e4SDavid E. O'Brien }
2071c80476e4SDavid E. O'Brien 
2072c80476e4SDavid E. O'Brien /*ARGSUSED*/
2073c80476e4SDavid E. O'Brien CCRETVAL
207445e5710bSMark Peek e_normalize_command(Char c)
2075c80476e4SDavid E. O'Brien {
2076c80476e4SDavid E. O'Brien     USE(c);
2077c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2078c80476e4SDavid E. O'Brien     return(CC_NORMALIZE_COMMAND);
2079c80476e4SDavid E. O'Brien }
2080c80476e4SDavid E. O'Brien 
2081c80476e4SDavid E. O'Brien /*ARGSUSED*/
2082c80476e4SDavid E. O'Brien CCRETVAL
208345e5710bSMark Peek e_expand_vars(Char c)
2084c80476e4SDavid E. O'Brien {
2085c80476e4SDavid E. O'Brien     USE(c);
2086c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2087c80476e4SDavid E. O'Brien     return(CC_EXPAND_VARS);
2088c80476e4SDavid E. O'Brien }
2089c80476e4SDavid E. O'Brien 
2090c80476e4SDavid E. O'Brien /*ARGSUSED*/
2091c80476e4SDavid E. O'Brien CCRETVAL
209245e5710bSMark Peek e_which(Char c)
2093c80476e4SDavid E. O'Brien {				/* do a fast command line which(1) */
2094c80476e4SDavid E. O'Brien     USE(c);
209545e5710bSMark Peek     c_save_inputbuf();
209645e5710bSMark Peek     Hist_num = 0;		/* for the history commands */
2097c80476e4SDavid E. O'Brien     PastBottom();
2098c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
2099c80476e4SDavid E. O'Brien     return(CC_WHICH);
2100c80476e4SDavid E. O'Brien }
2101c80476e4SDavid E. O'Brien 
2102c80476e4SDavid E. O'Brien /*ARGSUSED*/
2103c80476e4SDavid E. O'Brien CCRETVAL
210445e5710bSMark Peek e_last_item(Char c)
2105c80476e4SDavid E. O'Brien {				/* insert the last element of the prev. cmd */
21066767bd61SMark Peek     struct Hist *hp;
21076767bd61SMark Peek     struct wordent *wp, *firstp;
21086767bd61SMark Peek     int i;
210945e5710bSMark Peek     Char *expanded;
2110c80476e4SDavid E. O'Brien 
2111c80476e4SDavid E. O'Brien     USE(c);
2112c80476e4SDavid E. O'Brien     if (Argument <= 0)
2113c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2114c80476e4SDavid E. O'Brien 
2115c80476e4SDavid E. O'Brien     hp = Histlist.Hnext;
2116c80476e4SDavid E. O'Brien     if (hp == NULL) {	/* this is only if no history */
2117c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2118c80476e4SDavid E. O'Brien     }
2119c80476e4SDavid E. O'Brien 
2120c80476e4SDavid E. O'Brien     wp = (hp->Hlex).prev;
2121c80476e4SDavid E. O'Brien 
2122c80476e4SDavid E. O'Brien     if (wp->prev == (struct wordent *) NULL)
2123c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* an empty history entry */
2124c80476e4SDavid E. O'Brien 
2125c80476e4SDavid E. O'Brien     firstp = (hp->Hlex).next;
2126c80476e4SDavid E. O'Brien 
2127c80476e4SDavid E. O'Brien     /* back up arg words in lex */
2128c80476e4SDavid E. O'Brien     for (i = 0; i < Argument && wp != firstp; i++) {
2129c80476e4SDavid E. O'Brien 	wp = wp->prev;
2130c80476e4SDavid E. O'Brien     }
2131c80476e4SDavid E. O'Brien 
213245e5710bSMark Peek     expanded = expand_lex(wp->prev, 0, i - 1);
213345e5710bSMark Peek     if (InsertStr(expanded)) {
213445e5710bSMark Peek 	xfree(expanded);
2135c80476e4SDavid E. O'Brien 	return(CC_ERROR);
213645e5710bSMark Peek     }
2137c80476e4SDavid E. O'Brien 
213845e5710bSMark Peek     xfree(expanded);
2139c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2140c80476e4SDavid E. O'Brien }
2141c80476e4SDavid E. O'Brien 
2142c80476e4SDavid E. O'Brien /*ARGSUSED*/
2143c80476e4SDavid E. O'Brien CCRETVAL
214445e5710bSMark Peek e_dabbrev_expand(Char c)
2145c80476e4SDavid E. O'Brien {				/* expand to preceding word matching prefix */
21466767bd61SMark Peek     Char *cp, *ncp, *bp;
21476767bd61SMark Peek     struct Hist *hp;
214845e5710bSMark Peek     int arg = 0, i;
214945e5710bSMark Peek     size_t len = 0;
215023338178SMark Peek     int found = 0;
215145e5710bSMark Peek     Char *hbuf;
2152c80476e4SDavid E. O'Brien     static int oldevent, hist, word;
2153c80476e4SDavid E. O'Brien     static Char *start, *oldcursor;
2154c80476e4SDavid E. O'Brien 
2155c80476e4SDavid E. O'Brien     USE(c);
2156c80476e4SDavid E. O'Brien     if (Argument <= 0)
2157c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2158c80476e4SDavid E. O'Brien 
21596767bd61SMark Peek     cp = c_preword(Cursor, InputBuf, 1, STRshwordsep);
2160c80476e4SDavid E. O'Brien     if (cp == Cursor || Isspace(*cp))
2161c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2162c80476e4SDavid E. O'Brien 
216345e5710bSMark Peek     hbuf = NULL;
2164c80476e4SDavid E. O'Brien     hp = Histlist.Hnext;
2165c80476e4SDavid E. O'Brien     bp = InputBuf;
2166c80476e4SDavid E. O'Brien     if (Argument == 1 && eventno == oldevent && cp == start &&
216745e5710bSMark Peek 	Cursor == oldcursor && patbuf.len > 0
216845e5710bSMark Peek 	&& Strncmp(patbuf.s, cp, patbuf.len) == 0){
2169c80476e4SDavid E. O'Brien 	/* continue previous search - go to last match (hist/word) */
2170c80476e4SDavid E. O'Brien 	if (hist != 0) {		/* need to move up history */
2171c80476e4SDavid E. O'Brien 	    for (i = 1; i < hist && hp != NULL; i++)
2172c80476e4SDavid E. O'Brien 		hp = hp->Hnext;
2173c80476e4SDavid E. O'Brien 	    if (hp == NULL)	/* "can't happen" */
217445e5710bSMark Peek 		goto err_hbuf;
217545e5710bSMark Peek 	    hbuf = expand_lex(&hp->Hlex, 0, INT_MAX);
217645e5710bSMark Peek 	    cp = Strend(hbuf);
2177c80476e4SDavid E. O'Brien 	    bp = hbuf;
2178c80476e4SDavid E. O'Brien 	    hp = hp->Hnext;
2179c80476e4SDavid E. O'Brien 	}
21806767bd61SMark Peek 	cp = c_preword(cp, bp, word, STRshwordsep);
2181c80476e4SDavid E. O'Brien     } else {			/* starting new search */
2182c80476e4SDavid E. O'Brien 	oldevent = eventno;
2183c80476e4SDavid E. O'Brien 	start = cp;
218445e5710bSMark Peek 	patbuf.len = 0;
218545e5710bSMark Peek 	Strbuf_appendn(&patbuf, cp, Cursor - cp);
2186c80476e4SDavid E. O'Brien 	hist = 0;
2187c80476e4SDavid E. O'Brien 	word = 0;
2188c80476e4SDavid E. O'Brien     }
2189c80476e4SDavid E. O'Brien 
2190c80476e4SDavid E. O'Brien     while (!found) {
21916767bd61SMark Peek 	ncp = c_preword(cp, bp, 1, STRshwordsep);
2192c80476e4SDavid E. O'Brien 	if (ncp == cp || Isspace(*ncp)) { /* beginning of line */
2193c80476e4SDavid E. O'Brien 	    hist++;
2194c80476e4SDavid E. O'Brien 	    word = 0;
2195c80476e4SDavid E. O'Brien 	    if (hp == NULL)
219645e5710bSMark Peek 		goto err_hbuf;
219745e5710bSMark Peek 	    hbuf = expand_lex(&hp->Hlex, 0, INT_MAX);
219845e5710bSMark Peek 	    cp = Strend(hbuf);
2199c80476e4SDavid E. O'Brien 	    bp = hbuf;
2200c80476e4SDavid E. O'Brien 	    hp = hp->Hnext;
2201c80476e4SDavid E. O'Brien 	    continue;
2202c80476e4SDavid E. O'Brien 	} else {
2203c80476e4SDavid E. O'Brien 	    word++;
220445e5710bSMark Peek 	    len = c_endword(ncp-1, cp, 1, STRshwordsep) - ncp + 1;
2205c80476e4SDavid E. O'Brien 	    cp = ncp;
2206c80476e4SDavid E. O'Brien 	}
220745e5710bSMark Peek 	if (len > patbuf.len && Strncmp(cp, patbuf.s, patbuf.len) == 0) {
2208c80476e4SDavid E. O'Brien 	    /* We don't fully check distinct matches as Gnuemacs does: */
2209c80476e4SDavid E. O'Brien 	    if (Argument > 1) {	/* just count matches */
2210c80476e4SDavid E. O'Brien 		if (++arg >= Argument)
2211c80476e4SDavid E. O'Brien 		    found++;
2212c80476e4SDavid E. O'Brien 	    } else {		/* match if distinct from previous */
221345e5710bSMark Peek 		if (len != (size_t)(Cursor - start)
221445e5710bSMark Peek 		    || Strncmp(cp, start, len) != 0)
2215c80476e4SDavid E. O'Brien 		    found++;
2216c80476e4SDavid E. O'Brien 	    }
2217c80476e4SDavid E. O'Brien 	}
2218c80476e4SDavid E. O'Brien     }
2219c80476e4SDavid E. O'Brien 
2220c80476e4SDavid E. O'Brien     if (LastChar + len - (Cursor - start) >= InputLim)
222145e5710bSMark Peek 	goto err_hbuf;	/* no room */
2222c80476e4SDavid E. O'Brien     DeleteBack(Cursor - start);
2223c80476e4SDavid E. O'Brien     c_insert(len);
2224c80476e4SDavid E. O'Brien     while (len--)
2225c80476e4SDavid E. O'Brien 	*Cursor++ = *cp++;
2226c80476e4SDavid E. O'Brien     oldcursor = Cursor;
222745e5710bSMark Peek     xfree(hbuf);
2228c80476e4SDavid E. O'Brien     return(CC_REFRESH);
222945e5710bSMark Peek 
223045e5710bSMark Peek  err_hbuf:
223145e5710bSMark Peek     xfree(hbuf);
223245e5710bSMark Peek     return CC_ERROR;
2233c80476e4SDavid E. O'Brien }
2234c80476e4SDavid E. O'Brien 
2235c80476e4SDavid E. O'Brien /*ARGSUSED*/
2236c80476e4SDavid E. O'Brien CCRETVAL
223745e5710bSMark Peek e_yank_kill(Char c)
2238c80476e4SDavid E. O'Brien {				/* almost like GnuEmacs */
22396767bd61SMark Peek     int len;
22406767bd61SMark Peek     Char *kp, *cp;
2241c80476e4SDavid E. O'Brien 
2242c80476e4SDavid E. O'Brien     USE(c);
22436767bd61SMark Peek     if (KillRingLen == 0)	/* nothing killed */
2244c80476e4SDavid E. O'Brien 	return(CC_ERROR);
22456767bd61SMark Peek     len = Strlen(KillRing[YankPos].buf);
22466767bd61SMark Peek     if (LastChar + len >= InputLim)
2247c80476e4SDavid E. O'Brien 	return(CC_ERROR);	/* end of buffer space */
2248c80476e4SDavid E. O'Brien 
2249c80476e4SDavid E. O'Brien     /* else */
2250c80476e4SDavid E. O'Brien     cp = Cursor;		/* for speed */
2251c80476e4SDavid E. O'Brien 
22526767bd61SMark Peek     c_insert(len);		/* open the space, */
22536767bd61SMark Peek     for (kp = KillRing[YankPos].buf; *kp; kp++)	/* copy the chars */
2254c80476e4SDavid E. O'Brien 	*cp++ = *kp;
2255c80476e4SDavid E. O'Brien 
22566767bd61SMark Peek     if (Argument == 1) {	/* if no arg */
22576767bd61SMark Peek 	Mark = Cursor;		/* mark at beginning, cursor at end */
22586767bd61SMark Peek 	Cursor = cp;
22596767bd61SMark Peek     } else {
22606767bd61SMark Peek 	Mark = cp;		/* else cursor at beginning, mark at end */
22616767bd61SMark Peek     }
22626767bd61SMark Peek 
226345e5710bSMark Peek     if (adrof(STRhighlight) && MarkIsSet) {
226445e5710bSMark Peek 	ClearLines();
226545e5710bSMark Peek 	ClearDisp();
226645e5710bSMark Peek     }
226745e5710bSMark Peek     MarkIsSet = 0;
22686767bd61SMark Peek     return(CC_REFRESH);
22696767bd61SMark Peek }
22706767bd61SMark Peek 
22716767bd61SMark Peek /*ARGSUSED*/
22726767bd61SMark Peek CCRETVAL
227345e5710bSMark Peek e_yank_pop(Char c)
22746767bd61SMark Peek {				/* almost like GnuEmacs */
22756767bd61SMark Peek     int m_bef_c, del_len, ins_len;
22766767bd61SMark Peek     Char *kp, *cp;
22776767bd61SMark Peek 
22786767bd61SMark Peek     USE(c);
22796767bd61SMark Peek 
22806767bd61SMark Peek #if 0
22816767bd61SMark Peek     /* XXX This "should" be here, but doesn't work, since LastCmd
22826767bd61SMark Peek        gets set on CC_ERROR and CC_ARGHACK, which it shouldn't(?).
22836767bd61SMark Peek        (But what about F_ARGFOUR?) I.e. if you hit M-y twice the
22846767bd61SMark Peek        second one will "succeed" even if the first one wasn't preceded
22856767bd61SMark Peek        by a yank, and giving an argument is impossible. Now we "succeed"
22866767bd61SMark Peek        regardless of previous command, which is wrong too of course. */
22876767bd61SMark Peek     if (LastCmd != F_YANK_KILL && LastCmd != F_YANK_POP)
22886767bd61SMark Peek 	return(CC_ERROR);
22896767bd61SMark Peek #endif
22906767bd61SMark Peek 
22916767bd61SMark Peek     if (KillRingLen == 0)	/* nothing killed */
22926767bd61SMark Peek 	return(CC_ERROR);
22936767bd61SMark Peek     YankPos -= Argument;
22946767bd61SMark Peek     while (YankPos < 0)
22956767bd61SMark Peek 	YankPos += KillRingLen;
22966767bd61SMark Peek     YankPos %= KillRingLen;
22976767bd61SMark Peek 
22986767bd61SMark Peek     if (Cursor > Mark) {
22996767bd61SMark Peek 	del_len = Cursor - Mark;
23006767bd61SMark Peek 	m_bef_c = 1;
23016767bd61SMark Peek     } else {
23026767bd61SMark Peek 	del_len = Mark - Cursor;
23036767bd61SMark Peek 	m_bef_c = 0;
23046767bd61SMark Peek     }
23056767bd61SMark Peek     ins_len = Strlen(KillRing[YankPos].buf);
23066767bd61SMark Peek     if (LastChar + ins_len - del_len >= InputLim)
23076767bd61SMark Peek 	return(CC_ERROR);	/* end of buffer space */
23086767bd61SMark Peek 
23096767bd61SMark Peek     if (m_bef_c) {
23106767bd61SMark Peek 	c_delbefore(del_len);
23116767bd61SMark Peek     } else {
23126767bd61SMark Peek 	c_delafter(del_len);
23136767bd61SMark Peek     }
23146767bd61SMark Peek     cp = Cursor;		/* for speed */
23156767bd61SMark Peek 
23166767bd61SMark Peek     c_insert(ins_len);		/* open the space, */
23176767bd61SMark Peek     for (kp = KillRing[YankPos].buf; *kp; kp++)	/* copy the chars */
23186767bd61SMark Peek 	*cp++ = *kp;
23196767bd61SMark Peek 
23206767bd61SMark Peek     if (m_bef_c) {
23216767bd61SMark Peek 	Mark = Cursor;		/* mark at beginning, cursor at end */
23226767bd61SMark Peek 	Cursor = cp;
23236767bd61SMark Peek     } else {
23246767bd61SMark Peek 	Mark = cp;		/* else cursor at beginning, mark at end */
23256767bd61SMark Peek     }
2326c80476e4SDavid E. O'Brien 
232745e5710bSMark Peek     if (adrof(STRhighlight) && MarkIsSet) {
232845e5710bSMark Peek 	ClearLines();
232945e5710bSMark Peek 	ClearDisp();
233045e5710bSMark Peek     }
233145e5710bSMark Peek     MarkIsSet = 0;
2332c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2333c80476e4SDavid E. O'Brien }
2334c80476e4SDavid E. O'Brien 
2335c80476e4SDavid E. O'Brien /*ARGSUSED*/
2336c80476e4SDavid E. O'Brien CCRETVAL
233745e5710bSMark Peek v_delprev(Char c) 		/* Backspace key in insert mode */
2338c80476e4SDavid E. O'Brien {
2339c80476e4SDavid E. O'Brien     int rc;
2340c80476e4SDavid E. O'Brien 
2341c80476e4SDavid E. O'Brien     USE(c);
2342c80476e4SDavid E. O'Brien     rc = CC_ERROR;
2343c80476e4SDavid E. O'Brien 
2344c80476e4SDavid E. O'Brien     if (InsertPos != 0) {
2345c80476e4SDavid E. O'Brien 	if (Argument <= Cursor - InsertPos) {
2346c80476e4SDavid E. O'Brien 	    c_delbefore(Argument);	/* delete before */
2347c80476e4SDavid E. O'Brien 	    rc = CC_REFRESH;
2348c80476e4SDavid E. O'Brien 	}
2349c80476e4SDavid E. O'Brien     }
2350c80476e4SDavid E. O'Brien     return(rc);
2351c80476e4SDavid E. O'Brien }   /* v_delprev  */
2352c80476e4SDavid E. O'Brien 
2353c80476e4SDavid E. O'Brien /*ARGSUSED*/
2354c80476e4SDavid E. O'Brien CCRETVAL
235545e5710bSMark Peek e_delprev(Char c)
2356c80476e4SDavid E. O'Brien {
2357c80476e4SDavid E. O'Brien     USE(c);
2358c80476e4SDavid E. O'Brien     if (Cursor > InputBuf) {
2359c80476e4SDavid E. O'Brien 	c_delbefore(Argument);	/* delete before dot */
2360c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2361c80476e4SDavid E. O'Brien     }
2362c80476e4SDavid E. O'Brien     else {
2363c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2364c80476e4SDavid E. O'Brien     }
2365c80476e4SDavid E. O'Brien }
2366c80476e4SDavid E. O'Brien 
2367c80476e4SDavid E. O'Brien /*ARGSUSED*/
2368c80476e4SDavid E. O'Brien CCRETVAL
236945e5710bSMark Peek e_delwordprev(Char c)
2370c80476e4SDavid E. O'Brien {
23716767bd61SMark Peek     Char *cp;
2372c80476e4SDavid E. O'Brien 
2373c80476e4SDavid E. O'Brien     USE(c);
2374c80476e4SDavid E. O'Brien     if (Cursor == InputBuf)
2375c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2376c80476e4SDavid E. O'Brien     /* else */
2377c80476e4SDavid E. O'Brien 
2378c80476e4SDavid E. O'Brien     cp = c_prev_word(Cursor, InputBuf, Argument);
2379c80476e4SDavid E. O'Brien 
23806767bd61SMark Peek     c_push_kill(cp, Cursor);	/* save the text */
2381c80476e4SDavid E. O'Brien 
2382c80476e4SDavid E. O'Brien     c_delbefore((int)(Cursor - cp));	/* delete before dot */
2383c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2384c80476e4SDavid E. O'Brien }
2385c80476e4SDavid E. O'Brien 
2386c80476e4SDavid E. O'Brien /* DCS <dcs@neutron.chem.yale.edu>, 9 Oct 93
2387c80476e4SDavid E. O'Brien  *
2388c80476e4SDavid E. O'Brien  * Changed the names of some of the ^D family of editor functions to
2389c80476e4SDavid E. O'Brien  * correspond to what they actually do and created new e_delnext_list
2390c80476e4SDavid E. O'Brien  * for completeness.
2391c80476e4SDavid E. O'Brien  *
2392c80476e4SDavid E. O'Brien  *   Old names:			New names:
2393c80476e4SDavid E. O'Brien  *
2394c80476e4SDavid E. O'Brien  *   delete-char		delete-char-or-eof
2395c80476e4SDavid E. O'Brien  *     F_DELNEXT		  F_DELNEXT_EOF
2396c80476e4SDavid E. O'Brien  *     e_delnext		  e_delnext_eof
2397c80476e4SDavid E. O'Brien  *     edelnxt			  edelnxteof
2398c80476e4SDavid E. O'Brien  *   delete-char-or-eof		delete-char
2399c80476e4SDavid E. O'Brien  *     F_DELNEXT_EOF		  F_DELNEXT
2400c80476e4SDavid E. O'Brien  *     e_delnext_eof		  e_delnext
2401c80476e4SDavid E. O'Brien  *     edelnxteof		  edelnxt
2402c80476e4SDavid E. O'Brien  *   delete-char-or-list	delete-char-or-list-or-eof
2403c80476e4SDavid E. O'Brien  *     F_LIST_DELNEXT		  F_DELNEXT_LIST_EOF
2404c80476e4SDavid E. O'Brien  *     e_list_delnext		  e_delnext_list_eof
2405c80476e4SDavid E. O'Brien  *   				  edellsteof
2406c80476e4SDavid E. O'Brien  *   (no old equivalent)	delete-char-or-list
2407c80476e4SDavid E. O'Brien  *   				  F_DELNEXT_LIST
2408c80476e4SDavid E. O'Brien  *   				  e_delnext_list
2409c80476e4SDavid E. O'Brien  *   				  e_delnxtlst
2410c80476e4SDavid E. O'Brien  */
2411c80476e4SDavid E. O'Brien 
2412c80476e4SDavid E. O'Brien /* added by mtk@ari.ncl.omron.co.jp (920818) */
2413c80476e4SDavid E. O'Brien /* rename e_delnext() -> e_delnext_eof() */
2414c80476e4SDavid E. O'Brien /*ARGSUSED*/
2415c80476e4SDavid E. O'Brien CCRETVAL
241645e5710bSMark Peek e_delnext(Char c)
2417c80476e4SDavid E. O'Brien {
2418c80476e4SDavid E. O'Brien     USE(c);
2419c80476e4SDavid E. O'Brien     if (Cursor == LastChar) {/* if I'm at the end */
2420c80476e4SDavid E. O'Brien 	if (!VImode) {
2421c80476e4SDavid E. O'Brien 		return(CC_ERROR);
2422c80476e4SDavid E. O'Brien 	}
2423c80476e4SDavid E. O'Brien 	else {
2424c80476e4SDavid E. O'Brien 	    if (Cursor != InputBuf)
2425c80476e4SDavid E. O'Brien 		Cursor--;
2426c80476e4SDavid E. O'Brien 	    else
2427c80476e4SDavid E. O'Brien 		return(CC_ERROR);
2428c80476e4SDavid E. O'Brien 	}
2429c80476e4SDavid E. O'Brien     }
2430c80476e4SDavid E. O'Brien     c_delafter(Argument);	/* delete after dot */
2431c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
2432c80476e4SDavid E. O'Brien 	Cursor = LastChar;	/* bounds check */
2433c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2434c80476e4SDavid E. O'Brien }
2435c80476e4SDavid E. O'Brien 
2436c80476e4SDavid E. O'Brien 
2437c80476e4SDavid E. O'Brien /*ARGSUSED*/
2438c80476e4SDavid E. O'Brien CCRETVAL
243945e5710bSMark Peek e_delnext_eof(Char c)
2440c80476e4SDavid E. O'Brien {
2441c80476e4SDavid E. O'Brien     USE(c);
2442c80476e4SDavid E. O'Brien     if (Cursor == LastChar) {/* if I'm at the end */
2443c80476e4SDavid E. O'Brien 	if (!VImode) {
2444c80476e4SDavid E. O'Brien 	    if (Cursor == InputBuf) {
2445c80476e4SDavid E. O'Brien 		/* if I'm also at the beginning */
2446c80476e4SDavid E. O'Brien 		so_write(STReof, 4);/* then do a EOF */
2447c80476e4SDavid E. O'Brien 		flush();
2448c80476e4SDavid E. O'Brien 		return(CC_EOF);
2449c80476e4SDavid E. O'Brien 	    }
2450c80476e4SDavid E. O'Brien 	    else
2451c80476e4SDavid E. O'Brien 		return(CC_ERROR);
2452c80476e4SDavid E. O'Brien 	}
2453c80476e4SDavid E. O'Brien 	else {
2454c80476e4SDavid E. O'Brien 	    if (Cursor != InputBuf)
2455c80476e4SDavid E. O'Brien 		Cursor--;
2456c80476e4SDavid E. O'Brien 	    else
2457c80476e4SDavid E. O'Brien 		return(CC_ERROR);
2458c80476e4SDavid E. O'Brien 	}
2459c80476e4SDavid E. O'Brien     }
2460c80476e4SDavid E. O'Brien     c_delafter(Argument);	/* delete after dot */
2461c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
2462c80476e4SDavid E. O'Brien 	Cursor = LastChar;	/* bounds check */
2463c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2464c80476e4SDavid E. O'Brien }
2465c80476e4SDavid E. O'Brien 
2466c80476e4SDavid E. O'Brien /*ARGSUSED*/
2467c80476e4SDavid E. O'Brien CCRETVAL
246845e5710bSMark Peek e_delnext_list(Char c)
2469c80476e4SDavid E. O'Brien {
2470c80476e4SDavid E. O'Brien     USE(c);
2471c80476e4SDavid E. O'Brien     if (Cursor == LastChar) {	/* if I'm at the end */
2472c80476e4SDavid E. O'Brien 	PastBottom();
2473c80476e4SDavid E. O'Brien 	*LastChar = '\0';	/* just in case */
2474c80476e4SDavid E. O'Brien 	return(CC_LIST_CHOICES);
2475c80476e4SDavid E. O'Brien     }
2476c80476e4SDavid E. O'Brien     else {
2477c80476e4SDavid E. O'Brien 	c_delafter(Argument);	/* delete after dot */
2478c80476e4SDavid E. O'Brien 	if (Cursor > LastChar)
2479c80476e4SDavid E. O'Brien 	    Cursor = LastChar;	/* bounds check */
2480c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2481c80476e4SDavid E. O'Brien     }
2482c80476e4SDavid E. O'Brien }
2483c80476e4SDavid E. O'Brien 
2484c80476e4SDavid E. O'Brien /*ARGSUSED*/
2485c80476e4SDavid E. O'Brien CCRETVAL
248645e5710bSMark Peek e_delnext_list_eof(Char c)
2487c80476e4SDavid E. O'Brien {
2488c80476e4SDavid E. O'Brien     USE(c);
2489c80476e4SDavid E. O'Brien     if (Cursor == LastChar) {	/* if I'm at the end */
2490c80476e4SDavid E. O'Brien 	if (Cursor == InputBuf) {	/* if I'm also at the beginning */
2491c80476e4SDavid E. O'Brien 	    so_write(STReof, 4);/* then do a EOF */
2492c80476e4SDavid E. O'Brien 	    flush();
2493c80476e4SDavid E. O'Brien 	    return(CC_EOF);
2494c80476e4SDavid E. O'Brien 	}
2495c80476e4SDavid E. O'Brien 	else {
2496c80476e4SDavid E. O'Brien 	    PastBottom();
2497c80476e4SDavid E. O'Brien 	    *LastChar = '\0';	/* just in case */
2498c80476e4SDavid E. O'Brien 	    return(CC_LIST_CHOICES);
2499c80476e4SDavid E. O'Brien 	}
2500c80476e4SDavid E. O'Brien     }
2501c80476e4SDavid E. O'Brien     else {
2502c80476e4SDavid E. O'Brien 	c_delafter(Argument);	/* delete after dot */
2503c80476e4SDavid E. O'Brien 	if (Cursor > LastChar)
2504c80476e4SDavid E. O'Brien 	    Cursor = LastChar;	/* bounds check */
2505c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2506c80476e4SDavid E. O'Brien     }
2507c80476e4SDavid E. O'Brien }
2508c80476e4SDavid E. O'Brien 
2509c80476e4SDavid E. O'Brien /*ARGSUSED*/
2510c80476e4SDavid E. O'Brien CCRETVAL
251145e5710bSMark Peek e_list_eof(Char c)
2512c80476e4SDavid E. O'Brien {
2513c80476e4SDavid E. O'Brien     CCRETVAL rv;
2514c80476e4SDavid E. O'Brien 
2515c80476e4SDavid E. O'Brien     USE(c);
2516c80476e4SDavid E. O'Brien     if (Cursor == LastChar && Cursor == InputBuf) {
2517c80476e4SDavid E. O'Brien 	so_write(STReof, 4);	/* then do a EOF */
2518c80476e4SDavid E. O'Brien 	flush();
2519c80476e4SDavid E. O'Brien 	rv = CC_EOF;
2520c80476e4SDavid E. O'Brien     }
2521c80476e4SDavid E. O'Brien     else {
2522c80476e4SDavid E. O'Brien 	PastBottom();
2523c80476e4SDavid E. O'Brien 	*LastChar = '\0';	/* just in case */
2524c80476e4SDavid E. O'Brien 	rv = CC_LIST_CHOICES;
2525c80476e4SDavid E. O'Brien     }
2526c80476e4SDavid E. O'Brien     return rv;
2527c80476e4SDavid E. O'Brien }
2528c80476e4SDavid E. O'Brien 
2529c80476e4SDavid E. O'Brien /*ARGSUSED*/
2530c80476e4SDavid E. O'Brien CCRETVAL
253145e5710bSMark Peek e_delwordnext(Char c)
2532c80476e4SDavid E. O'Brien {
25336767bd61SMark Peek     Char *cp;
2534c80476e4SDavid E. O'Brien 
2535c80476e4SDavid E. O'Brien     USE(c);
2536c80476e4SDavid E. O'Brien     if (Cursor == LastChar)
2537c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2538c80476e4SDavid E. O'Brien     /* else */
2539c80476e4SDavid E. O'Brien 
2540c80476e4SDavid E. O'Brien     cp = c_next_word(Cursor, LastChar, Argument);
2541c80476e4SDavid E. O'Brien 
25426767bd61SMark Peek     c_push_kill(Cursor, cp);	/* save the text */
2543c80476e4SDavid E. O'Brien 
2544c80476e4SDavid E. O'Brien     c_delafter((int)(cp - Cursor));	/* delete after dot */
2545c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
2546c80476e4SDavid E. O'Brien 	Cursor = LastChar;	/* bounds check */
2547c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2548c80476e4SDavid E. O'Brien }
2549c80476e4SDavid E. O'Brien 
2550c80476e4SDavid E. O'Brien /*ARGSUSED*/
2551c80476e4SDavid E. O'Brien CCRETVAL
255245e5710bSMark Peek e_toend(Char c)
2553c80476e4SDavid E. O'Brien {
2554c80476e4SDavid E. O'Brien     USE(c);
2555c80476e4SDavid E. O'Brien     Cursor = LastChar;
2556c80476e4SDavid E. O'Brien     if (VImode)
2557c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
2558c80476e4SDavid E. O'Brien 	    c_delfini();
2559c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
2560c80476e4SDavid E. O'Brien 	}
2561c80476e4SDavid E. O'Brien     RefCursor();		/* move the cursor */
2562c80476e4SDavid E. O'Brien     return(CC_NORM);
2563c80476e4SDavid E. O'Brien }
2564c80476e4SDavid E. O'Brien 
2565c80476e4SDavid E. O'Brien /*ARGSUSED*/
2566c80476e4SDavid E. O'Brien CCRETVAL
256745e5710bSMark Peek e_tobeg(Char c)
2568c80476e4SDavid E. O'Brien {
2569c80476e4SDavid E. O'Brien     USE(c);
2570c80476e4SDavid E. O'Brien     Cursor = InputBuf;
2571c80476e4SDavid E. O'Brien 
2572c80476e4SDavid E. O'Brien     if (VImode) {
2573c80476e4SDavid E. O'Brien        while (Isspace(*Cursor)) /* We want FIRST non space character */
2574c80476e4SDavid E. O'Brien 	Cursor++;
2575c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
2576c80476e4SDavid E. O'Brien 	    c_delfini();
2577c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
2578c80476e4SDavid E. O'Brien 	}
2579c80476e4SDavid E. O'Brien     }
2580c80476e4SDavid E. O'Brien 
2581c80476e4SDavid E. O'Brien     RefCursor();		/* move the cursor */
2582c80476e4SDavid E. O'Brien     return(CC_NORM);
2583c80476e4SDavid E. O'Brien }
2584c80476e4SDavid E. O'Brien 
2585c80476e4SDavid E. O'Brien /*ARGSUSED*/
2586c80476e4SDavid E. O'Brien CCRETVAL
258745e5710bSMark Peek e_killend(Char c)
2588c80476e4SDavid E. O'Brien {
2589c80476e4SDavid E. O'Brien     USE(c);
25906767bd61SMark Peek     c_push_kill(Cursor, LastChar); /* copy it */
259145e5710bSMark Peek     LastChar = Cursor;		/* zap! -- delete to end */
259245e5710bSMark Peek     if (Mark > Cursor)
259345e5710bSMark Peek         Mark = Cursor;
259445e5710bSMark Peek     MarkIsSet = 0;
2595c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2596c80476e4SDavid E. O'Brien }
2597c80476e4SDavid E. O'Brien 
2598c80476e4SDavid E. O'Brien 
2599c80476e4SDavid E. O'Brien /*ARGSUSED*/
2600c80476e4SDavid E. O'Brien CCRETVAL
260145e5710bSMark Peek e_killbeg(Char c)
2602c80476e4SDavid E. O'Brien {
2603c80476e4SDavid E. O'Brien     USE(c);
26046767bd61SMark Peek     c_push_kill(InputBuf, Cursor); /* copy it */
2605c80476e4SDavid E. O'Brien     c_delbefore((int)(Cursor - InputBuf));
260623338178SMark Peek     if (Mark && Mark > Cursor)
260723338178SMark Peek         Mark -= Cursor-InputBuf;
2608c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2609c80476e4SDavid E. O'Brien }
2610c80476e4SDavid E. O'Brien 
2611c80476e4SDavid E. O'Brien /*ARGSUSED*/
2612c80476e4SDavid E. O'Brien CCRETVAL
261345e5710bSMark Peek e_killall(Char c)
2614c80476e4SDavid E. O'Brien {
2615c80476e4SDavid E. O'Brien     USE(c);
26166767bd61SMark Peek     c_push_kill(InputBuf, LastChar); /* copy it */
261723338178SMark Peek     Cursor = Mark = LastChar = InputBuf;	/* zap! -- delete all of it */
261845e5710bSMark Peek     MarkIsSet = 0;
2619c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2620c80476e4SDavid E. O'Brien }
2621c80476e4SDavid E. O'Brien 
2622c80476e4SDavid E. O'Brien /*ARGSUSED*/
2623c80476e4SDavid E. O'Brien CCRETVAL
262445e5710bSMark Peek e_killregion(Char c)
2625c80476e4SDavid E. O'Brien {
2626c80476e4SDavid E. O'Brien     USE(c);
2627c80476e4SDavid E. O'Brien     if (!Mark)
2628c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2629c80476e4SDavid E. O'Brien 
2630c80476e4SDavid E. O'Brien     if (Mark > Cursor) {
26316767bd61SMark Peek 	c_push_kill(Cursor, Mark); /* copy it */
26326767bd61SMark Peek 	c_delafter((int)(Mark - Cursor)); /* delete it - UNUSED BY VI mode */
26336767bd61SMark Peek 	Mark = Cursor;
2634c80476e4SDavid E. O'Brien     }
2635c80476e4SDavid E. O'Brien     else {			/* mark is before cursor */
26366767bd61SMark Peek 	c_push_kill(Mark, Cursor); /* copy it */
26376767bd61SMark Peek 	c_delbefore((int)(Cursor - Mark));
2638c80476e4SDavid E. O'Brien     }
263945e5710bSMark Peek     if (adrof(STRhighlight) && MarkIsSet) {
264045e5710bSMark Peek 	ClearLines();
264145e5710bSMark Peek 	ClearDisp();
264245e5710bSMark Peek     }
264345e5710bSMark Peek     MarkIsSet = 0;
2644c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2645c80476e4SDavid E. O'Brien }
2646c80476e4SDavid E. O'Brien 
2647c80476e4SDavid E. O'Brien /*ARGSUSED*/
2648c80476e4SDavid E. O'Brien CCRETVAL
264945e5710bSMark Peek e_copyregion(Char c)
2650c80476e4SDavid E. O'Brien {
2651c80476e4SDavid E. O'Brien     USE(c);
2652c80476e4SDavid E. O'Brien     if (!Mark)
2653c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2654c80476e4SDavid E. O'Brien 
2655c80476e4SDavid E. O'Brien     if (Mark > Cursor) {
26566767bd61SMark Peek 	c_push_kill(Cursor, Mark); /* copy it */
2657c80476e4SDavid E. O'Brien     }
2658c80476e4SDavid E. O'Brien     else {			/* mark is before cursor */
26596767bd61SMark Peek 	c_push_kill(Mark, Cursor); /* copy it */
2660c80476e4SDavid E. O'Brien     }
2661c80476e4SDavid E. O'Brien     return(CC_NORM);		/* don't even need to Refresh() */
2662c80476e4SDavid E. O'Brien }
2663c80476e4SDavid E. O'Brien 
2664c80476e4SDavid E. O'Brien /*ARGSUSED*/
2665c80476e4SDavid E. O'Brien CCRETVAL
266645e5710bSMark Peek e_charswitch(Char cc)
2667c80476e4SDavid E. O'Brien {
26686767bd61SMark Peek     Char c;
2669c80476e4SDavid E. O'Brien 
2670c80476e4SDavid E. O'Brien     USE(cc);
2671c80476e4SDavid E. O'Brien 
2672c80476e4SDavid E. O'Brien     /* do nothing if we are at beginning of line or have only one char */
2673c80476e4SDavid E. O'Brien     if (Cursor == &InputBuf[0] || LastChar == &InputBuf[1]) {
2674c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2675c80476e4SDavid E. O'Brien     }
2676c80476e4SDavid E. O'Brien 
2677c80476e4SDavid E. O'Brien     if (Cursor < LastChar) {
2678c80476e4SDavid E. O'Brien 	Cursor++;
2679c80476e4SDavid E. O'Brien     }
2680c80476e4SDavid E. O'Brien     c = Cursor[-2];
2681c80476e4SDavid E. O'Brien     Cursor[-2] = Cursor[-1];
2682c80476e4SDavid E. O'Brien     Cursor[-1] = c;
2683c80476e4SDavid E. O'Brien     return(CC_REFRESH);
2684c80476e4SDavid E. O'Brien }
2685c80476e4SDavid E. O'Brien 
2686c80476e4SDavid E. O'Brien /*ARGSUSED*/
2687c80476e4SDavid E. O'Brien CCRETVAL
268845e5710bSMark Peek e_gcharswitch(Char cc)
2689c80476e4SDavid E. O'Brien {				/* gosmacs style ^T */
26906767bd61SMark Peek     Char c;
2691c80476e4SDavid E. O'Brien 
2692c80476e4SDavid E. O'Brien     USE(cc);
2693c80476e4SDavid E. O'Brien     if (Cursor > &InputBuf[1]) {/* must have at least two chars entered */
2694c80476e4SDavid E. O'Brien 	c = Cursor[-2];
2695c80476e4SDavid E. O'Brien 	Cursor[-2] = Cursor[-1];
2696c80476e4SDavid E. O'Brien 	Cursor[-1] = c;
2697c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2698c80476e4SDavid E. O'Brien     }
2699c80476e4SDavid E. O'Brien     else {
2700c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2701c80476e4SDavid E. O'Brien     }
2702c80476e4SDavid E. O'Brien }
2703c80476e4SDavid E. O'Brien 
2704c80476e4SDavid E. O'Brien /*ARGSUSED*/
2705c80476e4SDavid E. O'Brien CCRETVAL
270645e5710bSMark Peek e_charback(Char c)
2707c80476e4SDavid E. O'Brien {
2708c80476e4SDavid E. O'Brien     USE(c);
2709c80476e4SDavid E. O'Brien     if (Cursor > InputBuf) {
271045e5710bSMark Peek 	if (Argument > Cursor - InputBuf)
2711c80476e4SDavid E. O'Brien 	    Cursor = InputBuf;
2712c80476e4SDavid E. O'Brien 	else
271345e5710bSMark Peek 	    Cursor -= Argument;
2714c80476e4SDavid E. O'Brien 
2715c80476e4SDavid E. O'Brien 	if (VImode)
2716c80476e4SDavid E. O'Brien 	    if (ActionFlag & TCSHOP_DELETE) {
2717c80476e4SDavid E. O'Brien 		c_delfini();
2718c80476e4SDavid E. O'Brien 		return(CC_REFRESH);
2719c80476e4SDavid E. O'Brien 	    }
2720c80476e4SDavid E. O'Brien 
2721c80476e4SDavid E. O'Brien 	RefCursor();
2722c80476e4SDavid E. O'Brien 	return(CC_NORM);
2723c80476e4SDavid E. O'Brien     }
2724c80476e4SDavid E. O'Brien     else {
2725c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2726c80476e4SDavid E. O'Brien     }
2727c80476e4SDavid E. O'Brien }
2728c80476e4SDavid E. O'Brien 
2729c80476e4SDavid E. O'Brien /*ARGSUSED*/
2730c80476e4SDavid E. O'Brien CCRETVAL
273145e5710bSMark Peek v_wordback(Char c)
2732c80476e4SDavid E. O'Brien {
2733c80476e4SDavid E. O'Brien     USE(c);
2734c80476e4SDavid E. O'Brien     if (Cursor == InputBuf)
2735c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2736c80476e4SDavid E. O'Brien     /* else */
2737c80476e4SDavid E. O'Brien 
27386767bd61SMark Peek     Cursor = c_preword(Cursor, InputBuf, Argument, STRshwspace); /* bounds check */
2739c80476e4SDavid E. O'Brien 
2740c80476e4SDavid E. O'Brien     if (ActionFlag & TCSHOP_DELETE) {
2741c80476e4SDavid E. O'Brien 	c_delfini();
2742c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2743c80476e4SDavid E. O'Brien     }
2744c80476e4SDavid E. O'Brien 
2745c80476e4SDavid E. O'Brien     RefCursor();
2746c80476e4SDavid E. O'Brien     return(CC_NORM);
2747c80476e4SDavid E. O'Brien }
2748c80476e4SDavid E. O'Brien 
2749c80476e4SDavid E. O'Brien /*ARGSUSED*/
2750c80476e4SDavid E. O'Brien CCRETVAL
275145e5710bSMark Peek e_wordback(Char c)
2752c80476e4SDavid E. O'Brien {
2753c80476e4SDavid E. O'Brien     USE(c);
2754c80476e4SDavid E. O'Brien     if (Cursor == InputBuf)
2755c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2756c80476e4SDavid E. O'Brien     /* else */
2757c80476e4SDavid E. O'Brien 
2758c80476e4SDavid E. O'Brien     Cursor = c_prev_word(Cursor, InputBuf, Argument); /* bounds check */
2759c80476e4SDavid E. O'Brien 
2760c80476e4SDavid E. O'Brien     if (VImode)
2761c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
2762c80476e4SDavid E. O'Brien 	    c_delfini();
2763c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
2764c80476e4SDavid E. O'Brien 	}
2765c80476e4SDavid E. O'Brien 
2766c80476e4SDavid E. O'Brien     RefCursor();
2767c80476e4SDavid E. O'Brien     return(CC_NORM);
2768c80476e4SDavid E. O'Brien }
2769c80476e4SDavid E. O'Brien 
2770c80476e4SDavid E. O'Brien /*ARGSUSED*/
2771c80476e4SDavid E. O'Brien CCRETVAL
277245e5710bSMark Peek e_charfwd(Char c)
2773c80476e4SDavid E. O'Brien {
2774c80476e4SDavid E. O'Brien     USE(c);
2775c80476e4SDavid E. O'Brien     if (Cursor < LastChar) {
277645e5710bSMark Peek 	Cursor += Argument;
2777c80476e4SDavid E. O'Brien 	if (Cursor > LastChar)
2778c80476e4SDavid E. O'Brien 	    Cursor = LastChar;
2779c80476e4SDavid E. O'Brien 
2780c80476e4SDavid E. O'Brien 	if (VImode)
2781c80476e4SDavid E. O'Brien 	    if (ActionFlag & TCSHOP_DELETE) {
2782c80476e4SDavid E. O'Brien 		c_delfini();
2783c80476e4SDavid E. O'Brien 		return(CC_REFRESH);
2784c80476e4SDavid E. O'Brien 	    }
2785c80476e4SDavid E. O'Brien 
2786c80476e4SDavid E. O'Brien 	RefCursor();
2787c80476e4SDavid E. O'Brien 	return(CC_NORM);
2788c80476e4SDavid E. O'Brien     }
2789c80476e4SDavid E. O'Brien     else {
2790c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2791c80476e4SDavid E. O'Brien     }
2792c80476e4SDavid E. O'Brien }
2793c80476e4SDavid E. O'Brien 
2794c80476e4SDavid E. O'Brien /*ARGSUSED*/
2795c80476e4SDavid E. O'Brien CCRETVAL
279645e5710bSMark Peek e_wordfwd(Char c)
2797c80476e4SDavid E. O'Brien {
2798c80476e4SDavid E. O'Brien     USE(c);
2799c80476e4SDavid E. O'Brien     if (Cursor == LastChar)
2800c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2801c80476e4SDavid E. O'Brien     /* else */
2802c80476e4SDavid E. O'Brien 
2803c80476e4SDavid E. O'Brien     Cursor = c_next_word(Cursor, LastChar, Argument);
2804c80476e4SDavid E. O'Brien 
2805c80476e4SDavid E. O'Brien     if (VImode)
2806c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
2807c80476e4SDavid E. O'Brien 	    c_delfini();
2808c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
2809c80476e4SDavid E. O'Brien 	}
2810c80476e4SDavid E. O'Brien 
2811c80476e4SDavid E. O'Brien     RefCursor();
2812c80476e4SDavid E. O'Brien     return(CC_NORM);
2813c80476e4SDavid E. O'Brien }
2814c80476e4SDavid E. O'Brien 
2815c80476e4SDavid E. O'Brien /*ARGSUSED*/
2816c80476e4SDavid E. O'Brien CCRETVAL
281745e5710bSMark Peek v_wordfwd(Char c)
2818c80476e4SDavid E. O'Brien {
2819c80476e4SDavid E. O'Brien     USE(c);
2820c80476e4SDavid E. O'Brien     if (Cursor == LastChar)
2821c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2822c80476e4SDavid E. O'Brien     /* else */
2823c80476e4SDavid E. O'Brien 
2824c80476e4SDavid E. O'Brien     Cursor = c_nexword(Cursor, LastChar, Argument);
2825c80476e4SDavid E. O'Brien 
2826c80476e4SDavid E. O'Brien     if (VImode)
2827c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
2828c80476e4SDavid E. O'Brien 	    c_delfini();
2829c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
2830c80476e4SDavid E. O'Brien 	}
2831c80476e4SDavid E. O'Brien 
2832c80476e4SDavid E. O'Brien     RefCursor();
2833c80476e4SDavid E. O'Brien     return(CC_NORM);
2834c80476e4SDavid E. O'Brien }
2835c80476e4SDavid E. O'Brien 
2836c80476e4SDavid E. O'Brien /*ARGSUSED*/
2837c80476e4SDavid E. O'Brien CCRETVAL
283845e5710bSMark Peek v_wordbegnext(Char c)
2839c80476e4SDavid E. O'Brien {
2840c80476e4SDavid E. O'Brien     USE(c);
2841c80476e4SDavid E. O'Brien     if (Cursor == LastChar)
2842c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2843c80476e4SDavid E. O'Brien     /* else */
2844c80476e4SDavid E. O'Brien 
2845c80476e4SDavid E. O'Brien     Cursor = c_next_word(Cursor, LastChar, Argument);
2846c80476e4SDavid E. O'Brien     if (Cursor < LastChar)
2847c80476e4SDavid E. O'Brien 	Cursor++;
2848c80476e4SDavid E. O'Brien 
2849c80476e4SDavid E. O'Brien     if (VImode)
2850c80476e4SDavid E. O'Brien 	if (ActionFlag & TCSHOP_DELETE) {
2851c80476e4SDavid E. O'Brien 	    c_delfini();
2852c80476e4SDavid E. O'Brien 	    return(CC_REFRESH);
2853c80476e4SDavid E. O'Brien 	}
2854c80476e4SDavid E. O'Brien 
2855c80476e4SDavid E. O'Brien     RefCursor();
2856c80476e4SDavid E. O'Brien     return(CC_NORM);
2857c80476e4SDavid E. O'Brien }
2858c80476e4SDavid E. O'Brien 
2859c80476e4SDavid E. O'Brien /*ARGSUSED*/
2860c80476e4SDavid E. O'Brien static CCRETVAL
286145e5710bSMark Peek v_repeat_srch(int c)
2862c80476e4SDavid E. O'Brien {
2863c80476e4SDavid E. O'Brien     CCRETVAL rv = CC_ERROR;
2864c80476e4SDavid E. O'Brien #ifdef SDEBUG
2865c80476e4SDavid E. O'Brien     xprintf("dir %d patlen %d patbuf %S\n",
286645e5710bSMark Peek 	    c, (int)patbuf.len, patbuf.s);
2867c80476e4SDavid E. O'Brien #endif
2868c80476e4SDavid E. O'Brien 
2869c80476e4SDavid E. O'Brien     LastCmd = (KEYCMD) c;  /* Hack to stop c_hsetpat */
2870c80476e4SDavid E. O'Brien     LastChar = InputBuf;
2871c80476e4SDavid E. O'Brien     switch (c) {
2872c80476e4SDavid E. O'Brien     case F_DOWN_SEARCH_HIST:
2873c80476e4SDavid E. O'Brien 	rv = e_down_search_hist(0);
2874c80476e4SDavid E. O'Brien 	break;
2875c80476e4SDavid E. O'Brien     case F_UP_SEARCH_HIST:
2876c80476e4SDavid E. O'Brien 	rv = e_up_search_hist(0);
2877c80476e4SDavid E. O'Brien 	break;
2878c80476e4SDavid E. O'Brien     default:
2879c80476e4SDavid E. O'Brien 	break;
2880c80476e4SDavid E. O'Brien     }
2881c80476e4SDavid E. O'Brien     return rv;
2882c80476e4SDavid E. O'Brien }
2883c80476e4SDavid E. O'Brien 
2884c80476e4SDavid E. O'Brien static CCRETVAL
288545e5710bSMark Peek v_csearch_back(Char ch, int count, int tflag)
2886c80476e4SDavid E. O'Brien {
2887c80476e4SDavid E. O'Brien     Char *cp;
2888c80476e4SDavid E. O'Brien 
2889c80476e4SDavid E. O'Brien     cp = Cursor;
2890c80476e4SDavid E. O'Brien     while (count--) {
2891c80476e4SDavid E. O'Brien 	if (*cp == ch)
2892c80476e4SDavid E. O'Brien 	    cp--;
2893c80476e4SDavid E. O'Brien 	while (cp > InputBuf && *cp != ch)
2894c80476e4SDavid E. O'Brien 	    cp--;
2895c80476e4SDavid E. O'Brien     }
2896c80476e4SDavid E. O'Brien 
2897c80476e4SDavid E. O'Brien     if (cp < InputBuf || (cp == InputBuf && *cp != ch))
2898c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2899c80476e4SDavid E. O'Brien 
2900c80476e4SDavid E. O'Brien     if (*cp == ch && tflag)
2901c80476e4SDavid E. O'Brien 	cp++;
2902c80476e4SDavid E. O'Brien 
2903c80476e4SDavid E. O'Brien     Cursor = cp;
2904c80476e4SDavid E. O'Brien 
2905c80476e4SDavid E. O'Brien     if (ActionFlag & TCSHOP_DELETE) {
2906c80476e4SDavid E. O'Brien 	Cursor++;
2907c80476e4SDavid E. O'Brien 	c_delfini();
2908c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2909c80476e4SDavid E. O'Brien     }
2910c80476e4SDavid E. O'Brien 
2911c80476e4SDavid E. O'Brien     RefCursor();
2912c80476e4SDavid E. O'Brien     return(CC_NORM);
2913c80476e4SDavid E. O'Brien }
2914c80476e4SDavid E. O'Brien 
2915c80476e4SDavid E. O'Brien static CCRETVAL
291645e5710bSMark Peek v_csearch_fwd(Char ch, int count, int tflag)
2917c80476e4SDavid E. O'Brien {
2918c80476e4SDavid E. O'Brien     Char *cp;
2919c80476e4SDavid E. O'Brien 
2920c80476e4SDavid E. O'Brien     cp = Cursor;
2921c80476e4SDavid E. O'Brien     while (count--) {
2922c80476e4SDavid E. O'Brien 	if(*cp == ch)
2923c80476e4SDavid E. O'Brien 	    cp++;
2924c80476e4SDavid E. O'Brien 	while (cp < LastChar && *cp != ch)
2925c80476e4SDavid E. O'Brien 	    cp++;
2926c80476e4SDavid E. O'Brien     }
2927c80476e4SDavid E. O'Brien 
2928c80476e4SDavid E. O'Brien     if (cp >= LastChar)
2929c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2930c80476e4SDavid E. O'Brien 
2931c80476e4SDavid E. O'Brien     if (*cp == ch && tflag)
2932c80476e4SDavid E. O'Brien 	cp--;
2933c80476e4SDavid E. O'Brien 
2934c80476e4SDavid E. O'Brien     Cursor = cp;
2935c80476e4SDavid E. O'Brien 
2936c80476e4SDavid E. O'Brien     if (ActionFlag & TCSHOP_DELETE) {
2937c80476e4SDavid E. O'Brien 	Cursor++;
2938c80476e4SDavid E. O'Brien 	c_delfini();
2939c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2940c80476e4SDavid E. O'Brien     }
2941c80476e4SDavid E. O'Brien     RefCursor();
2942c80476e4SDavid E. O'Brien     return(CC_NORM);
2943c80476e4SDavid E. O'Brien }
2944c80476e4SDavid E. O'Brien 
2945c80476e4SDavid E. O'Brien /*ARGSUSED*/
2946c80476e4SDavid E. O'Brien static CCRETVAL
294745e5710bSMark Peek v_action(int c)
2948c80476e4SDavid E. O'Brien {
29496767bd61SMark Peek     Char *cp, *kp;
2950c80476e4SDavid E. O'Brien 
2951c80476e4SDavid E. O'Brien     if (ActionFlag == TCSHOP_DELETE) {
2952c80476e4SDavid E. O'Brien 	ActionFlag = TCSHOP_NOP;
2953c80476e4SDavid E. O'Brien 	ActionPos = 0;
2954c80476e4SDavid E. O'Brien 
2955c80476e4SDavid E. O'Brien 	UndoSize = 0;
2956c80476e4SDavid E. O'Brien 	kp = UndoBuf;
2957c80476e4SDavid E. O'Brien 	for (cp = InputBuf; cp < LastChar; cp++) {
2958c80476e4SDavid E. O'Brien 	    *kp++ = *cp;
2959c80476e4SDavid E. O'Brien 	    UndoSize++;
2960c80476e4SDavid E. O'Brien 	}
2961c80476e4SDavid E. O'Brien 
2962c80476e4SDavid E. O'Brien 	UndoAction = TCSHOP_INSERT;
2963c80476e4SDavid E. O'Brien 	UndoPtr  = InputBuf;
2964c80476e4SDavid E. O'Brien 	LastChar = InputBuf;
2965c80476e4SDavid E. O'Brien 	Cursor   = InputBuf;
2966c80476e4SDavid E. O'Brien 	if (c & TCSHOP_INSERT)
2967c80476e4SDavid E. O'Brien 	    c_alternativ_key_map(0);
2968c80476e4SDavid E. O'Brien 
2969c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
2970c80476e4SDavid E. O'Brien     }
2971c80476e4SDavid E. O'Brien #ifdef notdef
2972c80476e4SDavid E. O'Brien     else if (ActionFlag == TCSHOP_NOP) {
2973c80476e4SDavid E. O'Brien #endif
2974c80476e4SDavid E. O'Brien 	ActionPos = Cursor;
2975c80476e4SDavid E. O'Brien 	ActionFlag = c;
2976c80476e4SDavid E. O'Brien 	return(CC_ARGHACK);  /* Do NOT clear out argument */
2977c80476e4SDavid E. O'Brien #ifdef notdef
2978c80476e4SDavid E. O'Brien     }
2979c80476e4SDavid E. O'Brien     else {
2980c80476e4SDavid E. O'Brien 	ActionFlag = 0;
2981c80476e4SDavid E. O'Brien 	ActionPos = 0;
2982c80476e4SDavid E. O'Brien 	return(CC_ERROR);
2983c80476e4SDavid E. O'Brien     }
2984c80476e4SDavid E. O'Brien #endif
2985c80476e4SDavid E. O'Brien }
2986c80476e4SDavid E. O'Brien 
2987c80476e4SDavid E. O'Brien #ifdef COMMENT
2988c80476e4SDavid E. O'Brien /* by: Brian Allison <uiucdcs!convex!allison@RUTGERS.EDU> */
2989c80476e4SDavid E. O'Brien static void
299045e5710bSMark Peek c_get_word(Char **begin, Char **end)
2991c80476e4SDavid E. O'Brien {
2992c80476e4SDavid E. O'Brien     Char   *cp;
2993c80476e4SDavid E. O'Brien 
2994c80476e4SDavid E. O'Brien     cp = &Cursor[0];
2995c80476e4SDavid E. O'Brien     while (Argument--) {
2996c80476e4SDavid E. O'Brien 	while ((cp <= LastChar) && (isword(*cp)))
2997c80476e4SDavid E. O'Brien 	    cp++;
2998c80476e4SDavid E. O'Brien 	*end = --cp;
2999c80476e4SDavid E. O'Brien 	while ((cp >= InputBuf) && (isword(*cp)))
3000c80476e4SDavid E. O'Brien 	    cp--;
3001c80476e4SDavid E. O'Brien 	*begin = ++cp;
3002c80476e4SDavid E. O'Brien     }
3003c80476e4SDavid E. O'Brien }
3004c80476e4SDavid E. O'Brien #endif /* COMMENT */
3005c80476e4SDavid E. O'Brien 
3006c80476e4SDavid E. O'Brien /*ARGSUSED*/
3007c80476e4SDavid E. O'Brien CCRETVAL
300845e5710bSMark Peek e_uppercase(Char c)
3009c80476e4SDavid E. O'Brien {
3010c80476e4SDavid E. O'Brien     Char   *cp, *end;
3011c80476e4SDavid E. O'Brien 
3012c80476e4SDavid E. O'Brien     USE(c);
3013c80476e4SDavid E. O'Brien     end = c_next_word(Cursor, LastChar, Argument);
3014c80476e4SDavid E. O'Brien 
3015c80476e4SDavid E. O'Brien     for (cp = Cursor; cp < end; cp++)	/* PWP: was cp=begin */
3016c80476e4SDavid E. O'Brien 	if (Islower(*cp))
3017c80476e4SDavid E. O'Brien 	    *cp = Toupper(*cp);
3018c80476e4SDavid E. O'Brien 
3019c80476e4SDavid E. O'Brien     Cursor = end;
3020c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
3021c80476e4SDavid E. O'Brien 	Cursor = LastChar;
3022c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3023c80476e4SDavid E. O'Brien }
3024c80476e4SDavid E. O'Brien 
3025c80476e4SDavid E. O'Brien 
3026c80476e4SDavid E. O'Brien /*ARGSUSED*/
3027c80476e4SDavid E. O'Brien CCRETVAL
302845e5710bSMark Peek e_capitolcase(Char c)
3029c80476e4SDavid E. O'Brien {
3030c80476e4SDavid E. O'Brien     Char   *cp, *end;
3031c80476e4SDavid E. O'Brien 
3032c80476e4SDavid E. O'Brien     USE(c);
3033c80476e4SDavid E. O'Brien     end = c_next_word(Cursor, LastChar, Argument);
3034c80476e4SDavid E. O'Brien 
3035c80476e4SDavid E. O'Brien     cp = Cursor;
3036c80476e4SDavid E. O'Brien     for (; cp < end; cp++) {
3037c80476e4SDavid E. O'Brien 	if (Isalpha(*cp)) {
3038c80476e4SDavid E. O'Brien 	    if (Islower(*cp))
3039c80476e4SDavid E. O'Brien 		*cp = Toupper(*cp);
3040c80476e4SDavid E. O'Brien 	    cp++;
3041c80476e4SDavid E. O'Brien 	    break;
3042c80476e4SDavid E. O'Brien 	}
3043c80476e4SDavid E. O'Brien     }
3044c80476e4SDavid E. O'Brien     for (; cp < end; cp++)
3045c80476e4SDavid E. O'Brien 	if (Isupper(*cp))
3046c80476e4SDavid E. O'Brien 	    *cp = Tolower(*cp);
3047c80476e4SDavid E. O'Brien 
3048c80476e4SDavid E. O'Brien     Cursor = end;
3049c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
3050c80476e4SDavid E. O'Brien 	Cursor = LastChar;
3051c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3052c80476e4SDavid E. O'Brien }
3053c80476e4SDavid E. O'Brien 
3054c80476e4SDavid E. O'Brien /*ARGSUSED*/
3055c80476e4SDavid E. O'Brien CCRETVAL
305645e5710bSMark Peek e_lowercase(Char c)
3057c80476e4SDavid E. O'Brien {
3058c80476e4SDavid E. O'Brien     Char   *cp, *end;
3059c80476e4SDavid E. O'Brien 
3060c80476e4SDavid E. O'Brien     USE(c);
3061c80476e4SDavid E. O'Brien     end = c_next_word(Cursor, LastChar, Argument);
3062c80476e4SDavid E. O'Brien 
3063c80476e4SDavid E. O'Brien     for (cp = Cursor; cp < end; cp++)
3064c80476e4SDavid E. O'Brien 	if (Isupper(*cp))
3065c80476e4SDavid E. O'Brien 	    *cp = Tolower(*cp);
3066c80476e4SDavid E. O'Brien 
3067c80476e4SDavid E. O'Brien     Cursor = end;
3068c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
3069c80476e4SDavid E. O'Brien 	Cursor = LastChar;
3070c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3071c80476e4SDavid E. O'Brien }
3072c80476e4SDavid E. O'Brien 
3073c80476e4SDavid E. O'Brien 
3074c80476e4SDavid E. O'Brien /*ARGSUSED*/
3075c80476e4SDavid E. O'Brien CCRETVAL
307645e5710bSMark Peek e_set_mark(Char c)
3077c80476e4SDavid E. O'Brien {
3078c80476e4SDavid E. O'Brien     USE(c);
307945e5710bSMark Peek     if (adrof(STRhighlight) && MarkIsSet && Mark != Cursor) {
308045e5710bSMark Peek 	ClearLines();
308145e5710bSMark Peek 	ClearDisp();
308245e5710bSMark Peek 	Refresh();
308345e5710bSMark Peek     }
3084c80476e4SDavid E. O'Brien     Mark = Cursor;
308545e5710bSMark Peek     MarkIsSet = 1;
3086c80476e4SDavid E. O'Brien     return(CC_NORM);
3087c80476e4SDavid E. O'Brien }
3088c80476e4SDavid E. O'Brien 
3089c80476e4SDavid E. O'Brien /*ARGSUSED*/
3090c80476e4SDavid E. O'Brien CCRETVAL
309145e5710bSMark Peek e_exchange_mark(Char c)
3092c80476e4SDavid E. O'Brien {
30936767bd61SMark Peek     Char *cp;
3094c80476e4SDavid E. O'Brien 
3095c80476e4SDavid E. O'Brien     USE(c);
3096c80476e4SDavid E. O'Brien     cp = Cursor;
3097c80476e4SDavid E. O'Brien     Cursor = Mark;
3098c80476e4SDavid E. O'Brien     Mark = cp;
3099c80476e4SDavid E. O'Brien     RefCursor();
3100c80476e4SDavid E. O'Brien     return(CC_NORM);
3101c80476e4SDavid E. O'Brien }
3102c80476e4SDavid E. O'Brien 
3103c80476e4SDavid E. O'Brien /*ARGSUSED*/
3104c80476e4SDavid E. O'Brien CCRETVAL
310545e5710bSMark Peek e_argfour(Char c)
3106c80476e4SDavid E. O'Brien {				/* multiply current argument by 4 */
3107c80476e4SDavid E. O'Brien     USE(c);
3108c80476e4SDavid E. O'Brien     if (Argument > 1000000)
3109c80476e4SDavid E. O'Brien 	return CC_ERROR;
3110c80476e4SDavid E. O'Brien     DoingArg = 1;
3111c80476e4SDavid E. O'Brien     Argument *= 4;
3112c80476e4SDavid E. O'Brien     return(CC_ARGHACK);
3113c80476e4SDavid E. O'Brien }
3114c80476e4SDavid E. O'Brien 
311545e5710bSMark Peek static void
311645e5710bSMark Peek quote_mode_cleanup(void *unused)
311745e5710bSMark Peek {
311845e5710bSMark Peek     USE(unused);
311945e5710bSMark Peek     QuoteModeOff();
312045e5710bSMark Peek }
312145e5710bSMark Peek 
3122c80476e4SDavid E. O'Brien /*ARGSUSED*/
3123c80476e4SDavid E. O'Brien CCRETVAL
312445e5710bSMark Peek e_quote(Char c)
3125c80476e4SDavid E. O'Brien {
3126c80476e4SDavid E. O'Brien     Char    ch;
3127c80476e4SDavid E. O'Brien     int     num;
3128c80476e4SDavid E. O'Brien 
3129c80476e4SDavid E. O'Brien     USE(c);
3130c80476e4SDavid E. O'Brien     QuoteModeOn();
313145e5710bSMark Peek     cleanup_push(&c, quote_mode_cleanup); /* Using &c just as a mark */
3132c80476e4SDavid E. O'Brien     num = GetNextChar(&ch);
313345e5710bSMark Peek     cleanup_until(&c);
3134c80476e4SDavid E. O'Brien     if (num == 1)
3135c80476e4SDavid E. O'Brien 	return e_insert(ch);
3136c80476e4SDavid E. O'Brien     else
3137c80476e4SDavid E. O'Brien 	return e_send_eof(0);
3138c80476e4SDavid E. O'Brien }
3139c80476e4SDavid E. O'Brien 
3140c80476e4SDavid E. O'Brien /*ARGSUSED*/
3141c80476e4SDavid E. O'Brien CCRETVAL
314245e5710bSMark Peek e_metanext(Char c)
3143c80476e4SDavid E. O'Brien {
3144c80476e4SDavid E. O'Brien     USE(c);
3145c80476e4SDavid E. O'Brien     MetaNext = 1;
3146c80476e4SDavid E. O'Brien     return(CC_ARGHACK);	/* preserve argument */
3147c80476e4SDavid E. O'Brien }
3148c80476e4SDavid E. O'Brien 
3149c80476e4SDavid E. O'Brien #ifdef notdef
3150c80476e4SDavid E. O'Brien /*ARGSUSED*/
3151c80476e4SDavid E. O'Brien CCRETVAL
315245e5710bSMark Peek e_extendnext(Char c)
3153c80476e4SDavid E. O'Brien {
3154c80476e4SDavid E. O'Brien     CurrentKeyMap = CcAltMap;
3155c80476e4SDavid E. O'Brien     return(CC_ARGHACK);	/* preserve argument */
3156c80476e4SDavid E. O'Brien }
3157c80476e4SDavid E. O'Brien 
3158c80476e4SDavid E. O'Brien #endif
3159c80476e4SDavid E. O'Brien 
3160c80476e4SDavid E. O'Brien /*ARGSUSED*/
3161c80476e4SDavid E. O'Brien CCRETVAL
316245e5710bSMark Peek v_insbeg(Char c)
3163c80476e4SDavid E. O'Brien {				/* move to beginning of line and start vi
3164c80476e4SDavid E. O'Brien 				 * insert mode */
3165c80476e4SDavid E. O'Brien     USE(c);
3166c80476e4SDavid E. O'Brien     Cursor = InputBuf;
3167c80476e4SDavid E. O'Brien     InsertPos = Cursor;
3168c80476e4SDavid E. O'Brien 
3169c80476e4SDavid E. O'Brien     UndoPtr  = Cursor;
3170c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_DELETE;
3171c80476e4SDavid E. O'Brien 
3172c80476e4SDavid E. O'Brien     RefCursor();		/* move the cursor */
3173c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3174c80476e4SDavid E. O'Brien     return(CC_NORM);
3175c80476e4SDavid E. O'Brien }
3176c80476e4SDavid E. O'Brien 
3177c80476e4SDavid E. O'Brien /*ARGSUSED*/
3178c80476e4SDavid E. O'Brien CCRETVAL
317945e5710bSMark Peek v_replone(Char c)
3180c80476e4SDavid E. O'Brien {				/* vi mode overwrite one character */
3181c80476e4SDavid E. O'Brien     USE(c);
3182c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3183c80476e4SDavid E. O'Brien     inputmode = MODE_REPLACE_1;
3184c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_CHANGE;	/* Set Up for VI undo command */
3185c80476e4SDavid E. O'Brien     UndoPtr = Cursor;
3186c80476e4SDavid E. O'Brien     UndoSize = 0;
3187c80476e4SDavid E. O'Brien     return(CC_NORM);
3188c80476e4SDavid E. O'Brien }
3189c80476e4SDavid E. O'Brien 
3190c80476e4SDavid E. O'Brien /*ARGSUSED*/
3191c80476e4SDavid E. O'Brien CCRETVAL
319245e5710bSMark Peek v_replmode(Char c)
3193c80476e4SDavid E. O'Brien {				/* vi mode start overwriting */
3194c80476e4SDavid E. O'Brien     USE(c);
3195c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3196c80476e4SDavid E. O'Brien     inputmode = MODE_REPLACE;
3197c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_CHANGE;	/* Set Up for VI undo command */
3198c80476e4SDavid E. O'Brien     UndoPtr = Cursor;
3199c80476e4SDavid E. O'Brien     UndoSize = 0;
3200c80476e4SDavid E. O'Brien     return(CC_NORM);
3201c80476e4SDavid E. O'Brien }
3202c80476e4SDavid E. O'Brien 
3203c80476e4SDavid E. O'Brien /*ARGSUSED*/
3204c80476e4SDavid E. O'Brien CCRETVAL
320545e5710bSMark Peek v_substchar(Char c)
3206c80476e4SDavid E. O'Brien {				/* vi mode substitute for one char */
3207c80476e4SDavid E. O'Brien     USE(c);
3208c80476e4SDavid E. O'Brien     c_delafter(Argument);
3209c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3210c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3211c80476e4SDavid E. O'Brien }
3212c80476e4SDavid E. O'Brien 
3213c80476e4SDavid E. O'Brien /*ARGSUSED*/
3214c80476e4SDavid E. O'Brien CCRETVAL
321545e5710bSMark Peek v_substline(Char c)
3216c80476e4SDavid E. O'Brien {				/* vi mode replace whole line */
3217c80476e4SDavid E. O'Brien     USE(c);
3218c80476e4SDavid E. O'Brien     (void) e_killall(0);
3219c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3220c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3221c80476e4SDavid E. O'Brien }
3222c80476e4SDavid E. O'Brien 
3223c80476e4SDavid E. O'Brien /*ARGSUSED*/
3224c80476e4SDavid E. O'Brien CCRETVAL
322545e5710bSMark Peek v_chgtoend(Char c)
3226c80476e4SDavid E. O'Brien {				/* vi mode change to end of line */
3227c80476e4SDavid E. O'Brien     USE(c);
3228c80476e4SDavid E. O'Brien     (void) e_killend(0);
3229c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3230c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3231c80476e4SDavid E. O'Brien }
3232c80476e4SDavid E. O'Brien 
3233c80476e4SDavid E. O'Brien /*ARGSUSED*/
3234c80476e4SDavid E. O'Brien CCRETVAL
323545e5710bSMark Peek v_insert(Char c)
3236c80476e4SDavid E. O'Brien {				/* vi mode start inserting */
3237c80476e4SDavid E. O'Brien     USE(c);
3238c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3239c80476e4SDavid E. O'Brien 
3240c80476e4SDavid E. O'Brien     InsertPos = Cursor;
3241c80476e4SDavid E. O'Brien     UndoPtr = Cursor;
3242c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_DELETE;
3243c80476e4SDavid E. O'Brien 
3244c80476e4SDavid E. O'Brien     return(CC_NORM);
3245c80476e4SDavid E. O'Brien }
3246c80476e4SDavid E. O'Brien 
3247c80476e4SDavid E. O'Brien /*ARGSUSED*/
3248c80476e4SDavid E. O'Brien CCRETVAL
324945e5710bSMark Peek v_add(Char c)
3250c80476e4SDavid E. O'Brien {				/* vi mode start adding */
3251c80476e4SDavid E. O'Brien     USE(c);
3252c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3253c80476e4SDavid E. O'Brien     if (Cursor < LastChar)
3254c80476e4SDavid E. O'Brien     {
3255c80476e4SDavid E. O'Brien 	Cursor++;
3256c80476e4SDavid E. O'Brien 	if (Cursor > LastChar)
3257c80476e4SDavid E. O'Brien 	    Cursor = LastChar;
3258c80476e4SDavid E. O'Brien 	RefCursor();
3259c80476e4SDavid E. O'Brien     }
3260c80476e4SDavid E. O'Brien 
3261c80476e4SDavid E. O'Brien     InsertPos = Cursor;
3262c80476e4SDavid E. O'Brien     UndoPtr = Cursor;
3263c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_DELETE;
3264c80476e4SDavid E. O'Brien 
3265c80476e4SDavid E. O'Brien     return(CC_NORM);
3266c80476e4SDavid E. O'Brien }
3267c80476e4SDavid E. O'Brien 
3268c80476e4SDavid E. O'Brien /*ARGSUSED*/
3269c80476e4SDavid E. O'Brien CCRETVAL
327045e5710bSMark Peek v_addend(Char c)
3271c80476e4SDavid E. O'Brien {				/* vi mode to add at end of line */
3272c80476e4SDavid E. O'Brien     USE(c);
3273c80476e4SDavid E. O'Brien     c_alternativ_key_map(0);
3274c80476e4SDavid E. O'Brien     Cursor = LastChar;
3275c80476e4SDavid E. O'Brien 
3276c80476e4SDavid E. O'Brien     InsertPos = LastChar;	/* Mark where insertion begins */
3277c80476e4SDavid E. O'Brien     UndoPtr = LastChar;
3278c80476e4SDavid E. O'Brien     UndoAction = TCSHOP_DELETE;
3279c80476e4SDavid E. O'Brien 
3280c80476e4SDavid E. O'Brien     RefCursor();
3281c80476e4SDavid E. O'Brien     return(CC_NORM);
3282c80476e4SDavid E. O'Brien }
3283c80476e4SDavid E. O'Brien 
3284c80476e4SDavid E. O'Brien /*ARGSUSED*/
3285c80476e4SDavid E. O'Brien CCRETVAL
328645e5710bSMark Peek v_change_case(Char cc)
3287c80476e4SDavid E. O'Brien {
328823338178SMark Peek     Char    c;
3289c80476e4SDavid E. O'Brien 
3290c80476e4SDavid E. O'Brien     USE(cc);
3291c80476e4SDavid E. O'Brien     if (Cursor < LastChar) {
32923b6eaa7bSAndrey A. Chernov #ifndef WINNT_NATIVE
3293c80476e4SDavid E. O'Brien 	c = *Cursor;
3294c80476e4SDavid E. O'Brien #else
3295c80476e4SDavid E. O'Brien 	c = CHAR & *Cursor;
32963b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
3297c80476e4SDavid E. O'Brien 	if (Isupper(c))
3298c80476e4SDavid E. O'Brien 	    *Cursor++ = Tolower(c);
3299c80476e4SDavid E. O'Brien 	else if (Islower(c))
3300c80476e4SDavid E. O'Brien 	    *Cursor++ = Toupper(c);
3301c80476e4SDavid E. O'Brien 	else
3302c80476e4SDavid E. O'Brien 	    Cursor++;
330323338178SMark Peek 	RefPlusOne(1);		/* fast refresh for one char */
3304c80476e4SDavid E. O'Brien 	return(CC_NORM);
3305c80476e4SDavid E. O'Brien     }
3306c80476e4SDavid E. O'Brien     return(CC_ERROR);
3307c80476e4SDavid E. O'Brien }
3308c80476e4SDavid E. O'Brien 
3309c80476e4SDavid E. O'Brien /*ARGSUSED*/
3310c80476e4SDavid E. O'Brien CCRETVAL
331145e5710bSMark Peek e_expand(Char c)
3312c80476e4SDavid E. O'Brien {
33136767bd61SMark Peek     Char *p;
3314c80476e4SDavid E. O'Brien 
3315c80476e4SDavid E. O'Brien     USE(c);
3316c80476e4SDavid E. O'Brien     for (p = InputBuf; Isspace(*p); p++)
3317c80476e4SDavid E. O'Brien 	continue;
3318c80476e4SDavid E. O'Brien     if (p == LastChar)
3319c80476e4SDavid E. O'Brien 	return(CC_ERROR);
3320c80476e4SDavid E. O'Brien 
3321c80476e4SDavid E. O'Brien     justpr++;
3322c80476e4SDavid E. O'Brien     Expand++;
3323c80476e4SDavid E. O'Brien     return(e_newline(0));
3324c80476e4SDavid E. O'Brien }
3325c80476e4SDavid E. O'Brien 
3326c80476e4SDavid E. O'Brien /*ARGSUSED*/
3327c80476e4SDavid E. O'Brien CCRETVAL
332845e5710bSMark Peek e_startover(Char c)
3329c80476e4SDavid E. O'Brien {				/* erase all of current line, start again */
3330c80476e4SDavid E. O'Brien     USE(c);
3331c80476e4SDavid E. O'Brien     ResetInLine(0);		/* reset the input pointers */
3332c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3333c80476e4SDavid E. O'Brien }
3334c80476e4SDavid E. O'Brien 
3335c80476e4SDavid E. O'Brien /*ARGSUSED*/
3336c80476e4SDavid E. O'Brien CCRETVAL
333745e5710bSMark Peek e_redisp(Char c)
3338c80476e4SDavid E. O'Brien {
3339c80476e4SDavid E. O'Brien     USE(c);
3340c80476e4SDavid E. O'Brien     ClearLines();
3341c80476e4SDavid E. O'Brien     ClearDisp();
3342c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3343c80476e4SDavid E. O'Brien }
3344c80476e4SDavid E. O'Brien 
3345c80476e4SDavid E. O'Brien /*ARGSUSED*/
3346c80476e4SDavid E. O'Brien CCRETVAL
334745e5710bSMark Peek e_cleardisp(Char c)
3348c80476e4SDavid E. O'Brien {
3349c80476e4SDavid E. O'Brien     USE(c);
3350c80476e4SDavid E. O'Brien     ClearScreen();		/* clear the whole real screen */
3351c80476e4SDavid E. O'Brien     ClearDisp();		/* reset everything */
3352c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3353c80476e4SDavid E. O'Brien }
3354c80476e4SDavid E. O'Brien 
3355c80476e4SDavid E. O'Brien /*ARGSUSED*/
3356c80476e4SDavid E. O'Brien CCRETVAL
335745e5710bSMark Peek e_tty_int(Char c)
3358c80476e4SDavid E. O'Brien {
3359c80476e4SDavid E. O'Brien     USE(c);
33603b6eaa7bSAndrey A. Chernov #if defined(_MINIX) || defined(WINNT_NATIVE)
3361c80476e4SDavid E. O'Brien     /* SAK PATCH: erase all of current line, start again */
3362c80476e4SDavid E. O'Brien     ResetInLine(0);		/* reset the input pointers */
3363c80476e4SDavid E. O'Brien     xputchar('\n');
3364c80476e4SDavid E. O'Brien     ClearDisp();
3365c80476e4SDavid E. O'Brien     return (CC_REFRESH);
33663b6eaa7bSAndrey A. Chernov #else /* !_MINIX && !WINNT_NATIVE */
3367c80476e4SDavid E. O'Brien     /* do no editing */
3368c80476e4SDavid E. O'Brien     return (CC_NORM);
33693b6eaa7bSAndrey A. Chernov #endif /* _MINIX || WINNT_NATIVE */
3370c80476e4SDavid E. O'Brien }
3371c80476e4SDavid E. O'Brien 
3372c80476e4SDavid E. O'Brien /*
3373c80476e4SDavid E. O'Brien  * From: ghazi@cesl.rutgers.edu (Kaveh R. Ghazi)
3374c80476e4SDavid E. O'Brien  * Function to send a character back to the input stream in cooked
3375c80476e4SDavid E. O'Brien  * mode. Only works if we have TIOCSTI
3376c80476e4SDavid E. O'Brien  */
3377c80476e4SDavid E. O'Brien /*ARGSUSED*/
3378c80476e4SDavid E. O'Brien CCRETVAL
337945e5710bSMark Peek e_stuff_char(Char c)
3380c80476e4SDavid E. O'Brien {
3381c80476e4SDavid E. O'Brien #ifdef TIOCSTI
3382c80476e4SDavid E. O'Brien      int was_raw = Tty_raw_mode;
338323338178SMark Peek      char buf[MB_LEN_MAX];
338423338178SMark Peek      size_t i, len;
3385c80476e4SDavid E. O'Brien 
3386c80476e4SDavid E. O'Brien      if (was_raw)
3387c80476e4SDavid E. O'Brien          (void) Cookedmode();
3388c80476e4SDavid E. O'Brien 
338945e5710bSMark Peek      (void) xwrite(SHIN, "\n", 1);
339023338178SMark Peek      len = one_wctomb(buf, c & CHAR);
339123338178SMark Peek      for (i = 0; i < len; i++)
339223338178SMark Peek 	 (void) ioctl(SHIN, TIOCSTI, (ioctl_t) &buf[i]);
3393c80476e4SDavid E. O'Brien 
3394c80476e4SDavid E. O'Brien      if (was_raw)
3395c80476e4SDavid E. O'Brien 	 (void) Rawmode();
3396c80476e4SDavid E. O'Brien      return(e_redisp(c));
3397c80476e4SDavid E. O'Brien #else /* !TIOCSTI */
3398c80476e4SDavid E. O'Brien      return(CC_ERROR);
3399c80476e4SDavid E. O'Brien #endif /* !TIOCSTI */
3400c80476e4SDavid E. O'Brien }
3401c80476e4SDavid E. O'Brien 
3402c80476e4SDavid E. O'Brien /*ARGSUSED*/
3403c80476e4SDavid E. O'Brien CCRETVAL
340445e5710bSMark Peek e_insovr(Char c)
3405c80476e4SDavid E. O'Brien {
3406c80476e4SDavid E. O'Brien     USE(c);
3407c80476e4SDavid E. O'Brien     inputmode = (inputmode == MODE_INSERT ? MODE_REPLACE : MODE_INSERT);
3408c80476e4SDavid E. O'Brien     return(CC_NORM);
3409c80476e4SDavid E. O'Brien }
3410c80476e4SDavid E. O'Brien 
3411c80476e4SDavid E. O'Brien /*ARGSUSED*/
3412c80476e4SDavid E. O'Brien CCRETVAL
341345e5710bSMark Peek e_tty_dsusp(Char c)
3414c80476e4SDavid E. O'Brien {
3415c80476e4SDavid E. O'Brien     USE(c);
3416c80476e4SDavid E. O'Brien     /* do no editing */
3417c80476e4SDavid E. O'Brien     return(CC_NORM);
3418c80476e4SDavid E. O'Brien }
3419c80476e4SDavid E. O'Brien 
3420c80476e4SDavid E. O'Brien /*ARGSUSED*/
3421c80476e4SDavid E. O'Brien CCRETVAL
342245e5710bSMark Peek e_tty_flusho(Char c)
3423c80476e4SDavid E. O'Brien {
3424c80476e4SDavid E. O'Brien     USE(c);
3425c80476e4SDavid E. O'Brien     /* do no editing */
3426c80476e4SDavid E. O'Brien     return(CC_NORM);
3427c80476e4SDavid E. O'Brien }
3428c80476e4SDavid E. O'Brien 
3429c80476e4SDavid E. O'Brien /*ARGSUSED*/
3430c80476e4SDavid E. O'Brien CCRETVAL
343145e5710bSMark Peek e_tty_quit(Char c)
3432c80476e4SDavid E. O'Brien {
3433c80476e4SDavid E. O'Brien     USE(c);
3434c80476e4SDavid E. O'Brien     /* do no editing */
3435c80476e4SDavid E. O'Brien     return(CC_NORM);
3436c80476e4SDavid E. O'Brien }
3437c80476e4SDavid E. O'Brien 
3438c80476e4SDavid E. O'Brien /*ARGSUSED*/
3439c80476e4SDavid E. O'Brien CCRETVAL
344045e5710bSMark Peek e_tty_tsusp(Char c)
3441c80476e4SDavid E. O'Brien {
3442c80476e4SDavid E. O'Brien     USE(c);
3443c80476e4SDavid E. O'Brien     /* do no editing */
3444c80476e4SDavid E. O'Brien     return(CC_NORM);
3445c80476e4SDavid E. O'Brien }
3446c80476e4SDavid E. O'Brien 
3447c80476e4SDavid E. O'Brien /*ARGSUSED*/
3448c80476e4SDavid E. O'Brien CCRETVAL
344945e5710bSMark Peek e_tty_stopo(Char c)
3450c80476e4SDavid E. O'Brien {
3451c80476e4SDavid E. O'Brien     USE(c);
3452c80476e4SDavid E. O'Brien     /* do no editing */
3453c80476e4SDavid E. O'Brien     return(CC_NORM);
3454c80476e4SDavid E. O'Brien }
3455c80476e4SDavid E. O'Brien 
3456a15e6f9aSMark Peek /* returns the number of (attempted) expansions */
3457a15e6f9aSMark Peek int
3458a15e6f9aSMark Peek ExpandHistory(void)
3459a15e6f9aSMark Peek {
3460a15e6f9aSMark Peek     *LastChar = '\0';		/* just in case */
3461a15e6f9aSMark Peek     return c_substitute();
3462a15e6f9aSMark Peek }
3463a15e6f9aSMark Peek 
3464c80476e4SDavid E. O'Brien /*ARGSUSED*/
3465c80476e4SDavid E. O'Brien CCRETVAL
346645e5710bSMark Peek e_expand_history(Char c)
3467c80476e4SDavid E. O'Brien {
3468c80476e4SDavid E. O'Brien     USE(c);
3469a15e6f9aSMark Peek     (void)ExpandHistory();
3470c80476e4SDavid E. O'Brien     return(CC_NORM);
3471c80476e4SDavid E. O'Brien }
3472c80476e4SDavid E. O'Brien 
3473c80476e4SDavid E. O'Brien /*ARGSUSED*/
3474c80476e4SDavid E. O'Brien CCRETVAL
347545e5710bSMark Peek e_magic_space(Char c)
3476c80476e4SDavid E. O'Brien {
3477c80476e4SDavid E. O'Brien     USE(c);
3478c80476e4SDavid E. O'Brien     *LastChar = '\0';		/* just in case */
3479a15e6f9aSMark Peek     (void)c_substitute();
3480c80476e4SDavid E. O'Brien     return(e_insert(' '));
3481c80476e4SDavid E. O'Brien }
3482c80476e4SDavid E. O'Brien 
3483c80476e4SDavid E. O'Brien /*ARGSUSED*/
3484c80476e4SDavid E. O'Brien CCRETVAL
348545e5710bSMark Peek e_inc_fwd(Char c)
3486c80476e4SDavid E. O'Brien {
348745e5710bSMark Peek     CCRETVAL ret;
348845e5710bSMark Peek 
3489c80476e4SDavid E. O'Brien     USE(c);
349045e5710bSMark Peek     patbuf.len = 0;
349145e5710bSMark Peek     MarkIsSet = 0;
349245e5710bSMark Peek     ret = e_inc_search(F_DOWN_SEARCH_HIST);
349345e5710bSMark Peek     if (adrof(STRhighlight) && IncMatchLen) {
349445e5710bSMark Peek 	IncMatchLen = 0;
349545e5710bSMark Peek 	ClearLines();
349645e5710bSMark Peek 	ClearDisp();
349745e5710bSMark Peek 	Refresh();
349845e5710bSMark Peek     }
349945e5710bSMark Peek     IncMatchLen = 0;
350045e5710bSMark Peek     return ret;
3501c80476e4SDavid E. O'Brien }
3502c80476e4SDavid E. O'Brien 
3503c80476e4SDavid E. O'Brien 
3504c80476e4SDavid E. O'Brien /*ARGSUSED*/
3505c80476e4SDavid E. O'Brien CCRETVAL
350645e5710bSMark Peek e_inc_back(Char c)
3507c80476e4SDavid E. O'Brien {
350845e5710bSMark Peek     CCRETVAL ret;
350945e5710bSMark Peek 
3510c80476e4SDavid E. O'Brien     USE(c);
351145e5710bSMark Peek     patbuf.len = 0;
351245e5710bSMark Peek     MarkIsSet = 0;
351345e5710bSMark Peek     ret = e_inc_search(F_UP_SEARCH_HIST);
351445e5710bSMark Peek     if (adrof(STRhighlight) && IncMatchLen) {
351545e5710bSMark Peek 	IncMatchLen = 0;
351645e5710bSMark Peek 	ClearLines();
351745e5710bSMark Peek 	ClearDisp();
351845e5710bSMark Peek 	Refresh();
351945e5710bSMark Peek     }
352045e5710bSMark Peek     IncMatchLen = 0;
352145e5710bSMark Peek     return ret;
3522c80476e4SDavid E. O'Brien }
3523c80476e4SDavid E. O'Brien 
3524c80476e4SDavid E. O'Brien /*ARGSUSED*/
3525c80476e4SDavid E. O'Brien CCRETVAL
352645e5710bSMark Peek e_copyprev(Char c)
3527c80476e4SDavid E. O'Brien {
35286767bd61SMark Peek     Char *cp, *oldc, *dp;
3529c80476e4SDavid E. O'Brien 
3530c80476e4SDavid E. O'Brien     USE(c);
3531c80476e4SDavid E. O'Brien     if (Cursor == InputBuf)
3532c80476e4SDavid E. O'Brien 	return(CC_ERROR);
3533c80476e4SDavid E. O'Brien     /* else */
3534c80476e4SDavid E. O'Brien 
3535c80476e4SDavid E. O'Brien     oldc = Cursor;
3536c80476e4SDavid E. O'Brien     /* does a bounds check */
3537c80476e4SDavid E. O'Brien     cp = c_prev_word(Cursor, InputBuf, Argument);
3538c80476e4SDavid E. O'Brien 
3539c80476e4SDavid E. O'Brien     c_insert((int)(oldc - cp));
3540c80476e4SDavid E. O'Brien     for (dp = oldc; cp < oldc && dp < LastChar; cp++)
3541c80476e4SDavid E. O'Brien 	*dp++ = *cp;
3542c80476e4SDavid E. O'Brien 
3543c80476e4SDavid E. O'Brien     Cursor = dp;		/* put cursor at end */
3544c80476e4SDavid E. O'Brien 
3545c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3546c80476e4SDavid E. O'Brien }
3547c80476e4SDavid E. O'Brien 
3548c80476e4SDavid E. O'Brien /*ARGSUSED*/
3549c80476e4SDavid E. O'Brien CCRETVAL
355045e5710bSMark Peek e_tty_starto(Char c)
3551c80476e4SDavid E. O'Brien {
3552c80476e4SDavid E. O'Brien     USE(c);
3553c80476e4SDavid E. O'Brien     /* do no editing */
3554c80476e4SDavid E. O'Brien     return(CC_NORM);
3555c80476e4SDavid E. O'Brien }
3556c80476e4SDavid E. O'Brien 
3557c80476e4SDavid E. O'Brien /*ARGSUSED*/
3558c80476e4SDavid E. O'Brien CCRETVAL
355945e5710bSMark Peek e_load_average(Char c)
3560c80476e4SDavid E. O'Brien {
3561c80476e4SDavid E. O'Brien     USE(c);
3562c80476e4SDavid E. O'Brien     PastBottom();
3563c80476e4SDavid E. O'Brien #ifdef TIOCSTAT
3564c80476e4SDavid E. O'Brien     /*
3565c80476e4SDavid E. O'Brien      * Here we pass &c to the ioctl because some os's (NetBSD) expect it
3566c80476e4SDavid E. O'Brien      * there even if they don't use it. (lukem@netbsd.org)
3567c80476e4SDavid E. O'Brien      */
3568c80476e4SDavid E. O'Brien     if (ioctl(SHIN, TIOCSTAT, (ioctl_t) &c) < 0)
3569c80476e4SDavid E. O'Brien #endif
3570a15e6f9aSMark Peek 	xprintf("%s", CGETS(5, 1, "Load average unavailable\n"));
3571c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3572c80476e4SDavid E. O'Brien }
3573c80476e4SDavid E. O'Brien 
3574c80476e4SDavid E. O'Brien /*ARGSUSED*/
3575c80476e4SDavid E. O'Brien CCRETVAL
357645e5710bSMark Peek v_chgmeta(Char c)
3577c80476e4SDavid E. O'Brien {
3578c80476e4SDavid E. O'Brien     USE(c);
3579c80476e4SDavid E. O'Brien     /*
3580c80476e4SDavid E. O'Brien      * Delete with insert == change: first we delete and then we leave in
3581c80476e4SDavid E. O'Brien      * insert mode.
3582c80476e4SDavid E. O'Brien      */
3583c80476e4SDavid E. O'Brien     return(v_action(TCSHOP_DELETE|TCSHOP_INSERT));
3584c80476e4SDavid E. O'Brien }
3585c80476e4SDavid E. O'Brien 
3586c80476e4SDavid E. O'Brien /*ARGSUSED*/
3587c80476e4SDavid E. O'Brien CCRETVAL
358845e5710bSMark Peek v_delmeta(Char c)
3589c80476e4SDavid E. O'Brien {
3590c80476e4SDavid E. O'Brien     USE(c);
3591c80476e4SDavid E. O'Brien     return(v_action(TCSHOP_DELETE));
3592c80476e4SDavid E. O'Brien }
3593c80476e4SDavid E. O'Brien 
3594c80476e4SDavid E. O'Brien 
3595c80476e4SDavid E. O'Brien /*ARGSUSED*/
3596c80476e4SDavid E. O'Brien CCRETVAL
359745e5710bSMark Peek v_endword(Char c)
3598c80476e4SDavid E. O'Brien {
3599c80476e4SDavid E. O'Brien     USE(c);
3600c80476e4SDavid E. O'Brien     if (Cursor == LastChar)
3601c80476e4SDavid E. O'Brien 	return(CC_ERROR);
3602c80476e4SDavid E. O'Brien     /* else */
3603c80476e4SDavid E. O'Brien 
36046767bd61SMark Peek     Cursor = c_endword(Cursor, LastChar, Argument, STRshwspace);
3605c80476e4SDavid E. O'Brien 
3606c80476e4SDavid E. O'Brien     if (ActionFlag & TCSHOP_DELETE)
3607c80476e4SDavid E. O'Brien     {
3608c80476e4SDavid E. O'Brien 	Cursor++;
3609c80476e4SDavid E. O'Brien 	c_delfini();
3610c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
3611c80476e4SDavid E. O'Brien     }
3612c80476e4SDavid E. O'Brien 
3613c80476e4SDavid E. O'Brien     RefCursor();
3614c80476e4SDavid E. O'Brien     return(CC_NORM);
3615c80476e4SDavid E. O'Brien }
3616c80476e4SDavid E. O'Brien 
3617c80476e4SDavid E. O'Brien /*ARGSUSED*/
3618c80476e4SDavid E. O'Brien CCRETVAL
361945e5710bSMark Peek v_eword(Char c)
3620c80476e4SDavid E. O'Brien {
3621c80476e4SDavid E. O'Brien     USE(c);
3622c80476e4SDavid E. O'Brien     if (Cursor == LastChar)
3623c80476e4SDavid E. O'Brien 	return(CC_ERROR);
3624c80476e4SDavid E. O'Brien     /* else */
3625c80476e4SDavid E. O'Brien 
3626c80476e4SDavid E. O'Brien     Cursor = c_eword(Cursor, LastChar, Argument);
3627c80476e4SDavid E. O'Brien 
3628c80476e4SDavid E. O'Brien     if (ActionFlag & TCSHOP_DELETE) {
3629c80476e4SDavid E. O'Brien 	Cursor++;
3630c80476e4SDavid E. O'Brien 	c_delfini();
3631c80476e4SDavid E. O'Brien 	return(CC_REFRESH);
3632c80476e4SDavid E. O'Brien     }
3633c80476e4SDavid E. O'Brien 
3634c80476e4SDavid E. O'Brien     RefCursor();
3635c80476e4SDavid E. O'Brien     return(CC_NORM);
3636c80476e4SDavid E. O'Brien }
3637c80476e4SDavid E. O'Brien 
3638c80476e4SDavid E. O'Brien /*ARGSUSED*/
3639c80476e4SDavid E. O'Brien CCRETVAL
364045e5710bSMark Peek v_char_fwd(Char c)
3641c80476e4SDavid E. O'Brien {
3642c80476e4SDavid E. O'Brien     Char ch;
3643c80476e4SDavid E. O'Brien 
3644c80476e4SDavid E. O'Brien     USE(c);
3645c80476e4SDavid E. O'Brien     if (GetNextChar(&ch) != 1)
3646c80476e4SDavid E. O'Brien 	return e_send_eof(0);
3647c80476e4SDavid E. O'Brien 
3648c80476e4SDavid E. O'Brien     srch_dir = CHAR_FWD;
3649c80476e4SDavid E. O'Brien     srch_char = ch;
3650c80476e4SDavid E. O'Brien 
3651c80476e4SDavid E. O'Brien     return v_csearch_fwd(ch, Argument, 0);
3652c80476e4SDavid E. O'Brien 
3653c80476e4SDavid E. O'Brien }
3654c80476e4SDavid E. O'Brien 
3655c80476e4SDavid E. O'Brien /*ARGSUSED*/
3656c80476e4SDavid E. O'Brien CCRETVAL
365745e5710bSMark Peek v_char_back(Char c)
3658c80476e4SDavid E. O'Brien {
3659c80476e4SDavid E. O'Brien     Char ch;
3660c80476e4SDavid E. O'Brien 
3661c80476e4SDavid E. O'Brien     USE(c);
3662c80476e4SDavid E. O'Brien     if (GetNextChar(&ch) != 1)
3663c80476e4SDavid E. O'Brien 	return e_send_eof(0);
3664c80476e4SDavid E. O'Brien 
3665c80476e4SDavid E. O'Brien     srch_dir = CHAR_BACK;
3666c80476e4SDavid E. O'Brien     srch_char = ch;
3667c80476e4SDavid E. O'Brien 
3668c80476e4SDavid E. O'Brien     return v_csearch_back(ch, Argument, 0);
3669c80476e4SDavid E. O'Brien }
3670c80476e4SDavid E. O'Brien 
3671c80476e4SDavid E. O'Brien /*ARGSUSED*/
3672c80476e4SDavid E. O'Brien CCRETVAL
367345e5710bSMark Peek v_charto_fwd(Char c)
3674c80476e4SDavid E. O'Brien {
3675c80476e4SDavid E. O'Brien     Char ch;
3676c80476e4SDavid E. O'Brien 
3677c80476e4SDavid E. O'Brien     USE(c);
3678c80476e4SDavid E. O'Brien     if (GetNextChar(&ch) != 1)
3679c80476e4SDavid E. O'Brien 	return e_send_eof(0);
3680c80476e4SDavid E. O'Brien 
3681c80476e4SDavid E. O'Brien     return v_csearch_fwd(ch, Argument, 1);
3682c80476e4SDavid E. O'Brien 
3683c80476e4SDavid E. O'Brien }
3684c80476e4SDavid E. O'Brien 
3685c80476e4SDavid E. O'Brien /*ARGSUSED*/
3686c80476e4SDavid E. O'Brien CCRETVAL
368745e5710bSMark Peek v_charto_back(Char c)
3688c80476e4SDavid E. O'Brien {
3689c80476e4SDavid E. O'Brien     Char ch;
3690c80476e4SDavid E. O'Brien 
3691c80476e4SDavid E. O'Brien     USE(c);
3692c80476e4SDavid E. O'Brien     if (GetNextChar(&ch) != 1)
3693c80476e4SDavid E. O'Brien 	return e_send_eof(0);
3694c80476e4SDavid E. O'Brien 
3695c80476e4SDavid E. O'Brien     return v_csearch_back(ch, Argument, 1);
3696c80476e4SDavid E. O'Brien }
3697c80476e4SDavid E. O'Brien 
3698c80476e4SDavid E. O'Brien /*ARGSUSED*/
3699c80476e4SDavid E. O'Brien CCRETVAL
370045e5710bSMark Peek v_rchar_fwd(Char c)
3701c80476e4SDavid E. O'Brien {
3702c80476e4SDavid E. O'Brien     USE(c);
3703c80476e4SDavid E. O'Brien     if (srch_char == 0)
3704c80476e4SDavid E. O'Brien 	return CC_ERROR;
3705c80476e4SDavid E. O'Brien 
3706c80476e4SDavid E. O'Brien     return srch_dir == CHAR_FWD ? v_csearch_fwd(srch_char, Argument, 0) :
3707c80476e4SDavid E. O'Brien 			          v_csearch_back(srch_char, Argument, 0);
3708c80476e4SDavid E. O'Brien }
3709c80476e4SDavid E. O'Brien 
3710c80476e4SDavid E. O'Brien /*ARGSUSED*/
3711c80476e4SDavid E. O'Brien CCRETVAL
371245e5710bSMark Peek v_rchar_back(Char c)
3713c80476e4SDavid E. O'Brien {
3714c80476e4SDavid E. O'Brien     USE(c);
3715c80476e4SDavid E. O'Brien     if (srch_char == 0)
3716c80476e4SDavid E. O'Brien 	return CC_ERROR;
3717c80476e4SDavid E. O'Brien 
3718c80476e4SDavid E. O'Brien     return srch_dir == CHAR_BACK ? v_csearch_fwd(srch_char, Argument, 0) :
3719c80476e4SDavid E. O'Brien 			           v_csearch_back(srch_char, Argument, 0);
3720c80476e4SDavid E. O'Brien }
3721c80476e4SDavid E. O'Brien 
3722c80476e4SDavid E. O'Brien /*ARGSUSED*/
3723c80476e4SDavid E. O'Brien CCRETVAL
372445e5710bSMark Peek v_undo(Char c)
3725c80476e4SDavid E. O'Brien {
37266767bd61SMark Peek     int  loop;
37276767bd61SMark Peek     Char *kp, *cp;
3728c80476e4SDavid E. O'Brien     Char temp;
3729c80476e4SDavid E. O'Brien     int	 size;
3730c80476e4SDavid E. O'Brien 
3731c80476e4SDavid E. O'Brien     USE(c);
3732c80476e4SDavid E. O'Brien     switch (UndoAction) {
3733c80476e4SDavid E. O'Brien     case TCSHOP_DELETE|TCSHOP_INSERT:
3734c80476e4SDavid E. O'Brien     case TCSHOP_DELETE:
3735c80476e4SDavid E. O'Brien 	if (UndoSize == 0) return(CC_NORM);
3736c80476e4SDavid E. O'Brien 	cp = UndoPtr;
3737c80476e4SDavid E. O'Brien 	kp = UndoBuf;
3738c80476e4SDavid E. O'Brien 	for (loop=0; loop < UndoSize; loop++)	/* copy the chars */
3739c80476e4SDavid E. O'Brien 	    *kp++ = *cp++;			/* into UndoBuf   */
3740c80476e4SDavid E. O'Brien 
3741c80476e4SDavid E. O'Brien 	for (cp = UndoPtr; cp <= LastChar; cp++)
3742c80476e4SDavid E. O'Brien 	    *cp = cp[UndoSize];
3743c80476e4SDavid E. O'Brien 
3744c80476e4SDavid E. O'Brien 	LastChar -= UndoSize;
3745c80476e4SDavid E. O'Brien 	Cursor   =  UndoPtr;
3746c80476e4SDavid E. O'Brien 
3747c80476e4SDavid E. O'Brien 	UndoAction = TCSHOP_INSERT;
3748c80476e4SDavid E. O'Brien 	break;
3749c80476e4SDavid E. O'Brien 
3750c80476e4SDavid E. O'Brien     case TCSHOP_INSERT:
3751c80476e4SDavid E. O'Brien 	if (UndoSize == 0) return(CC_NORM);
3752c80476e4SDavid E. O'Brien 	cp = UndoPtr;
3753c80476e4SDavid E. O'Brien 	Cursor = UndoPtr;
3754c80476e4SDavid E. O'Brien 	kp = UndoBuf;
3755c80476e4SDavid E. O'Brien 	c_insert(UndoSize);		/* open the space, */
3756c80476e4SDavid E. O'Brien 	for (loop = 0; loop < UndoSize; loop++)	/* copy the chars */
3757c80476e4SDavid E. O'Brien 	    *cp++ = *kp++;
3758c80476e4SDavid E. O'Brien 
3759c80476e4SDavid E. O'Brien 	UndoAction = TCSHOP_DELETE;
3760c80476e4SDavid E. O'Brien 	break;
3761c80476e4SDavid E. O'Brien 
3762c80476e4SDavid E. O'Brien     case TCSHOP_CHANGE:
3763c80476e4SDavid E. O'Brien 	if (UndoSize == 0) return(CC_NORM);
3764c80476e4SDavid E. O'Brien 	cp = UndoPtr;
3765c80476e4SDavid E. O'Brien 	Cursor = UndoPtr;
3766c80476e4SDavid E. O'Brien 	kp = UndoBuf;
3767c80476e4SDavid E. O'Brien 	size = (int)(Cursor-LastChar); /*  NOT NSL independant */
3768c80476e4SDavid E. O'Brien 	if (size < UndoSize)
3769c80476e4SDavid E. O'Brien 	    size = UndoSize;
3770c80476e4SDavid E. O'Brien 	for(loop = 0; loop < size; loop++) {
3771c80476e4SDavid E. O'Brien 	    temp = *kp;
3772c80476e4SDavid E. O'Brien 	    *kp++ = *cp;
3773c80476e4SDavid E. O'Brien 	    *cp++ = temp;
3774c80476e4SDavid E. O'Brien 	}
3775c80476e4SDavid E. O'Brien 	break;
3776c80476e4SDavid E. O'Brien 
3777c80476e4SDavid E. O'Brien     default:
3778c80476e4SDavid E. O'Brien 	return(CC_ERROR);
3779c80476e4SDavid E. O'Brien     }
3780c80476e4SDavid E. O'Brien 
3781c80476e4SDavid E. O'Brien     return(CC_REFRESH);
3782c80476e4SDavid E. O'Brien }
3783c80476e4SDavid E. O'Brien 
3784c80476e4SDavid E. O'Brien /*ARGSUSED*/
3785c80476e4SDavid E. O'Brien CCRETVAL
378645e5710bSMark Peek v_ush_meta(Char c)
3787c80476e4SDavid E. O'Brien {
3788c80476e4SDavid E. O'Brien     USE(c);
3789c80476e4SDavid E. O'Brien     return v_search(F_UP_SEARCH_HIST);
3790c80476e4SDavid E. O'Brien }
3791c80476e4SDavid E. O'Brien 
3792c80476e4SDavid E. O'Brien /*ARGSUSED*/
3793c80476e4SDavid E. O'Brien CCRETVAL
379445e5710bSMark Peek v_dsh_meta(Char c)
3795c80476e4SDavid E. O'Brien {
3796c80476e4SDavid E. O'Brien     USE(c);
3797c80476e4SDavid E. O'Brien     return v_search(F_DOWN_SEARCH_HIST);
3798c80476e4SDavid E. O'Brien }
3799c80476e4SDavid E. O'Brien 
3800c80476e4SDavid E. O'Brien /*ARGSUSED*/
3801c80476e4SDavid E. O'Brien CCRETVAL
380245e5710bSMark Peek v_rsrch_fwd(Char c)
3803c80476e4SDavid E. O'Brien {
3804c80476e4SDavid E. O'Brien     USE(c);
380545e5710bSMark Peek     if (patbuf.len == 0) return(CC_ERROR);
3806c80476e4SDavid E. O'Brien     return(v_repeat_srch(searchdir));
3807c80476e4SDavid E. O'Brien }
3808c80476e4SDavid E. O'Brien 
3809c80476e4SDavid E. O'Brien /*ARGSUSED*/
3810c80476e4SDavid E. O'Brien CCRETVAL
381145e5710bSMark Peek v_rsrch_back(Char c)
3812c80476e4SDavid E. O'Brien {
3813c80476e4SDavid E. O'Brien     USE(c);
381445e5710bSMark Peek     if (patbuf.len == 0) return(CC_ERROR);
3815c80476e4SDavid E. O'Brien     return(v_repeat_srch(searchdir == F_UP_SEARCH_HIST ?
3816c80476e4SDavid E. O'Brien 			 F_DOWN_SEARCH_HIST : F_UP_SEARCH_HIST));
3817c80476e4SDavid E. O'Brien }
3818c80476e4SDavid E. O'Brien 
38193b6eaa7bSAndrey A. Chernov #ifndef WINNT_NATIVE
3820c80476e4SDavid E. O'Brien /* Since ed.defns.h  is generated from ed.defns.c, these empty
3821c80476e4SDavid E. O'Brien    functions will keep the F_NUM_FNS consistent
3822c80476e4SDavid E. O'Brien  */
3823c80476e4SDavid E. O'Brien CCRETVAL
382445e5710bSMark Peek e_copy_to_clipboard(Char c)
3825c80476e4SDavid E. O'Brien {
3826c80476e4SDavid E. O'Brien     USE(c);
3827c80476e4SDavid E. O'Brien     return CC_ERROR;
3828c80476e4SDavid E. O'Brien }
3829c80476e4SDavid E. O'Brien 
3830c80476e4SDavid E. O'Brien CCRETVAL
383145e5710bSMark Peek e_paste_from_clipboard(Char c)
3832c80476e4SDavid E. O'Brien {
3833c80476e4SDavid E. O'Brien     USE(c);
3834c80476e4SDavid E. O'Brien     return (CC_ERROR);
3835c80476e4SDavid E. O'Brien }
3836c80476e4SDavid E. O'Brien 
3837c80476e4SDavid E. O'Brien CCRETVAL
383845e5710bSMark Peek e_dosify_next(Char c)
3839c80476e4SDavid E. O'Brien {
3840c80476e4SDavid E. O'Brien     USE(c);
3841c80476e4SDavid E. O'Brien     return (CC_ERROR);
3842c80476e4SDavid E. O'Brien }
3843c80476e4SDavid E. O'Brien CCRETVAL
384445e5710bSMark Peek e_dosify_prev(Char c)
3845c80476e4SDavid E. O'Brien {
3846c80476e4SDavid E. O'Brien     USE(c);
3847c80476e4SDavid E. O'Brien     return (CC_ERROR);
3848c80476e4SDavid E. O'Brien }
3849c80476e4SDavid E. O'Brien CCRETVAL
385045e5710bSMark Peek e_page_up(Char c)
3851c80476e4SDavid E. O'Brien {
3852c80476e4SDavid E. O'Brien     USE(c);
3853c80476e4SDavid E. O'Brien     return (CC_ERROR);
3854c80476e4SDavid E. O'Brien }
3855c80476e4SDavid E. O'Brien CCRETVAL
385645e5710bSMark Peek e_page_down(Char c)
3857c80476e4SDavid E. O'Brien {
3858c80476e4SDavid E. O'Brien     USE(c);
3859c80476e4SDavid E. O'Brien     return (CC_ERROR);
3860c80476e4SDavid E. O'Brien }
38613b6eaa7bSAndrey A. Chernov #endif /* !WINNT_NATIVE */
3862c80476e4SDavid E. O'Brien 
3863c80476e4SDavid E. O'Brien #ifdef notdef
3864c80476e4SDavid E. O'Brien void
386545e5710bSMark Peek MoveCursor(int n)		/* move cursor + right - left char */
3866c80476e4SDavid E. O'Brien {
3867c80476e4SDavid E. O'Brien     Cursor = Cursor + n;
3868c80476e4SDavid E. O'Brien     if (Cursor < InputBuf)
3869c80476e4SDavid E. O'Brien 	Cursor = InputBuf;
3870c80476e4SDavid E. O'Brien     if (Cursor > LastChar)
3871c80476e4SDavid E. O'Brien 	Cursor = LastChar;
3872c80476e4SDavid E. O'Brien     return;
3873c80476e4SDavid E. O'Brien }
3874c80476e4SDavid E. O'Brien 
3875c80476e4SDavid E. O'Brien Char *
387645e5710bSMark Peek GetCursor(void)
3877c80476e4SDavid E. O'Brien {
3878c80476e4SDavid E. O'Brien     return(Cursor);
3879c80476e4SDavid E. O'Brien }
3880c80476e4SDavid E. O'Brien 
3881c80476e4SDavid E. O'Brien int
388245e5710bSMark Peek PutCursor(Char *p)
3883c80476e4SDavid E. O'Brien {
3884c80476e4SDavid E. O'Brien     if (p < InputBuf || p > LastChar)
3885c80476e4SDavid E. O'Brien 	return 1;		/* Error */
3886c80476e4SDavid E. O'Brien     Cursor = p;
3887c80476e4SDavid E. O'Brien     return 0;
3888c80476e4SDavid E. O'Brien }
3889c80476e4SDavid E. O'Brien #endif
3890