vi/v_match.c

   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 #ifndef lint
  13 static const char sccsid[] = "$Id: v_match.c,v 10.10 2001/06/25 15:19:32 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:32 $";
  14 #endif /* not lint */
  15
  16 #include <sys/types.h>
  17 #include <sys/queue.h>
  18 #include <sys/time.h>
  19
  20 #include <bitstring.h>
  21 #include <limits.h>
  22 #include <stdio.h>
  23 #include <string.h>
  24
  25 #include "../common/common.h"
  26 #include "vi.h"
  27
  28 /*
  29  * v_match -- %
  30  *      Search to matching character.
  31  *
  32  * PUBLIC: int v_match __P((SCR *, VICMD *));
  33  */
  34 int
  35 v_match(SCR *sp, VICMD *vp)
  36 {
  37         VCS cs;
  38         MARK *mp;
  39         size_t cno, len, off;
  40         int cnt, isempty, matchc, startc, (*gc)__P((SCR *, VCS *));
  41         CHAR_T *p;
  42
  43         /*
  44          * !!!
  45          * Historic practice; ignore the count.
  46          *
  47          * !!!
  48          * Historical practice was to search for the initial character in the
  49          * forward direction only.
  50          */
  51         if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
  52                 if (isempty)
  53                         goto nomatch;
  54                 return (1);
  55         }
  56         for (off = vp->m_start.cno;; ++off) {
  57                 if (off >= len) {
  58 nomatch:                msgq(sp, M_BERR, "184|No match character on this line");
  59                         return (1);
  60                 }
  61                 switch (startc = p[off]) {
  62                 case '(':
  63                         matchc = ')';
  64                         gc = cs_next;
  65                         break;
  66                 case ')':
  67                         matchc = '(';
  68                         gc = cs_prev;
  69                         break;
  70                 case '[':
  71                         matchc = ']';
  72                         gc = cs_next;
  73                         break;
  74                 case ']':
  75                         matchc = '[';
  76                         gc = cs_prev;
  77                         break;
  78                 case '{':
  79                         matchc = '}';
  80                         gc = cs_next;
  81                         break;
  82                 case '}':
  83                         matchc = '{';
  84                         gc = cs_prev;
  85                         break;
  86                 case '<':
  87                         matchc = '>';
  88                         gc = cs_next;
  89                         break;
  90                 case '>':
  91                         matchc = '<';
  92                         gc = cs_prev;
  93                         break;
  94                 default:
  95                         continue;
  96                 }
  97                 break;
  98         }
  99
 100         cs.cs_lno = vp->m_start.lno;
 101         cs.cs_cno = off;
 102         if (cs_init(sp, &cs))
 103                 return (1);
 104         for (cnt = 1;;) {
 105                 if (gc(sp, &cs))
 106                         return (1);
 107                 if (cs.cs_flags != 0) {
 108                         if (cs.cs_flags == CS_EOF || cs.cs_flags == CS_SOF)
 109                                 break;
 110                         continue;
 111                 }
 112                 if (cs.cs_ch == startc)
 113                         ++cnt;
 114                 else if (cs.cs_ch == matchc && --cnt == 0)
 115                         break;
 116         }
 117         if (cnt) {
 118                 msgq(sp, M_BERR, "185|Matching character not found");
 119                 return (1);
 120         }
 121
 122         vp->m_stop.lno = cs.cs_lno;
 123         vp->m_stop.cno = cs.cs_cno;
 124
 125         /*
 126          * If moving right, non-motion commands move to the end of the range.
 127          * Delete and yank stay at the start.
 128          *
 129          * If moving left, all commands move to the end of the range.
 130          *
 131          * !!!
 132          * Don't correct for leftward movement -- historic vi deleted the
 133          * starting cursor position when deleting to a match.
 134          */
 135         if (vp->m_start.lno < vp->m_stop.lno ||
 136             vp->m_start.lno == vp->m_stop.lno &&
 137             vp->m_start.cno < vp->m_stop.cno)
 138                 vp->m_final = ISMOTION(vp) ? vp->m_start : vp->m_stop;
 139         else
 140                 vp->m_final = vp->m_stop;
 141
 142         /*
 143          * !!!
 144          * If the motion is across lines, and the earliest cursor position
 145          * is at or before any non-blank characters in the line, i.e. the
 146          * movement is cutting all of the line's text, and the later cursor
 147          * position has nothing other than whitespace characters between it
 148          * and the end of its line, the buffer is in line mode.
 149          */
 150         if (!ISMOTION(vp) || vp->m_start.lno == vp->m_stop.lno)
 151                 return (0);
 152         mp = vp->m_start.lno < vp->m_stop.lno ? &vp->m_start : &vp->m_stop;
 153         if (mp->cno != 0) {
 154                 cno = 0;
 155                 if (nonblank(sp, mp->lno, &cno))
 156                         return (1);
 157                 if (cno < mp->cno)
 158                         return (0);
 159         }
 160         mp = vp->m_start.lno < vp->m_stop.lno ? &vp->m_stop : &vp->m_start;
 161         if (db_get(sp, mp->lno, DBG_FATAL, &p, &len))
 162                 return (1);
 163         for (p += mp->cno + 1, len -= mp->cno; --len; ++p)
 164                 if (!ISBLANK(*p))
 165                         return (0);
 166         F_SET(vp, VM_LMODE);
 167         return (0);
 168 }