external/bsd/nvi/dist/vi/v_left.c

   1 /*      $NetBSD: v_left.c,v 1.3 2014/01/26 21:43:45 christos Exp $      */
   2 /*-
   3  * Copyright (c) 1992, 1993, 1994
   4  *      The Regents of the University of California.  All rights reserved.
   5  * Copyright (c) 1992, 1993, 1994, 1995, 1996
   6  *      Keith Bostic.  All rights reserved.
   7  *
   8  * See the LICENSE file for redistribution information.
   9  */
  10
  11 #include "config.h"
  12
  13 #include <sys/cdefs.h>
  14 #if 0
  15 #ifndef lint
  16 static const char sccsid[] = "Id: v_left.c,v 10.9 2001/06/25 15:19:32 skimo Exp  (Berkeley) Date: 2001/06/25 15:19:32 ";
  17 #endif /* not lint */
  18 #else
  19 __RCSID("$NetBSD: v_left.c,v 1.3 2014/01/26 21:43:45 christos Exp $");
  20 #endif
  21
  22 #include <sys/types.h>
  23 #include <sys/queue.h>
  24 #include <sys/time.h>
  25
  26 #include <bitstring.h>
  27 #include <limits.h>
  28 #include <stdio.h>
  29
  30 #include "../common/common.h"
  31 #include "vi.h"
  32
  33 /*
  34  * v_left -- [count]^H, [count]h
  35  *      Move left by columns.
  36  *
  37  * PUBLIC: int v_left __P((SCR *, VICMD *));
  38  */
  39 int
  40 v_left(SCR *sp, VICMD *vp)
  41 {
  42         db_recno_t cnt;
  43
  44         /*
  45          * !!!
  46          * The ^H and h commands always failed in the first column.
  47          */
  48         if (vp->m_start.cno == 0) {
  49                 v_sol(sp);
  50                 return (1);
  51         }
  52
  53         /* Find the end of the range. */
  54         cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1;
  55         if (vp->m_start.cno > cnt)
  56                 vp->m_stop.cno = vp->m_start.cno - cnt;
  57         else
  58                 vp->m_stop.cno = 0;
  59
  60         /*
  61          * All commands move to the end of the range.  Motion commands
  62          * adjust the starting point to the character before the current
  63          * one.
  64          */
  65         if (ISMOTION(vp))
  66                 --vp->m_start.cno;
  67         vp->m_final = vp->m_stop;
  68         return (0);
  69 }
  70
  71 /*
  72  * v_cfirst -- [count]_
  73  *      Move to the first non-blank character in a line.
  74  *
  75  * PUBLIC: int v_cfirst __P((SCR *, VICMD *));
  76  */
  77 int
  78 v_cfirst(SCR *sp, VICMD *vp)
  79 {
  80         db_recno_t cnt, lno;
  81
  82         /*
  83          * !!!
  84          * If the _ is a motion component, it makes the command a line motion
  85          * e.g. "d_" deletes the line.  It also means that the cursor doesn't
  86          * move.
  87          *
  88          * The _ command never failed in the first column.
  89          */
  90         if (ISMOTION(vp))
  91                 F_SET(vp, VM_LMODE);
  92         /*
  93          * !!!
  94          * Historically a specified count makes _ move down count - 1
  95          * rows, so, "3_" is the same as "2j_".
  96          */
  97         cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1;
  98         if (cnt != 1) {
  99                 --vp->count;
 100                 return (v_down(sp, vp));
 101         }
 102
 103         /*
 104          * Move to the first non-blank.
 105          *
 106          * Can't just use RCM_SET_FNB, in case _ is used as the motion
 107          * component of another command.
 108          */
 109         vp->m_stop.cno = 0;
 110         if (nonblank(sp, vp->m_stop.lno, &vp->m_stop.cno))
 111                 return (1);
 112
 113         /*
 114          * !!!
 115          * The _ command has to fail if the file is empty and we're doing
 116          * a delete.  If deleting line 1, and 0 is the first nonblank,
 117          * make the check.
 118          */
 119         if (vp->m_stop.lno == 1 &&
 120             vp->m_stop.cno == 0 && ISCMD(vp->rkp, 'd')) {
 121                 if (db_last(sp, &lno))
 122                         return (1);
 123                 if (lno == 0) {
 124                         v_sol(sp);
 125                         return (1);
 126                 }
 127         }
 128
 129         /*
 130          * Delete and non-motion commands move to the end of the range,
 131          * yank stays at the start.  Ignore others.
 132          */
 133         vp->m_final =
 134             ISMOTION(vp) && ISCMD(vp->rkp, 'y') ? vp->m_start : vp->m_stop;
 135         return (0);
 136 }
 137
 138 /*
 139  * v_first -- ^
 140  *      Move to the first non-blank character in this line.
 141  *
 142  * PUBLIC: int v_first __P((SCR *, VICMD *));
 143  */
 144 int
 145 v_first(SCR *sp, VICMD *vp)
 146 {
 147         /*
 148          * !!!
 149          * Yielding to none in our quest for compatibility with every
 150          * historical blemish of vi, no matter how strange it might be,
 151          * we permit the user to enter a count and then ignore it.
 152          */
 153
 154         /*
 155          * Move to the first non-blank.
 156          *
 157          * Can't just use RCM_SET_FNB, in case ^ is used as the motion
 158          * component of another command.
 159          */
 160         vp->m_stop.cno = 0;
 161         if (nonblank(sp, vp->m_stop.lno, &vp->m_stop.cno))
 162                 return (1);
 163
 164         /*
 165          * !!!
 166          * The ^ command succeeded if used as a command when the cursor was
 167          * on the first non-blank in the line, but failed if used as a motion
 168          * component in the same situation.
 169          */
 170         if (ISMOTION(vp) && vp->m_start.cno == vp->m_stop.cno) {
 171                 v_sol(sp);
 172                 return (1);
 173         }
 174
 175         /*
 176          * If moving right, non-motion commands move to the end of the range.
 177          * Delete and yank stay at the start.  Motion commands adjust the
 178          * ending point to the character before the current ending charcter.
 179          *
 180          * If moving left, all commands move to the end of the range.  Motion
 181          * commands adjust the starting point to the character before the
 182          * current starting character.
 183          */
 184         if (vp->m_start.cno < vp->m_stop.cno)
 185                 if (ISMOTION(vp)) {
 186                         --vp->m_stop.cno;
 187                         vp->m_final = vp->m_start;
 188                 } else
 189                         vp->m_final = vp->m_stop;
 190         else {
 191                 if (ISMOTION(vp))
 192                         --vp->m_start.cno;
 193                 vp->m_final = vp->m_stop;
 194         }
 195         return (0);
 196 }
 197
 198 /*
 199  * v_ncol -- [count]|
 200  *      Move to column count or the first column on this line.  If the
 201  *      requested column is past EOL, move to EOL.  The nasty part is
 202  *      that we have to know character column widths to make this work.
 203  *
 204  * PUBLIC: int v_ncol __P((SCR *, VICMD *));
 205  */
 206 int
 207 v_ncol(SCR *sp, VICMD *vp)
 208 {
 209         if (F_ISSET(vp, VC_C1SET) && vp->count > 1) {
 210                 --vp->count;
 211                 vp->m_stop.cno =
 212                     vs_colpos(sp, vp->m_start.lno, (size_t)vp->count);
 213                 /*
 214                  * !!!
 215                  * The | command succeeded if used as a command and the cursor
 216                  * didn't move, but failed if used as a motion component in the
 217                  * same situation.
 218                  */
 219                 if (ISMOTION(vp) && vp->m_stop.cno == vp->m_start.cno) {
 220                         v_nomove(sp);
 221                         return (1);
 222                 }
 223         } else {
 224                 /*
 225                  * !!!
 226                  * The | command succeeded if used as a command in column 0
 227                  * without a count, but failed if used as a motion component
 228                  * in the same situation.
 229                  */
 230                 if (ISMOTION(vp) && vp->m_start.cno == 0) {
 231                         v_sol(sp);
 232                         return (1);
 233                 }
 234                 vp->m_stop.cno = 0;
 235         }
 236
 237         /*
 238          * If moving right, non-motion commands move to the end of the range.
 239          * Delete and yank stay at the start.  Motion commands adjust the
 240          * ending point to the character before the current ending charcter.
 241          *
 242          * If moving left, all commands move to the end of the range.  Motion
 243          * commands adjust the starting point to the character before the
 244          * current starting character.
 245          */
 246         if (vp->m_start.cno < vp->m_stop.cno)
 247                 if (ISMOTION(vp)) {
 248                         --vp->m_stop.cno;
 249                         vp->m_final = vp->m_start;
 250                 } else
 251                         vp->m_final = vp->m_stop;
 252         else {
 253                 if (ISMOTION(vp))
 254                         --vp->m_start.cno;
 255                 vp->m_final = vp->m_stop;
 256         }
 257         return (0);
 258 }
 259
 260 /*
 261  * v_zero -- 0
 262  *      Move to the first column on this line.
 263  *
 264  * PUBLIC: int v_zero __P((SCR *, VICMD *));
 265  */
 266 int
 267 v_zero(SCR *sp, VICMD *vp)
 268 {
 269         /*
 270          * !!!
 271          * The 0 command succeeded if used as a command in the first column
 272          * but failed if used as a motion component in the same situation.
 273          */
 274         if (ISMOTION(vp) && vp->m_start.cno == 0) {
 275                 v_sol(sp);
 276                 return (1);
 277         }
 278
 279         /*
 280          * All commands move to the end of the range.  Motion commands
 281          * adjust the starting point to the character before the current
 282          * one.
 283          */
 284         vp->m_stop.cno = 0;
 285         if (ISMOTION(vp))
 286                 --vp->m_start.cno;
 287         vp->m_final = vp->m_stop;
 288         return (0);
 289 }