summaryrefslogtreecommitdiff
path: root/tree/src/vi/ex-070224/ex_cmds.c
diff options
context:
space:
mode:
Diffstat (limited to 'tree/src/vi/ex-070224/ex_cmds.c')
-rw-r--r--tree/src/vi/ex-070224/ex_cmds.c988
1 files changed, 0 insertions, 988 deletions
diff --git a/tree/src/vi/ex-070224/ex_cmds.c b/tree/src/vi/ex-070224/ex_cmds.c
deleted file mode 100644
index c23a1e2..0000000
--- a/tree/src/vi/ex-070224/ex_cmds.c
+++ /dev/null
@@ -1,988 +0,0 @@
-/*
- * This code contains changes by
- * Gunnar Ritter, Freiburg i. Br., Germany, 2002. All rights reserved.
- *
- * Conditions 1, 2, and 4 and the no-warranty notice below apply
- * to these changes.
- *
- *
- * Copyright (c) 1980, 1993
- * The Regents of the University of California. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed by the University of
- * California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
- * may be used to endorse or promote products derived from this software
- * without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- *
- *
- * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * Redistributions of source code and documentation must retain the
- * above copyright notice, this list of conditions and the following
- * disclaimer.
- * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed or owned by Caldera
- * International, Inc.
- * Neither the name of Caldera International, Inc. nor the names of
- * other contributors may be used to endorse or promote products
- * derived from this software without specific prior written permission.
- *
- * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
- * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
- * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
- * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
- * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
- * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
- * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-#ifndef lint
-#ifdef DOSCCS
-static char sccsid[] = "@(#)ex_cmds.c 1.22 (gritter) 2/18/05";
-#endif
-#endif
-
-/* from ex_cmds.c 7.10.1 (2.11BSD) 1996/11/23 */
-
-#include "ex.h"
-#include "ex_argv.h"
-#include "ex_temp.h"
-#include "ex_tty.h"
-#include "ex_vis.h"
-
-bool pflag, nflag;
-int poffset;
-
-#define nochng() lchng = chng
-
-/*
- * Main loop for command mode command decoding.
- * A few commands are executed here, but main function
- * is to strip command addresses, do a little address oriented
- * processing and call command routines to do the real work.
- */
-void
-commands(int noprompt, int _exitoneof)
-{
- register line *addr;
- register int c;
- register int lchng;
- int given;
- int seensemi;
- int cnt;
- bool hadpr = 0;
-
- resetflav();
- nochng();
- for (;;) {
- exitoneof = _exitoneof;
- /*
- * If dot at last command
- * ended up at zero, advance to one if there is a such.
- */
- if (dot <= zero) {
- dot = zero;
- if (dol > zero)
- dot = one;
- }
- shudclob = 0;
-
- /*
- * If autoprint or trailing print flags,
- * print the line at the specified offset
- * before the next command.
- */
- if (pflag ||
- lchng != chng && value(AUTOPRINT) && !inglobal && !inopen && endline) {
- pflag = 0;
- nochng();
- if (dol != zero) {
- addr1 = addr2 = dot + poffset;
- if (addr1 < one || addr1 > dol)
-error(catgets(catd, 1, 17,
- "Offset out-of-bounds|Offset after command too large"));
- setdot1();
- goto print;
- }
- }
- nochng();
-
- /*
- * Print prompt if appropriate.
- * If not in global flush output first to prevent
- * going into pfast mode unreasonably.
- */
- if (inglobal == 0) {
- flush();
- if (!hush && value(PROMPT) && !globp && !noprompt && endline) {
- putchar(':');
- hadpr = 1;
- }
- TSYNC();
- }
-
- /*
- * Gobble up the address.
- * Degenerate addresses yield ".".
- */
- addr2 = 0;
- given = seensemi = 0;
- do {
- addr1 = addr2;
- addr = address(0);
- c = getcd();
- if (addr == 0)
- if (c == ',')
- addr = dot;
- else if (addr1 != 0) {
- addr2 = dot;
- break;
- } else
- break;
- addr2 = addr;
- given++;
- if (c == ';') {
- c = ',';
- dot = addr;
- seensemi = 1;
- }
- } while (c == ',');
- if (c == '%') {
- /* %: same as 1,$ */
- addr1 = one;
- addr2 = dol;
- given = 2;
- c = getchar();
- }
- if (addr1 == 0)
- addr1 = addr2;
- if (c == ':')
- c = getchar();
-
- /*
- * Set command name for special character commands.
- */
- tailspec(c);
-
- /*
- * If called via : escape from open or visual, limit
- * the set of available commands here to save work below.
- */
- if (inopen) {
- if (c=='\n' || c=='\r' || c==CTRL('d') || c==EOF) {
- if (addr2)
- dot = addr2;
- if (c == EOF)
- return;
- continue;
- }
- if (any(c, "o"))
-notinvis:
- tailprim(Command, 1, 1);
- }
-/* choice: */
- switch (c) {
-
- case 'a':
-
- switch(peekchar()) {
- case 'b':
-/* abbreviate */
- tail("abbreviate");
- setnoaddr();
- mapcmd(0, 1);
- anyabbrs = 1;
- continue;
- case 'r':
-/* args */
- tail("args");
- setnoaddr();
- eol();
- pargs();
- continue;
- }
-
-/* append */
- if (inopen)
- goto notinvis;
- tail("append");
- setdot();
- aiflag = exclam();
- newline();
- vmacchng(0);
- deletenone();
- setin(addr2);
- inappend = 1;
- ignore(append(gettty, addr2));
- inappend = 0;
- nochng();
- continue;
-
- case 'c':
- switch (peekchar()) {
-
-/* copy */
- case 'o':
- tail("copy");
- vmacchng(0);
- move();
- continue;
-
-#ifdef CHDIR
-/* cd */
- case 'd':
- tail("cd");
- goto changdir;
-
-/* chdir */
- case 'h':
- ignchar();
- if (peekchar() == 'd') {
- register char *p;
- tail2of("chdir");
-changdir:
- if (savedfile[0] == '/' || !value(WARN))
- ignore(exclam());
- else
- ignore(quickly());
- if (skipend()) {
- p = getenv("HOME");
- if (p == NULL)
- error(catgets(catd, 1,
- 18, "Home directory unknown"));
- } else
- getone(), p = file;
- eol();
- if (chdir(p) < 0)
- filioerr(p);
- if (savedfile[0] != '/')
- edited = 0;
- continue;
- }
- if (inopen)
- tailprim("change", 2, 1);
- tail2of("change");
- break;
-
-#endif
- default:
- if (inopen)
- goto notinvis;
- tail("change");
- break;
- }
-/* change */
- aiflag = exclam();
- setCNL();
- vmacchng(0);
- setin(addr1);
- delete(0);
- inappend = 1;
- ignore(append(gettty, addr1 - 1));
- inappend = 0;
- nochng();
- continue;
-
-/* delete */
- case 'd':
- /*
- * Caution: dp and dl have special meaning already.
- */
- tail("delete");
- c = cmdreg();
- setCNL();
- vmacchng(0);
- if (c)
- YANKreg(c);
- delete(0);
- appendnone();
- vkillDEL();
- continue;
-
-/* edit */
-/* ex */
- case 'e':
- tail(peekchar() == 'x' ? "ex" : "edit");
-editcmd:
- if (!exclam() && chng)
- c = 'E';
- filename(c);
- if (c == 'E') {
- ungetchar(lastchar());
- ignore(quickly());
- }
- setnoaddr();
-doecmd:
- init();
- addr2 = zero;
- laste++;
- synced();
- rop(c);
-#ifdef INCORB
- tlaste();
-#endif
- laste = 0;
- synced();
- nochng();
- continue;
-
-/* file */
- case 'f':
- tail("file");
- setnoaddr();
- filename(c);
- noonl();
-/*
- synctmp();
-*/
- continue;
-
-/* global */
- case 'g':
- tail("global");
- global(!exclam());
- nochng();
- continue;
-
-/* insert */
- case 'i':
- if (inopen)
- goto notinvis;
- tail("insert");
- setdot();
- nonzero();
- aiflag = exclam();
- newline();
- vmacchng(0);
- deletenone();
- setin(addr2);
- inappend = 1;
- ignore(append(gettty, addr2 - 1));
- inappend = 0;
- if (dot == zero && dol > zero)
- dot = one;
- nochng();
- continue;
-
-/* join */
- case 'j':
- tail("join");
- c = exclam();
- setcount();
- nonzero();
- newline();
- vmacchng(0);
- if (given < 2 && addr2 != dol)
- addr2++;
- join(c);
- continue;
-
-/* k */
- case 'k':
-casek:
- pastwh();
- c = getchar();
- if (endcmd(c))
- serror(catgets(catd, 1, 19,
- "Mark what?|%s requires following letter"), Command);
- newline();
- if (!islower(c))
- error(catgets(catd, 1, 20,
- "Bad mark|Mark must specify a letter"));
- setdot();
- nonzero();
- names[c - 'a'] = *addr2 &~ 01;
- anymarks = 1;
- continue;
-
-/* list */
- case 'l':
- tail("list");
- setCNL();
- ignorf(setlist(1));
- pflag = 0;
- goto print;
-
- case 'm':
- if (peekchar() == 'a') {
- ignchar();
- if (peekchar() == 'p') {
-/* map */
- tail2of("map");
- setnoaddr();
- mapcmd(0, 0);
- continue;
- }
-/* mark */
- tail2of("mark");
- goto casek;
- }
-/* move */
- tail("move");
- vmacchng(0);
- move();
- continue;
-
- case 'n':
- if (peekchar() == 'u') {
- tail("number");
- goto numberit;
- }
-/* next */
- tail("next");
- setnoaddr();
- if (!exclam())
- ckaw();
- ignore(quickly());
- if (getargs())
- makargs();
- next();
- c = 'e';
- filename(c);
- if (recov)
- goto recovnext;
- goto doecmd;
-
-/* open */
- case 'o':
- tail("open");
- oop();
- pflag = 0;
- nochng();
- continue;
-
- case 'p':
- case 'P':
- switch (peekchar()) {
-
-/* put */
- case 'u':
- tail("put");
- setdot();
- c = cmdreg();
- eol();
- vmacchng(0);
- if (c)
- putreg(c);
- else
- put(0);
- continue;
-
- case 'r':
- ignchar();
- if (peekchar() == 'e') {
-/* preserve */
- tail2of("preserve");
- eol();
- if (preserve() == 0)
- error(catgets(catd, 1, 21,
- "Preserve failed!"));
- else
- error(catgets(catd, 1, 22,
- "File preserved."));
- }
- tail2of("print");
- break;
-
- default:
- tail("print");
- break;
- }
-/* print */
- setCNL();
- pflag = 0;
-print:
- nonzero();
- if (CL && span() > TLINES) {
- flush1();
- vclear();
- }
- plines(addr1, addr2, 1);
- continue;
-
-/* quit */
- case 'q':
- tail("quit");
- setnoaddr();
- c = quickly();
- eol();
- if (!c)
-quit:
- nomore();
- if (inopen) {
- vgoto(WECHO, 0);
- if (!ateopr())
- vnfl();
- else {
- tostop();
- }
- flush();
- setty(normf);
- }
- cleanup(1);
- exitex(0);
-
- case 'r':
- if (peekchar() == 'e') {
- ignchar();
- switch (peekchar()) {
-
-/* rewind */
- case 'w':
- tail2of("rewind");
- setnoaddr();
- if (!exclam()) {
- ckaw();
- if (chng && dol > zero)
- error(catgets(catd,
- 1, 23, "No write@since last change (:rewind! overrides)"));
- }
- eol();
- erewind();
- next();
- c = 'e';
- ungetchar(lastchar());
- filename(c);
- goto doecmd;
-
-/* recover */
- case 'c':
- tail2of("recover");
- setnoaddr();
- c = 'e';
- if (!exclam() && chng)
- c = 'E';
- filename(c);
- if (c == 'E') {
- ungetchar(lastchar());
- ignore(quickly());
- }
-recovnext:
- init();
- addr2 = zero;
- laste++;
- synced();
- recover();
- rop2();
- revocer();
- if (status == 0)
- rop3(c);
- if (dol != zero)
- change();
-#ifdef INCORB
- tlaste();
-#endif
- laste = 0;
- nochng();
- continue;
- }
- tail2of("read");
- } else
- tail("read");
-/* read */
- if (savedfile[0] == 0 && dol == zero)
- c = 'e';
- pastwh();
- vmacchng(0);
- if (peekchar() == '!') {
- setdot();
- ignchar();
- unix0(0);
- filter(0);
- continue;
- }
- filename(c);
- rop(c);
- nochng();
- if (inopen && endline && addr1 > zero && addr1 < dol)
- dot = addr1 + 1;
- continue;
-
- case 's':
- switch (peekchar()) {
- /*
- * Caution: 2nd char cannot be c, g, or r
- * because these have meaning to substitute.
- */
-
-/* set */
- case 'e':
- tail("set");
- setnoaddr();
- set();
- continue;
-
-/* shell */
- case 'h':
- tail("shell");
- setNAEOL();
- vnfl();
- putpad(TE);
- flush();
- unixwt(1, unixex("-i", (char *) 0, 0, 0));
- vcontin(0);
- continue;
-
-/* source */
- case 'o':
-#ifdef notdef
- if (inopen)
- goto notinvis;
-#endif
- tail("source");
- setnoaddr();
- getone();
- eol();
- source(file, 0);
- continue;
-#ifdef SIGTSTP
-/* stop, suspend */
- case 't':
- tail("stop");
- goto suspend;
- case 'u':
- getchar();
- if (peekchar() == 'b') {
- tail2of("substitute");
- goto substitute;
- }
- tail2of("suspend");
-suspend:
- if (!ldisc)
- error(catgets(catd, 1, 24,
- "Old tty driver|Not using new tty driver/shell"));
- c = exclam();
- eol();
- if (!c)
- ckaw();
-#ifdef SIGTSTP
- onsusp(SIGTSTP);
-#endif
- continue;
-#endif
-
- }
- /* fall into ... */
-
-/* & */
-/* ~ */
-/* substitute */
- case '&':
- case '~':
- Command = "substitute";
- if (c == 's')
- tail(Command);
-substitute:
- vmacchng(0);
- if (!substitute(c))
- pflag = 0;
- continue;
-
-/* t */
- case 't':
- if (peekchar() == 'a') {
- tail("tag");
- tagfind(exclam());
- if (!inopen)
- lchng = chng - 1;
- else
- nochng();
- continue;
- }
- tail("t");
- vmacchng(0);
- move();
- continue;
-
- case 'u':
- if (peekchar() == 'n') {
- ignchar();
- switch(peekchar()) {
-/* unmap */
- case 'm':
- tail2of("unmap");
- setnoaddr();
- mapcmd(1, 0);
- continue;
-/* unabbreviate */
- case 'a':
- tail2of("unabbreviate");
- setnoaddr();
- mapcmd(1, 1);
- anyabbrs = 1;
- continue;
- }
-/* undo */
- tail2of("undo");
- } else
- tail("undo");
- setnoaddr();
- markDOT();
- c = exclam();
- newline();
- undo(c);
- continue;
-
- case 'v':
- switch (peekchar()) {
-
- case 'e':
-/* version */
- tail("version");
- setNAEOL();
- printver();
- noonl();
- continue;
-
-/* visual */
- case 'i':
- tail("visual");
- if (inopen) {
- c = 'e';
- goto editcmd;
- }
- vop();
- pflag = 0;
- nochng();
- continue;
- }
-/* v */
- tail("v");
- global(0);
- nochng();
- continue;
-
-/* write */
- case 'w':
- c = peekchar();
- tail(c == 'q' ? "wq" : "write");
-wq:
- if (skipwh() && peekchar() == '!') {
- pofix();
- ignchar();
- setall();
- unix0(0);
- filter(1);
- } else {
- setall();
- wop(1);
- nochng();
- }
- if (c == 'q')
- goto quit;
- continue;
-
-/* xit */
- case 'x':
- tail("xit");
- if (!chng)
- goto quit;
- c = 'q';
- goto wq;
-
-/* yank */
- case 'y':
- tail("yank");
- c = cmdreg();
- setcount();
- eol();
- vmacchng(0);
- if (c)
- YANKreg(c);
- else
- yank(0);
- vkillDEL();
- continue;
-
-/* z */
- case 'z':
- zop(0);
- pflag = 0;
- continue;
-
-/* * */
-/* @ */
- case '*':
- case '@':
- c = getchar();
- if (c=='\n' || c=='\r')
- ungetchar(c);
- if (any(c, "@*\n\r")) {
- c = lastmac;
- if (c == 0)
- failed = 1;
- }
- if (isupper(c))
- c = tolower(c);
- if (!islower(c))
- error(catgets(catd, 1, 25, "Bad register"));
- newline();
- setdot();
- cmdmac(c);
- continue;
-
-/* | */
- case '|':
- endline = 0;
- goto caseline;
-
-/* \n */
- case '\n':
- endline = 1;
-caseline:
- notempty();
- if (addr2 == 0) {
- if (UP != NOSTR && c == '\n' && !inglobal)
- c = CTRL('k');
- if (inglobal)
- addr1 = addr2 = dot;
- else {
- if (dot == dol)
- error(catgets(catd, 1, 26,
- "At EOF|At end-of-file"));
- addr1 = addr2 = dot + 1;
- }
- }
- setdot();
- nonzero();
- if (seensemi)
- addr1 = addr2;
- getline(*addr1);
- if (c == CTRL('k')) {
- flush1();
- destline--;
- if (hadpr)
- shudclob = 1;
- }
- plines(addr1, addr2, 1);
- continue;
-
-/* " */
- case '"':
- comment();
- continue;
-
-/* # */
- case '#':
-numberit:
- setCNL();
- ignorf(setnumb(1));
- pflag = 0;
- goto print;
-
-/* = */
- case '=':
- newline();
- setall();
- if (inglobal == 2)
- pofix();
- printf("%d", lineno(addr2));
- noonl();
- continue;
-
-/* ! */
- case '!':
- if (addr2 != 0) {
- vmacchng(0);
- unix0(0);
- setdot();
- filter(2);
- } else {
- unix0(1);
- pofix();
- putpad(TE);
- flush();
- unixwt(1, unixex("-c", uxb, 0, 0));
- vclrech(1); /* vcontin(0); */
- nochng();
- }
- continue;
-
-/* < */
-/* > */
- case '<':
- case '>':
- for (cnt = 1; peekchar() == c; cnt++)
- ignchar();
- setCNL();
- vmacchng(0);
- shift(c, cnt);
- continue;
-
-/* ^D */
-/* EOF */
- case CTRL('d'):
- case EOF:
- if (exitoneof) {
- if (addr2 != 0)
- dot = addr2;
- return;
- }
- if (!isatty(0)) {
- if (intty)
- /*
- * Chtty sys call at UCB may cause a
- * input which was a tty to suddenly be
- * turned into /dev/null.
- */
- onhup(SIGHUP);
- return;
- }
- if (addr2 != 0) {
- setlastchar('\n');
- putnl();
- }
- if (dol == zero) {
- if (addr2 == 0)
- putnl();
- notempty();
- }
- ungetchar(EOF);
- zop(hadpr);
- continue;
-
- default:
- if (!isalpha(c) && (c&0200) == 0)
- break;
- ungetchar(c);
- tailprim("", 0, 0);
- }
- error(catgets(catd, 1, 27,
- "What?|Unknown command character '%c'"), c);
- }
-}
generated by cgit v1.2.3 (git 2.46.0) at 2026-07-17 03:45:14 +0000