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