external/bsd/nvi/dist/vi/v_put.c

   1 /*      $NetBSD: v_put.c,v 1.2 2013/11/22 15:52:06 christos Exp $       */
   2 /*-
   3  * Copyright (c) 1992, 1993, 1994
   4  *      The Regents of the University of California.  All rights reserved.
   5  * Copyright (c) 1992, 1993, 1994, 1995, 1996
   6  *      Keith Bostic.  All rights reserved.
   7  *
   8  * See the LICENSE file for redistribution information.
   9  */
  10
  11 #include "config.h"
  12
  13 #ifndef lint
  14 static const char sccsid[] = "Id: v_put.c,v 10.6 2001/06/25 15:19:34 skimo Exp  (Berkeley) Date: 2001/06/25 15:19:34 ";
  15 #endif /* not lint */
  16
  17 #include <sys/types.h>
  18 #include <sys/queue.h>
  19 #include <sys/time.h>
  20
  21 #include <bitstring.h>
  22 #include <limits.h>
  23 #include <stdio.h>
  24
  25 #include "../common/common.h"
  26 #include "vi.h"
  27
  28 static void     inc_buf __P((SCR *, VICMD *));
  29
  30 /*
  31  * v_Put -- [buffer]P
  32  *      Insert the contents of the buffer before the cursor.
  33  *
  34  * PUBLIC: int v_Put __P((SCR *, VICMD *));
  35  */
  36 int
  37 v_Put(SCR *sp, VICMD *vp)
  38 {
  39         u_long cnt;
  40
  41         if (F_ISSET(vp, VC_ISDOT))
  42                 inc_buf(sp, vp);
  43
  44         /*
  45          * !!!
  46          * Historic vi did not support a count with the 'p' and 'P'
  47          * commands.  It's useful, so we do.
  48          */
  49         for (cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt--;) {
  50                 if (put(sp, NULL,
  51                     F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
  52                     &vp->m_start, &vp->m_final, 0))
  53                         return (1);
  54                 vp->m_start = vp->m_final;
  55                 if (INTERRUPTED(sp))
  56                         return (1);
  57         }
  58         return (0);
  59 }
  60
  61 /*
  62  * v_put -- [buffer]p
  63  *      Insert the contents of the buffer after the cursor.
  64  *
  65  * PUBLIC: int v_put __P((SCR *, VICMD *));
  66  */
  67 int
  68 v_put(SCR *sp, VICMD *vp)
  69 {
  70         u_long cnt;
  71
  72         if (F_ISSET(vp, VC_ISDOT))
  73                 inc_buf(sp, vp);
  74
  75         /*
  76          * !!!
  77          * Historic vi did not support a count with the 'p' and 'P'
  78          * commands.  It's useful, so we do.
  79          */
  80         for (cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt--;) {
  81                 if (put(sp, NULL,
  82                     F_ISSET(vp, VC_BUFFER) ? &vp->buffer : NULL,
  83                     &vp->m_start, &vp->m_final, 1))
  84                         return (1);
  85                 vp->m_start = vp->m_final;
  86                 if (INTERRUPTED(sp))
  87                         return (1);
  88         }
  89         return (0);
  90 }
  91
  92 /*
  93  * !!!
  94  * Historical whackadoo.  The dot command `puts' the numbered buffer
  95  * after the last one put.  For example, `"4p.' would put buffer #4
  96  * and buffer #5.  If the user continued to enter '.', the #9 buffer
  97  * would be repeatedly output.  This was not documented, and is a bit
  98  * tricky to reconstruct.  Historical versions of vi also dropped the
  99  * contents of the default buffer after each put, so after `"4p' the
 100  * default buffer would be empty.  This makes no sense to me, so we
 101  * don't bother.  Don't assume sequential order of numeric characters.
 102  *
 103  * And, if that weren't exciting enough, failed commands don't normally
 104  * set the dot command.  Well, boys and girls, an exception is that
 105  * the buffer increment gets done regardless of the success of the put.
 106  */
 107 static void
 108 inc_buf(SCR *sp, VICMD *vp)
 109 {
 110         CHAR_T v;
 111
 112         switch (vp->buffer) {
 113         case '1':
 114                 v = '2';
 115                 break;
 116         case '2':
 117                 v = '3';
 118                 break;
 119         case '3':
 120                 v = '4';
 121                 break;
 122         case '4':
 123                 v = '5';
 124                 break;
 125         case '5':
 126                 v = '6';
 127                 break;
 128         case '6':
 129                 v = '7';
 130                 break;
 131         case '7':
 132                 v = '8';
 133                 break;
 134         case '8':
 135                 v = '9';
 136                 break;
 137         default:
 138                 return;
 139         }
 140         VIP(sp)->sdot.buffer = vp->buffer = v;
 141 }