external/bsd/nvi/dist/ex/ex_at.c

   1 /*      $NetBSD: ex_at.c,v 1.5 2014/01/26 21:43:45 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 #include <sys/cdefs.h>
  14 #if 0
  15 #ifndef lint
  16 static const char sccsid[] = "Id: ex_at.c,v 10.16 2001/06/25 15:19:14 skimo Exp  (Berkeley) Date: 2001/06/25 15:19:14 ";
  17 #endif /* not lint */
  18 #else
  19 __RCSID("$NetBSD: ex_at.c,v 1.5 2014/01/26 21:43:45 christos Exp $");
  20 #endif
  21
  22 #include <sys/types.h>
  23 #include <sys/queue.h>
  24
  25 #include <bitstring.h>
  26 #include <ctype.h>
  27 #include <limits.h>
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <string.h>
  31
  32 #include "../common/common.h"
  33
  34 /*
  35  * ex_at -- :@[@ | buffer]
  36  *          :*[* | buffer]
  37  *
  38  *      Execute the contents of the buffer.
  39  *
  40  * PUBLIC: int ex_at __P((SCR *, EXCMD *));
  41  */
  42 int
  43 ex_at(SCR *sp, EXCMD *cmdp)
  44 {
  45         CB *cbp;
  46         ARG_CHAR_T name;
  47         EXCMD *ecp;
  48         RANGE *rp;
  49         TEXT *tp;
  50         size_t len;
  51         CHAR_T *p;
  52
  53         /*
  54          * !!!
  55          * Historically, [@*]<carriage-return> and [@*][@*] executed the most
  56          * recently executed buffer in ex mode.
  57          */
  58         name = FL_ISSET(cmdp->iflags, E_C_BUFFER) ? cmdp->buffer : '@';
  59         if (name == '@' || name == '*') {
  60                 if (!F_ISSET(sp, SC_AT_SET)) {
  61                         ex_emsg(sp, NULL, EXM_NOPREVBUF);
  62                         return (1);
  63                 }
  64                 name = sp->at_lbuf;
  65         }
  66         sp->at_lbuf = name;
  67         F_SET(sp, SC_AT_SET);
  68
  69         CBNAME(sp, cbp, name);
  70         if (cbp == NULL) {
  71                 ex_emsg(sp, (char *)KEY_NAME(sp, name), EXM_EMPTYBUF);
  72                 return (1);
  73         }
  74
  75         /*
  76          * !!!
  77          * Historically the @ command took a range of lines, and the @ buffer
  78          * was executed once per line.  The historic vi could be trashed by
  79          * this because it didn't notice if the underlying file changed, or,
  80          * for that matter, if there were no more lines on which to operate.
  81          * For example, take a 10 line file, load "%delete" into a buffer,
  82          * and enter :8,10@<buffer>.
  83          *
  84          * The solution is a bit tricky.  If the user specifies a range, take
  85          * the same approach as for global commands, and discard the command
  86          * if exit or switch to a new file/screen.  If the user doesn't specify
  87          * the  range, continue to execute after a file/screen switch, which
  88          * means @ buffers are still useful in a multi-screen environment.
  89          */
  90         CALLOC_RET(sp, ecp, EXCMD *, 1, sizeof(EXCMD));
  91         TAILQ_INIT(&ecp->rq);
  92         CALLOC_RET(sp, rp, RANGE *, 1, sizeof(RANGE));
  93         rp->start = cmdp->addr1.lno;
  94         if (F_ISSET(cmdp, E_ADDR_DEF)) {
  95                 rp->stop = rp->start;
  96                 FL_SET(ecp->agv_flags, AGV_AT_NORANGE);
  97         } else {
  98                 rp->stop = cmdp->addr2.lno;
  99                 FL_SET(ecp->agv_flags, AGV_AT);
 100         }
 101         TAILQ_INSERT_HEAD(&ecp->rq, rp, q);
 102
 103         /*
 104          * Buffers executed in ex mode or from the colon command line in vi
 105          * were ex commands.  We can't push it on the terminal queue, since
 106          * it has to be executed immediately, and we may be in the middle of
 107          * an ex command already.  Push the command on the ex command stack.
 108          * Build two copies of the command.  We need two copies because the
 109          * ex parser may step on the command string when it's parsing it.
 110          */
 111         for (len = 0, tp = TAILQ_LAST(&cbp->textq, _texth);
 112             tp != NULL; tp = TAILQ_PREV(tp, _texth, q))
 113                 len += tp->len + 1;
 114
 115         MALLOC_GOTO(sp, ecp->cp, CHAR_T *, len * 2 * sizeof(CHAR_T));
 116         ecp->o_cp = ecp->cp;
 117         ecp->o_clen = len;
 118         ecp->cp[len] = '\0';
 119
 120         /* Copy the buffer into the command space. */
 121         for (p = ecp->cp + len, tp = TAILQ_LAST(&cbp->textq, _texth);
 122             tp != NULL; tp = TAILQ_PREV(tp, _texth, q)) {
 123                 MEMCPYW(p, tp->lb, tp->len);
 124                 p += tp->len;
 125                 *p++ = '\n';
 126         }
 127
 128         LIST_INSERT_HEAD(&sp->wp->ecq, ecp, q);
 129         return (0);
 130 alloc_err:
 131         free(ecp);
 132         return 1;
 133 }