119304Speter/*- 219304Speter * Copyright (c) 1992, 1993, 1994 319304Speter * The Regents of the University of California. All rights reserved. 419304Speter * Copyright (c) 1992, 1993, 1994, 1995, 1996 519304Speter * Keith Bostic. All rights reserved. 619304Speter * 719304Speter * See the LICENSE file for redistribution information. 819304Speter */ 919304Speter 1019304Speter#include "config.h" 1119304Speter 1219304Speter#ifndef lint 13254225Speterstatic const char sccsid[] = "$Id: v_at.c,v 10.11 2001/06/25 15:19:30 skimo Exp $"; 1419304Speter#endif /* not lint */ 1519304Speter 1619304Speter#include <sys/types.h> 1719304Speter#include <sys/queue.h> 1819304Speter#include <sys/time.h> 1919304Speter 2019304Speter#include <bitstring.h> 2119304Speter#include <ctype.h> 2219304Speter#include <limits.h> 2319304Speter#include <stdio.h> 24254225Speter#include <string.h> 2519304Speter 2619304Speter#include "../common/common.h" 2719304Speter#include "vi.h" 2819304Speter 2919304Speter/* 3019304Speter * v_at -- @ 3119304Speter * Execute a buffer. 3219304Speter * 3319304Speter * PUBLIC: int v_at __P((SCR *, VICMD *)); 3419304Speter */ 3519304Speterint 36254225Speterv_at(SCR *sp, VICMD *vp) 3719304Speter{ 3819304Speter CB *cbp; 3919304Speter CHAR_T name; 4019304Speter TEXT *tp; 4119304Speter size_t len; 4219304Speter char nbuf[20]; 43254225Speter CHAR_T wbuf[20]; 44254225Speter CHAR_T *wp; 45254225Speter size_t wlen; 4619304Speter 4719304Speter /* 4819304Speter * !!! 4919304Speter * Historically, [@*]<carriage-return> and [@*][@*] executed the most 5019304Speter * recently executed buffer in ex mode. In vi mode, only @@ repeated 5119304Speter * the last buffer. We change historic practice and make @* work from 5219304Speter * vi mode as well, it's simpler and more consistent. 5319304Speter * 5419304Speter * My intent is that *[buffer] will, in the future, pass the buffer to 5519304Speter * whatever interpreter is loaded. 5619304Speter */ 5719304Speter name = F_ISSET(vp, VC_BUFFER) ? vp->buffer : '@'; 5819304Speter if (name == '@' || name == '*') { 5919304Speter if (!F_ISSET(sp, SC_AT_SET)) { 6019304Speter ex_emsg(sp, NULL, EXM_NOPREVBUF); 6119304Speter return (1); 6219304Speter } 6319304Speter name = sp->at_lbuf; 6419304Speter } 6519304Speter F_SET(sp, SC_AT_SET); 6619304Speter 6719304Speter CBNAME(sp, cbp, name); 6819304Speter if (cbp == NULL) { 6919304Speter ex_emsg(sp, KEY_NAME(sp, name), EXM_EMPTYBUF); 7019304Speter return (1); 7119304Speter } 7219304Speter 7319304Speter /* Save for reuse. */ 7419304Speter sp->at_lbuf = name; 7519304Speter 7619304Speter /* 7719304Speter * The buffer is executed in vi mode, while in vi mode, so simply 7819304Speter * push it onto the terminal queue and continue. 7919304Speter * 8019304Speter * !!! 8119304Speter * Historic practice is that if the buffer was cut in line mode, 8219304Speter * <newlines> were appended to each line as it was pushed onto 8319304Speter * the stack. If the buffer was cut in character mode, <newlines> 8419304Speter * were appended to all lines but the last one. 8519304Speter * 8619304Speter * XXX 8719304Speter * Historic practice is that execution of an @ buffer could be 8819304Speter * undone by a single 'u' command, i.e. the changes were grouped 8919304Speter * together. We don't get this right; I'm waiting for the new DB 9019304Speter * logging code to be available. 9119304Speter */ 92254225Speter TAILQ_FOREACH_REVERSE(tp, cbp->textq, _texth, q) { 93254225Speter if (((F_ISSET(cbp, CB_LMODE) || 94254225Speter TAILQ_NEXT(tp, q) != NULL) && 95254225Speter v_event_push(sp, NULL, L("\n"), 1, 0)) || 9619304Speter v_event_push(sp, NULL, tp->lb, tp->len, 0)) 9719304Speter return (1); 98254225Speter } 9919304Speter 10019304Speter /* 10119304Speter * !!! 10219304Speter * If any count was supplied, it applies to the first command in the 10319304Speter * at buffer. 10419304Speter */ 10519304Speter if (F_ISSET(vp, VC_C1SET)) { 10619304Speter len = snprintf(nbuf, sizeof(nbuf), "%lu", vp->count); 107254225Speter CHAR2INT(sp, nbuf, len, wp, wlen); 108254225Speter MEMCPY(wbuf, wp, wlen); 109254225Speter if (v_event_push(sp, NULL, wp, wlen, 0)) 11019304Speter return (1); 11119304Speter } 11219304Speter return (0); 11319304Speter} 114