vi/port/ex_cmds.c

0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * CDDL HEADER START
0Sstevel@tonic-gate *
0Sstevel@tonic-gate * The contents of this file are subject to the terms of the
0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
0Sstevel@tonic-gate * (the "License").  You may not use this file except in compliance
0Sstevel@tonic-gate * with the License.
0Sstevel@tonic-gate *
0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
0Sstevel@tonic-gate * See the License for the specific language governing permissions
0Sstevel@tonic-gate * and limitations under the License.
0Sstevel@tonic-gate *
0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
0Sstevel@tonic-gate *
0Sstevel@tonic-gate * CDDL HEADER END
0Sstevel@tonic-gate */
500Sceastha/*
500Sceastha * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
500Sceastha * Use is subject to license terms.
500Sceastha */
500Sceastha
0Sstevel@tonic-gate/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
0Sstevel@tonic-gate/*	  All Rights Reserved  	*/
0Sstevel@tonic-gate
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* Copyright (c) 1981 Regents of the University of California */
0Sstevel@tonic-gate
0Sstevel@tonic-gate#pragma ident	"%Z%%M%	%I%	%E% SMI"
0Sstevel@tonic-gate
0Sstevel@tonic-gate#include "ex.h"
0Sstevel@tonic-gate#include "ex_argv.h"
0Sstevel@tonic-gate#include "ex_temp.h"
0Sstevel@tonic-gate#include "ex_tty.h"
0Sstevel@tonic-gate#include "ex_vis.h"
0Sstevel@tonic-gate
0Sstevel@tonic-gatebool	pflag, nflag;
0Sstevel@tonic-gateint	poffset;
0Sstevel@tonic-gate
0Sstevel@tonic-gate#define	nochng()	lchng = chng
0Sstevel@tonic-gate
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * Main loop for command mode command decoding.
0Sstevel@tonic-gate * A few commands are executed here, but main function
0Sstevel@tonic-gate * is to strip command addresses, do a little address oriented
0Sstevel@tonic-gate * processing and call command routines to do the real work.
0Sstevel@tonic-gate */
0Sstevel@tonic-gateextern unsigned char *Version;
*802Scf46844void
0Sstevel@tonic-gatecommands(noprompt, exitoneof)
0Sstevel@tonic-gate	bool noprompt, exitoneof;
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	line *addr;
0Sstevel@tonic-gate	int c;
0Sstevel@tonic-gate	int lchng;
0Sstevel@tonic-gate	int given;
0Sstevel@tonic-gate	int seensemi;
0Sstevel@tonic-gate	int cnt;
0Sstevel@tonic-gate	bool hadpr;
0Sstevel@tonic-gate	bool gotfile;
0Sstevel@tonic-gate#ifdef XPG4
0Sstevel@tonic-gate	int d;
0Sstevel@tonic-gate#endif /* XPG4 */
0Sstevel@tonic-gate	unsigned char *vgetpass();
0Sstevel@tonic-gate
0Sstevel@tonic-gate	resetflav();
0Sstevel@tonic-gate	nochng();
0Sstevel@tonic-gate	for (;;) {
0Sstevel@tonic-gate		if (!firstpat)
0Sstevel@tonic-gate			laste = 0;
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * If dot at last command
0Sstevel@tonic-gate		 * ended up at zero, advance to one if there is a such.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		if (dot <= zero) {
0Sstevel@tonic-gate			dot = zero;
0Sstevel@tonic-gate			if (dol > zero)
0Sstevel@tonic-gate				dot = one;
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		shudclob = 0;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * If autoprint or trailing print flags,
0Sstevel@tonic-gate		 * print the line at the specified offset
0Sstevel@tonic-gate		 * before the next command.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		if ((pflag || lchng != chng && value(vi_AUTOPRINT) &&
0Sstevel@tonic-gate		    !inglobal && !inopen && endline) || poffset != 0) {
0Sstevel@tonic-gate			pflag = 0;
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			if (dol != zero) {
0Sstevel@tonic-gate				addr1 = addr2 = dot + poffset;
0Sstevel@tonic-gate				poffset = 0;
0Sstevel@tonic-gate				if (addr1 < one || addr1 > dol)
0Sstevel@tonic-gate					error(value(vi_TERSE) ?
0Sstevel@tonic-gate					    gettext("Offset out-of-bounds") :
0Sstevel@tonic-gate					    gettext("Offset after command "
0Sstevel@tonic-gate						"too large"));
0Sstevel@tonic-gate				dot = addr1;
0Sstevel@tonic-gate				setdot1();
0Sstevel@tonic-gate
0Sstevel@tonic-gate				goto print;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		nochng();
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * Print prompt if appropriate.
0Sstevel@tonic-gate		 * If not in global flush output first to prevent
0Sstevel@tonic-gate		 * going into pfast mode unreasonably.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		if (inglobal == 0) {
0Sstevel@tonic-gate			flush();
0Sstevel@tonic-gate			if (!hush && value(vi_PROMPT) && !globp &&
0Sstevel@tonic-gate			    !noprompt && endline) {
0Sstevel@tonic-gate				putchar(':');
0Sstevel@tonic-gate				hadpr = 1;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			TSYNC();
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * Gobble up the address.
0Sstevel@tonic-gate		 * Degenerate addresses yield ".".
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		addr2 = 0;
0Sstevel@tonic-gate		given = seensemi = 0;
0Sstevel@tonic-gate		do {
0Sstevel@tonic-gate			addr1 = addr2;
0Sstevel@tonic-gate			addr = address(0);
0Sstevel@tonic-gate			c = getcd();
0Sstevel@tonic-gate			if (addr == 0) {
0Sstevel@tonic-gate				if (c == ',' || c == ';')
0Sstevel@tonic-gate					addr = dot;
0Sstevel@tonic-gate				else if (addr1 != 0) {
0Sstevel@tonic-gate					addr2 = dot;
0Sstevel@tonic-gate					break;
0Sstevel@tonic-gate				} else
0Sstevel@tonic-gate					break;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			addr2 = addr;
0Sstevel@tonic-gate			given++;
0Sstevel@tonic-gate			if (c == ';') {
0Sstevel@tonic-gate				c = ',';
0Sstevel@tonic-gate				dot = addr;
0Sstevel@tonic-gate				seensemi = 1;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} while (c == ',');
0Sstevel@tonic-gate
0Sstevel@tonic-gate		if (c == '%') {
0Sstevel@tonic-gate			/* %: same as 1,$ */
0Sstevel@tonic-gate			addr1 = one;
0Sstevel@tonic-gate			addr2 = dol;
0Sstevel@tonic-gate			given = 2;
0Sstevel@tonic-gate			c = getchar();
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		if (addr1 == 0)
0Sstevel@tonic-gate			addr1 = addr2;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * eat multiple colons
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		while (c == ':')
0Sstevel@tonic-gate			c = getchar();
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * Set command name for special character commands.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		tailspec(c);
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * If called via : escape from open or visual, limit
0Sstevel@tonic-gate		 * the set of available commands here to save work below.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		if (inopen) {
0Sstevel@tonic-gate			if (c == '\n' || c == '\r' ||
0Sstevel@tonic-gate			    c == CTRL('d') || c == EOF) {
0Sstevel@tonic-gate				if (addr2)
0Sstevel@tonic-gate					dot = addr2;
0Sstevel@tonic-gate				if (c == EOF)
0Sstevel@tonic-gate					return;
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (any(c, "o"))
0Sstevel@tonic-gatenotinvis:
0Sstevel@tonic-gate				tailprim(Command, 1, 1);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		switch (c) {
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'a':
0Sstevel@tonic-gate
0Sstevel@tonic-gate			switch (peekchar()) {
0Sstevel@tonic-gate			case 'b':
0Sstevel@tonic-gate/* abbreviate */
0Sstevel@tonic-gate				tail("abbreviate");
0Sstevel@tonic-gate				setnoaddr();
0Sstevel@tonic-gate				mapcmd(0, 1);
0Sstevel@tonic-gate				anyabbrs = 1;
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate			case 'r':
0Sstevel@tonic-gate/* args */
0Sstevel@tonic-gate				tail("args");
0Sstevel@tonic-gate				setnoaddr();
0Sstevel@tonic-gate				eol();
0Sstevel@tonic-gate				pargs();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* append */
0Sstevel@tonic-gate			if (inopen)
0Sstevel@tonic-gate				goto notinvis;
0Sstevel@tonic-gate			tail("append");
0Sstevel@tonic-gate			setdot();
0Sstevel@tonic-gate			aiflag = exclam();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			deletenone();
0Sstevel@tonic-gate			setin(addr2);
0Sstevel@tonic-gate			inappend = 1;
0Sstevel@tonic-gate			(void) append(gettty, addr2);
0Sstevel@tonic-gate			inappend = 0;
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'c':
0Sstevel@tonic-gate			switch (peekchar()) {
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* copy */
0Sstevel@tonic-gate			case 'o':
0Sstevel@tonic-gate				tail("copy");
0Sstevel@tonic-gate				vmacchng(0);
0Sstevel@tonic-gate				vi_move();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* crypt */
0Sstevel@tonic-gate			case 'r':
0Sstevel@tonic-gate				tail("crypt");
0Sstevel@tonic-gate				crflag = -1;
0Sstevel@tonic-gate			ent_crypt:
0Sstevel@tonic-gate				setnoaddr();
0Sstevel@tonic-gate				xflag = 1;
0Sstevel@tonic-gate				if (permflag)
0Sstevel@tonic-gate					(void) crypt_close(perm);
0Sstevel@tonic-gate				permflag = 1;
0Sstevel@tonic-gate				if ((kflag = run_setkey(perm,
0Sstevel@tonic-gate				    (key = vgetpass(
0Sstevel@tonic-gate					gettext("Enter key:"))))) == -1) {
0Sstevel@tonic-gate					xflag = 0;
0Sstevel@tonic-gate					kflag = 0;
0Sstevel@tonic-gate					crflag = 0;
0Sstevel@tonic-gate					smerror(gettext("Encryption facility "
0Sstevel@tonic-gate						    "not available\n"));
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				if (kflag == 0)
0Sstevel@tonic-gate					crflag = 0;
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* cd */
0Sstevel@tonic-gate			case 'd':
0Sstevel@tonic-gate				tail("cd");
0Sstevel@tonic-gate				goto changdir;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* chdir */
0Sstevel@tonic-gate			case 'h':
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate				if (peekchar() == 'd') {
*802Scf46844					unsigned char *p;
0Sstevel@tonic-gate					tail2of("chdir");
0Sstevel@tonic-gatechangdir:
0Sstevel@tonic-gate					if (savedfile[0] == '/' ||
0Sstevel@tonic-gate					    !value(vi_WARN))
0Sstevel@tonic-gate						(void) exclam();
0Sstevel@tonic-gate					else
0Sstevel@tonic-gate						(void) quickly();
0Sstevel@tonic-gate					if (skipend()) {
0Sstevel@tonic-gate						p = (unsigned char *)
0Sstevel@tonic-gate						    getenv("HOME");
0Sstevel@tonic-gate						if (p == NULL)
0Sstevel@tonic-gate							error(gettext(
0Sstevel@tonic-gate								"Home directory"
0Sstevel@tonic-gate								    /*CSTYLED*/
0Sstevel@tonic-gate								    " unknown"));
0Sstevel@tonic-gate					} else
0Sstevel@tonic-gate						getone(), p = file;
0Sstevel@tonic-gate					eol();
*802Scf46844					if (chdir((char *)p) < 0)
0Sstevel@tonic-gate						filioerr(p);
0Sstevel@tonic-gate					if (savedfile[0] != '/')
0Sstevel@tonic-gate						edited = 0;
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				if (inopen)
*802Scf46844					tailprim((unsigned char *)"change",
*802Scf46844					    2, 1);
0Sstevel@tonic-gate				tail2of("change");
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate			default:
0Sstevel@tonic-gate				if (inopen)
0Sstevel@tonic-gate					goto notinvis;
0Sstevel@tonic-gate				tail("change");
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate/* change */
0Sstevel@tonic-gate			aiflag = exclam();
0Sstevel@tonic-gate#ifdef XPG4ONLY
0Sstevel@tonic-gate			setcount2();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate#else /* XPG6 and Solaris */
0Sstevel@tonic-gate			setCNL();
0Sstevel@tonic-gate#endif /* XPG4ONLY */
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			setin(addr1);
*802Scf46844			(void) delete(0);
0Sstevel@tonic-gate			inappend = 1;
0Sstevel@tonic-gate			if (append(gettty, addr1 - 1) == 0) {
0Sstevel@tonic-gate#ifdef XPG4
0Sstevel@tonic-gate				/*
0Sstevel@tonic-gate				 * P2003.2/D9:5.10.7.2.4, p. 646,
0Sstevel@tonic-gate				 * assertion 214(A). If nothing changed,
0Sstevel@tonic-gate				 * set dot to the line preceding the lines
0Sstevel@tonic-gate				 * to be changed.
0Sstevel@tonic-gate				 */
0Sstevel@tonic-gate				dot = addr1 - 1;
0Sstevel@tonic-gate#else /* XPG4 */
0Sstevel@tonic-gate				dot = addr1;
0Sstevel@tonic-gate#endif /* XPG4 */
0Sstevel@tonic-gate				if (dot > dol)
0Sstevel@tonic-gate					dot = dol;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			inappend = 0;
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* delete */
0Sstevel@tonic-gate		case 'd':
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * Caution: dp and dl have special meaning already.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			tail("delete");
0Sstevel@tonic-gate			c = cmdreg();
0Sstevel@tonic-gate#ifdef XPG4ONLY
0Sstevel@tonic-gate			setcount2();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate#else /* XPG6 and Solaris */
0Sstevel@tonic-gate			setCNL();
0Sstevel@tonic-gate#endif /* XPG4ONLY */
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			if (c)
*802Scf46844				(void) YANKreg(c);
*802Scf46844			(void) delete(0);
0Sstevel@tonic-gate			appendnone();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* edit */
0Sstevel@tonic-gate/* ex */
0Sstevel@tonic-gate		case 'e':
0Sstevel@tonic-gate			if (crflag == 2 || crflag == -2)
0Sstevel@tonic-gate				crflag = -1;
0Sstevel@tonic-gate			tail(peekchar() == 'x' ? "ex" : "edit");
0Sstevel@tonic-gateeditcmd:
0Sstevel@tonic-gate			if (!exclam() && chng)
0Sstevel@tonic-gate				c = 'E';
0Sstevel@tonic-gate			gotfile = 0;
0Sstevel@tonic-gate			if (c == 'E') {
0Sstevel@tonic-gate				if (inopen && !value(vi_AUTOWRITE)) {
0Sstevel@tonic-gate					filename(c);
0Sstevel@tonic-gate					gotfile = 1;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				ungetchar(lastchar());
0Sstevel@tonic-gate				if (!exclam()) {
0Sstevel@tonic-gate					ckaw();
0Sstevel@tonic-gate					if (chng && dol > zero) {
0Sstevel@tonic-gate						xchng = 0;
0Sstevel@tonic-gate						error(value(vi_TERSE) ?
0Sstevel@tonic-gate						    gettext("No write") :
0Sstevel@tonic-gate						    gettext("No write since "
0Sstevel@tonic-gate							"last change (:%s! "
0Sstevel@tonic-gate							"overrides)"),
0Sstevel@tonic-gate						    Command);
0Sstevel@tonic-gate					}
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (gotfile == 0)
0Sstevel@tonic-gate				filename(c);
0Sstevel@tonic-gate			setnoaddr();
0Sstevel@tonic-gatedoecmd:
0Sstevel@tonic-gate			init();
0Sstevel@tonic-gate			addr2 = zero;
0Sstevel@tonic-gate			laste++;
0Sstevel@tonic-gate			sync();
0Sstevel@tonic-gate			rop(c);
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* file */
0Sstevel@tonic-gate		case 'f':
0Sstevel@tonic-gate			tail("file");
0Sstevel@tonic-gate			setnoaddr();
0Sstevel@tonic-gate			filename(c);
0Sstevel@tonic-gate			noonl();
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate *			synctmp();
0Sstevel@tonic-gate */
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* global */
0Sstevel@tonic-gate		case 'g':
0Sstevel@tonic-gate			tail("global");
0Sstevel@tonic-gate			global(!exclam());
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* insert */
0Sstevel@tonic-gate		case 'i':
0Sstevel@tonic-gate			if (inopen)
0Sstevel@tonic-gate				goto notinvis;
0Sstevel@tonic-gate			tail("insert");
0Sstevel@tonic-gate			setdot();
0Sstevel@tonic-gate			nonzero();
0Sstevel@tonic-gate			aiflag = exclam();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			deletenone();
0Sstevel@tonic-gate			setin(addr2);
0Sstevel@tonic-gate			inappend = 1;
0Sstevel@tonic-gate			(void) append(gettty, addr2 - 1);
0Sstevel@tonic-gate			inappend = 0;
0Sstevel@tonic-gate			if (dot == zero && dol > zero)
0Sstevel@tonic-gate				dot = one;
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* join */
0Sstevel@tonic-gate		case 'j':
0Sstevel@tonic-gate			tail("join");
0Sstevel@tonic-gate			c = exclam();
0Sstevel@tonic-gate			setcount();
0Sstevel@tonic-gate			nonzero();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate#ifdef XPG4ONLY
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * if no count was specified, addr1 == addr2. if only
0Sstevel@tonic-gate			 * 1 range arg was specified, inc addr2 to allow
0Sstevel@tonic-gate			 * joining of the next line.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			if (given < 2 && (addr1 == addr2) && (addr2 != dol))
0Sstevel@tonic-gate				addr2++;
0Sstevel@tonic-gate
0Sstevel@tonic-gate#else /* XPG6 and Solaris */
0Sstevel@tonic-gate			if (given < 2 && addr2 != dol)
0Sstevel@tonic-gate				addr2++;
0Sstevel@tonic-gate#endif /* XPG4ONLY */
*802Scf46844			(void) join(c);
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* k */
0Sstevel@tonic-gate		case 'k':
0Sstevel@tonic-gatecasek:
0Sstevel@tonic-gate			pastwh();
0Sstevel@tonic-gate			c = getchar();
0Sstevel@tonic-gate			if (endcmd(c))
*802Scf46844				serror((vi_TERSE) ?
*802Scf46844				    (unsigned char *)gettext("Mark what?") :
*802Scf46844				    (unsigned char *)
*802Scf46844				    gettext("%s requires following "
*802Scf46844				    "letter"), Command);
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			if (!islower(c))
0Sstevel@tonic-gate				error((vi_TERSE) ? gettext("Bad mark") :
0Sstevel@tonic-gate					gettext("Mark must specify a letter"));
0Sstevel@tonic-gate			setdot();
0Sstevel@tonic-gate			nonzero();
0Sstevel@tonic-gate			names[c - 'a'] = *addr2 &~ 01;
0Sstevel@tonic-gate			anymarks = 1;
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* list */
0Sstevel@tonic-gate		case 'l':
0Sstevel@tonic-gate			tail("list");
0Sstevel@tonic-gate#ifdef XPG4ONLY
0Sstevel@tonic-gate			setcount2();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate#else /* XPG6 and Solaris */
0Sstevel@tonic-gate			setCNL();
0Sstevel@tonic-gate#endif /* XPG4ONLY */
0Sstevel@tonic-gate			(void) setlist(1);
0Sstevel@tonic-gate			pflag = 0;
0Sstevel@tonic-gate			goto print;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'm':
0Sstevel@tonic-gate			if (peekchar() == 'a') {
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate				if (peekchar() == 'p') {
0Sstevel@tonic-gate/* map */
0Sstevel@tonic-gate					tail2of("map");
0Sstevel@tonic-gate					setnoaddr();
0Sstevel@tonic-gate					mapcmd(0, 0);
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate/* mark */
0Sstevel@tonic-gate				tail2of("mark");
0Sstevel@tonic-gate				goto casek;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate/* move */
0Sstevel@tonic-gate			tail("move");
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			vi_move();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'n':
0Sstevel@tonic-gate			if (peekchar() == 'u') {
0Sstevel@tonic-gate				tail("number");
0Sstevel@tonic-gate				goto numberit;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate/* next */
0Sstevel@tonic-gate			tail("next");
0Sstevel@tonic-gate			setnoaddr();
0Sstevel@tonic-gate			if (!exclam()) {
0Sstevel@tonic-gate				ckaw();
0Sstevel@tonic-gate				if (chng && dol > zero) {
0Sstevel@tonic-gate					xchng = 0;
0Sstevel@tonic-gate					error(value(vi_TERSE) ?
0Sstevel@tonic-gate					    gettext("No write") :
0Sstevel@tonic-gate					    gettext("No write since last "
0Sstevel@tonic-gate						"change (:%s! overrides)"),
0Sstevel@tonic-gate					    Command);
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			if (getargs())
0Sstevel@tonic-gate				makargs();
0Sstevel@tonic-gate			next();
0Sstevel@tonic-gate			c = 'e';
0Sstevel@tonic-gate			filename(c);
0Sstevel@tonic-gate			goto doecmd;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* open */
0Sstevel@tonic-gate		case 'o':
0Sstevel@tonic-gate			tail("open");
0Sstevel@tonic-gate			oop();
0Sstevel@tonic-gate			pflag = 0;
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'p':
0Sstevel@tonic-gate		case 'P':
0Sstevel@tonic-gate			switch (peekchar()) {
0Sstevel@tonic-gate#ifdef TAG_STACK
0Sstevel@tonic-gate/* pop */
0Sstevel@tonic-gate			case 'o':
0Sstevel@tonic-gate				tail("pop");
0Sstevel@tonic-gate				poptag(exclam());
0Sstevel@tonic-gate				if (!inopen)
0Sstevel@tonic-gate					lchng = chng - 1;
0Sstevel@tonic-gate				else
0Sstevel@tonic-gate					nochng();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* put */
0Sstevel@tonic-gate			case 'u':
0Sstevel@tonic-gate				tail("put");
0Sstevel@tonic-gate				setdot();
0Sstevel@tonic-gate				c = cmdreg();
0Sstevel@tonic-gate				eol();
0Sstevel@tonic-gate				vmacchng(0);
0Sstevel@tonic-gate				if (c)
*802Scf46844					(void) putreg(c);
0Sstevel@tonic-gate				else
*802Scf46844					(void) put();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate			case 'r':
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate				if (peekchar() == 'e') {
0Sstevel@tonic-gate/* preserve */
0Sstevel@tonic-gate					tail2of("preserve");
0Sstevel@tonic-gate					eol();
0Sstevel@tonic-gate					if (preserve() == 0)
0Sstevel@tonic-gate						error(gettext(
0Sstevel@tonic-gate						    "Preserve failed!"));
0Sstevel@tonic-gate					else {
0Sstevel@tonic-gate#ifdef XPG4
0Sstevel@tonic-gate						/*
0Sstevel@tonic-gate						 * error() incs errcnt. this is
0Sstevel@tonic-gate						 * misleading here; and a
0Sstevel@tonic-gate						 * violation of POSIX. so call
0Sstevel@tonic-gate						 * noerror() instead.
0Sstevel@tonic-gate						 * this is for assertion ex:222.
0Sstevel@tonic-gate						 */
0Sstevel@tonic-gate						noerror(
0Sstevel@tonic-gate						    gettext("File preserved."));
0Sstevel@tonic-gate
0Sstevel@tonic-gate#else /* XPG4 */
0Sstevel@tonic-gate						error(
0Sstevel@tonic-gate						    gettext("File preserved."));
0Sstevel@tonic-gate#endif /* XPG4 */
0Sstevel@tonic-gate					}
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				tail2of("print");
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate			default:
0Sstevel@tonic-gate				tail("print");
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate/* print */
0Sstevel@tonic-gate			setCNL();
0Sstevel@tonic-gate			pflag = 0;
0Sstevel@tonic-gateprint:
0Sstevel@tonic-gate			nonzero();
0Sstevel@tonic-gate			if (clear_screen && span() > lines) {
0Sstevel@tonic-gate				flush1();
0Sstevel@tonic-gate				vclear();
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * poffset is nonzero if trailing + or - flags
0Sstevel@tonic-gate			 * were given, and in that case we need to
0Sstevel@tonic-gate			 * adjust dot before printing a line.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			if (poffset == 0)
0Sstevel@tonic-gate				plines(addr1, addr2, 1);
0Sstevel@tonic-gate			else
0Sstevel@tonic-gate				dot = addr2;
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* quit */
0Sstevel@tonic-gate		case 'q':
0Sstevel@tonic-gate			tail("quit");
0Sstevel@tonic-gate			setnoaddr();
0Sstevel@tonic-gate			c = quickly();
0Sstevel@tonic-gate			eol();
0Sstevel@tonic-gate			if (!c)
0Sstevel@tonic-gatequit:
0Sstevel@tonic-gate				if (nomore())
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate			if (inopen) {
0Sstevel@tonic-gate				vgoto(WECHO, 0);
0Sstevel@tonic-gate				if (!ateopr())
0Sstevel@tonic-gate					vnfl();
0Sstevel@tonic-gate				else {
0Sstevel@tonic-gate					tostop();
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				flush();
0Sstevel@tonic-gate				setty(normf);
0Sstevel@tonic-gate				ixlatctl(1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			cleanup(1);
0Sstevel@tonic-gate			exit(errcnt);
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'r':
0Sstevel@tonic-gate			if (peekchar() == 'e') {
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate				switch (peekchar()) {
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* rewind */
0Sstevel@tonic-gate				case 'w':
0Sstevel@tonic-gate					tail2of("rewind");
0Sstevel@tonic-gate					setnoaddr();
0Sstevel@tonic-gate					if (!exclam()) {
0Sstevel@tonic-gate						ckaw();
0Sstevel@tonic-gate						if (chng && dol > zero)
0Sstevel@tonic-gate							error((vi_TERSE) ?
0Sstevel@tonic-gate							    /*CSTYLED*/
0Sstevel@tonic-gate							    gettext("No write") :
0Sstevel@tonic-gate							    gettext("No write "
0Sstevel@tonic-gate								"since last "
0Sstevel@tonic-gate								"change (:rewi"
0Sstevel@tonic-gate								/*CSTYLED*/
0Sstevel@tonic-gate								"nd! overrides)"));
0Sstevel@tonic-gate					}
0Sstevel@tonic-gate					eol();
0Sstevel@tonic-gate					erewind();
0Sstevel@tonic-gate					next();
0Sstevel@tonic-gate					c = 'e';
0Sstevel@tonic-gate					ungetchar(lastchar());
0Sstevel@tonic-gate					filename(c);
0Sstevel@tonic-gate					goto doecmd;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* recover */
0Sstevel@tonic-gate				case 'c':
0Sstevel@tonic-gate					tail2of("recover");
0Sstevel@tonic-gate					setnoaddr();
0Sstevel@tonic-gate					c = 'e';
0Sstevel@tonic-gate					if (!exclam() && chng)
0Sstevel@tonic-gate						c = 'E';
0Sstevel@tonic-gate					filename(c);
0Sstevel@tonic-gate					if (c == 'E') {
0Sstevel@tonic-gate						ungetchar(lastchar());
0Sstevel@tonic-gate						(void) quickly();
0Sstevel@tonic-gate					}
0Sstevel@tonic-gate					init();
0Sstevel@tonic-gate					addr2 = zero;
0Sstevel@tonic-gate					laste++;
0Sstevel@tonic-gate					sync();
0Sstevel@tonic-gate					recover();
0Sstevel@tonic-gate					rop2();
0Sstevel@tonic-gate					revocer();
0Sstevel@tonic-gate					if (status == 0)
0Sstevel@tonic-gate						rop3(c);
0Sstevel@tonic-gate					if (dol != zero)
0Sstevel@tonic-gate						change();
0Sstevel@tonic-gate					nochng();
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				tail2of("read");
0Sstevel@tonic-gate			} else
0Sstevel@tonic-gate				tail("read");
0Sstevel@tonic-gate/* read */
0Sstevel@tonic-gate			if (crflag == 2 || crflag == -2)
0Sstevel@tonic-gate			/* restore crflag for new input text */
0Sstevel@tonic-gate				crflag = -1;
0Sstevel@tonic-gate			if (savedfile[0] == 0 && dol == zero)
0Sstevel@tonic-gate				c = 'e';
0Sstevel@tonic-gate			pastwh();
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			if (peekchar() == '!') {
0Sstevel@tonic-gate				setdot();
0Sstevel@tonic-gate				ignchar();
500Sceastha				unix0(0, 1);
*802Scf46844				(void) vi_filter(0);
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			filename(c);
0Sstevel@tonic-gate			rop(c);
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			if (inopen && endline && addr1 > zero && addr1 < dol)
0Sstevel@tonic-gate				dot = addr1 + 1;
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 's':
0Sstevel@tonic-gate			switch (peekchar()) {
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * Caution: 2nd char cannot be c, g, or r
0Sstevel@tonic-gate			 * because these have meaning to substitute.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* set */
0Sstevel@tonic-gate			case 'e':
0Sstevel@tonic-gate				tail("set");
0Sstevel@tonic-gate				setnoaddr();
0Sstevel@tonic-gate				set();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* shell */
0Sstevel@tonic-gate			case 'h':
0Sstevel@tonic-gate				tail("shell");
0Sstevel@tonic-gate				setNAEOL();
0Sstevel@tonic-gate				vnfl();
*802Scf46844				putpad((unsigned char *)exit_ca_mode);
0Sstevel@tonic-gate				flush();
0Sstevel@tonic-gate				resetterm();
0Sstevel@tonic-gate				unixwt(1, unixex("-i", (char *)0, 0, 0));
0Sstevel@tonic-gate				vcontin(0);
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* source */
0Sstevel@tonic-gate			case 'o':
0Sstevel@tonic-gate#ifdef notdef
0Sstevel@tonic-gate				if (inopen)
0Sstevel@tonic-gate					goto notinvis;
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate				tail("source");
0Sstevel@tonic-gate				setnoaddr();
0Sstevel@tonic-gate				getone();
0Sstevel@tonic-gate				eol();
0Sstevel@tonic-gate				source(file, 0);
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate#ifdef SIGTSTP
0Sstevel@tonic-gate/* stop, suspend */
0Sstevel@tonic-gate			case 't':
0Sstevel@tonic-gate				tail("stop");
0Sstevel@tonic-gate				goto suspend;
0Sstevel@tonic-gate			case 'u':
0Sstevel@tonic-gate#ifdef XPG4
0Sstevel@tonic-gate				/*
0Sstevel@tonic-gate				 * for POSIX, "su" with no other distinguishing
0Sstevel@tonic-gate				 * characteristics, maps to "s". Re. P1003.D11,
0Sstevel@tonic-gate				 * 5.10.7.3.
0Sstevel@tonic-gate				 *
0Sstevel@tonic-gate				 * so, unless the "su" is followed by a "s" or
0Sstevel@tonic-gate				 * a "!", we assume that the user means "s".
0Sstevel@tonic-gate				 */
0Sstevel@tonic-gate				switch (d = peekchar()) {
0Sstevel@tonic-gate				case 's':
0Sstevel@tonic-gate				case '!':
0Sstevel@tonic-gate#endif /* XPG4 */
0Sstevel@tonic-gate					tail("suspend");
0Sstevel@tonic-gatesuspend:
0Sstevel@tonic-gate					c = exclam();
0Sstevel@tonic-gate					eol();
0Sstevel@tonic-gate					if (!c)
0Sstevel@tonic-gate						ckaw();
0Sstevel@tonic-gate					onsusp(0);
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate#ifdef XPG4
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate#endif /* XPG4 */
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/* fall into ... */
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* & */
0Sstevel@tonic-gate/* ~ */
0Sstevel@tonic-gate/* substitute */
0Sstevel@tonic-gate		case '&':
0Sstevel@tonic-gate		case '~':
0Sstevel@tonic-gate			Command = (unsigned char *)"substitute";
0Sstevel@tonic-gate			if (c == 's')
0Sstevel@tonic-gate				tail(Command);
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			if (!substitute(c))
0Sstevel@tonic-gate				pflag = 0;
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* t */
0Sstevel@tonic-gate		case 't':
0Sstevel@tonic-gate			if (peekchar() == 'a') {
0Sstevel@tonic-gate				tail("tag");
0Sstevel@tonic-gate				tagfind(exclam());
0Sstevel@tonic-gate				if (!inopen)
0Sstevel@tonic-gate					lchng = chng - 1;
0Sstevel@tonic-gate				else
0Sstevel@tonic-gate					nochng();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			tail("t");
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			vi_move();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'u':
0Sstevel@tonic-gate			if (peekchar() == 'n') {
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate				switch (peekchar()) {
0Sstevel@tonic-gate/* unmap */
0Sstevel@tonic-gate				case 'm':
0Sstevel@tonic-gate					tail2of("unmap");
0Sstevel@tonic-gate					setnoaddr();
0Sstevel@tonic-gate					mapcmd(1, 0);
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate/* unabbreviate */
0Sstevel@tonic-gate				case 'a':
0Sstevel@tonic-gate					tail2of("unabbreviate");
0Sstevel@tonic-gate					setnoaddr();
0Sstevel@tonic-gate					mapcmd(1, 1);
0Sstevel@tonic-gate					anyabbrs = 1;
0Sstevel@tonic-gate					continue;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate/* undo */
0Sstevel@tonic-gate				tail2of("undo");
0Sstevel@tonic-gate			} else
0Sstevel@tonic-gate				tail("undo");
0Sstevel@tonic-gate			setnoaddr();
0Sstevel@tonic-gate			markDOT();
0Sstevel@tonic-gate			c = exclam();
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			undo(c);
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'v':
0Sstevel@tonic-gate			switch (peekchar()) {
0Sstevel@tonic-gate
0Sstevel@tonic-gate			case 'e':
0Sstevel@tonic-gate/* version */
0Sstevel@tonic-gate				tail("version");
0Sstevel@tonic-gate				setNAEOL();
*802Scf46844				viprintf("%s", Version);
0Sstevel@tonic-gate				noonl();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* visual */
0Sstevel@tonic-gate			case 'i':
0Sstevel@tonic-gate				tail("visual");
0Sstevel@tonic-gate				if (inopen) {
0Sstevel@tonic-gate					c = 'e';
0Sstevel@tonic-gate					goto editcmd;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				vop();
0Sstevel@tonic-gate				pflag = 0;
0Sstevel@tonic-gate				nochng();
0Sstevel@tonic-gate				continue;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate/* v */
0Sstevel@tonic-gate			tail("v");
0Sstevel@tonic-gate			global(0);
0Sstevel@tonic-gate			nochng();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* write */
0Sstevel@tonic-gate		case 'w':
0Sstevel@tonic-gate			c = peekchar();
0Sstevel@tonic-gate			tail(c == 'q' ? "wq" : "write");
0Sstevel@tonic-gatewq:
0Sstevel@tonic-gate			if (skipwh() && peekchar() == '!') {
0Sstevel@tonic-gate				pofix();
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate				setall();
500Sceastha				unix0(0, 1);
*802Scf46844				(void) vi_filter(1);
0Sstevel@tonic-gate			} else {
0Sstevel@tonic-gate				setall();
0Sstevel@tonic-gate				if (c == 'q')
0Sstevel@tonic-gate					write_quit = 1;
0Sstevel@tonic-gate				else
0Sstevel@tonic-gate					write_quit = 0;
0Sstevel@tonic-gate				wop(1);
0Sstevel@tonic-gate				nochng();
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (c == 'q')
0Sstevel@tonic-gate				goto quit;
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate/* X: crypt */
0Sstevel@tonic-gate		case 'X':
0Sstevel@tonic-gate			crflag = -1; /* determine if file is encrypted */
0Sstevel@tonic-gate			goto ent_crypt;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		case 'C':
0Sstevel@tonic-gate			crflag = 1;  /* assume files read in are encrypted */
0Sstevel@tonic-gate			goto ent_crypt;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* xit */
0Sstevel@tonic-gate		case 'x':
0Sstevel@tonic-gate			tail("xit");
0Sstevel@tonic-gate			if (!chng)
0Sstevel@tonic-gate				goto quit;
0Sstevel@tonic-gate			c = 'q';
0Sstevel@tonic-gate			goto wq;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* yank */
0Sstevel@tonic-gate		case 'y':
0Sstevel@tonic-gate			tail("yank");
0Sstevel@tonic-gate			c = cmdreg();
0Sstevel@tonic-gate#ifdef XPG4ONLY
0Sstevel@tonic-gate			setcount2();
0Sstevel@tonic-gate#else /* XPG6 and Solaris */
0Sstevel@tonic-gate			setcount();
0Sstevel@tonic-gate#endif /* XPG4ONLY */
0Sstevel@tonic-gate			eol();
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			if (c)
*802Scf46844				(void) YANKreg(c);
0Sstevel@tonic-gate			else
*802Scf46844				(void) yank();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* z */
0Sstevel@tonic-gate		case 'z':
0Sstevel@tonic-gate			zop(0);
0Sstevel@tonic-gate			pflag = 0;
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* * */
0Sstevel@tonic-gate/* @ */
0Sstevel@tonic-gate		case '*':
0Sstevel@tonic-gate		case '@':
0Sstevel@tonic-gate			c = getchar();
0Sstevel@tonic-gate			if (c == '\n' || c == '\r')
0Sstevel@tonic-gate				ungetchar(c);
0Sstevel@tonic-gate			if (any(c, "@*\n\r"))
0Sstevel@tonic-gate				c = lastmac;
0Sstevel@tonic-gate			if (isupper(c))
0Sstevel@tonic-gate				c = tolower(c);
0Sstevel@tonic-gate			if (!islower(c))
0Sstevel@tonic-gate				error(gettext("Bad register"));
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			setdot();
0Sstevel@tonic-gate			cmdmac(c);
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* | */
0Sstevel@tonic-gate		case '|':
0Sstevel@tonic-gate			endline = 0;
0Sstevel@tonic-gate			goto caseline;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* \n */
0Sstevel@tonic-gate		case '\n':
0Sstevel@tonic-gate			endline = 1;
0Sstevel@tonic-gatecaseline:
0Sstevel@tonic-gate			notempty();
0Sstevel@tonic-gate			if (addr2 == 0) {
0Sstevel@tonic-gate				if (cursor_up != NOSTR && c == '\n' &&
0Sstevel@tonic-gate				    !inglobal)
0Sstevel@tonic-gate					c = CTRL('k');
0Sstevel@tonic-gate				if (inglobal)
0Sstevel@tonic-gate					addr1 = addr2 = dot;
0Sstevel@tonic-gate				else {
0Sstevel@tonic-gate					if (dot == dol)
0Sstevel@tonic-gate						error((vi_TERSE) ?
0Sstevel@tonic-gate						    gettext("At EOF") :
0Sstevel@tonic-gate						    gettext("At end-of-file"));
0Sstevel@tonic-gate					addr1 = addr2 = dot + 1;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			setdot();
0Sstevel@tonic-gate			nonzero();
0Sstevel@tonic-gate			if (seensemi)
0Sstevel@tonic-gate				addr1 = addr2;
0Sstevel@tonic-gate			getline(*addr1);
0Sstevel@tonic-gate			if (c == CTRL('k')) {
0Sstevel@tonic-gate				flush1();
0Sstevel@tonic-gate				destline--;
0Sstevel@tonic-gate				if (hadpr)
0Sstevel@tonic-gate					shudclob = 1;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			plines(addr1, addr2, 1);
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* " */
0Sstevel@tonic-gate		case '"':
0Sstevel@tonic-gate			comment();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* # */
0Sstevel@tonic-gate		case '#':
0Sstevel@tonic-gatenumberit:
0Sstevel@tonic-gate			setCNL();
0Sstevel@tonic-gate			(void) setnumb(1);
0Sstevel@tonic-gate			pflag = 0;
0Sstevel@tonic-gate			goto print;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* = */
0Sstevel@tonic-gate		case '=':
0Sstevel@tonic-gate			donewline();
0Sstevel@tonic-gate			setall();
0Sstevel@tonic-gate			if (inglobal == 2)
0Sstevel@tonic-gate				pofix();
*802Scf46844			viprintf("%d", lineno(addr2));
0Sstevel@tonic-gate			noonl();
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* ! */
0Sstevel@tonic-gate		case '!':
0Sstevel@tonic-gate			if (addr2 != 0) {
0Sstevel@tonic-gate				vmacchng(0);
500Sceastha				unix0(0, 1);
0Sstevel@tonic-gate				setdot();
*802Scf46844				(void) vi_filter(2);
0Sstevel@tonic-gate			} else {
500Sceastha				unix0(1, 1);
0Sstevel@tonic-gate				pofix();
*802Scf46844				putpad((unsigned char *)exit_ca_mode);
0Sstevel@tonic-gate				flush();
0Sstevel@tonic-gate				resetterm();
0Sstevel@tonic-gate				unixwt(1, unixex("-c", uxb, 0, 0));
0Sstevel@tonic-gate				vclrech(1);	/* vcontin(0); */
0Sstevel@tonic-gate				nochng();
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* < */
0Sstevel@tonic-gate/* > */
0Sstevel@tonic-gate		case '<':
0Sstevel@tonic-gate		case '>':
0Sstevel@tonic-gate			for (cnt = 1; peekchar() == c; cnt++)
0Sstevel@tonic-gate				ignchar();
0Sstevel@tonic-gate			setCNL();
0Sstevel@tonic-gate			vmacchng(0);
0Sstevel@tonic-gate			shift(c, cnt);
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* ^D */
0Sstevel@tonic-gate/* EOF */
0Sstevel@tonic-gate		case CTRL('d'):
0Sstevel@tonic-gate		case EOF:
0Sstevel@tonic-gate			if (exitoneof) {
0Sstevel@tonic-gate				if (addr2 != 0)
0Sstevel@tonic-gate					dot = addr2;
0Sstevel@tonic-gate				return;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (!isatty(0)) {
0Sstevel@tonic-gate				if (intty)
0Sstevel@tonic-gate					/*
0Sstevel@tonic-gate					 * Chtty sys call at UCB may cause a
0Sstevel@tonic-gate					 * input which was a tty to suddenly be
0Sstevel@tonic-gate					 * turned into /dev/null.
0Sstevel@tonic-gate					 */
0Sstevel@tonic-gate					onhup(0);
0Sstevel@tonic-gate				return;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (addr2 != 0) {
0Sstevel@tonic-gate				setlastchar('\n');
0Sstevel@tonic-gate				putnl();
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (dol == zero) {
0Sstevel@tonic-gate				if (addr2 == 0)
0Sstevel@tonic-gate					putnl();
0Sstevel@tonic-gate				notempty();
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			ungetchar(EOF);
0Sstevel@tonic-gate			zop(hadpr);
0Sstevel@tonic-gate			continue;
0Sstevel@tonic-gate		default:
0Sstevel@tonic-gate			if (!isalpha(c) || !isascii(c))
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate			ungetchar(c);
*802Scf46844			tailprim((unsigned char *)"", 0, 0);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		ungetchar(c);
0Sstevel@tonic-gate		{
0Sstevel@tonic-gate			int length;
0Sstevel@tonic-gate			char multic[MULTI_BYTE_MAX];
0Sstevel@tonic-gate			wchar_t wchar;
0Sstevel@tonic-gate			length = _mbftowc(multic, &wchar, getchar, &peekc);
0Sstevel@tonic-gate			if (length < 0)
0Sstevel@tonic-gate				length = -length;
0Sstevel@tonic-gate			multic[length] = '\0';
0Sstevel@tonic-gate			error((vi_TERSE) ? gettext("What?") :
0Sstevel@tonic-gate				gettext("Unknown command character '%s'"),
0Sstevel@tonic-gate			    multic);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate}