1*0a6a1f1dSLionel Sambuc /* $NetBSD: ex_delete.c,v 1.3 2014/01/26 21:43:45 christos Exp $ */
284d9c625SLionel Sambuc /*-
384d9c625SLionel Sambuc * Copyright (c) 1992, 1993, 1994
484d9c625SLionel Sambuc * The Regents of the University of California. All rights reserved.
584d9c625SLionel Sambuc * Copyright (c) 1992, 1993, 1994, 1995, 1996
684d9c625SLionel Sambuc * Keith Bostic. All rights reserved.
784d9c625SLionel Sambuc *
884d9c625SLionel Sambuc * See the LICENSE file for redistribution information.
984d9c625SLionel Sambuc */
1084d9c625SLionel Sambuc
1184d9c625SLionel Sambuc #include "config.h"
1284d9c625SLionel Sambuc
13*0a6a1f1dSLionel Sambuc #include <sys/cdefs.h>
14*0a6a1f1dSLionel Sambuc #if 0
1584d9c625SLionel Sambuc #ifndef lint
1684d9c625SLionel Sambuc static const char sccsid[] = "Id: ex_delete.c,v 10.11 2001/06/25 15:19:15 skimo Exp (Berkeley) Date: 2001/06/25 15:19:15 ";
1784d9c625SLionel Sambuc #endif /* not lint */
18*0a6a1f1dSLionel Sambuc #else
19*0a6a1f1dSLionel Sambuc __RCSID("$NetBSD: ex_delete.c,v 1.3 2014/01/26 21:43:45 christos Exp $");
20*0a6a1f1dSLionel Sambuc #endif
2184d9c625SLionel Sambuc
2284d9c625SLionel Sambuc #include <sys/types.h>
2384d9c625SLionel Sambuc #include <sys/queue.h>
2484d9c625SLionel Sambuc
2584d9c625SLionel Sambuc #include <bitstring.h>
2684d9c625SLionel Sambuc #include <limits.h>
2784d9c625SLionel Sambuc #include <stdio.h>
2884d9c625SLionel Sambuc
2984d9c625SLionel Sambuc #include "../common/common.h"
3084d9c625SLionel Sambuc
3184d9c625SLionel Sambuc /*
3284d9c625SLionel Sambuc * ex_delete: [line [,line]] d[elete] [buffer] [count] [flags]
3384d9c625SLionel Sambuc *
3484d9c625SLionel Sambuc * Delete lines from the file.
3584d9c625SLionel Sambuc *
3684d9c625SLionel Sambuc * PUBLIC: int ex_delete __P((SCR *, EXCMD *));
3784d9c625SLionel Sambuc */
3884d9c625SLionel Sambuc int
ex_delete(SCR * sp,EXCMD * cmdp)3984d9c625SLionel Sambuc ex_delete(SCR *sp, EXCMD *cmdp)
4084d9c625SLionel Sambuc {
4184d9c625SLionel Sambuc db_recno_t lno;
4284d9c625SLionel Sambuc
4384d9c625SLionel Sambuc NEEDFILE(sp, cmdp);
4484d9c625SLionel Sambuc
4584d9c625SLionel Sambuc /*
4684d9c625SLionel Sambuc * !!!
4784d9c625SLionel Sambuc * Historically, lines deleted in ex were not placed in the numeric
4884d9c625SLionel Sambuc * buffers. We follow historic practice so that we don't overwrite
4984d9c625SLionel Sambuc * vi buffers accidentally.
5084d9c625SLionel Sambuc */
5184d9c625SLionel Sambuc if (cut(sp,
5284d9c625SLionel Sambuc FL_ISSET(cmdp->iflags, E_C_BUFFER) ? &cmdp->buffer : NULL,
5384d9c625SLionel Sambuc &cmdp->addr1, &cmdp->addr2, CUT_LINEMODE))
5484d9c625SLionel Sambuc return (1);
5584d9c625SLionel Sambuc
5684d9c625SLionel Sambuc /* Delete the lines. */
5784d9c625SLionel Sambuc if (del(sp, &cmdp->addr1, &cmdp->addr2, 1))
5884d9c625SLionel Sambuc return (1);
5984d9c625SLionel Sambuc
6084d9c625SLionel Sambuc /* Set the cursor to the line after the last line deleted. */
6184d9c625SLionel Sambuc sp->lno = cmdp->addr1.lno;
6284d9c625SLionel Sambuc
6384d9c625SLionel Sambuc /* Or the last line in the file if deleted to the end of the file. */
6484d9c625SLionel Sambuc if (db_last(sp, &lno))
6584d9c625SLionel Sambuc return (1);
6684d9c625SLionel Sambuc if (sp->lno > lno)
6784d9c625SLionel Sambuc sp->lno = lno;
6884d9c625SLionel Sambuc return (0);
6984d9c625SLionel Sambuc }
70