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.
7 * See the LICENSE file for redistribution information.
13 static const char sccsid
[] = "$Id: v_increment.c,v 10.16 2001/06/25 15:19:31 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:31 $";
16 #include <sys/types.h>
17 #include <sys/queue.h>
20 #include <bitstring.h>
28 #include "../common/common.h"
31 static CHAR_T
* const fmt
[] = {
44 static void inc_err
__P((SCR
*, enum nresult
));
47 * v_increment -- [count]#[#+-]
48 * Increment/decrement a keyword number.
50 * PUBLIC: int v_increment __P((SCR *, VICMD *));
53 v_increment(SCR
*sp
, VICMD
*vp
)
57 long change
, ltmp
, lval
;
58 size_t beg
, blen
, end
, len
, nlen
, wlen
;
59 int base
, isempty
, rval
;
60 CHAR_T
*bp
, *p
, *t
, *ntype
, nbuf
[100];
62 /* Validate the operator. */
63 if (vp
->character
== L('#'))
64 vp
->character
= L('+');
65 if (vp
->character
!= L('+') && vp
->character
!= L('-')) {
66 v_emsg(sp
, vp
->kp
->usage
, VIM_USAGE
);
70 /* If new value set, save it off, but it has to fit in a long. */
71 if (F_ISSET(vp
, VC_C1SET
)) {
72 if (vp
->count
> LONG_MAX
) {
73 inc_err(sp
, NUM_OVER
);
81 if (db_eget(sp
, vp
->m_start
.lno
, &p
, &len
, &isempty
)) {
88 * Skip any leading space before the number. Getting a cursor word
89 * implies moving the cursor to its beginning, if we moved, refresh
92 for (beg
= vp
->m_start
.cno
; beg
< len
&& ISSPACE(p
[beg
]); ++beg
);
95 if (beg
!= vp
->m_start
.cno
) {
97 (void)vs_refresh(sp
, 0);
101 #define ishex(c) (ISDIGIT(c) || STRCHR(L("abcdefABCDEF"), c))
103 #define isoctal(c) (ISDIGIT(c) && (c) != L('8') && (c) != L('9'))
106 * Look for 0[Xx], or leading + or - signs, guess at the base.
107 * The character after that must be a number. Wlen is set to
108 * the remaining characters in the line that could be part of
112 if (p
[beg
] == L('0') && wlen
> 2 &&
113 (p
[beg
+ 1] == L('X') || p
[beg
+ 1] == L('x'))) {
118 ntype
= p
[beg
+ 1] == L('X') ? fmt
[HEXC
] : fmt
[HEXL
];
119 } else if (p
[beg
] == L('0') && wlen
> 1) {
122 if (!isoctal(p
[end
]))
125 } else if (wlen
>= 1 && (p
[beg
] == L('+') || p
[beg
] == L('-'))) {
129 if (!ISDIGIT(p
[end
]))
135 if (!ISDIGIT(p
[end
])) {
136 nonum
: msgq(sp
, M_ERR
, "181|Cursor not in a number");
141 /* Find the end of the word, possibly correcting the base. */
142 while (++end
< len
) {
147 if (p
[end
] == L('8') || p
[end
] == L('9')) {
171 * If the line was at the end of the buffer, we have to copy it
172 * so we can guarantee that it's NULL-terminated. We make the
173 * buffer big enough to fit the line changes as well, and only
176 GET_SPACE_RETW(sp
, bp
, blen
, len
+ 50);
178 MEMMOVEW(bp
, &p
[beg
], wlen
);
185 * Octal or hex deal in unsigned longs, everything else is done
189 if ((nret
= nget_slong(sp
, &lval
, t
, NULL
, 10)) != NUM_OK
)
191 ltmp
= vp
->character
== L('-') ? -change
: change
;
192 if (lval
> 0 && ltmp
> 0 && !NPFITS(LONG_MAX
, lval
, ltmp
)) {
196 if (lval
< 0 && ltmp
< 0 && !NNFITS(LONG_MIN
, lval
, ltmp
)) {
201 /* If we cross 0, signed numbers lose their sign. */
202 if (lval
== 0 && ntype
== fmt
[SDEC
])
204 nlen
= SPRINTF(nbuf
, SIZE(nbuf
), ntype
, lval
);
206 if ((nret
= nget_uslong(sp
, &ulval
, t
, NULL
, base
)) != NUM_OK
)
208 if (vp
->character
== L('+')) {
209 if (!NPFITS(ULONG_MAX
, ulval
, change
)) {
215 if (ulval
< change
) {
222 /* Correct for literal "0[Xx]" in format. */
226 nlen
= SPRINTF(nbuf
, SIZE(nbuf
), ntype
, wlen
, ulval
);
229 /* Build the new line. */
230 MEMMOVEW(bp
, p
, beg
);
231 MEMMOVEW(bp
+ beg
, nbuf
, nlen
);
232 MEMMOVEW(bp
+ beg
+ nlen
, p
+ end
, len
- beg
- (end
- beg
));
233 len
= beg
+ nlen
+ (len
- beg
- (end
- beg
));
236 rval
= db_set(sp
, vp
->m_start
.lno
, bp
, len
);
243 FREE_SPACEW(sp
, bp
, blen
);
248 inc_err(SCR
*sp
, enum nresult nret
)
257 msgq(sp
, M_ERR
, "182|Resulting number too large");
260 msgq(sp
, M_ERR
, "183|Resulting number too small");