common/delete.c

   1 /*-
   2  * Copyright (c) 1992, 1993, 1994
   3  *      The Regents of the University of California.  All rights reserved.
   4  * Copyright (c) 1992, 1993, 1994, 1995, 1996
   5  *      Keith Bostic.  All rights reserved.
   6  *
   7  * See the LICENSE file for redistribution information.
   8  */
   9
  10 #include "config.h"
  11
  12 #ifndef lint
  13 static const char sccsid[] = "$Id: delete.c,v 10.16 2000/07/15 20:26:34 skimo Exp $ (Berkeley) $Date: 2000/07/15 20:26:34 $";
  14 #endif /* not lint */
  15
  16 #include <sys/types.h>
  17 #include <sys/queue.h>
  18
  19 #include <bitstring.h>
  20 #include <errno.h>
  21 #include <limits.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25
  26 #include "common.h"
  27
  28 /*
  29  * del --
  30  *      Delete a range of text.
  31  *
  32  * PUBLIC: int del __P((SCR *, MARK *, MARK *, int));
  33  */
  34 int
  35 del(sp, fm, tm, lmode)
  36         SCR *sp;
  37         MARK *fm, *tm;
  38         int lmode;
  39 {
  40         db_recno_t lno;
  41         size_t blen, len, nlen, tlen;
  42         CHAR_T *bp, *p;
  43         int eof, rval;
  44
  45         bp = NULL;
  46
  47         /* Case 1 -- delete in line mode. */
  48         if (lmode) {
  49                 for (lno = tm->lno; lno >= fm->lno; --lno) {
  50                         if (db_delete(sp, lno))
  51                                 return (1);
  52                         ++sp->rptlines[L_DELETED];
  53                         if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
  54                                 break;
  55                 }
  56                 goto done;
  57         }
  58
  59         /*
  60          * Case 2 -- delete to EOF.  This is a special case because it's
  61          * easier to pick it off than try and find it in the other cases.
  62          */
  63         if (db_last(sp, &lno))
  64                 return (1);
  65         if (tm->lno >= lno) {
  66                 if (tm->lno == lno) {
  67                         if (db_get(sp, lno, DBG_FATAL, &p, &len))
  68                                 return (1);
  69                         eof = tm->cno >= len ? 1 : 0;
  70                 } else
  71                         eof = 1;
  72                 if (eof) {
  73                         for (lno = tm->lno; lno > fm->lno; --lno) {
  74                                 if (db_delete(sp, lno))
  75                                         return (1);
  76                                 ++sp->rptlines[L_DELETED];
  77                                 if (lno %
  78                                     INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
  79                                         break;
  80                         }
  81                         if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
  82                                 return (1);
  83                         GET_SPACE_RETW(sp, bp, blen, fm->cno);
  84                         MEMCPYW(bp, p, fm->cno);
  85                         if (db_set(sp, fm->lno, bp, fm->cno))
  86                                 return (1);
  87                         goto done;
  88                 }
  89         }
  90
  91         /* Case 3 -- delete within a single line. */
  92         if (tm->lno == fm->lno) {
  93                 if (db_get(sp, fm->lno, DBG_FATAL, &p, &len))
  94                         return (1);
  95                 GET_SPACE_RETW(sp, bp, blen, len);
  96                 if (fm->cno != 0)
  97                         MEMCPYW(bp, p, fm->cno);
  98                 MEMCPYW(bp + fm->cno, p + (tm->cno + 1),
  99                         len - (tm->cno + 1));
 100                 if (db_set(sp, fm->lno,
 101                     bp, len - ((tm->cno - fm->cno) + 1)))
 102                         goto err;
 103                 goto done;
 104         }
 105
 106         /*
 107          * Case 4 -- delete over multiple lines.
 108          *
 109          * Copy the start partial line into place.
 110          */
 111         if ((tlen = fm->cno) != 0) {
 112                 if (db_get(sp, fm->lno, DBG_FATAL, &p, NULL))
 113                         return (1);
 114                 GET_SPACE_RETW(sp, bp, blen, tlen + 256);
 115                 MEMCPYW(bp, p, tlen);
 116         }
 117
 118         /* Copy the end partial line into place. */
 119         if (db_get(sp, tm->lno, DBG_FATAL, &p, &len))
 120                 goto err;
 121         if (len != 0 && tm->cno != len - 1) {
 122                 /*
 123                  * XXX
 124                  * We can overflow memory here, if the total length is greater
 125                  * than SIZE_T_MAX.  The only portable way I've found to test
 126                  * is depending on the overflow being less than the value.
 127                  */
 128                 nlen = (len - (tm->cno + 1)) + tlen;
 129                 if (tlen > nlen) {
 130                         msgq(sp, M_ERR, "002|Line length overflow");
 131                         goto err;
 132                 }
 133                 if (tlen == 0) {
 134                         GET_SPACE_RETW(sp, bp, blen, nlen);
 135                 } else
 136                         ADD_SPACE_RETW(sp, bp, blen, nlen);
 137
 138                 MEMCPYW(bp + tlen, p + (tm->cno + 1), len - (tm->cno + 1));
 139                 tlen += len - (tm->cno + 1);
 140         }
 141
 142         /* Set the current line. */
 143         if (db_set(sp, fm->lno, bp, tlen))
 144                 goto err;
 145
 146         /* Delete the last and intermediate lines. */
 147         for (lno = tm->lno; lno > fm->lno; --lno) {
 148                 if (db_delete(sp, lno))
 149                         goto err;
 150                 ++sp->rptlines[L_DELETED];
 151                 if (lno % INTERRUPT_CHECK == 0 && INTERRUPTED(sp))
 152                         break;
 153         }
 154
 155 done:   rval = 0;
 156         if (0)
 157 err:            rval = 1;
 158         if (bp != NULL)
 159                 FREE_SPACEW(sp, bp, blen);
 160         return (rval);
 161 }