freebsd-skq/contrib/nvi/ex/ex_delete.c
peter 59cc89c2c2 Import of nvi-1.79, minus a few bits that we dont need (eg: postscript
files, curses, db, regex etc that we already have).  The other glue will
follow shortly.

Obtained from: Keith Bostic <bostic@bostic.com>
1996-11-01 06:45:43 +00:00

66 lines
1.4 KiB
C

/*-
* Copyright (c) 1992, 1993, 1994
* The Regents of the University of California. All rights reserved.
* Copyright (c) 1992, 1993, 1994, 1995, 1996
* Keith Bostic. All rights reserved.
*
* See the LICENSE file for redistribution information.
*/
#include "config.h"
#ifndef lint
static const char sccsid[] = "@(#)ex_delete.c 10.9 (Berkeley) 10/23/96";
#endif /* not lint */
#include <sys/types.h>
#include <sys/queue.h>
#include <bitstring.h>
#include <limits.h>
#include <stdio.h>
#include "../common/common.h"
/*
* ex_delete: [line [,line]] d[elete] [buffer] [count] [flags]
*
* Delete lines from the file.
*
* PUBLIC: int ex_delete __P((SCR *, EXCMD *));
*/
int
ex_delete(sp, cmdp)
SCR *sp;
EXCMD *cmdp;
{
recno_t lno;
NEEDFILE(sp, cmdp);
/*
* !!!
* Historically, lines deleted in ex were not placed in the numeric
* buffers. We follow historic practice so that we don't overwrite
* vi buffers accidentally.
*/
if (cut(sp,
FL_ISSET(cmdp->iflags, E_C_BUFFER) ? &cmdp->buffer : NULL,
&cmdp->addr1, &cmdp->addr2, CUT_LINEMODE))
return (1);
/* Delete the lines. */
if (del(sp, &cmdp->addr1, &cmdp->addr2, 1))
return (1);
/* Set the cursor to the line after the last line deleted. */
sp->lno = cmdp->addr1.lno;
/* Or the last line in the file if deleted to the end of the file. */
if (db_last(sp, &lno))
return (1);
if (sp->lno > lno)
sp->lno = lno;
return (0);
}