dist/nvi/vi/v_xchar.c

   1 /*      $NetBSD$ */
   2
   3 /*-
   4  * Copyright (c) 1992, 1993, 1994
   5  *      The Regents of the University of California.  All rights reserved.
   6  * Copyright (c) 1992, 1993, 1994, 1995, 1996
   7  *      Keith Bostic.  All rights reserved.
   8  *
   9  * See the LICENSE file for redistribution information.
  10  */
  11
  12 #include "config.h"
  13
  14 #ifndef lint
  15 static const char sccsid[] = "Id: v_xchar.c,v 10.10 2001/06/25 15:19:36 skimo Exp (Berkeley) Date: 2001/06/25 15:19:36";
  16 #endif /* not lint */
  17
  18 #include <sys/types.h>
  19 #include <sys/queue.h>
  20 #include <sys/time.h>
  21
  22 #include <bitstring.h>
  23 #include <limits.h>
  24 #include <stdio.h>
  25
  26 #include "../common/common.h"
  27 #include "vi.h"
  28
  29 /*
  30  * v_xchar -- [buffer] [count]x
  31  *      Deletes the character(s) on which the cursor sits.
  32  *
  33  * PUBLIC: int v_xchar __P((SCR *, VICMD *));
  34  */
  35 int
  36 v_xchar(SCR *sp, VICMD *vp)
  37 {
  38         size_t len;
  39         int isempty;
  40
  41         if (db_eget(sp, vp->m_start.lno, NULL, &len, &isempty)) {
  42                 if (isempty)
  43                         goto nodel;
  44                 return (1);
  45         }
  46         if (len == 0) {
  47 nodel:          msgq(sp, M_BERR, "206|No characters to delete");
  48                 return (1);
  49         }
  50
  51         /*
  52          * Delete from the cursor toward the end of line, w/o moving the
  53          * cursor.
  54          *
  55          * !!!
  56          * Note, "2x" at EOL isn't the same as "xx" because the left movement
  57          * of the cursor as part of the 'x' command isn't taken into account.
  58          * Historically correct.
  59          */
  60         if (F_ISSET(vp, VC_C1SET))
  61                 vp->m_stop.cno += vp->count - 1;
  62         if (vp->m_stop.cno >= len - 1) {
  63                 vp->m_stop.cno = len - 1;
  64                 vp->m_final.cno = vp->m_start.cno ? vp->m_start.cno - 1 : 0;
  65         } else
  66                 vp->m_final.cno = vp->m_start.cno;
  67
  68         if (cut(sp,
  69             F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
  70             &vp->m_start, &vp->m_stop, 0))
  71                 return (1);
  72         return (del(sp, &vp->m_start, &vp->m_stop, 0));
  73 }
  74
  75 /*
  76  * v_Xchar -- [buffer] [count]X
  77  *      Deletes the character(s) immediately before the current cursor
  78  *      position.
  79  *
  80  * PUBLIC: int v_Xchar __P((SCR *, VICMD *));
  81  */
  82 int
  83 v_Xchar(SCR *sp, VICMD *vp)
  84 {
  85         u_long cnt;
  86
  87         if (vp->m_start.cno == 0) {
  88                 v_sol(sp);
  89                 return (1);
  90         }
  91
  92         cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1;
  93         if (cnt >= vp->m_start.cno)
  94                 vp->m_start.cno = 0;
  95         else
  96                 vp->m_start.cno -= cnt;
  97         --vp->m_stop.cno;
  98         vp->m_final.cno = vp->m_start.cno;
  99
 100         if (cut(sp,
 101             F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
 102             &vp->m_start, &vp->m_stop, 0))
 103                 return (1);
 104         return (del(sp, &vp->m_start, &vp->m_stop, 0));
 105 }