* Copyright (c) 1992, 1993, 1994
* The Regents of the University of California. All rights reserved.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
static char sccsid
[] = "@(#)put.c 8.4 (Berkeley) 4/9/94";
* Put text buffer contents into the file.
* Historically, pasting into a file with no lines in vi would preserve
* the single blank line. This is almost certainly a result of the fact
* that historic vi couldn't deal with a file that had no lines in it.
* This implementation treats that as a bug, and does not retain the blank
put(sp
, ep
, cbp
, namep
, cp
, rp
, append
)
msgq(sp
, M_ERR
, "The default buffer is empty.");
"Buffer %s is empty.", KEY_NAME(sp
, name
));
tp
= cbp
->textq
.cqh_first
;
* It's possible to do a put into an empty file, meaning that the
* cut buffer simply becomes the file. It's a special case so
* that we can ignore it in general.
* Historical practice is that the cursor ends up on the first
* non-blank character of the first line inserted.
if (file_lline(sp
, ep
, &lno
))
for (; tp
!= (void *)&cbp
->textq
;
++lno
, tp
= tp
->q
.cqe_next
)
if (file_aline(sp
, ep
, 1, lno
, tp
->lb
, tp
->len
))
(void)nonblank(sp
, ep
, rp
->lno
, &rp
->cno
);
/* If a line mode buffer, append each new line into the file. */
if (F_ISSET(cbp
, CB_LMODE
)) {
lno
= append
? cp
->lno
: cp
->lno
- 1;
for (; tp
!= (void *)&cbp
->textq
; ++lno
, tp
= tp
->q
.cqe_next
)
if (file_aline(sp
, ep
, 1, lno
, tp
->lb
, tp
->len
))
(void)nonblank(sp
, ep
, rp
->lno
, &rp
->cno
);
* If buffer was cut in character mode, replace the current line with
* one built from the portion of the first line to the left of the
* split plus the first line in the CB. Append each intermediate line
* in the CB. Append a line built from the portion of the first line
* to the right of the split plus the last line in the CB.
if ((p
= file_gline(sp
, ep
, lno
, &len
)) == NULL
) {
GET_SPACE_RET(sp
, bp
, blen
, tp
->len
+ len
+ 1);
/* Original line, left of the split. */
if (len
> 0 && (clen
= cp
->cno
+ (append
? 1 : 0)) > 0) {
/* First line from the CB. */
memmove(t
, tp
->lb
, tp
->len
);
/* Calculate length left in original line. */
clen
= len
? len
- cp
->cno
- (append
? 1 : 0) : 0;
* If no more lines in the CB, append the rest of the original
* line and quit. Otherwise, build the last line before doing
* the intermediate lines, because the line changes will lose
if (tp
->q
.cqe_next
== (void *)&cbp
->textq
) {
* Historical practice is that if a non-line mode put
* is inside a single line, the cursor ends up on the
* last character inserted.
if (file_sline(sp
, ep
, lno
, bp
, t
- bp
))
* Have to build both the first and last lines of the
* put before doing any sets or we'll lose the cached
* line. Build both the first and last lines in the
* same buffer, so we don't have to have another buffer
* Last part of original line; check for space, reset
* the pointer into the buffer.
ltp
= cbp
->textq
.cqh_last
;
ADD_SPACE_RET(sp
, bp
, blen
, ltp
->len
+ clen
);
/* Add in last part of the CB. */
memmove(t
, ltp
->lb
, ltp
->len
);
memmove(t
+ ltp
->len
, p
, clen
);
* Now: bp points to the first character of the first
* line, t points to the last character of the last
* line, t - bp is the length of the first line, and
* clen is the length of the last. Just figured you'd
* Output the line replacing the original line.
if (file_sline(sp
, ep
, lno
, bp
, t
- bp
))
* Historical practice is that if a non-line mode put
* covers multiple lines, the cursor ends up on the
* first character inserted. (Of course.)
/* Output any intermediate lines in the CB. */
for (tp
= tp
->q
.cqe_next
;
tp
->q
.cqe_next
!= (void *)&cbp
->textq
;
++lno
, tp
= tp
->q
.cqe_next
)
if (file_aline(sp
, ep
, 1, lno
, tp
->lb
, tp
->len
))
if (file_aline(sp
, ep
, 1, lno
, t
, clen
)) {
mem
: FREE_SPACE(sp
, bp
, blen
);
FREE_SPACE(sp
, bp
, blen
);
ret
: sp
->rptlines
[L_PUT
] += lno
- cp
->lno
;