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: ex.c,v 10.80 2012/10/03 16:24:40 zy Exp $"; 1419304Speter#endif /* not lint */ 1519304Speter 1619304Speter#include <sys/types.h> 1719304Speter#include <sys/queue.h> 1819304Speter#include <sys/stat.h> 1919304Speter 2019304Speter#include <bitstring.h> 2119304Speter#include <ctype.h> 2219304Speter#include <errno.h> 2319304Speter#include <fcntl.h> 2419304Speter#include <limits.h> 2519304Speter#include <stdio.h> 2619304Speter#include <stdlib.h> 2719304Speter#include <string.h> 2819304Speter#include <unistd.h> 2919304Speter 3019304Speter#include "../common/common.h" 3119304Speter#include "../vi/vi.h" 3219304Speter 3319304Speter#if defined(DEBUG) && defined(COMLOG) 34281373Sbaptstatic void ex_comlog(SCR *, EXCMD *); 3519304Speter#endif 3619304Speterstatic EXCMDLIST const * 37281373Sbapt ex_comm_search(CHAR_T *, size_t); 38281373Sbaptstatic int ex_discard(SCR *); 39281373Sbaptstatic int ex_line(SCR *, EXCMD *, MARK *, int *, int *); 40281373Sbaptstatic int ex_load(SCR *); 41281373Sbaptstatic void ex_unknown(SCR *, CHAR_T *, size_t); 4219304Speter 4319304Speter/* 4419304Speter * ex -- 4519304Speter * Main ex loop. 4619304Speter * 47281373Sbapt * PUBLIC: int ex(SCR **); 4819304Speter */ 4919304Speterint 50254225Speterex(SCR **spp) 5119304Speter{ 5219304Speter EX_PRIVATE *exp; 5319304Speter GS *gp; 5419304Speter MSGS *mp; 5519304Speter SCR *sp; 5619304Speter TEXT *tp; 5719304Speter u_int32_t flags; 5819304Speter 5919304Speter sp = *spp; 6019304Speter gp = sp->gp; 6119304Speter exp = EXP(sp); 6219304Speter 6319304Speter /* Start the ex screen. */ 6419304Speter if (ex_init(sp)) 6519304Speter return (1); 6619304Speter 6719304Speter /* Flush any saved messages. */ 68254225Speter while ((mp = SLIST_FIRST(gp->msgq)) != NULL) { 6919304Speter gp->scr_msg(sp, mp->mtype, mp->buf, mp->len); 70254225Speter SLIST_REMOVE_HEAD(gp->msgq, q); 7119304Speter free(mp->buf); 7219304Speter free(mp); 7319304Speter } 7419304Speter 7519304Speter /* If reading from a file, errors should have name and line info. */ 7619304Speter if (F_ISSET(gp, G_SCRIPTED)) { 7719304Speter gp->excmd.if_lno = 1; 7819304Speter gp->excmd.if_name = "script"; 7919304Speter } 8019304Speter 8119304Speter /* 8219304Speter * !!! 8319304Speter * Initialize the text flags. The beautify edit option historically 8419304Speter * applied to ex command input read from a file. In addition, the 8519304Speter * first time a ^H was discarded from the input, there was a message, 8619304Speter * "^H discarded", that was displayed. We don't bother. 8719304Speter */ 8819304Speter LF_INIT(TXT_BACKSLASH | TXT_CNTRLD | TXT_CR); 8919304Speter for (;; ++gp->excmd.if_lno) { 9019304Speter /* Display status line and flush. */ 9119304Speter if (F_ISSET(sp, SC_STATUS)) { 9219304Speter if (!F_ISSET(sp, SC_EX_SILENT)) 9319304Speter msgq_status(sp, sp->lno, 0); 9419304Speter F_CLR(sp, SC_STATUS); 9519304Speter } 9619304Speter (void)ex_fflush(sp); 9719304Speter 9819304Speter /* Set the flags the user can reset. */ 9919304Speter if (O_ISSET(sp, O_BEAUTIFY)) 10019304Speter LF_SET(TXT_BEAUTIFY); 10119304Speter if (O_ISSET(sp, O_PROMPT)) 10219304Speter LF_SET(TXT_PROMPT); 10319304Speter 10419304Speter /* Clear any current interrupts, and get a command. */ 10519304Speter CLR_INTERRUPT(sp); 106254225Speter if (ex_txt(sp, sp->tiq, ':', flags)) 10719304Speter return (1); 10819304Speter if (INTERRUPTED(sp)) { 10919304Speter (void)ex_puts(sp, "\n"); 11019304Speter (void)ex_fflush(sp); 11119304Speter continue; 11219304Speter } 11319304Speter 11419304Speter /* Initialize the command structure. */ 11519304Speter CLEAR_EX_PARSER(&gp->excmd); 11619304Speter 11719304Speter /* 11819304Speter * If the user entered a single carriage return, send 11919304Speter * ex_cmd() a separator -- it discards single newlines. 12019304Speter */ 121254225Speter tp = TAILQ_FIRST(sp->tiq); 12219304Speter if (tp->len == 0) { 123254225Speter gp->excmd.cp = L(" "); /* __TK__ why not |? */ 12419304Speter gp->excmd.clen = 1; 12519304Speter } else { 12619304Speter gp->excmd.cp = tp->lb; 12719304Speter gp->excmd.clen = tp->len; 12819304Speter } 12919304Speter F_INIT(&gp->excmd, E_NRSEP); 13019304Speter 13119304Speter if (ex_cmd(sp) && F_ISSET(gp, G_SCRIPTED)) 13219304Speter return (1); 13319304Speter 13419304Speter if (INTERRUPTED(sp)) { 13519304Speter CLR_INTERRUPT(sp); 13619304Speter msgq(sp, M_ERR, "170|Interrupted"); 13719304Speter } 13819304Speter 13919304Speter /* 14019304Speter * If the last command caused a restart, or switched screens 14119304Speter * or into vi, return. 14219304Speter */ 14319304Speter if (F_ISSET(gp, G_SRESTART) || F_ISSET(sp, SC_SSWITCH | SC_VI)) { 14419304Speter *spp = sp; 14519304Speter break; 14619304Speter } 14719304Speter 14819304Speter /* If the last command switched files, we don't care. */ 14919304Speter F_CLR(sp, SC_FSWITCH); 15019304Speter 15119304Speter /* 15219304Speter * If we're exiting this screen, move to the next one. By 15319304Speter * definition, this means returning into vi, so return to the 15419304Speter * main editor loop. The ordering is careful, don't discard 15519304Speter * the contents of sp until the end. 15619304Speter */ 15719304Speter if (F_ISSET(sp, SC_EXIT | SC_EXIT_FORCE)) { 15819304Speter if (file_end(sp, NULL, F_ISSET(sp, SC_EXIT_FORCE))) 15919304Speter return (1); 16019304Speter *spp = screen_next(sp); 16119304Speter return (screen_end(sp)); 16219304Speter } 16319304Speter } 16419304Speter return (0); 16519304Speter} 16619304Speter 16719304Speter/* 16819304Speter * ex_cmd -- 16919304Speter * The guts of the ex parser: parse and execute a string containing 17019304Speter * ex commands. 17119304Speter * 17219304Speter * !!! 17319304Speter * This code MODIFIES the string that gets passed in, to delete quoting 17419304Speter * characters, etc. The string cannot be readonly/text space, nor should 17519304Speter * you expect to use it again after ex_cmd() returns. 17619304Speter * 17719304Speter * !!! 17819304Speter * For the fun of it, if you want to see if a vi clone got the ex argument 17919304Speter * parsing right, try: 18019304Speter * 18119304Speter * echo 'foo|bar' > file1; echo 'foo/bar' > file2; 18219304Speter * vi 18319304Speter * :edit +1|s/|/PIPE/|w file1| e file2|1 | s/\//SLASH/|wq 18419304Speter * 18519304Speter * or: vi 18619304Speter * :set|file|append|set|file 18719304Speter * 18819304Speter * For extra credit, try them in a startup .exrc file. 18919304Speter * 190281373Sbapt * PUBLIC: int ex_cmd(SCR *); 19119304Speter */ 19219304Speterint 193254225Speterex_cmd(SCR *sp) 19419304Speter{ 19519304Speter enum nresult nret; 19619304Speter EX_PRIVATE *exp; 19719304Speter EXCMD *ecp; 19819304Speter GS *gp; 19919304Speter MARK cur; 20019304Speter recno_t lno; 20119304Speter size_t arg1_len, discard, len; 20219304Speter u_int32_t flags; 20319304Speter long ltmp; 20419304Speter int at_found, gv_found; 205254225Speter int cnt, delim, isaddr, namelen; 20619304Speter int newscreen, notempty, tmp, vi_address; 207254225Speter CHAR_T *arg1, *s, *p, *t; 208254225Speter CHAR_T ch = '\0'; 209254225Speter CHAR_T *n; 210254225Speter char *np; 21119304Speter 21219304Speter gp = sp->gp; 21319304Speter exp = EXP(sp); 21419304Speter 21519304Speter /* 21619304Speter * We always start running the command on the top of the stack. 21719304Speter * This means that *everything* must be resolved when we leave 21819304Speter * this function for any reason. 21919304Speter */ 220254225Speterloop: ecp = SLIST_FIRST(gp->ecq); 22119304Speter 22219304Speter /* If we're reading a command from a file, set up error information. */ 22319304Speter if (ecp->if_name != NULL) { 22419304Speter gp->if_lno = ecp->if_lno; 22519304Speter gp->if_name = ecp->if_name; 22619304Speter } 22719304Speter 22819304Speter /* 22919304Speter * If a move to the end of the file is scheduled for this command, 23019304Speter * do it now. 23119304Speter */ 23219304Speter if (F_ISSET(ecp, E_MOVETOEND)) { 23319304Speter if (db_last(sp, &sp->lno)) 23419304Speter goto rfail; 23519304Speter sp->cno = 0; 23619304Speter F_CLR(ecp, E_MOVETOEND); 23719304Speter } 23819304Speter 23919304Speter /* If we found a newline, increment the count now. */ 24019304Speter if (F_ISSET(ecp, E_NEWLINE)) { 24119304Speter ++gp->if_lno; 24219304Speter ++ecp->if_lno; 24319304Speter F_CLR(ecp, E_NEWLINE); 24419304Speter } 24519304Speter 24619304Speter /* (Re)initialize the EXCMD structure, preserving some flags. */ 24719304Speter CLEAR_EX_CMD(ecp); 24819304Speter 24919304Speter /* Initialize the argument structures. */ 25019304Speter if (argv_init(sp, ecp)) 25119304Speter goto err; 25219304Speter 25319304Speter /* Initialize +cmd, saved command information. */ 25419304Speter arg1 = NULL; 25519304Speter ecp->save_cmdlen = 0; 25619304Speter 25719304Speter /* Skip <blank>s, empty lines. */ 25819304Speter for (notempty = 0; ecp->clen > 0; ++ecp->cp, --ecp->clen) 25919304Speter if ((ch = *ecp->cp) == '\n') { 26019304Speter ++gp->if_lno; 26119304Speter ++ecp->if_lno; 262254225Speter } else if (cmdskip(ch)) 26319304Speter notempty = 1; 26419304Speter else 26519304Speter break; 26619304Speter 26719304Speter /* 26819304Speter * !!! 26919304Speter * Permit extra colons at the start of the line. Historically, 27019304Speter * ex/vi allowed a single extra one. It's simpler not to count. 27119304Speter * The stripping is done here because, historically, any command 27219304Speter * could have preceding colons, e.g. ":g/pattern/:p" worked. 27319304Speter */ 27419304Speter if (ecp->clen != 0 && ch == ':') { 27519304Speter notempty = 1; 27619304Speter while (--ecp->clen > 0 && (ch = *++ecp->cp) == ':'); 27719304Speter } 27819304Speter 27919304Speter /* 28019304Speter * Command lines that start with a double-quote are comments. 28119304Speter * 28219304Speter * !!! 28319304Speter * Historically, there was no escape or delimiter for a comment, e.g. 28419304Speter * :"foo|set was a single comment and nothing was output. Since nvi 28519304Speter * permits users to escape <newline> characters into command lines, we 28619304Speter * have to check for that case. 28719304Speter */ 28819304Speter if (ecp->clen != 0 && ch == '"') { 28919304Speter while (--ecp->clen > 0 && *++ecp->cp != '\n'); 29019304Speter if (*ecp->cp == '\n') { 29119304Speter F_SET(ecp, E_NEWLINE); 29219304Speter ++ecp->cp; 29319304Speter --ecp->clen; 29419304Speter } 29519304Speter goto loop; 29619304Speter } 29719304Speter 29819304Speter /* Skip whitespace. */ 29919304Speter for (; ecp->clen > 0; ++ecp->cp, --ecp->clen) { 30019304Speter ch = *ecp->cp; 301254225Speter if (!cmdskip(ch)) 30219304Speter break; 30319304Speter } 30419304Speter 30519304Speter /* 30619304Speter * The last point at which an empty line can mean do nothing. 30719304Speter * 30819304Speter * !!! 30919304Speter * Historically, in ex mode, lines containing only <blank> characters 31019304Speter * were the same as a single <carriage-return>, i.e. a default command. 31119304Speter * In vi mode, they were ignored. In .exrc files this was a serious 31219304Speter * annoyance, as vi kept trying to treat them as print commands. We 31319304Speter * ignore backward compatibility in this case, discarding lines that 31419304Speter * contain only <blank> characters from .exrc files. 31519304Speter * 31619304Speter * !!! 31719304Speter * This is where you end up when you're done a command, i.e. clen has 31819304Speter * gone to zero. Continue if there are more commands to run. 31919304Speter */ 32019304Speter if (ecp->clen == 0 && 32119304Speter (!notempty || F_ISSET(sp, SC_VI) || F_ISSET(ecp, E_BLIGNORE))) { 32219304Speter if (ex_load(sp)) 32319304Speter goto rfail; 324254225Speter ecp = SLIST_FIRST(gp->ecq); 32519304Speter if (ecp->clen == 0) 32619304Speter goto rsuccess; 32719304Speter goto loop; 32819304Speter } 32919304Speter 33019304Speter /* 33119304Speter * Check to see if this is a command for which we may want to move 33219304Speter * the cursor back up to the previous line. (The command :1<CR> 33319304Speter * wants a <newline> separator, but the command :<CR> wants to erase 33419304Speter * the command line.) If the line is empty except for <blank>s, 33519304Speter * <carriage-return> or <eof>, we'll probably want to move up. I 33619304Speter * don't think there's any way to get <blank> characters *after* the 33719304Speter * command character, but this is the ex parser, and I've been wrong 33819304Speter * before. 33919304Speter */ 34019304Speter if (F_ISSET(ecp, E_NRSEP) && 34119304Speter ecp->clen != 0 && (ecp->clen != 1 || ecp->cp[0] != '\004')) 34219304Speter F_CLR(ecp, E_NRSEP); 34319304Speter 34419304Speter /* Parse command addresses. */ 34519304Speter if (ex_range(sp, ecp, &tmp)) 34619304Speter goto rfail; 34719304Speter if (tmp) 34819304Speter goto err; 34919304Speter 35019304Speter /* 35119304Speter * Skip <blank>s and any more colons (the command :3,5:print 35219304Speter * worked, historically). 35319304Speter */ 35419304Speter for (; ecp->clen > 0; ++ecp->cp, --ecp->clen) { 35519304Speter ch = *ecp->cp; 356254225Speter if (!cmdskip(ch) && ch != ':') 35719304Speter break; 35819304Speter } 35919304Speter 36019304Speter /* 36119304Speter * If no command, ex does the last specified of p, l, or #, and vi 36219304Speter * moves to the line. Otherwise, determine the length of the command 36319304Speter * name by looking for the first non-alphabetic character. (There 36419304Speter * are a few non-alphabetic characters in command names, but they're 36519304Speter * all single character commands.) This isn't a great test, because 36619304Speter * it means that, for the command ":e +cut.c file", we'll report that 36719304Speter * the command "cut" wasn't known. However, it makes ":e+35 file" work 36819304Speter * correctly. 36919304Speter * 37019304Speter * !!! 37119304Speter * Historically, lines with multiple adjacent (or <blank> separated) 37219304Speter * command separators were very strange. For example, the command 37319304Speter * |||<carriage-return>, when the cursor was on line 1, displayed 37419304Speter * lines 2, 3 and 5 of the file. In addition, the command " | " 37519304Speter * would only display the line after the next line, instead of the 37619304Speter * next two lines. No ideas why. It worked reasonably when executed 37719304Speter * from vi mode, and displayed lines 2, 3, and 4, so we do a default 37819304Speter * command for each separator. 37919304Speter */ 380254225Speter#define SINGLE_CHAR_COMMANDS L("\004!#&*<=>@~") 38119304Speter newscreen = 0; 38219304Speter if (ecp->clen != 0 && ecp->cp[0] != '|' && ecp->cp[0] != '\n') { 383254225Speter if (STRCHR(SINGLE_CHAR_COMMANDS, *ecp->cp)) { 38419304Speter p = ecp->cp; 38519304Speter ++ecp->cp; 38619304Speter --ecp->clen; 38719304Speter namelen = 1; 38819304Speter } else { 38919304Speter for (p = ecp->cp; 39019304Speter ecp->clen > 0; --ecp->clen, ++ecp->cp) 391254225Speter if (!isascii(*ecp->cp) || !isalpha(*ecp->cp)) 39219304Speter break; 39319304Speter if ((namelen = ecp->cp - p) == 0) { 39419304Speter msgq(sp, M_ERR, "080|Unknown command name"); 39519304Speter goto err; 39619304Speter } 39719304Speter } 39819304Speter 39919304Speter /* 40019304Speter * !!! 40119304Speter * Historic vi permitted flags to immediately follow any 40219304Speter * subset of the 'delete' command, but then did not permit 40319304Speter * further arguments (flag, buffer, count). Make it work. 40419304Speter * Permit further arguments for the few shreds of dignity 40519304Speter * it offers. 40619304Speter * 40719304Speter * Adding commands that start with 'd', and match "delete" 40819304Speter * up to a l, p, +, - or # character can break this code. 40919304Speter * 41019304Speter * !!! 41119304Speter * Capital letters beginning the command names ex, edit, 41219304Speter * next, previous, tag and visual (in vi mode) indicate the 41319304Speter * command should happen in a new screen. 41419304Speter */ 41519304Speter switch (p[0]) { 41619304Speter case 'd': 41719304Speter for (s = p, 418254225Speter n = cmds[C_DELETE].name; *s == *n; ++s, ++n); 41919304Speter if (s[0] == 'l' || s[0] == 'p' || s[0] == '+' || 42019304Speter s[0] == '-' || s[0] == '^' || s[0] == '#') { 42119304Speter len = (ecp->cp - p) - (s - p); 42219304Speter ecp->cp -= len; 42319304Speter ecp->clen += len; 42419304Speter ecp->rcmd = cmds[C_DELETE]; 42519304Speter ecp->rcmd.syntax = "1bca1"; 42619304Speter ecp->cmd = &ecp->rcmd; 42719304Speter goto skip_srch; 42819304Speter } 42919304Speter break; 43019304Speter case 'E': case 'F': case 'N': case 'P': case 'T': case 'V': 43119304Speter newscreen = 1; 43219304Speter p[0] = tolower(p[0]); 43319304Speter break; 43419304Speter } 43519304Speter 43619304Speter /* 43719304Speter * Search the table for the command. 43819304Speter * 43919304Speter * !!! 44019304Speter * Historic vi permitted the mark to immediately follow the 44119304Speter * 'k' in the 'k' command. Make it work. 44219304Speter * 44319304Speter * !!! 44419304Speter * Historic vi permitted any flag to follow the s command, e.g. 44519304Speter * "s/e/E/|s|sgc3p" was legal. Make the command "sgc" work. 44619304Speter * Since the following characters all have to be flags, i.e. 44719304Speter * alphabetics, we can let the s command routine return errors 44819304Speter * if it was some illegal command string. This code will break 44919304Speter * if an "sg" or similar command is ever added. The substitute 45019304Speter * code doesn't care if it's a "cgr" flag or a "#lp" flag that 45119304Speter * follows the 's', but we limit the choices here to "cgr" so 45219304Speter * that we get unknown command messages for wrong combinations. 45319304Speter */ 45419304Speter if ((ecp->cmd = ex_comm_search(p, namelen)) == NULL) 45519304Speter switch (p[0]) { 45619304Speter case 'k': 45719304Speter if (namelen == 2) { 45819304Speter ecp->cp -= namelen - 1; 45919304Speter ecp->clen += namelen - 1; 46019304Speter ecp->cmd = &cmds[C_K]; 46119304Speter break; 46219304Speter } 46319304Speter goto unknown; 46419304Speter case 's': 46519304Speter for (s = p + 1, cnt = namelen; --cnt; ++s) 46619304Speter if (s[0] != 'c' && 46719304Speter s[0] != 'g' && s[0] != 'r') 46819304Speter break; 46919304Speter if (cnt == 0) { 47019304Speter ecp->cp -= namelen - 1; 47119304Speter ecp->clen += namelen - 1; 47219304Speter ecp->rcmd = cmds[C_SUBSTITUTE]; 47319304Speter ecp->rcmd.fn = ex_subagain; 47419304Speter ecp->cmd = &ecp->rcmd; 47519304Speter break; 47619304Speter } 47719304Speter /* FALLTHROUGH */ 47819304Speter default: 47919304Speterunknown: if (newscreen) 48019304Speter p[0] = toupper(p[0]); 48119304Speter ex_unknown(sp, p, namelen); 48219304Speter goto err; 48319304Speter } 48419304Speter 48519304Speter /* 48619304Speter * The visual command has a different syntax when called 48719304Speter * from ex than when called from a vi colon command. FMH. 48819304Speter * Make the change now, before we test for the newscreen 48919304Speter * semantic, so that we're testing the right one. 49019304Speter */ 49119304Speterskip_srch: if (ecp->cmd == &cmds[C_VISUAL_EX] && F_ISSET(sp, SC_VI)) 49219304Speter ecp->cmd = &cmds[C_VISUAL_VI]; 49319304Speter 49419304Speter /* 49519304Speter * !!! 49619304Speter * Historic vi permitted a capital 'P' at the beginning of 49719304Speter * any command that started with 'p'. Probably wanted the 49819304Speter * P[rint] command for backward compatibility, and the code 49919304Speter * just made Preserve and Put work by accident. Nvi uses 50019304Speter * Previous to mean previous-in-a-new-screen, so be careful. 50119304Speter */ 50219304Speter if (newscreen && !F_ISSET(ecp->cmd, E_NEWSCREEN) && 50319304Speter (ecp->cmd == &cmds[C_PRINT] || 50419304Speter ecp->cmd == &cmds[C_PRESERVE])) 50519304Speter newscreen = 0; 50619304Speter 50719304Speter /* Test for a newscreen associated with this command. */ 50819304Speter if (newscreen && !F_ISSET(ecp->cmd, E_NEWSCREEN)) 50919304Speter goto unknown; 51019304Speter 51119304Speter /* Secure means no shell access. */ 51219304Speter if (F_ISSET(ecp->cmd, E_SECURE) && O_ISSET(sp, O_SECURE)) { 513254225Speter ex_wemsg(sp, ecp->cmd->name, EXM_SECURE); 51419304Speter goto err; 51519304Speter } 51619304Speter 51719304Speter /* 51819304Speter * Multiple < and > characters; another "feature". Note, 51919304Speter * The string passed to the underlying function may not be 52019304Speter * nul terminated in this case. 52119304Speter */ 52219304Speter if ((ecp->cmd == &cmds[C_SHIFTL] && *p == '<') || 52319304Speter (ecp->cmd == &cmds[C_SHIFTR] && *p == '>')) { 52419304Speter for (ch = *p; 52519304Speter ecp->clen > 0; --ecp->clen, ++ecp->cp) 52619304Speter if (*ecp->cp != ch) 52719304Speter break; 52819304Speter if (argv_exp0(sp, ecp, p, ecp->cp - p)) 52919304Speter goto err; 53019304Speter } 53119304Speter 53219304Speter /* Set the format style flags for the next command. */ 53319304Speter if (ecp->cmd == &cmds[C_HASH]) 53419304Speter exp->fdef = E_C_HASH; 53519304Speter else if (ecp->cmd == &cmds[C_LIST]) 53619304Speter exp->fdef = E_C_LIST; 53719304Speter else if (ecp->cmd == &cmds[C_PRINT]) 53819304Speter exp->fdef = E_C_PRINT; 53919304Speter F_CLR(ecp, E_USELASTCMD); 54019304Speter } else { 54119304Speter /* Print is the default command. */ 54219304Speter ecp->cmd = &cmds[C_PRINT]; 54319304Speter 54419304Speter /* Set the saved format flags. */ 54519304Speter F_SET(ecp, exp->fdef); 54619304Speter 54719304Speter /* 54819304Speter * !!! 54919304Speter * If no address was specified, and it's not a global command, 55019304Speter * we up the address by one. (I have no idea why globals are 55119304Speter * exempted, but it's (ahem) historic practice.) 55219304Speter */ 55319304Speter if (ecp->addrcnt == 0 && !F_ISSET(sp, SC_EX_GLOBAL)) { 55419304Speter ecp->addrcnt = 1; 55519304Speter ecp->addr1.lno = sp->lno + 1; 55619304Speter ecp->addr1.cno = sp->cno; 55719304Speter } 55819304Speter 55919304Speter F_SET(ecp, E_USELASTCMD); 56019304Speter } 56119304Speter 56219304Speter /* 56319304Speter * !!! 56419304Speter * Historically, the number option applied to both ex and vi. One 56519304Speter * strangeness was that ex didn't switch display formats until a 56619304Speter * command was entered, e.g. <CR>'s after the set didn't change to 56719304Speter * the new format, but :1p would. 56819304Speter */ 56919304Speter if (O_ISSET(sp, O_NUMBER)) { 57019304Speter F_SET(ecp, E_OPTNUM); 57119304Speter FL_SET(ecp->iflags, E_C_HASH); 57219304Speter } else 57319304Speter F_CLR(ecp, E_OPTNUM); 57419304Speter 57519304Speter /* Check for ex mode legality. */ 57619304Speter if (F_ISSET(sp, SC_EX) && (F_ISSET(ecp->cmd, E_VIONLY) || newscreen)) { 577254225Speter msgq_wstr(sp, M_ERR, ecp->cmd->name, 578254225Speter "082|%s: command not available in ex mode"); 57919304Speter goto err; 58019304Speter } 58119304Speter 58219304Speter /* Add standard command flags. */ 58319304Speter F_SET(ecp, ecp->cmd->flags); 58419304Speter if (!newscreen) 58519304Speter F_CLR(ecp, E_NEWSCREEN); 58619304Speter 58719304Speter /* 58819304Speter * There are three normal termination cases for an ex command. They 58919304Speter * are the end of the string (ecp->clen), or unescaped (by <literal 59019304Speter * next> characters) <newline> or '|' characters. As we're now past 59119304Speter * possible addresses, we can determine how long the command is, so we 59219304Speter * don't have to look for all the possible terminations. Naturally, 59319304Speter * there are some exciting special cases: 59419304Speter * 59519304Speter * 1: The bang, global, v and the filter versions of the read and 59619304Speter * write commands are delimited by <newline>s (they can contain 59719304Speter * shell pipes). 59819304Speter * 2: The ex, edit, next and visual in vi mode commands all take ex 59919304Speter * commands as their first arguments. 60019304Speter * 3: The s command takes an RE as its first argument, and wants it 60119304Speter * to be specially delimited. 60219304Speter * 60319304Speter * Historically, '|' characters in the first argument of the ex, edit, 60419304Speter * next, vi visual, and s commands didn't delimit the command. And, 60519304Speter * in the filter cases for read and write, and the bang, global and v 60619304Speter * commands, they did not delimit the command at all. 60719304Speter * 60819304Speter * For example, the following commands were legal: 60919304Speter * 61019304Speter * :edit +25|s/abc/ABC/ file.c 61119304Speter * :s/|/PIPE/ 61219304Speter * :read !spell % | columnate 61319304Speter * :global/pattern/p|l 61419304Speter * 61519304Speter * It's not quite as simple as it sounds, however. The command: 61619304Speter * 61719304Speter * :s/a/b/|s/c/d|set 61819304Speter * 61919304Speter * was also legal, i.e. the historic ex parser (using the word loosely, 62019304Speter * since "parser" implies some regularity of syntax) delimited the RE's 62119304Speter * based on its delimiter and not anything so irretrievably vulgar as a 62219304Speter * command syntax. 62319304Speter * 62419304Speter * Anyhow, the following code makes this all work. First, for the 62519304Speter * special cases we move past their special argument(s). Then, we 62619304Speter * do normal command processing on whatever is left. Barf-O-Rama. 62719304Speter */ 62819304Speter discard = 0; /* Characters discarded from the command. */ 62919304Speter arg1_len = 0; 63019304Speter ecp->save_cmd = ecp->cp; 63119304Speter if (ecp->cmd == &cmds[C_EDIT] || ecp->cmd == &cmds[C_EX] || 632254225Speter ecp->cmd == &cmds[C_NEXT] || ecp->cmd == &cmds[C_VISUAL_VI] || 633254225Speter ecp->cmd == &cmds[C_VSPLIT]) { 63419304Speter /* 63519304Speter * Move to the next non-whitespace character. A '!' 63619304Speter * immediately following the command is eaten as a 63719304Speter * force flag. 63819304Speter */ 63919304Speter if (ecp->clen > 0 && *ecp->cp == '!') { 64019304Speter ++ecp->cp; 64119304Speter --ecp->clen; 64219304Speter FL_SET(ecp->iflags, E_C_FORCE); 64319304Speter 64419304Speter /* Reset, don't reparse. */ 64519304Speter ecp->save_cmd = ecp->cp; 64619304Speter } 64719304Speter for (; ecp->clen > 0; --ecp->clen, ++ecp->cp) 648254225Speter if (!cmdskip(*ecp->cp)) 64919304Speter break; 65019304Speter /* 65119304Speter * QUOTING NOTE: 65219304Speter * 65319304Speter * The historic implementation ignored all escape characters 65419304Speter * so there was no way to put a space or newline into the +cmd 65519304Speter * field. We do a simplistic job of fixing it by moving to the 65619304Speter * first whitespace character that isn't escaped. The escaping 65719304Speter * characters are stripped as no longer useful. 65819304Speter */ 65919304Speter if (ecp->clen > 0 && *ecp->cp == '+') { 66019304Speter ++ecp->cp; 66119304Speter --ecp->clen; 66219304Speter for (arg1 = p = ecp->cp; 66319304Speter ecp->clen > 0; --ecp->clen, ++ecp->cp) { 66419304Speter ch = *ecp->cp; 66519304Speter if (IS_ESCAPE(sp, ecp, ch) && 66619304Speter ecp->clen > 1) { 66719304Speter ++discard; 66819304Speter --ecp->clen; 66919304Speter ch = *++ecp->cp; 670254225Speter } else if (cmdskip(ch)) 67119304Speter break; 67219304Speter *p++ = ch; 67319304Speter } 67419304Speter arg1_len = ecp->cp - arg1; 67519304Speter 67619304Speter /* Reset, so the first argument isn't reparsed. */ 67719304Speter ecp->save_cmd = ecp->cp; 67819304Speter } 67919304Speter } else if (ecp->cmd == &cmds[C_BANG] || 68019304Speter ecp->cmd == &cmds[C_GLOBAL] || ecp->cmd == &cmds[C_V]) { 68119304Speter /* 68219304Speter * QUOTING NOTE: 68319304Speter * 68419304Speter * We use backslashes to escape <newline> characters, although 68519304Speter * this wasn't historic practice for the bang command. It was 68619304Speter * for the global and v commands, and it's common usage when 68719304Speter * doing text insert during the command. Escaping characters 68819304Speter * are stripped as no longer useful. 68919304Speter */ 69019304Speter for (p = ecp->cp; ecp->clen > 0; --ecp->clen, ++ecp->cp) { 69119304Speter ch = *ecp->cp; 69219304Speter if (ch == '\\' && ecp->clen > 1 && ecp->cp[1] == '\n') { 69319304Speter ++discard; 69419304Speter --ecp->clen; 69519304Speter ch = *++ecp->cp; 69619304Speter 69719304Speter ++gp->if_lno; 69819304Speter ++ecp->if_lno; 69919304Speter } else if (ch == '\n') 70019304Speter break; 70119304Speter *p++ = ch; 70219304Speter } 70319304Speter } else if (ecp->cmd == &cmds[C_READ] || ecp->cmd == &cmds[C_WRITE]) { 70419304Speter /* 70519304Speter * For write commands, if the next character is a <blank>, and 70619304Speter * the next non-blank character is a '!', it's a filter command 70719304Speter * and we want to eat everything up to the <newline>. For read 70819304Speter * commands, if the next non-blank character is a '!', it's a 70919304Speter * filter command and we want to eat everything up to the next 71019304Speter * <newline>. Otherwise, we're done. 71119304Speter */ 71219304Speter for (tmp = 0; ecp->clen > 0; --ecp->clen, ++ecp->cp) { 71319304Speter ch = *ecp->cp; 714254225Speter if (cmdskip(ch)) 71519304Speter tmp = 1; 71619304Speter else 71719304Speter break; 71819304Speter } 71919304Speter if (ecp->clen > 0 && ch == '!' && 72019304Speter (ecp->cmd == &cmds[C_READ] || tmp)) 72119304Speter for (; ecp->clen > 0; --ecp->clen, ++ecp->cp) 72219304Speter if (ecp->cp[0] == '\n') 72319304Speter break; 72419304Speter } else if (ecp->cmd == &cmds[C_SUBSTITUTE]) { 72519304Speter /* 72619304Speter * Move to the next non-whitespace character, we'll use it as 72719304Speter * the delimiter. If the character isn't an alphanumeric or 72819304Speter * a '|', it's the delimiter, so parse it. Otherwise, we're 72919304Speter * into something like ":s g", so use the special s command. 73019304Speter */ 73119304Speter for (; ecp->clen > 0; --ecp->clen, ++ecp->cp) 732254225Speter if (!cmdskip(ecp->cp[0])) 73319304Speter break; 73419304Speter 735254225Speter if (!isascii(ecp->cp[0]) || 736254225Speter isalnum(ecp->cp[0]) || ecp->cp[0] == '|') { 73719304Speter ecp->rcmd = cmds[C_SUBSTITUTE]; 73819304Speter ecp->rcmd.fn = ex_subagain; 73919304Speter ecp->cmd = &ecp->rcmd; 74019304Speter } else if (ecp->clen > 0) { 74119304Speter /* 74219304Speter * QUOTING NOTE: 74319304Speter * 74419304Speter * Backslashes quote delimiter characters for RE's. 74519304Speter * The backslashes are NOT removed since they'll be 74619304Speter * used by the RE code. Move to the third delimiter 74719304Speter * that's not escaped (or the end of the command). 74819304Speter */ 74919304Speter delim = *ecp->cp; 75019304Speter ++ecp->cp; 75119304Speter --ecp->clen; 75219304Speter for (cnt = 2; ecp->clen > 0 && 75319304Speter cnt != 0; --ecp->clen, ++ecp->cp) 75419304Speter if (ecp->cp[0] == '\\' && 75519304Speter ecp->clen > 1) { 75619304Speter ++ecp->cp; 75719304Speter --ecp->clen; 75819304Speter } else if (ecp->cp[0] == delim) 75919304Speter --cnt; 76019304Speter } 76119304Speter } 76219304Speter 76319304Speter /* 76419304Speter * Use normal quoting and termination rules to find the end of this 76519304Speter * command. 76619304Speter * 76719304Speter * QUOTING NOTE: 76819304Speter * 76919304Speter * Historically, vi permitted ^V's to escape <newline>'s in the .exrc 77019304Speter * file. It was almost certainly a bug, but that's what bug-for-bug 77119304Speter * compatibility means, Grasshopper. Also, ^V's escape the command 77219304Speter * delimiters. Literal next quote characters in front of the newlines, 77319304Speter * '|' characters or literal next characters are stripped as they're 77419304Speter * no longer useful. 77519304Speter */ 77619304Speter vi_address = ecp->clen != 0 && ecp->cp[0] != '\n'; 77719304Speter for (p = ecp->cp; ecp->clen > 0; --ecp->clen, ++ecp->cp) { 77819304Speter ch = ecp->cp[0]; 77919304Speter if (IS_ESCAPE(sp, ecp, ch) && ecp->clen > 1) { 780254225Speter CHAR_T tmp = ecp->cp[1]; 78119304Speter if (tmp == '\n' || tmp == '|') { 78219304Speter if (tmp == '\n') { 78319304Speter ++gp->if_lno; 78419304Speter ++ecp->if_lno; 78519304Speter } 78619304Speter ++discard; 78719304Speter --ecp->clen; 78819304Speter ++ecp->cp; 78919304Speter ch = tmp; 79019304Speter } 79119304Speter } else if (ch == '\n' || ch == '|') { 79219304Speter if (ch == '\n') 79319304Speter F_SET(ecp, E_NEWLINE); 79419304Speter --ecp->clen; 79519304Speter break; 79619304Speter } 79719304Speter *p++ = ch; 79819304Speter } 79919304Speter 80019304Speter /* 80119304Speter * Save off the next command information, go back to the 80219304Speter * original start of the command. 80319304Speter */ 80419304Speter p = ecp->cp + 1; 80519304Speter ecp->cp = ecp->save_cmd; 80619304Speter ecp->save_cmd = p; 80719304Speter ecp->save_cmdlen = ecp->clen; 80819304Speter ecp->clen = ((ecp->save_cmd - ecp->cp) - 1) - discard; 80919304Speter 81019304Speter /* 81119304Speter * QUOTING NOTE: 81219304Speter * 81319304Speter * The "set tags" command historically used a backslash, not the 81419304Speter * user's literal next character, to escape whitespace. Handle 81519304Speter * it here instead of complicating the argv_exp3() code. Note, 81619304Speter * this isn't a particularly complex trap, and if backslashes were 81719304Speter * legal in set commands, this would have to be much more complicated. 81819304Speter */ 81919304Speter if (ecp->cmd == &cmds[C_SET]) 82019304Speter for (p = ecp->cp, len = ecp->clen; len > 0; --len, ++p) 821254225Speter if (IS_ESCAPE(sp, ecp, *p) && len > 1) { 822254225Speter --len; 823254225Speter ++p; 824254225Speter } else if (*p == '\\') 82519304Speter *p = CH_LITERAL; 82619304Speter 82719304Speter /* 82819304Speter * Set the default addresses. It's an error to specify an address for 82919304Speter * a command that doesn't take them. If two addresses are specified 83019304Speter * for a command that only takes one, lose the first one. Two special 83119304Speter * cases here, some commands take 0 or 2 addresses. For most of them 83219304Speter * (the E_ADDR2_ALL flag), 0 defaults to the entire file. For one 83319304Speter * (the `!' command, the E_ADDR2_NONE flag), 0 defaults to no lines. 83419304Speter * 83519304Speter * Also, if the file is empty, some commands want to use an address of 83619304Speter * 0, i.e. the entire file is 0 to 0, and the default first address is 83719304Speter * 0. Otherwise, an entire file is 1 to N and the default line is 1. 83819304Speter * Note, we also add the E_ADDR_ZERO flag to the command flags, for the 83919304Speter * case where the 0 address is only valid if it's a default address. 84019304Speter * 84119304Speter * Also, set a flag if we set the default addresses. Some commands 84219304Speter * (ex: z) care if the user specified an address or if we just used 84319304Speter * the current cursor. 84419304Speter */ 84519304Speter switch (F_ISSET(ecp, E_ADDR1 | E_ADDR2 | E_ADDR2_ALL | E_ADDR2_NONE)) { 84619304Speter case E_ADDR1: /* One address: */ 84719304Speter switch (ecp->addrcnt) { 84819304Speter case 0: /* Default cursor/empty file. */ 84919304Speter ecp->addrcnt = 1; 85019304Speter F_SET(ecp, E_ADDR_DEF); 85119304Speter if (F_ISSET(ecp, E_ADDR_ZERODEF)) { 85219304Speter if (db_last(sp, &lno)) 85319304Speter goto err; 85419304Speter if (lno == 0) { 85519304Speter ecp->addr1.lno = 0; 85619304Speter F_SET(ecp, E_ADDR_ZERO); 85719304Speter } else 85819304Speter ecp->addr1.lno = sp->lno; 85919304Speter } else 86019304Speter ecp->addr1.lno = sp->lno; 86119304Speter ecp->addr1.cno = sp->cno; 86219304Speter break; 86319304Speter case 1: 86419304Speter break; 86519304Speter case 2: /* Lose the first address. */ 86619304Speter ecp->addrcnt = 1; 86719304Speter ecp->addr1 = ecp->addr2; 86819304Speter } 86919304Speter break; 87019304Speter case E_ADDR2_NONE: /* Zero/two addresses: */ 87119304Speter if (ecp->addrcnt == 0) /* Default to nothing. */ 87219304Speter break; 87319304Speter goto two_addr; 87419304Speter case E_ADDR2_ALL: /* Zero/two addresses: */ 87519304Speter if (ecp->addrcnt == 0) { /* Default entire/empty file. */ 87619304Speter F_SET(ecp, E_ADDR_DEF); 87719304Speter ecp->addrcnt = 2; 87819304Speter if (sp->ep == NULL) 87919304Speter ecp->addr2.lno = 0; 88019304Speter else if (db_last(sp, &ecp->addr2.lno)) 88119304Speter goto err; 88219304Speter if (F_ISSET(ecp, E_ADDR_ZERODEF) && 88319304Speter ecp->addr2.lno == 0) { 88419304Speter ecp->addr1.lno = 0; 88519304Speter F_SET(ecp, E_ADDR_ZERO); 88619304Speter } else 88719304Speter ecp->addr1.lno = 1; 88819304Speter ecp->addr1.cno = ecp->addr2.cno = 0; 88919304Speter F_SET(ecp, E_ADDR2_ALL); 89019304Speter break; 89119304Speter } 89219304Speter /* FALLTHROUGH */ 89319304Speter case E_ADDR2: /* Two addresses: */ 89419304Spetertwo_addr: switch (ecp->addrcnt) { 89519304Speter case 0: /* Default cursor/empty file. */ 89619304Speter ecp->addrcnt = 2; 89719304Speter F_SET(ecp, E_ADDR_DEF); 89819304Speter if (sp->lno == 1 && 89919304Speter F_ISSET(ecp, E_ADDR_ZERODEF)) { 90019304Speter if (db_last(sp, &lno)) 90119304Speter goto err; 90219304Speter if (lno == 0) { 90319304Speter ecp->addr1.lno = ecp->addr2.lno = 0; 90419304Speter F_SET(ecp, E_ADDR_ZERO); 90519304Speter } else 90619304Speter ecp->addr1.lno = 90719304Speter ecp->addr2.lno = sp->lno; 90819304Speter } else 90919304Speter ecp->addr1.lno = ecp->addr2.lno = sp->lno; 91019304Speter ecp->addr1.cno = ecp->addr2.cno = sp->cno; 91119304Speter break; 91219304Speter case 1: /* Default to first address. */ 91319304Speter ecp->addrcnt = 2; 91419304Speter ecp->addr2 = ecp->addr1; 91519304Speter break; 91619304Speter case 2: 91719304Speter break; 91819304Speter } 91919304Speter break; 92019304Speter default: 92119304Speter if (ecp->addrcnt) /* Error. */ 92219304Speter goto usage; 92319304Speter } 92419304Speter 92519304Speter /* 92619304Speter * !!! 92719304Speter * The ^D scroll command historically scrolled the value of the scroll 92819304Speter * option or to EOF. It was an error if the cursor was already at EOF. 92919304Speter * (Leading addresses were permitted, but were then ignored.) 93019304Speter */ 93119304Speter if (ecp->cmd == &cmds[C_SCROLL]) { 93219304Speter ecp->addrcnt = 2; 93319304Speter ecp->addr1.lno = sp->lno + 1; 93419304Speter ecp->addr2.lno = sp->lno + O_VAL(sp, O_SCROLL); 93519304Speter ecp->addr1.cno = ecp->addr2.cno = sp->cno; 93619304Speter if (db_last(sp, &lno)) 93719304Speter goto err; 93819304Speter if (lno != 0 && lno > sp->lno && ecp->addr2.lno > lno) 93919304Speter ecp->addr2.lno = lno; 94019304Speter } 94119304Speter 94219304Speter ecp->flagoff = 0; 943254225Speter for (np = ecp->cmd->syntax; *np != '\0'; ++np) { 94419304Speter /* 94519304Speter * The force flag is sensitive to leading whitespace, i.e. 94619304Speter * "next !" is different from "next!". Handle it before 94719304Speter * skipping leading <blank>s. 94819304Speter */ 949254225Speter if (*np == '!') { 95019304Speter if (ecp->clen > 0 && *ecp->cp == '!') { 95119304Speter ++ecp->cp; 95219304Speter --ecp->clen; 95319304Speter FL_SET(ecp->iflags, E_C_FORCE); 95419304Speter } 95519304Speter continue; 95619304Speter } 95719304Speter 95819304Speter /* Skip leading <blank>s. */ 95919304Speter for (; ecp->clen > 0; --ecp->clen, ++ecp->cp) 960254225Speter if (!cmdskip(*ecp->cp)) 96119304Speter break; 96219304Speter if (ecp->clen == 0) 96319304Speter break; 96419304Speter 965254225Speter switch (*np) { 96619304Speter case '1': /* +, -, #, l, p */ 96719304Speter /* 96819304Speter * !!! 96919304Speter * Historically, some flags were ignored depending 97019304Speter * on where they occurred in the command line. For 97119304Speter * example, in the command, ":3+++p--#", historic vi 97219304Speter * acted on the '#' flag, but ignored the '-' flags. 97319304Speter * It's unambiguous what the flags mean, so we just 97419304Speter * handle them regardless of the stupidity of their 97519304Speter * location. 97619304Speter */ 97719304Speter for (; ecp->clen; --ecp->clen, ++ecp->cp) 97819304Speter switch (*ecp->cp) { 97919304Speter case '+': 98019304Speter ++ecp->flagoff; 98119304Speter break; 98219304Speter case '-': 98319304Speter case '^': 98419304Speter --ecp->flagoff; 98519304Speter break; 98619304Speter case '#': 98719304Speter F_CLR(ecp, E_OPTNUM); 98819304Speter FL_SET(ecp->iflags, E_C_HASH); 98919304Speter exp->fdef |= E_C_HASH; 99019304Speter break; 99119304Speter case 'l': 99219304Speter FL_SET(ecp->iflags, E_C_LIST); 99319304Speter exp->fdef |= E_C_LIST; 99419304Speter break; 99519304Speter case 'p': 99619304Speter FL_SET(ecp->iflags, E_C_PRINT); 99719304Speter exp->fdef |= E_C_PRINT; 99819304Speter break; 99919304Speter default: 100019304Speter goto end_case1; 100119304Speter } 100219304Speterend_case1: break; 100319304Speter case '2': /* -, ., +, ^ */ 100419304Speter case '3': /* -, ., +, ^, = */ 100519304Speter for (; ecp->clen; --ecp->clen, ++ecp->cp) 100619304Speter switch (*ecp->cp) { 100719304Speter case '-': 100819304Speter FL_SET(ecp->iflags, E_C_DASH); 100919304Speter break; 101019304Speter case '.': 101119304Speter FL_SET(ecp->iflags, E_C_DOT); 101219304Speter break; 101319304Speter case '+': 101419304Speter FL_SET(ecp->iflags, E_C_PLUS); 101519304Speter break; 101619304Speter case '^': 101719304Speter FL_SET(ecp->iflags, E_C_CARAT); 101819304Speter break; 101919304Speter case '=': 1020254225Speter if (*np == '3') { 102119304Speter FL_SET(ecp->iflags, E_C_EQUAL); 102219304Speter break; 102319304Speter } 102419304Speter /* FALLTHROUGH */ 102519304Speter default: 102619304Speter goto end_case23; 102719304Speter } 102819304Speterend_case23: break; 102919304Speter case 'b': /* buffer */ 103019304Speter /* 103119304Speter * !!! 103219304Speter * Historically, "d #" was a delete with a flag, not a 103319304Speter * delete into the '#' buffer. If the current command 103419304Speter * permits a flag, don't use one as a buffer. However, 103519304Speter * the 'l' and 'p' flags were legal buffer names in the 103619304Speter * historic ex, and were used as buffers, not flags. 103719304Speter */ 103819304Speter if ((ecp->cp[0] == '+' || ecp->cp[0] == '-' || 103919304Speter ecp->cp[0] == '^' || ecp->cp[0] == '#') && 1040254225Speter strchr(np, '1') != NULL) 104119304Speter break; 104219304Speter /* 104319304Speter * !!! 104419304Speter * Digits can't be buffer names in ex commands, or the 104519304Speter * command "d2" would be a delete into buffer '2', and 104619304Speter * not a two-line deletion. 104719304Speter */ 1048254225Speter if (!ISDIGIT(ecp->cp[0])) { 104919304Speter ecp->buffer = *ecp->cp; 105019304Speter ++ecp->cp; 105119304Speter --ecp->clen; 105219304Speter FL_SET(ecp->iflags, E_C_BUFFER); 105319304Speter } 105419304Speter break; 105519304Speter case 'c': /* count [01+a] */ 1056254225Speter ++np; 105719304Speter /* Validate any signed value. */ 1058254225Speter if (!ISDIGIT(*ecp->cp) && (*np != '+' || 105919304Speter (*ecp->cp != '+' && *ecp->cp != '-'))) 106019304Speter break; 106119304Speter /* If a signed value, set appropriate flags. */ 106219304Speter if (*ecp->cp == '-') 106319304Speter FL_SET(ecp->iflags, E_C_COUNT_NEG); 106419304Speter else if (*ecp->cp == '+') 106519304Speter FL_SET(ecp->iflags, E_C_COUNT_POS); 106619304Speter if ((nret = 106719304Speter nget_slong(<mp, ecp->cp, &t, 10)) != NUM_OK) { 106819304Speter ex_badaddr(sp, NULL, A_NOTSET, nret); 106919304Speter goto err; 107019304Speter } 1071254225Speter if (ltmp == 0 && *np != '0') { 107219304Speter msgq(sp, M_ERR, "083|Count may not be zero"); 107319304Speter goto err; 107419304Speter } 107519304Speter ecp->clen -= (t - ecp->cp); 107619304Speter ecp->cp = t; 107719304Speter 107819304Speter /* 107919304Speter * Counts as address offsets occur in commands taking 108019304Speter * two addresses. Historic vi practice was to use 108119304Speter * the count as an offset from the *second* address. 108219304Speter * 108319304Speter * Set a count flag; some underlying commands (see 108419304Speter * join) do different things with counts than with 108519304Speter * line addresses. 108619304Speter */ 1087254225Speter if (*np == 'a') { 108819304Speter ecp->addr1 = ecp->addr2; 108919304Speter ecp->addr2.lno = ecp->addr1.lno + ltmp - 1; 109019304Speter } else 109119304Speter ecp->count = ltmp; 109219304Speter FL_SET(ecp->iflags, E_C_COUNT); 109319304Speter break; 109419304Speter case 'f': /* file */ 109519304Speter if (argv_exp2(sp, ecp, ecp->cp, ecp->clen)) 109619304Speter goto err; 109719304Speter goto arg_cnt_chk; 109819304Speter case 'l': /* line */ 109919304Speter /* 110019304Speter * Get a line specification. 110119304Speter * 110219304Speter * If the line was a search expression, we may have 110319304Speter * changed state during the call, and we're now 110419304Speter * searching the file. Push ourselves onto the state 110519304Speter * stack. 110619304Speter */ 110719304Speter if (ex_line(sp, ecp, &cur, &isaddr, &tmp)) 110819304Speter goto rfail; 110919304Speter if (tmp) 111019304Speter goto err; 111119304Speter 111219304Speter /* Line specifications are always required. */ 111319304Speter if (!isaddr) { 1114254225Speter msgq_wstr(sp, M_ERR, ecp->cp, 111519304Speter "084|%s: bad line specification"); 111619304Speter goto err; 111719304Speter } 111819304Speter /* 111919304Speter * The target line should exist for these commands, 112019304Speter * but 0 is legal for them as well. 112119304Speter */ 112219304Speter if (cur.lno != 0 && !db_exist(sp, cur.lno)) { 112319304Speter ex_badaddr(sp, NULL, A_EOF, NUM_OK); 112419304Speter goto err; 112519304Speter } 112619304Speter ecp->lineno = cur.lno; 112719304Speter break; 112819304Speter case 'S': /* string, file exp. */ 112919304Speter if (ecp->clen != 0) { 113019304Speter if (argv_exp1(sp, ecp, ecp->cp, 113119304Speter ecp->clen, ecp->cmd == &cmds[C_BANG])) 113219304Speter goto err; 113319304Speter goto addr_verify; 113419304Speter } 113519304Speter /* FALLTHROUGH */ 113619304Speter case 's': /* string */ 113719304Speter if (argv_exp0(sp, ecp, ecp->cp, ecp->clen)) 113819304Speter goto err; 113919304Speter goto addr_verify; 114019304Speter case 'W': /* word string */ 114119304Speter /* 114219304Speter * QUOTING NOTE: 114319304Speter * 114419304Speter * Literal next characters escape the following 114519304Speter * character. Quoting characters are stripped here 114619304Speter * since they are no longer useful. 114719304Speter * 114819304Speter * First there was the word. 114919304Speter */ 115019304Speter for (p = t = ecp->cp; 115119304Speter ecp->clen > 0; --ecp->clen, ++ecp->cp) { 115219304Speter ch = *ecp->cp; 115319304Speter if (IS_ESCAPE(sp, 115419304Speter ecp, ch) && ecp->clen > 1) { 115519304Speter --ecp->clen; 115619304Speter *p++ = *++ecp->cp; 1157254225Speter } else if (cmdskip(ch)) { 115819304Speter ++ecp->cp; 115919304Speter --ecp->clen; 116019304Speter break; 116119304Speter } else 116219304Speter *p++ = ch; 116319304Speter } 116419304Speter if (argv_exp0(sp, ecp, t, p - t)) 116519304Speter goto err; 116619304Speter 116719304Speter /* Delete intervening whitespace. */ 116819304Speter for (; ecp->clen > 0; 116919304Speter --ecp->clen, ++ecp->cp) { 117019304Speter ch = *ecp->cp; 1171254225Speter if (!cmdskip(ch)) 117219304Speter break; 117319304Speter } 117419304Speter if (ecp->clen == 0) 117519304Speter goto usage; 117619304Speter 117719304Speter /* Followed by the string. */ 117819304Speter for (p = t = ecp->cp; ecp->clen > 0; 117919304Speter --ecp->clen, ++ecp->cp, ++p) { 118019304Speter ch = *ecp->cp; 118119304Speter if (IS_ESCAPE(sp, 118219304Speter ecp, ch) && ecp->clen > 1) { 118319304Speter --ecp->clen; 118419304Speter *p = *++ecp->cp; 118519304Speter } else 118619304Speter *p = ch; 118719304Speter } 118819304Speter if (argv_exp0(sp, ecp, t, p - t)) 118919304Speter goto err; 119019304Speter goto addr_verify; 119119304Speter case 'w': /* word */ 119219304Speter if (argv_exp3(sp, ecp, ecp->cp, ecp->clen)) 119319304Speter goto err; 1194254225Speterarg_cnt_chk: if (*++np != 'N') { /* N */ 119519304Speter /* 119619304Speter * If a number is specified, must either be 119719304Speter * 0 or that number, if optional, and that 119819304Speter * number, if required. 119919304Speter */ 1200254225Speter tmp = *np - '0'; 1201254225Speter if ((*++np != 'o' || exp->argsoff != 0) && 120219304Speter exp->argsoff != tmp) 120319304Speter goto usage; 120419304Speter } 120519304Speter goto addr_verify; 1206254225Speter default: { 1207254225Speter size_t nlen; 1208254225Speter char *nstr; 1209254225Speter 1210254225Speter INT2CHAR(sp, ecp->cmd->name, STRLEN(ecp->cmd->name) + 1, 1211254225Speter nstr, nlen); 121219304Speter msgq(sp, M_ERR, 121319304Speter "085|Internal syntax table error (%s: %s)", 1214254225Speter nstr, KEY_NAME(sp, *np)); 121519304Speter } 1216254225Speter } 121719304Speter } 121819304Speter 121919304Speter /* Skip trailing whitespace. */ 122019304Speter for (; ecp->clen > 0; --ecp->clen) { 122119304Speter ch = *ecp->cp++; 1222254225Speter if (!cmdskip(ch)) 122319304Speter break; 122419304Speter } 122519304Speter 122619304Speter /* 122719304Speter * There shouldn't be anything left, and no more required fields, 122819304Speter * i.e neither 'l' or 'r' in the syntax string. 122919304Speter */ 1230254225Speter if (ecp->clen != 0 || strpbrk(np, "lr")) { 123119304Speterusage: msgq(sp, M_ERR, "086|Usage: %s", ecp->cmd->usage); 123219304Speter goto err; 123319304Speter } 123419304Speter 123519304Speter /* 123619304Speter * Verify that the addresses are legal. Check the addresses here, 123719304Speter * because this is a place where all ex addresses pass through. 123819304Speter * (They don't all pass through ex_line(), for instance.) We're 123919304Speter * assuming that any non-existent line doesn't exist because it's 124019304Speter * past the end-of-file. That's a pretty good guess. 124119304Speter * 124219304Speter * If it's a "default vi command", an address of zero is okay. 124319304Speter */ 124419304Speteraddr_verify: 124519304Speter switch (ecp->addrcnt) { 124619304Speter case 2: 124719304Speter /* 124819304Speter * Historic ex/vi permitted commands with counts to go past 124919304Speter * EOF. So, for example, if the file only had 5 lines, the 125019304Speter * ex command "1,6>" would fail, but the command ">300" 125119304Speter * would succeed. Since we don't want to have to make all 125219304Speter * of the underlying commands handle random line numbers, 125319304Speter * fix it here. 125419304Speter */ 125519304Speter if (ecp->addr2.lno == 0) { 125619304Speter if (!F_ISSET(ecp, E_ADDR_ZERO) && 125719304Speter (F_ISSET(sp, SC_EX) || 125819304Speter !F_ISSET(ecp, E_USELASTCMD))) { 125919304Speter ex_badaddr(sp, ecp->cmd, A_ZERO, NUM_OK); 126019304Speter goto err; 126119304Speter } 126219304Speter } else if (!db_exist(sp, ecp->addr2.lno)) 126319304Speter if (FL_ISSET(ecp->iflags, E_C_COUNT)) { 126419304Speter if (db_last(sp, &lno)) 126519304Speter goto err; 126619304Speter ecp->addr2.lno = lno; 126719304Speter } else { 126819304Speter ex_badaddr(sp, NULL, A_EOF, NUM_OK); 126919304Speter goto err; 127019304Speter } 127119304Speter /* FALLTHROUGH */ 127219304Speter case 1: 127319304Speter if (ecp->addr1.lno == 0) { 127419304Speter if (!F_ISSET(ecp, E_ADDR_ZERO) && 127519304Speter (F_ISSET(sp, SC_EX) || 127619304Speter !F_ISSET(ecp, E_USELASTCMD))) { 127719304Speter ex_badaddr(sp, ecp->cmd, A_ZERO, NUM_OK); 127819304Speter goto err; 127919304Speter } 128019304Speter } else if (!db_exist(sp, ecp->addr1.lno)) { 128119304Speter ex_badaddr(sp, NULL, A_EOF, NUM_OK); 128219304Speter goto err; 128319304Speter } 128419304Speter break; 128519304Speter } 128619304Speter 128719304Speter /* 128819304Speter * If doing a default command and there's nothing left on the line, 128919304Speter * vi just moves to the line. For example, ":3" and ":'a,'b" just 129019304Speter * move to line 3 and line 'b, respectively, but ":3|" prints line 3. 129119304Speter * 129219304Speter * !!! 129319304Speter * In addition, IF THE LINE CHANGES, move to the first nonblank of 129419304Speter * the line. 129519304Speter * 129619304Speter * !!! 129719304Speter * This is done before the absolute mark gets set; historically, 129819304Speter * "/a/,/b/" did NOT set vi's absolute mark, but "/a/,/b/d" did. 129919304Speter */ 130019304Speter if ((F_ISSET(sp, SC_VI) || F_ISSET(ecp, E_NOPRDEF)) && 130119304Speter F_ISSET(ecp, E_USELASTCMD) && vi_address == 0) { 130219304Speter switch (ecp->addrcnt) { 130319304Speter case 2: 130419304Speter if (sp->lno != 130519304Speter (ecp->addr2.lno ? ecp->addr2.lno : 1)) { 130619304Speter sp->lno = 130719304Speter ecp->addr2.lno ? ecp->addr2.lno : 1; 130819304Speter sp->cno = 0; 130919304Speter (void)nonblank(sp, sp->lno, &sp->cno); 131019304Speter } 131119304Speter break; 131219304Speter case 1: 131319304Speter if (sp->lno != 131419304Speter (ecp->addr1.lno ? ecp->addr1.lno : 1)) { 131519304Speter sp->lno = 131619304Speter ecp->addr1.lno ? ecp->addr1.lno : 1; 131719304Speter sp->cno = 0; 131819304Speter (void)nonblank(sp, sp->lno, &sp->cno); 131919304Speter } 132019304Speter break; 132119304Speter } 132219304Speter ecp->cp = ecp->save_cmd; 132319304Speter ecp->clen = ecp->save_cmdlen; 132419304Speter goto loop; 132519304Speter } 132619304Speter 132719304Speter /* 132819304Speter * Set the absolute mark -- we have to set it for vi here, in case 132919304Speter * it's a compound command, e.g. ":5p|6" should set the absolute 133019304Speter * mark for vi. 133119304Speter */ 133219304Speter if (F_ISSET(ecp, E_ABSMARK)) { 133319304Speter cur.lno = sp->lno; 133419304Speter cur.cno = sp->cno; 133519304Speter F_CLR(ecp, E_ABSMARK); 133619304Speter if (mark_set(sp, ABSMARK1, &cur, 1)) 133719304Speter goto err; 133819304Speter } 133919304Speter 134019304Speter#if defined(DEBUG) && defined(COMLOG) 134119304Speter ex_comlog(sp, ecp); 134219304Speter#endif 134319304Speter /* Increment the command count if not called from vi. */ 134419304Speter if (F_ISSET(sp, SC_EX)) 134519304Speter ++sp->ccnt; 134619304Speter 134719304Speter /* 134819304Speter * If file state available, and not doing a global command, 134919304Speter * log the start of an action. 135019304Speter */ 135119304Speter if (sp->ep != NULL && !F_ISSET(sp, SC_EX_GLOBAL)) 135219304Speter (void)log_cursor(sp); 135319304Speter 135419304Speter /* 135519304Speter * !!! 135619304Speter * There are two special commands for the purposes of this code: the 135719304Speter * default command (<carriage-return>) or the scrolling commands (^D 135819304Speter * and <EOF>) as the first non-<blank> characters in the line. 135919304Speter * 136019304Speter * If this is the first command in the command line, we received the 136119304Speter * command from the ex command loop and we're talking to a tty, and 136219304Speter * and there's nothing else on the command line, and it's one of the 136319304Speter * special commands, we move back up to the previous line, and erase 136419304Speter * the prompt character with the output. Since ex runs in canonical 136519304Speter * mode, we don't have to do anything else, a <newline> has already 136619304Speter * been echoed by the tty driver. It's OK if vi calls us -- we won't 136719304Speter * be in ex mode so we'll do nothing. 136819304Speter */ 136919304Speter if (F_ISSET(ecp, E_NRSEP)) { 137019304Speter if (sp->ep != NULL && 137119304Speter F_ISSET(sp, SC_EX) && !F_ISSET(gp, G_SCRIPTED) && 137219304Speter (F_ISSET(ecp, E_USELASTCMD) || ecp->cmd == &cmds[C_SCROLL])) 137319304Speter gp->scr_ex_adjust(sp, EX_TERM_SCROLL); 137419304Speter F_CLR(ecp, E_NRSEP); 137519304Speter } 137619304Speter 137719304Speter /* 137819304Speter * Call the underlying function for the ex command. 137919304Speter * 138019304Speter * XXX 138119304Speter * Interrupts behave like errors, for now. 138219304Speter */ 138319304Speter if (ecp->cmd->fn(sp, ecp) || INTERRUPTED(sp)) { 138419304Speter if (F_ISSET(gp, G_SCRIPTED)) 138519304Speter F_SET(sp, SC_EXIT_FORCE); 138619304Speter goto err; 138719304Speter } 138819304Speter 138919304Speter#ifdef DEBUG 139019304Speter /* Make sure no function left global temporary space locked. */ 139119304Speter if (F_ISSET(gp, G_TMP_INUSE)) { 139219304Speter F_CLR(gp, G_TMP_INUSE); 1393254225Speter msgq_wstr(sp, M_ERR, ecp->cmd->name, 1394254225Speter "087|%s: temporary buffer not released"); 139519304Speter } 139619304Speter#endif 139719304Speter /* 139819304Speter * Ex displayed the number of lines modified immediately after each 139919304Speter * command, so the command "1,10d|1,10d" would display: 140019304Speter * 140119304Speter * 10 lines deleted 140219304Speter * 10 lines deleted 140319304Speter * <autoprint line> 140419304Speter * 140519304Speter * Executing ex commands from vi only reported the final modified 140619304Speter * lines message -- that's wrong enough that we don't match it. 140719304Speter */ 140819304Speter if (F_ISSET(sp, SC_EX)) 140919304Speter mod_rpt(sp); 141019304Speter 141119304Speter /* 141219304Speter * Integrate any offset parsed by the underlying command, and make 141319304Speter * sure the referenced line exists. 141419304Speter * 141519304Speter * XXX 141619304Speter * May not match historic practice (which I've never been able to 141719304Speter * completely figure out.) For example, the '=' command from vi 141819304Speter * mode often got the offset wrong, and complained it was too large, 141919304Speter * but didn't seem to have a problem with the cursor. If anyone 142019304Speter * complains, ask them how it's supposed to work, they might know. 142119304Speter */ 142219304Speter if (sp->ep != NULL && ecp->flagoff) { 142319304Speter if (ecp->flagoff < 0) { 142419304Speter if (sp->lno <= -ecp->flagoff) { 142519304Speter msgq(sp, M_ERR, 142619304Speter "088|Flag offset to before line 1"); 142719304Speter goto err; 142819304Speter } 142919304Speter } else { 143019304Speter if (!NPFITS(MAX_REC_NUMBER, sp->lno, ecp->flagoff)) { 143119304Speter ex_badaddr(sp, NULL, A_NOTSET, NUM_OVER); 143219304Speter goto err; 143319304Speter } 143419304Speter if (!db_exist(sp, sp->lno + ecp->flagoff)) { 143519304Speter msgq(sp, M_ERR, 143619304Speter "089|Flag offset past end-of-file"); 143719304Speter goto err; 143819304Speter } 143919304Speter } 144019304Speter sp->lno += ecp->flagoff; 144119304Speter } 144219304Speter 144319304Speter /* 144419304Speter * If the command executed successfully, we may want to display a line 144519304Speter * based on the autoprint option or an explicit print flag. (Make sure 144619304Speter * that there's a line to display.) Also, the autoprint edit option is 144719304Speter * turned off for the duration of global commands. 144819304Speter */ 144919304Speter if (F_ISSET(sp, SC_EX) && sp->ep != NULL && sp->lno != 0) { 145019304Speter /* 145119304Speter * The print commands have already handled the `print' flags. 145219304Speter * If so, clear them. 145319304Speter */ 145419304Speter if (FL_ISSET(ecp->iflags, E_CLRFLAG)) 145519304Speter FL_CLR(ecp->iflags, E_C_HASH | E_C_LIST | E_C_PRINT); 145619304Speter 145719304Speter /* If hash set only because of the number option, discard it. */ 145819304Speter if (F_ISSET(ecp, E_OPTNUM)) 145919304Speter FL_CLR(ecp->iflags, E_C_HASH); 146019304Speter 146119304Speter /* 146219304Speter * If there was an explicit flag to display the new cursor line, 146319304Speter * or autoprint is set and a change was made, display the line. 146419304Speter * If any print flags were set use them, else default to print. 146519304Speter */ 146619304Speter LF_INIT(FL_ISSET(ecp->iflags, E_C_HASH | E_C_LIST | E_C_PRINT)); 146719304Speter if (!LF_ISSET(E_C_HASH | E_C_LIST | E_C_PRINT | E_NOAUTO) && 146819304Speter !F_ISSET(sp, SC_EX_GLOBAL) && 146919304Speter O_ISSET(sp, O_AUTOPRINT) && F_ISSET(ecp, E_AUTOPRINT)) 147019304Speter LF_INIT(E_C_PRINT); 147119304Speter 147219304Speter if (LF_ISSET(E_C_HASH | E_C_LIST | E_C_PRINT)) { 147319304Speter cur.lno = sp->lno; 147419304Speter cur.cno = 0; 147519304Speter (void)ex_print(sp, ecp, &cur, &cur, flags); 147619304Speter } 147719304Speter } 147819304Speter 147919304Speter /* 148019304Speter * If the command had an associated "+cmd", it has to be executed 148119304Speter * before we finish executing any more of this ex command. For 148219304Speter * example, consider a .exrc file that contains the following lines: 148319304Speter * 148419304Speter * :set all 148519304Speter * :edit +25 file.c|s/abc/ABC/|1 148619304Speter * :3,5 print 148719304Speter * 148819304Speter * This can happen more than once -- the historic vi simply hung or 148919304Speter * dropped core, of course. Prepend the + command back into the 149019304Speter * current command and continue. We may have to add an additional 149119304Speter * <literal next> character. We know that it will fit because we 149219304Speter * discarded at least one space and the + character. 149319304Speter */ 149419304Speter if (arg1_len != 0) { 149519304Speter /* 149619304Speter * If the last character of the + command was a <literal next> 149719304Speter * character, it would be treated differently because of the 149819304Speter * append. Quote it, if necessary. 149919304Speter */ 150019304Speter if (IS_ESCAPE(sp, ecp, arg1[arg1_len - 1])) { 150119304Speter *--ecp->save_cmd = CH_LITERAL; 150219304Speter ++ecp->save_cmdlen; 150319304Speter } 150419304Speter 150519304Speter ecp->save_cmd -= arg1_len; 150619304Speter ecp->save_cmdlen += arg1_len; 1507254225Speter MEMCPY(ecp->save_cmd, arg1, arg1_len); 150819304Speter 150919304Speter /* 151019304Speter * Any commands executed from a +cmd are executed starting at 151119304Speter * the first column of the last line of the file -- NOT the 151219304Speter * first nonblank.) The main file startup code doesn't know 151319304Speter * that a +cmd was set, however, so it may have put us at the 151419304Speter * top of the file. (Note, this is safe because we must have 151519304Speter * switched files to get here.) 151619304Speter */ 151719304Speter F_SET(ecp, E_MOVETOEND); 151819304Speter } 151919304Speter 152019304Speter /* Update the current command. */ 152119304Speter ecp->cp = ecp->save_cmd; 152219304Speter ecp->clen = ecp->save_cmdlen; 152319304Speter 152419304Speter /* 152519304Speter * !!! 152619304Speter * If we've changed screens or underlying files, any pending global or 152719304Speter * v command, or @ buffer that has associated addresses, has to be 152819304Speter * discarded. This is historic practice for globals, and necessary for 152919304Speter * @ buffers that had associated addresses. 153019304Speter * 153119304Speter * Otherwise, if we've changed underlying files, it's not a problem, 153219304Speter * we continue with the rest of the ex command(s), operating on the 153319304Speter * new file. However, if we switch screens (either by exiting or by 153419304Speter * an explicit command), we have no way of knowing where to put output 153519304Speter * messages, and, since we don't control screens here, we could screw 153619304Speter * up the upper layers, (e.g. we could exit/reenter a screen multiple 153719304Speter * times). So, return and continue after we've got a new screen. 153819304Speter */ 153919304Speter if (F_ISSET(sp, SC_EXIT | SC_EXIT_FORCE | SC_FSWITCH | SC_SSWITCH)) { 154019304Speter at_found = gv_found = 0; 1541254225Speter SLIST_FOREACH(ecp, sp->gp->ecq, q) 154219304Speter switch (ecp->agv_flags) { 154319304Speter case 0: 154419304Speter case AGV_AT_NORANGE: 154519304Speter break; 154619304Speter case AGV_AT: 154719304Speter if (!at_found) { 154819304Speter at_found = 1; 154919304Speter msgq(sp, M_ERR, 155019304Speter "090|@ with range running when the file/screen changed"); 155119304Speter } 155219304Speter break; 155319304Speter case AGV_GLOBAL: 155419304Speter case AGV_V: 155519304Speter if (!gv_found) { 155619304Speter gv_found = 1; 155719304Speter msgq(sp, M_ERR, 155819304Speter "091|Global/v command running when the file/screen changed"); 155919304Speter } 156019304Speter break; 156119304Speter default: 156219304Speter abort(); 156319304Speter } 156419304Speter if (at_found || gv_found) 156519304Speter goto discard; 156619304Speter if (F_ISSET(sp, SC_EXIT | SC_EXIT_FORCE | SC_SSWITCH)) 156719304Speter goto rsuccess; 156819304Speter } 156919304Speter 157019304Speter goto loop; 157119304Speter /* NOTREACHED */ 157219304Speter 157319304Spetererr: /* 157419304Speter * On command failure, we discard keys and pending commands remaining, 157519304Speter * as well as any keys that were mapped and waiting. The save_cmdlen 157619304Speter * test is not necessarily correct. If we fail early enough we don't 157719304Speter * know if the entire string was a single command or not. Guess, as 157819304Speter * it's useful to know if commands other than the current one are being 157919304Speter * discarded. 158019304Speter */ 158119304Speter if (ecp->save_cmdlen == 0) 158219304Speter for (; ecp->clen; --ecp->clen) { 158319304Speter ch = *ecp->cp++; 158419304Speter if (IS_ESCAPE(sp, ecp, ch) && ecp->clen > 1) { 158519304Speter --ecp->clen; 158619304Speter ++ecp->cp; 158719304Speter } else if (ch == '\n' || ch == '|') { 158819304Speter if (ecp->clen > 1) 158919304Speter ecp->save_cmdlen = 1; 159019304Speter break; 159119304Speter } 159219304Speter } 1593254225Speter if (ecp->save_cmdlen != 0 || SLIST_FIRST(gp->ecq) != &gp->excmd) { 159419304Speterdiscard: msgq(sp, M_BERR, 159519304Speter "092|Ex command failed: pending commands discarded"); 159619304Speter ex_discard(sp); 159719304Speter } 159819304Speter if (v_event_flush(sp, CH_MAPPED)) 159919304Speter msgq(sp, M_BERR, 160019304Speter "093|Ex command failed: mapped keys discarded"); 160119304Speter 160219304Speterrfail: tmp = 1; 160319304Speter if (0) 160419304Speterrsuccess: tmp = 0; 160519304Speter 160619304Speter /* Turn off any file name error information. */ 160719304Speter gp->if_name = NULL; 160819304Speter 160919304Speter /* Turn off the global bit. */ 161019304Speter F_CLR(sp, SC_EX_GLOBAL); 161119304Speter 161219304Speter return (tmp); 161319304Speter} 161419304Speter 161519304Speter/* 161619304Speter * ex_range -- 161719304Speter * Get a line range for ex commands, or perform a vi ex address search. 161819304Speter * 1619281373Sbapt * PUBLIC: int ex_range(SCR *, EXCMD *, int *); 162019304Speter */ 162119304Speterint 1622254225Speterex_range(SCR *sp, EXCMD *ecp, int *errp) 162319304Speter{ 162419304Speter enum { ADDR_FOUND, ADDR_NEED, ADDR_NONE } addr; 162519304Speter GS *gp; 162619304Speter EX_PRIVATE *exp; 162719304Speter MARK m; 162819304Speter int isaddr; 162919304Speter 163019304Speter *errp = 0; 163119304Speter 163219304Speter /* 163319304Speter * Parse comma or semi-colon delimited line specs. 163419304Speter * 163519304Speter * Semi-colon delimiters update the current address to be the last 163619304Speter * address. For example, the command 163719304Speter * 163819304Speter * :3;/pattern/ecp->cp 163919304Speter * 164019304Speter * will search for pattern from line 3. In addition, if ecp->cp 164119304Speter * is not a valid command, the current line will be left at 3, not 164219304Speter * at the original address. 164319304Speter * 164419304Speter * Extra addresses are discarded, starting with the first. 164519304Speter * 164619304Speter * !!! 164719304Speter * If any addresses are missing, they default to the current line. 164819304Speter * This was historically true for both leading and trailing comma 164919304Speter * delimited addresses as well as for trailing semicolon delimited 165019304Speter * addresses. For consistency, we make it true for leading semicolon 165119304Speter * addresses as well. 165219304Speter */ 165319304Speter gp = sp->gp; 165419304Speter exp = EXP(sp); 165519304Speter for (addr = ADDR_NONE, ecp->addrcnt = 0; ecp->clen > 0;) 165619304Speter switch (*ecp->cp) { 165719304Speter case '%': /* Entire file. */ 165819304Speter /* Vi ex address searches didn't permit % signs. */ 165919304Speter if (F_ISSET(ecp, E_VISEARCH)) 166019304Speter goto ret; 166119304Speter 166219304Speter /* It's an error if the file is empty. */ 166319304Speter if (sp->ep == NULL) { 166419304Speter ex_badaddr(sp, NULL, A_EMPTY, NUM_OK); 166519304Speter *errp = 1; 166619304Speter return (0); 166719304Speter } 166819304Speter /* 166919304Speter * !!! 167019304Speter * A percent character addresses all of the lines in 167119304Speter * the file. Historically, it couldn't be followed by 167219304Speter * any other address. We do it as a text substitution 167319304Speter * for simplicity. POSIX 1003.2 is expected to follow 167419304Speter * this practice. 167519304Speter * 167619304Speter * If it's an empty file, the first line is 0, not 1. 167719304Speter */ 167819304Speter if (addr == ADDR_FOUND) { 167919304Speter ex_badaddr(sp, NULL, A_COMBO, NUM_OK); 168019304Speter *errp = 1; 168119304Speter return (0); 168219304Speter } 168319304Speter if (db_last(sp, &ecp->addr2.lno)) 168419304Speter return (1); 168519304Speter ecp->addr1.lno = ecp->addr2.lno == 0 ? 0 : 1; 168619304Speter ecp->addr1.cno = ecp->addr2.cno = 0; 168719304Speter ecp->addrcnt = 2; 168819304Speter addr = ADDR_FOUND; 168919304Speter ++ecp->cp; 169019304Speter --ecp->clen; 169119304Speter break; 1692281373Sbapt case ',': /* Comma delimiter. */ 169319304Speter /* Vi ex address searches didn't permit commas. */ 169419304Speter if (F_ISSET(ecp, E_VISEARCH)) 169519304Speter goto ret; 169619304Speter /* FALLTHROUGH */ 1697281373Sbapt case ';': /* Semi-colon delimiter. */ 169819304Speter if (sp->ep == NULL) { 169919304Speter ex_badaddr(sp, NULL, A_EMPTY, NUM_OK); 170019304Speter *errp = 1; 170119304Speter return (0); 170219304Speter } 170319304Speter if (addr != ADDR_FOUND) 170419304Speter switch (ecp->addrcnt) { 170519304Speter case 0: 170619304Speter ecp->addr1.lno = sp->lno; 170719304Speter ecp->addr1.cno = sp->cno; 170819304Speter ecp->addrcnt = 1; 170919304Speter break; 171019304Speter case 2: 171119304Speter ecp->addr1 = ecp->addr2; 171219304Speter /* FALLTHROUGH */ 171319304Speter case 1: 171419304Speter ecp->addr2.lno = sp->lno; 171519304Speter ecp->addr2.cno = sp->cno; 171619304Speter ecp->addrcnt = 2; 171719304Speter break; 171819304Speter } 171919304Speter if (*ecp->cp == ';') 172019304Speter switch (ecp->addrcnt) { 172119304Speter case 0: 172219304Speter abort(); 172319304Speter /* NOTREACHED */ 172419304Speter case 1: 172519304Speter sp->lno = ecp->addr1.lno; 172619304Speter sp->cno = ecp->addr1.cno; 172719304Speter break; 172819304Speter case 2: 172919304Speter sp->lno = ecp->addr2.lno; 173019304Speter sp->cno = ecp->addr2.cno; 173119304Speter break; 173219304Speter } 173319304Speter addr = ADDR_NEED; 173419304Speter /* FALLTHROUGH */ 173519304Speter case ' ': /* Whitespace. */ 173619304Speter case '\t': /* Whitespace. */ 173719304Speter ++ecp->cp; 173819304Speter --ecp->clen; 173919304Speter break; 174019304Speter default: 174119304Speter /* Get a line specification. */ 174219304Speter if (ex_line(sp, ecp, &m, &isaddr, errp)) 174319304Speter return (1); 174419304Speter if (*errp) 174519304Speter return (0); 174619304Speter if (!isaddr) 174719304Speter goto ret; 174819304Speter if (addr == ADDR_FOUND) { 174919304Speter ex_badaddr(sp, NULL, A_COMBO, NUM_OK); 175019304Speter *errp = 1; 175119304Speter return (0); 175219304Speter } 175319304Speter switch (ecp->addrcnt) { 175419304Speter case 0: 175519304Speter ecp->addr1 = m; 175619304Speter ecp->addrcnt = 1; 175719304Speter break; 175819304Speter case 1: 175919304Speter ecp->addr2 = m; 176019304Speter ecp->addrcnt = 2; 176119304Speter break; 176219304Speter case 2: 176319304Speter ecp->addr1 = ecp->addr2; 176419304Speter ecp->addr2 = m; 176519304Speter break; 176619304Speter } 176719304Speter addr = ADDR_FOUND; 176819304Speter break; 176919304Speter } 177019304Speter 177119304Speter /* 177219304Speter * !!! 177319304Speter * Vi ex address searches are indifferent to order or trailing 177419304Speter * semi-colons. 177519304Speter */ 177619304Speterret: if (F_ISSET(ecp, E_VISEARCH)) 177719304Speter return (0); 177819304Speter 177919304Speter if (addr == ADDR_NEED) 178019304Speter switch (ecp->addrcnt) { 178119304Speter case 0: 178219304Speter ecp->addr1.lno = sp->lno; 178319304Speter ecp->addr1.cno = sp->cno; 178419304Speter ecp->addrcnt = 1; 178519304Speter break; 178619304Speter case 2: 178719304Speter ecp->addr1 = ecp->addr2; 178819304Speter /* FALLTHROUGH */ 178919304Speter case 1: 179019304Speter ecp->addr2.lno = sp->lno; 179119304Speter ecp->addr2.cno = sp->cno; 179219304Speter ecp->addrcnt = 2; 179319304Speter break; 179419304Speter } 179519304Speter 179619304Speter if (ecp->addrcnt == 2 && ecp->addr2.lno < ecp->addr1.lno) { 179719304Speter msgq(sp, M_ERR, 179819304Speter "094|The second address is smaller than the first"); 179919304Speter *errp = 1; 180019304Speter } 180119304Speter return (0); 180219304Speter} 180319304Speter 180419304Speter/* 180519304Speter * ex_line -- 180619304Speter * Get a single line address specifier. 180719304Speter * 180819304Speter * The way the "previous context" mark worked was that any "non-relative" 180919304Speter * motion set it. While ex/vi wasn't totally consistent about this, ANY 181019304Speter * numeric address, search pattern, '$', or mark reference in an address 181119304Speter * was considered non-relative, and set the value. Which should explain 181219304Speter * why we're hacking marks down here. The problem was that the mark was 181319304Speter * only set if the command was called, i.e. we have to set a flag and test 181419304Speter * it later. 181519304Speter * 181619304Speter * XXX 181719304Speter * This is probably still not exactly historic practice, although I think 181819304Speter * it's fairly close. 181919304Speter */ 182019304Speterstatic int 1821254225Speterex_line(SCR *sp, EXCMD *ecp, MARK *mp, int *isaddrp, int *errp) 182219304Speter{ 182319304Speter enum nresult nret; 182419304Speter EX_PRIVATE *exp; 182519304Speter GS *gp; 182619304Speter long total, val; 182719304Speter int isneg; 1828281373Sbapt int (*sf)(SCR *, MARK *, MARK *, CHAR_T *, size_t, CHAR_T **, u_int); 1829254225Speter CHAR_T *endp; 183019304Speter 183119304Speter gp = sp->gp; 183219304Speter exp = EXP(sp); 183319304Speter 183419304Speter *isaddrp = *errp = 0; 183519304Speter F_CLR(ecp, E_DELTA); 183619304Speter 183719304Speter /* No addresses permitted until a file has been read in. */ 1838254225Speter if (sp->ep == NULL && STRCHR(L("$0123456789'\\/?.+-^"), *ecp->cp)) { 183919304Speter ex_badaddr(sp, NULL, A_EMPTY, NUM_OK); 184019304Speter *errp = 1; 184119304Speter return (0); 184219304Speter } 184319304Speter 184419304Speter switch (*ecp->cp) { 184519304Speter case '$': /* Last line in the file. */ 184619304Speter *isaddrp = 1; 184719304Speter F_SET(ecp, E_ABSMARK); 184819304Speter 184919304Speter mp->cno = 0; 185019304Speter if (db_last(sp, &mp->lno)) 185119304Speter return (1); 185219304Speter ++ecp->cp; 185319304Speter --ecp->clen; 185419304Speter break; /* Absolute line number. */ 185519304Speter case '0': case '1': case '2': case '3': case '4': 185619304Speter case '5': case '6': case '7': case '8': case '9': 185719304Speter *isaddrp = 1; 185819304Speter F_SET(ecp, E_ABSMARK); 185919304Speter 186019304Speter if ((nret = nget_slong(&val, ecp->cp, &endp, 10)) != NUM_OK) { 186119304Speter ex_badaddr(sp, NULL, A_NOTSET, nret); 186219304Speter *errp = 1; 186319304Speter return (0); 186419304Speter } 186519304Speter if (!NPFITS(MAX_REC_NUMBER, 0, val)) { 186619304Speter ex_badaddr(sp, NULL, A_NOTSET, NUM_OVER); 186719304Speter *errp = 1; 186819304Speter return (0); 186919304Speter } 187019304Speter mp->lno = val; 187119304Speter mp->cno = 0; 187219304Speter ecp->clen -= (endp - ecp->cp); 187319304Speter ecp->cp = endp; 187419304Speter break; 187519304Speter case '\'': /* Use a mark. */ 187619304Speter *isaddrp = 1; 187719304Speter F_SET(ecp, E_ABSMARK); 187819304Speter 187919304Speter if (ecp->clen == 1) { 188019304Speter msgq(sp, M_ERR, "095|No mark name supplied"); 188119304Speter *errp = 1; 188219304Speter return (0); 188319304Speter } 188419304Speter if (mark_get(sp, ecp->cp[1], mp, M_ERR)) { 188519304Speter *errp = 1; 188619304Speter return (0); 188719304Speter } 188819304Speter ecp->cp += 2; 188919304Speter ecp->clen -= 2; 189019304Speter break; 189119304Speter case '\\': /* Search: forward/backward. */ 189219304Speter /* 189319304Speter * !!! 189419304Speter * I can't find any difference between // and \/ or between 189519304Speter * ?? and \?. Mark Horton doesn't remember there being any 189619304Speter * difference. C'est la vie. 189719304Speter */ 189819304Speter if (ecp->clen < 2 || 1899254225Speter (ecp->cp[1] != '/' && ecp->cp[1] != '?')) { 190019304Speter msgq(sp, M_ERR, "096|\\ not followed by / or ?"); 190119304Speter *errp = 1; 190219304Speter return (0); 190319304Speter } 190419304Speter ++ecp->cp; 190519304Speter --ecp->clen; 190619304Speter sf = ecp->cp[0] == '/' ? f_search : b_search; 190719304Speter goto search; 190819304Speter case '/': /* Search forward. */ 190919304Speter sf = f_search; 191019304Speter goto search; 191119304Speter case '?': /* Search backward. */ 191219304Speter sf = b_search; 191319304Speter 191419304Spetersearch: mp->lno = sp->lno; 191519304Speter mp->cno = sp->cno; 191619304Speter if (sf(sp, mp, mp, ecp->cp, ecp->clen, &endp, 191719304Speter SEARCH_MSG | SEARCH_PARSE | SEARCH_SET | 191819304Speter (F_ISSET(ecp, E_SEARCH_WMSG) ? SEARCH_WMSG : 0))) { 191919304Speter *errp = 1; 192019304Speter return (0); 192119304Speter } 192219304Speter 192319304Speter /* Fix up the command pointers. */ 192419304Speter ecp->clen -= (endp - ecp->cp); 192519304Speter ecp->cp = endp; 192619304Speter 192719304Speter *isaddrp = 1; 192819304Speter F_SET(ecp, E_ABSMARK); 192919304Speter break; 193019304Speter case '.': /* Current position. */ 193119304Speter *isaddrp = 1; 193219304Speter mp->cno = sp->cno; 193319304Speter 193419304Speter /* If an empty file, then '.' is 0, not 1. */ 193519304Speter if (sp->lno == 1) { 193619304Speter if (db_last(sp, &mp->lno)) 193719304Speter return (1); 193819304Speter if (mp->lno != 0) 193919304Speter mp->lno = 1; 194019304Speter } else 194119304Speter mp->lno = sp->lno; 194219304Speter 194319304Speter /* 194419304Speter * !!! 194519304Speter * Historically, .<number> was the same as .+<number>, i.e. 194619304Speter * the '+' could be omitted. (This feature is found in ed 194719304Speter * as well.) 194819304Speter */ 1949254225Speter if (ecp->clen > 1 && ISDIGIT(ecp->cp[1])) 195019304Speter *ecp->cp = '+'; 195119304Speter else { 195219304Speter ++ecp->cp; 195319304Speter --ecp->clen; 195419304Speter } 195519304Speter break; 195619304Speter } 195719304Speter 195819304Speter /* Skip trailing <blank>s. */ 195919304Speter for (; ecp->clen > 0 && 1960254225Speter cmdskip(ecp->cp[0]); ++ecp->cp, --ecp->clen); 196119304Speter 196219304Speter /* 196319304Speter * Evaluate any offset. If no address yet found, the offset 196419304Speter * is relative to ".". 196519304Speter */ 196619304Speter total = 0; 1967254225Speter if (ecp->clen != 0 && (ISDIGIT(ecp->cp[0]) || 196819304Speter ecp->cp[0] == '+' || ecp->cp[0] == '-' || 196919304Speter ecp->cp[0] == '^')) { 197019304Speter if (!*isaddrp) { 197119304Speter *isaddrp = 1; 197219304Speter mp->lno = sp->lno; 197319304Speter mp->cno = sp->cno; 197419304Speter } 197519304Speter /* 197619304Speter * Evaluate an offset, defined as: 197719304Speter * 197819304Speter * [+-^<blank>]*[<blank>]*[0-9]* 197919304Speter * 198019304Speter * The rough translation is any number of signs, optionally 198119304Speter * followed by numbers, or a number by itself, all <blank> 198219304Speter * separated. 198319304Speter * 198419304Speter * !!! 198519304Speter * All address offsets were additive, e.g. "2 2 3p" was the 198619304Speter * same as "7p", or, "/ZZZ/ 2" was the same as "/ZZZ/+2". 198719304Speter * Note, however, "2 /ZZZ/" was an error. It was also legal 198819304Speter * to insert signs without numbers, so "3 - 2" was legal, and 198919304Speter * equal to 4. 199019304Speter * 199119304Speter * !!! 199219304Speter * Offsets were historically permitted for any line address, 199319304Speter * e.g. the command "1,2 copy 2 2 2 2" copied lines 1,2 after 199419304Speter * line 8. 199519304Speter * 199619304Speter * !!! 199719304Speter * Offsets were historically permitted for search commands, 199819304Speter * and handled as addresses: "/pattern/2 2 2" was legal, and 199919304Speter * referenced the 6th line after pattern. 200019304Speter */ 200119304Speter F_SET(ecp, E_DELTA); 200219304Speter for (;;) { 2003254225Speter for (; ecp->clen > 0 && cmdskip(ecp->cp[0]); 200419304Speter ++ecp->cp, --ecp->clen); 2005254225Speter if (ecp->clen == 0 || (!ISDIGIT(ecp->cp[0]) && 200619304Speter ecp->cp[0] != '+' && ecp->cp[0] != '-' && 2007254225Speter ecp->cp[0] != '^')) 200819304Speter break; 2009254225Speter if (!ISDIGIT(ecp->cp[0]) && 2010254225Speter !ISDIGIT(ecp->cp[1])) { 201119304Speter total += ecp->cp[0] == '+' ? 1 : -1; 201219304Speter --ecp->clen; 201319304Speter ++ecp->cp; 201419304Speter } else { 201519304Speter if (ecp->cp[0] == '-' || 201619304Speter ecp->cp[0] == '^') { 201719304Speter ++ecp->cp; 201819304Speter --ecp->clen; 201919304Speter isneg = 1; 202019304Speter } else 202119304Speter isneg = 0; 202219304Speter 202319304Speter /* Get a signed long, add it to the total. */ 202419304Speter if ((nret = nget_slong(&val, 202519304Speter ecp->cp, &endp, 10)) != NUM_OK || 202619304Speter (nret = NADD_SLONG(sp, 202719304Speter total, val)) != NUM_OK) { 202819304Speter ex_badaddr(sp, NULL, A_NOTSET, nret); 202919304Speter *errp = 1; 203019304Speter return (0); 203119304Speter } 203219304Speter total += isneg ? -val : val; 203319304Speter ecp->clen -= (endp - ecp->cp); 203419304Speter ecp->cp = endp; 203519304Speter } 203619304Speter } 203719304Speter } 203819304Speter 203919304Speter /* 204019304Speter * Any value less than 0 is an error. Make sure that the new value 204119304Speter * will fit into a recno_t. 204219304Speter */ 204319304Speter if (*isaddrp && total != 0) { 204419304Speter if (total < 0) { 204519304Speter if (-total > mp->lno) { 204619304Speter msgq(sp, M_ERR, 204719304Speter "097|Reference to a line number less than 0"); 204819304Speter *errp = 1; 204919304Speter return (0); 205019304Speter } 205119304Speter } else 205219304Speter if (!NPFITS(MAX_REC_NUMBER, mp->lno, total)) { 205319304Speter ex_badaddr(sp, NULL, A_NOTSET, NUM_OVER); 205419304Speter *errp = 1; 205519304Speter return (0); 205619304Speter } 205719304Speter mp->lno += total; 205819304Speter } 205919304Speter return (0); 206019304Speter} 206119304Speter 206219304Speter 206319304Speter/* 206419304Speter * ex_load -- 206519304Speter * Load up the next command, which may be an @ buffer or global command. 206619304Speter */ 206719304Speterstatic int 2068254225Speterex_load(SCR *sp) 206919304Speter{ 207019304Speter GS *gp; 207119304Speter EXCMD *ecp; 207219304Speter RANGE *rp; 207319304Speter 207419304Speter F_CLR(sp, SC_EX_GLOBAL); 207519304Speter 207619304Speter /* 207719304Speter * Lose any exhausted commands. We know that the first command 207819304Speter * can't be an AGV command, which makes things a bit easier. 207919304Speter */ 208019304Speter for (gp = sp->gp;;) { 2081254225Speter ecp = SLIST_FIRST(gp->ecq); 2082254225Speter 2083254225Speter /* Discard the allocated source name as requested. */ 2084254225Speter if (F_ISSET(ecp, E_NAMEDISCARD)) 2085254225Speter free(ecp->if_name); 2086254225Speter 208719304Speter /* 208819304Speter * If we're back to the original structure, leave it around, 2089254225Speter * since we've returned to the beginning of the command stack. 209019304Speter */ 2091254225Speter if (ecp == &gp->excmd) { 2092254225Speter ecp->if_name = NULL; 209319304Speter return (0); 209419304Speter } 209519304Speter 209619304Speter /* 209719304Speter * ecp->clen will be 0 for the first discarded command, but 209819304Speter * may not be 0 for subsequent ones, e.g. if the original 209919304Speter * command was ":g/xx/@a|s/b/c/", then when we discard the 210019304Speter * command pushed on the stack by the @a, we have to resume 210119304Speter * the global command which included the substitute command. 210219304Speter */ 210319304Speter if (ecp->clen != 0) 210419304Speter return (0); 210519304Speter 210619304Speter /* 210719304Speter * If it's an @, global or v command, we may need to continue 210819304Speter * the command on a different line. 210919304Speter */ 211019304Speter if (FL_ISSET(ecp->agv_flags, AGV_ALL)) { 211119304Speter /* Discard any exhausted ranges. */ 2112254225Speter while ((rp = TAILQ_FIRST(ecp->rq)) != NULL) 211319304Speter if (rp->start > rp->stop) { 2114254225Speter TAILQ_REMOVE(ecp->rq, rp, q); 211519304Speter free(rp); 211619304Speter } else 211719304Speter break; 211819304Speter 211919304Speter /* If there's another range, continue with it. */ 2120254225Speter if (rp != NULL) 212119304Speter break; 212219304Speter 212319304Speter /* If it's a global/v command, fix up the last line. */ 212419304Speter if (FL_ISSET(ecp->agv_flags, 212519304Speter AGV_GLOBAL | AGV_V) && ecp->range_lno != OOBLNO) 212619304Speter if (db_exist(sp, ecp->range_lno)) 212719304Speter sp->lno = ecp->range_lno; 212819304Speter else { 212919304Speter if (db_last(sp, &sp->lno)) 213019304Speter return (1); 213119304Speter if (sp->lno == 0) 213219304Speter sp->lno = 1; 213319304Speter } 213419304Speter free(ecp->o_cp); 213519304Speter } 213619304Speter 213719304Speter /* Discard the EXCMD. */ 2138254225Speter SLIST_REMOVE_HEAD(gp->ecq, q); 213919304Speter free(ecp); 214019304Speter } 214119304Speter 214219304Speter /* 214319304Speter * We only get here if it's an active @, global or v command. Set 214419304Speter * the current line number, and get a new copy of the command for 214519304Speter * the parser. Note, the original pointer almost certainly moved, 214619304Speter * so we have play games. 214719304Speter */ 214819304Speter ecp->cp = ecp->o_cp; 2149254225Speter MEMCPY(ecp->cp, ecp->cp + ecp->o_clen, ecp->o_clen); 215019304Speter ecp->clen = ecp->o_clen; 215119304Speter ecp->range_lno = sp->lno = rp->start++; 215219304Speter 215319304Speter if (FL_ISSET(ecp->agv_flags, AGV_GLOBAL | AGV_V)) 215419304Speter F_SET(sp, SC_EX_GLOBAL); 215519304Speter return (0); 215619304Speter} 215719304Speter 215819304Speter/* 215919304Speter * ex_discard -- 216019304Speter * Discard any pending ex commands. 216119304Speter */ 216219304Speterstatic int 2163254225Speterex_discard(SCR *sp) 216419304Speter{ 216519304Speter GS *gp; 216619304Speter EXCMD *ecp; 216719304Speter RANGE *rp; 216819304Speter 216919304Speter /* 217019304Speter * We know the first command can't be an AGV command, so we don't 217119304Speter * process it specially. We do, however, nail the command itself. 217219304Speter */ 2173254225Speter for (gp = sp->gp;;) { 2174254225Speter ecp = SLIST_FIRST(gp->ecq); 2175254225Speter if (F_ISSET(ecp, E_NAMEDISCARD)) 2176254225Speter free(ecp->if_name); 2177254225Speter /* Reset the last command without dropping it. */ 2178254225Speter if (ecp == &gp->excmd) 2179254225Speter break; 218019304Speter if (FL_ISSET(ecp->agv_flags, AGV_ALL)) { 2181254225Speter while ((rp = TAILQ_FIRST(ecp->rq)) != NULL) { 2182254225Speter TAILQ_REMOVE(ecp->rq, rp, q); 218319304Speter free(rp); 218419304Speter } 218519304Speter free(ecp->o_cp); 218619304Speter } 2187254225Speter SLIST_REMOVE_HEAD(gp->ecq, q); 218819304Speter free(ecp); 218919304Speter } 2190254225Speter 2191254225Speter ecp->if_name = NULL; 2192254225Speter ecp->clen = 0; 219319304Speter return (0); 219419304Speter} 219519304Speter 219619304Speter/* 219719304Speter * ex_unknown -- 219819304Speter * Display an unknown command name. 219919304Speter */ 220019304Speterstatic void 2201254225Speterex_unknown(SCR *sp, CHAR_T *cmd, size_t len) 220219304Speter{ 220319304Speter size_t blen; 2204254225Speter CHAR_T *bp; 220519304Speter 2206254225Speter GET_SPACE_GOTOW(sp, bp, blen, len + 1); 220719304Speter bp[len] = '\0'; 2208254225Speter MEMCPY(bp, cmd, len); 2209254225Speter msgq_wstr(sp, M_ERR, bp, "098|The %s command is unknown"); 2210254225Speter FREE_SPACEW(sp, bp, blen); 221119304Speter 221219304Speteralloc_err: 221319304Speter return; 221419304Speter} 221519304Speter 221619304Speter/* 221719304Speter * ex_is_abbrev - 221819304Speter * The vi text input routine needs to know if ex thinks this is an 221919304Speter * [un]abbreviate command, so it can turn off abbreviations. See 222019304Speter * the usual ranting in the vi/v_txt_ev.c:txt_abbrev() routine. 222119304Speter * 2222281373Sbapt * PUBLIC: int ex_is_abbrev(CHAR_T *, size_t); 222319304Speter */ 222419304Speterint 2225254225Speterex_is_abbrev(CHAR_T *name, size_t len) 222619304Speter{ 222719304Speter EXCMDLIST const *cp; 222819304Speter 222919304Speter return ((cp = ex_comm_search(name, len)) != NULL && 223019304Speter (cp == &cmds[C_ABBR] || cp == &cmds[C_UNABBREVIATE])); 223119304Speter} 223219304Speter 223319304Speter/* 223419304Speter * ex_is_unmap - 223519304Speter * The vi text input routine needs to know if ex thinks this is an 223619304Speter * unmap command, so it can turn off input mapping. See the usual 223719304Speter * ranting in the vi/v_txt_ev.c:txt_unmap() routine. 223819304Speter * 2239281373Sbapt * PUBLIC: int ex_is_unmap(CHAR_T *, size_t); 224019304Speter */ 224119304Speterint 2242254225Speterex_is_unmap(CHAR_T *name, size_t len) 224319304Speter{ 224419304Speter EXCMDLIST const *cp; 224519304Speter 224619304Speter /* 224719304Speter * The command the vi input routines are really interested in 224819304Speter * is "unmap!", not just unmap. 224919304Speter */ 225019304Speter if (name[len - 1] != '!') 225119304Speter return (0); 225219304Speter --len; 225319304Speter return ((cp = ex_comm_search(name, len)) != NULL && 225419304Speter cp == &cmds[C_UNMAP]); 225519304Speter} 225619304Speter 225719304Speter/* 225819304Speter * ex_comm_search -- 225919304Speter * Search for a command name. 226019304Speter */ 226119304Speterstatic EXCMDLIST const * 2262254225Speterex_comm_search(CHAR_T *name, size_t len) 226319304Speter{ 226419304Speter EXCMDLIST const *cp; 226519304Speter 226619304Speter for (cp = cmds; cp->name != NULL; ++cp) { 226719304Speter if (cp->name[0] > name[0]) 226819304Speter return (NULL); 226919304Speter if (cp->name[0] != name[0]) 227019304Speter continue; 2271254225Speter if (!MEMCMP(name, cp->name, len)) 227219304Speter return (cp); 227319304Speter } 227419304Speter return (NULL); 227519304Speter} 227619304Speter 227719304Speter/* 227819304Speter * ex_badaddr -- 227919304Speter * Display a bad address message. 228019304Speter * 228119304Speter * PUBLIC: void ex_badaddr 2282281373Sbapt * PUBLIC: (SCR *, EXCMDLIST const *, enum badaddr, enum nresult); 228319304Speter */ 228419304Spetervoid 2285254225Speterex_badaddr(SCR *sp, const EXCMDLIST *cp, enum badaddr ba, enum nresult nret) 228619304Speter{ 228719304Speter recno_t lno; 228819304Speter 228919304Speter switch (nret) { 229019304Speter case NUM_OK: 229119304Speter break; 229219304Speter case NUM_ERR: 229319304Speter msgq(sp, M_SYSERR, NULL); 229419304Speter return; 229519304Speter case NUM_OVER: 229619304Speter msgq(sp, M_ERR, "099|Address value overflow"); 229719304Speter return; 229819304Speter case NUM_UNDER: 229919304Speter msgq(sp, M_ERR, "100|Address value underflow"); 230019304Speter return; 230119304Speter } 230219304Speter 230319304Speter /* 230419304Speter * When encountering an address error, tell the user if there's no 230519304Speter * underlying file, that's the real problem. 230619304Speter */ 230719304Speter if (sp->ep == NULL) { 2308254225Speter ex_wemsg(sp, cp ? cp->name : NULL, EXM_NOFILEYET); 230919304Speter return; 231019304Speter } 231119304Speter 231219304Speter switch (ba) { 231319304Speter case A_COMBO: 231419304Speter msgq(sp, M_ERR, "101|Illegal address combination"); 231519304Speter break; 231619304Speter case A_EOF: 231719304Speter if (db_last(sp, &lno)) 231819304Speter return; 231919304Speter if (lno != 0) { 232019304Speter msgq(sp, M_ERR, 232119304Speter "102|Illegal address: only %lu lines in the file", 2322254225Speter (u_long)lno); 232319304Speter break; 232419304Speter } 232519304Speter /* FALLTHROUGH */ 232619304Speter case A_EMPTY: 232719304Speter msgq(sp, M_ERR, "103|Illegal address: the file is empty"); 232819304Speter break; 232919304Speter case A_NOTSET: 233019304Speter abort(); 233119304Speter /* NOTREACHED */ 233219304Speter case A_ZERO: 2333254225Speter msgq_wstr(sp, M_ERR, cp->name, 2334254225Speter "104|The %s command doesn't permit an address of 0"); 233519304Speter break; 233619304Speter } 233719304Speter return; 233819304Speter} 233919304Speter 234019304Speter#if defined(DEBUG) && defined(COMLOG) 234119304Speter/* 234219304Speter * ex_comlog -- 234319304Speter * Log ex commands. 234419304Speter */ 234519304Speterstatic void 234619304Speterex_comlog(sp, ecp) 234719304Speter SCR *sp; 234819304Speter EXCMD *ecp; 234919304Speter{ 2350254225Speter TRACE(sp, "ecmd: "WS, ecp->cmd->name); 235119304Speter if (ecp->addrcnt > 0) { 235219304Speter TRACE(sp, " a1 %d", ecp->addr1.lno); 235319304Speter if (ecp->addrcnt > 1) 235419304Speter TRACE(sp, " a2: %d", ecp->addr2.lno); 235519304Speter } 235619304Speter if (ecp->lineno) 235719304Speter TRACE(sp, " line %d", ecp->lineno); 235819304Speter if (ecp->flags) 235919304Speter TRACE(sp, " flags 0x%x", ecp->flags); 2360254225Speter if (FL_ISSET(ecp->iflags, E_C_BUFFER)) 2361254225Speter TRACE(sp, " buffer "WC, ecp->buffer); 2362254225Speter if (ecp->argc) { 2363254225Speter int cnt; 236419304Speter for (cnt = 0; cnt < ecp->argc; ++cnt) 2365254225Speter TRACE(sp, " arg %d: {"WS"}", cnt, ecp->argv[cnt]->bp); 2366254225Speter } 236719304Speter TRACE(sp, "\n"); 236819304Speter} 236919304Speter#endif 2370