1 /*- 2 * Copyright (c) 1992, 1993, 1994 3 * The Regents of the University of California. All rights reserved. 4 * Copyright (c) 1992, 1993, 1994, 1995, 1996 5 * Keith Bostic. All rights reserved. 6 * 7 * See the LICENSE file for redistribution information. 8 */ 9 10 #include "config.h" 11 12 #include <sys/types.h> 13 #include <sys/queue.h> 14 #include <sys/time.h> 15 16 #include <bitstring.h> 17 #include <ctype.h> 18 #include <limits.h> 19 #include <stdio.h> 20 #include <stdlib.h> 21 #include <string.h> 22 23 #include "../common/common.h" 24 #include "vi.h" 25 26 /* 27 * v_match -- % 28 * Search to matching character. 29 * 30 * PUBLIC: int v_match(SCR *, VICMD *); 31 */ 32 int 33 v_match(SCR *sp, VICMD *vp) 34 { 35 VCS cs; 36 MARK *mp; 37 size_t cno, len, off; 38 int cnt, isempty, matchc, startc, (*gc)(SCR *, VCS *); 39 CHAR_T *p; 40 CHAR_T *cp; 41 const CHAR_T *match_chars; 42 43 /* 44 * Historically vi would match (), {} and [] however 45 * an update included <>. This is ok for editing HTML 46 * but a pain in the butt for C source. 47 * Making it an option lets the user decide what is 'right'. 48 */ 49 match_chars = VIP(sp)->mcs; 50 51 /* 52 * !!! 53 * Historic practice; ignore the count. 54 * 55 * !!! 56 * Historical practice was to search for the initial character in the 57 * forward direction only. 58 */ 59 if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) { 60 if (isempty) 61 goto nomatch; 62 return (1); 63 } 64 for (off = vp->m_start.cno;; ++off) { 65 if (off >= len) { 66 nomatch: msgq(sp, M_BERR, "184|No match character on this line"); 67 return (1); 68 } 69 startc = p[off]; 70 cp = STRCHR(match_chars, startc); 71 if (cp != NULL) { 72 cnt = cp - match_chars; 73 matchc = match_chars[cnt ^ 1]; 74 gc = cnt & 1 ? cs_prev : cs_next; 75 break; 76 } 77 } 78 79 cs.cs_lno = vp->m_start.lno; 80 cs.cs_cno = off; 81 if (cs_init(sp, &cs)) 82 return (1); 83 for (cnt = 1;;) { 84 if (gc(sp, &cs)) 85 return (1); 86 if (cs.cs_flags != 0) { 87 if (cs.cs_flags == CS_EOF || cs.cs_flags == CS_SOF) 88 break; 89 continue; 90 } 91 if (cs.cs_ch == startc) 92 ++cnt; 93 else if (cs.cs_ch == matchc && --cnt == 0) 94 break; 95 } 96 if (cnt) { 97 msgq(sp, M_BERR, "185|Matching character not found"); 98 return (1); 99 } 100 101 vp->m_stop.lno = cs.cs_lno; 102 vp->m_stop.cno = cs.cs_cno; 103 104 /* 105 * If moving right, non-motion commands move to the end of the range. 106 * Delete and yank stay at the start. 107 * 108 * If moving left, all commands move to the end of the range. 109 * 110 * !!! 111 * Don't correct for leftward movement -- historic vi deleted the 112 * starting cursor position when deleting to a match. 113 */ 114 if (vp->m_start.lno < vp->m_stop.lno || 115 (vp->m_start.lno == vp->m_stop.lno && 116 vp->m_start.cno < vp->m_stop.cno)) 117 vp->m_final = ISMOTION(vp) ? vp->m_start : vp->m_stop; 118 else 119 vp->m_final = vp->m_stop; 120 121 /* 122 * !!! 123 * If the motion is across lines, and the earliest cursor position 124 * is at or before any non-blank characters in the line, i.e. the 125 * movement is cutting all of the line's text, and the later cursor 126 * position has nothing other than whitespace characters between it 127 * and the end of its line, the buffer is in line mode. 128 */ 129 if (!ISMOTION(vp) || vp->m_start.lno == vp->m_stop.lno) 130 return (0); 131 mp = vp->m_start.lno < vp->m_stop.lno ? &vp->m_start : &vp->m_stop; 132 if (mp->cno != 0) { 133 cno = 0; 134 if (nonblank(sp, mp->lno, &cno)) 135 return (1); 136 if (cno < mp->cno) 137 return (0); 138 } 139 mp = vp->m_start.lno < vp->m_stop.lno ? &vp->m_stop : &vp->m_start; 140 if (db_get(sp, mp->lno, DBG_FATAL, &p, &len)) 141 return (1); 142 for (p += mp->cno + 1, len -= mp->cno; --len; ++p) 143 if (!isblank(*p)) 144 return (0); 145 F_SET(vp, VM_LMODE); 146 return (0); 147 } 148 149 /* 150 * v_buildmcs -- 151 * Build the match character list. 152 * 153 * PUBLIC: int v_buildmcs(SCR *, char *); 154 */ 155 int 156 v_buildmcs(SCR *sp, char *str) 157 { 158 CHAR_T **mp = &VIP(sp)->mcs; 159 size_t len = strlen(str) + 1; 160 161 free(*mp); 162 MALLOC(sp, *mp, len * sizeof(CHAR_T)); 163 if (*mp == NULL) 164 return (1); 165 #ifdef USE_WIDECHAR 166 if (mbstowcs(*mp, str, len) == (size_t)-1) 167 return (1); 168 #else 169 memcpy(*mp, str, len); 170 #endif 171 return (0); 172 } 173