1/*	$NetBSD: v_xchar.c,v 1.1.1.2 2008/05/18 14:31:48 aymeric Exp $ */
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
15static 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 */
35int
36v_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) {
47nodel:		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 */
82int
83v_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}
106