1/*	$NetBSD: v_put.c,v 1.2 2013/11/22 15:52:06 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
16static const char sccsid[] = "Id: v_put.c,v 10.6 2001/06/25 15:19:34 skimo Exp  (Berkeley) Date: 2001/06/25 15:19:34 ";
17#endif /* not lint */
18#else
19__RCSID("$NetBSD$");
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
33static void	inc_buf __P((SCR *, VICMD *));
34
35/*
36 * v_Put -- [buffer]P
37 *	Insert the contents of the buffer before the cursor.
38 *
39 * PUBLIC: int v_Put __P((SCR *, VICMD *));
40 */
41int
42v_Put(SCR *sp, VICMD *vp)
43{
44	u_long cnt;
45
46	if (F_ISSET(vp, VC_ISDOT))
47		inc_buf(sp, vp);
48
49	/*
50	 * !!!
51	 * Historic vi did not support a count with the 'p' and 'P'
52	 * commands.  It's useful, so we do.
53	 */
54	for (cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt--;) {
55		if (put(sp, NULL,
56		    F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
57		    &vp->m_start, &vp->m_final, 0))
58			return (1);
59		vp->m_start = vp->m_final;
60		if (INTERRUPTED(sp))
61			return (1);
62	}
63	return (0);
64}
65
66/*
67 * v_put -- [buffer]p
68 *	Insert the contents of the buffer after the cursor.
69 *
70 * PUBLIC: int v_put __P((SCR *, VICMD *));
71 */
72int
73v_put(SCR *sp, VICMD *vp)
74{
75	u_long cnt;
76
77	if (F_ISSET(vp, VC_ISDOT))
78		inc_buf(sp, vp);
79
80	/*
81	 * !!!
82	 * Historic vi did not support a count with the 'p' and 'P'
83	 * commands.  It's useful, so we do.
84	 */
85	for (cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt--;) {
86		if (put(sp, NULL,
87		    F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
88		    &vp->m_start, &vp->m_final, 1))
89			return (1);
90		vp->m_start = vp->m_final;
91		if (INTERRUPTED(sp))
92			return (1);
93	}
94	return (0);
95}
96
97/*
98 * !!!
99 * Historical whackadoo.  The dot command `puts' the numbered buffer
100 * after the last one put.  For example, `"4p.' would put buffer #4
101 * and buffer #5.  If the user continued to enter '.', the #9 buffer
102 * would be repeatedly output.  This was not documented, and is a bit
103 * tricky to reconstruct.  Historical versions of vi also dropped the
104 * contents of the default buffer after each put, so after `"4p' the
105 * default buffer would be empty.  This makes no sense to me, so we
106 * don't bother.  Don't assume sequential order of numeric characters.
107 *
108 * And, if that weren't exciting enough, failed commands don't normally
109 * set the dot command.  Well, boys and girls, an exception is that
110 * the buffer increment gets done regardless of the success of the put.
111 */
112static void
113inc_buf(SCR *sp, VICMD *vp)
114{
115	CHAR_T v;
116
117	switch (vp->buffer) {
118	case '1':
119		v = '2';
120		break;
121	case '2':
122		v = '3';
123		break;
124	case '3':
125		v = '4';
126		break;
127	case '4':
128		v = '5';
129		break;
130	case '5':
131		v = '6';
132		break;
133	case '6':
134		v = '7';
135		break;
136	case '7':
137		v = '8';
138		break;
139	case '8':
140		v = '9';
141		break;
142	default:
143		return;
144	}
145	VIP(sp)->sdot.buffer = vp->buffer = v;
146}
147