ex/ex_delete.c

   1 /*-
   2  * Copyright (c) 1992, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * %sccs.include.redist.c%
   6  */
   7
   8 #ifndef lint
   9 static char sccsid[] = "$Id: ex_delete.c,v 8.6 1994/01/11 22:18:38 bostic Exp $ (Berkeley) $Date: 1994/01/11 22:18:38 $";
  10 #endif /* not lint */
  11
  12 #include <sys/types.h>
  13
  14 #include "vi.h"
  15 #include "excmd.h"
  16
  17 /*
  18  * ex_delete: [line [,line]] d[elete] [buffer] [count] [flags]
  19  *
  20  *      Delete lines from the file.
  21  */
  22 int
  23 ex_delete(sp, ep, cmdp)
  24         SCR *sp;
  25         EXF *ep;
  26         EXCMDARG *cmdp;
  27 {
  28         recno_t lno;
  29
  30         /* Yank the lines. */
  31         if (cut(sp, ep, NULL, F_ISSET(cmdp, E_BUFFER) ? &cmdp->buffer : NULL,
  32             &cmdp->addr1, &cmdp->addr2, CUT_DELETE | CUT_LINEMODE))
  33                 return (1);
  34
  35         /* Delete the lines. */
  36         if (delete(sp, ep, &cmdp->addr1, &cmdp->addr2, 1))
  37                 return (1);
  38
  39         /* Set the cursor to the line after the last line deleted. */
  40         sp->lno = cmdp->addr1.lno;
  41
  42         /* Or the last line in the file if deleted to the end of the file. */
  43         if (file_lline(sp, ep, &lno))
  44                 return (1);
  45         if (sp->lno > lno)
  46                 sp->lno = lno;
  47         return (0);
  48 }