home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / EDITOR / NVI179B / NVI179B.ZIP / vi / v_replace.c < prev    next >
C/C++ Source or Header  |  1996-06-30  |  6KB  |  204 lines
  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[] = "@(#)v_replace.c    10.17 (Berkeley) 6/30/96";
  14. #endif /* not lint */
  15.  
  16. #include <sys/types.h>
  17. #include <sys/queue.h>
  18. #include <sys/time.h>
  19.  
  20. #include <bitstring.h>
  21. #include <ctype.h>
  22. #include <errno.h>
  23. #include <limits.h>
  24. #include <stdio.h>
  25. #include <stdlib.h>
  26. #include <string.h>
  27.  
  28. #include "../common/common.h"
  29. #include "vi.h"
  30.  
  31. /*
  32.  * v_replace -- [count]r<char>
  33.  *
  34.  * !!!
  35.  * The r command in historic vi was almost beautiful in its badness.  For
  36.  * example, "r<erase>" and "r<word erase>" beeped the terminal and deleted
  37.  * a single character.  "Nr<carriage return>", where N was greater than 1,
  38.  * inserted a single carriage return.  "r<escape>" did cancel the command,
  39.  * but "r<literal><escape>" erased a single character.  To enter a literal
  40.  * <literal> character, it required three <literal> characters after the
  41.  * command.  This may not be right, but at least it's not insane.
  42.  *
  43.  * PUBLIC: int v_replace __P((SCR *, VICMD *));
  44.  */
  45. int
  46. v_replace(sp, vp)
  47.     SCR *sp;
  48.     VICMD *vp;
  49. {
  50.     EVENT ev;
  51.     VI_PRIVATE *vip;
  52.     TEXT *tp;
  53.     size_t blen, len;
  54.     u_long cnt;
  55.     int quote, rval;
  56.     char *bp, *p;
  57.  
  58.     vip = VIP(sp);
  59.  
  60.     /*
  61.      * If the line doesn't exist, or it's empty, replacement isn't
  62.      * allowed.  It's not hard to implement, but:
  63.      *
  64.      *    1: It's historic practice (vi beeped before the replacement
  65.      *       character was even entered).
  66.      *    2: For consistency, this change would require that the more
  67.      *       general case, "Nr", when the user is < N characters from
  68.      *       the end of the line, also work, which would be a bit odd.
  69.      *    3: Replacing with a <newline> has somewhat odd semantics.
  70.      */
  71.     if (db_get(sp, vp->m_start.lno, DBG_FATAL, &p, &len))
  72.         return (1);
  73.     if (len == 0) {
  74.         msgq(sp, M_BERR, "186|No characters to replace");
  75.         return (1);
  76.     }
  77.  
  78.     /*
  79.      * Figure out how many characters to be replace.  For no particular
  80.      * reason (other than that the semantics of replacing the newline
  81.      * are confusing) only permit the replacement of the characters in
  82.      * the current line.  I suppose we could append replacement characters
  83.      * to the line, but I see no compelling reason to do so.  Check this
  84.      * before we get the character to match historic practice, where Nr
  85.      * failed immediately if there were less than N characters from the
  86.      * cursor to the end of the line.
  87.      */
  88.     cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1;
  89.     vp->m_stop.lno = vp->m_start.lno;
  90.     vp->m_stop.cno = vp->m_start.cno + cnt - 1;
  91.     if (vp->m_stop.cno > len - 1) {
  92.         v_eol(sp, &vp->m_start);
  93.         return (1);
  94.     }
  95.  
  96.     /*
  97.      * If it's not a repeat, reset the current mode and get a replacement
  98.      * character.
  99.      */
  100.     quote = 0;
  101.     if (!F_ISSET(vp, VC_ISDOT)) {
  102.         sp->showmode = SM_REPLACE;
  103.         if (vs_refresh(sp, 0))
  104.             return (1);
  105. next:        if (v_event_get(sp, &ev, 0, 0))
  106.             return (1);
  107.  
  108.         switch (ev.e_event) {
  109.         case E_CHARACTER:
  110.             /*
  111.              * <literal_next> means escape the next character.
  112.              * <escape> means they changed their minds.
  113.              */
  114.             if (!quote) {
  115.                 if (ev.e_value == K_VLNEXT) {
  116.                     quote = 1;
  117.                     goto next;
  118.                 }
  119.                 if (ev.e_value == K_ESCAPE)
  120.                     return (0);
  121.             }
  122.             vip->rlast = ev.e_c;
  123.             vip->rvalue = ev.e_value;
  124.             break;
  125.         case E_ERR:
  126.         case E_EOF:
  127.             F_SET(sp, SC_EXIT_FORCE);
  128.             return (1);
  129.         case E_INTERRUPT:
  130.             /* <interrupt> means they changed their minds. */
  131.             return (0);
  132.         case E_WRESIZE:
  133.             /* <resize> interrupts the input mode. */
  134.             v_emsg(sp, NULL, VIM_WRESIZE);
  135.             return (0);
  136.         case E_REPAINT:
  137.             if (vs_repaint(sp, &ev))
  138.                 return (1);
  139.             goto next;
  140.         default:
  141.             v_event_err(sp, &ev);
  142.             return (0);
  143.         }
  144.     }
  145.  
  146.     /* Copy the line. */
  147.     GET_SPACE_RET(sp, bp, blen, len);
  148.     memmove(bp, p, len);
  149.     p = bp;
  150.  
  151.     /*
  152.      * Versions of nvi before 1.57 created N new lines when they replaced
  153.      * N characters with <carriage-return> or <newline> characters.  This
  154.      * is different from the historic vi, which replaced N characters with
  155.      * a single new line.  Users complained, so we match historic practice.
  156.      */
  157.     if (!quote && vip->rvalue == K_CR || vip->rvalue == K_NL) {
  158.         /* Set return line. */
  159.         vp->m_stop.lno = vp->m_start.lno + 1;
  160.         vp->m_stop.cno = 0;
  161.  
  162.         /* The first part of the current line. */
  163.         if (db_set(sp, vp->m_start.lno, p, vp->m_start.cno))
  164.             goto err_ret;
  165.  
  166.         /*
  167.          * The rest of the current line.  And, of course, now it gets
  168.          * tricky.  If there are characters left in the line and if
  169.          * the autoindent edit option is set, white space after the
  170.          * replaced character is discarded, autoindent is applied, and
  171.          * the cursor moves to the last indent character.
  172.          */
  173.         p += vp->m_start.cno + cnt;
  174.         len -= vp->m_start.cno + cnt;
  175.         if (len != 0 && O_ISSET(sp, O_AUTOINDENT))
  176.             for (; len && isblank(*p); --len, ++p);
  177.  
  178.         if ((tp = text_init(sp, p, len, len)) == NULL)
  179.             goto err_ret;
  180.  
  181.         if (len != 0 && O_ISSET(sp, O_AUTOINDENT)) {
  182.             if (v_txt_auto(sp, vp->m_start.lno, NULL, 0, tp))
  183.                 goto err_ret;
  184.             vp->m_stop.cno = tp->ai ? tp->ai - 1 : 0;
  185.         } else
  186.             vp->m_stop.cno = 0;
  187.  
  188.         vp->m_stop.cno = tp->ai ? tp->ai - 1 : 0;
  189.         if (db_append(sp, 1, vp->m_start.lno, tp->lb, tp->len))
  190. err_ret:        rval = 1;
  191.         else {
  192.             text_free(tp);
  193.             rval = 0;
  194.         }
  195.     } else {
  196.         memset(bp + vp->m_start.cno, vip->rlast, cnt);
  197.         rval = db_set(sp, vp->m_start.lno, bp, len);
  198.     }
  199.     FREE_SPACE(sp, bp, blen);
  200.  
  201.     vp->m_final = vp->m_stop;
  202.     return (rval);
  203. }
  204.