xref: /titanic_41/usr/src/cmd/vi/port/ex_cmds.c (revision 6a634c9dca3093f3922e4b7ab826d7bdf17bf78e)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved.
24  */
25 
26 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
27 /*	  All Rights Reserved  	*/
28 
29 
30 /* Copyright (c) 1981 Regents of the University of California */
31 
32 #include "ex.h"
33 #include "ex_argv.h"
34 #include "ex_temp.h"
35 #include "ex_tty.h"
36 #include "ex_vis.h"
37 
38 bool	pflag, nflag;
39 int	poffset;
40 
41 #define	nochng()	lchng = chng
42 
43 
44 /*
45  * Main loop for command mode command decoding.
46  * A few commands are executed here, but main function
47  * is to strip command addresses, do a little address oriented
48  * processing and call command routines to do the real work.
49  */
50 extern unsigned char *Version;
51 void
commands(noprompt,exitoneof)52 commands(noprompt, exitoneof)
53 	bool noprompt, exitoneof;
54 {
55 	line *addr;
56 	int c;
57 	int lchng;
58 	int given;
59 	int seensemi;
60 	int cnt;
61 	bool hadpr;
62 	bool gotfile;
63 #ifdef XPG4
64 	int d;
65 #endif /* XPG4 */
66 	unsigned char *vgetpass();
67 
68 	resetflav();
69 	nochng();
70 	for (;;) {
71 		if (!firstpat)
72 			laste = 0;
73 		/*
74 		 * If dot at last command
75 		 * ended up at zero, advance to one if there is a such.
76 		 */
77 		if (dot <= zero) {
78 			dot = zero;
79 			if (dol > zero)
80 				dot = one;
81 		}
82 		shudclob = 0;
83 
84 		/*
85 		 * If autoprint or trailing print flags,
86 		 * print the line at the specified offset
87 		 * before the next command.
88 		 */
89 		if ((pflag || lchng != chng && value(vi_AUTOPRINT) &&
90 		    !inglobal && !inopen && endline) || poffset != 0) {
91 			pflag = 0;
92 			nochng();
93 			if (dol != zero) {
94 				addr1 = addr2 = dot + poffset;
95 				poffset = 0;
96 				if (addr1 < one || addr1 > dol)
97 					error(value(vi_TERSE) ?
98 					    gettext("Offset out-of-bounds") :
99 					    gettext("Offset after command "
100 						"too large"));
101 				dot = addr1;
102 				setdot1();
103 
104 				goto print;
105 			}
106 		}
107 		nochng();
108 
109 		/*
110 		 * Print prompt if appropriate.
111 		 * If not in global flush output first to prevent
112 		 * going into pfast mode unreasonably.
113 		 */
114 		if (inglobal == 0) {
115 			flush();
116 			if (!hush && value(vi_PROMPT) && !globp &&
117 			    !noprompt && endline) {
118 				putchar(':');
119 				hadpr = 1;
120 			}
121 			TSYNC();
122 		}
123 
124 		/*
125 		 * Gobble up the address.
126 		 * Degenerate addresses yield ".".
127 		 */
128 		addr2 = 0;
129 		given = seensemi = 0;
130 		do {
131 			addr1 = addr2;
132 			addr = address(0);
133 			c = getcd();
134 			if (addr == 0) {
135 				if (c == ',' || c == ';')
136 					addr = dot;
137 				else if (addr1 != 0) {
138 					addr2 = dot;
139 					break;
140 				} else
141 					break;
142 			}
143 			addr2 = addr;
144 			given++;
145 			if (c == ';') {
146 				c = ',';
147 				dot = addr;
148 				seensemi = 1;
149 			}
150 		} while (c == ',');
151 
152 		if (c == '%') {
153 			/* %: same as 1,$ */
154 			addr1 = one;
155 			addr2 = dol;
156 			given = 2;
157 			c = getchar();
158 		}
159 		if (addr1 == 0)
160 			addr1 = addr2;
161 
162 		/*
163 		 * eat multiple colons
164 		 */
165 		while (c == ':')
166 			c = getchar();
167 		/*
168 		 * Set command name for special character commands.
169 		 */
170 		tailspec(c);
171 
172 		/*
173 		 * If called via : escape from open or visual, limit
174 		 * the set of available commands here to save work below.
175 		 */
176 		if (inopen) {
177 			if (c == '\n' || c == '\r' ||
178 			    c == CTRL('d') || c == EOF) {
179 				if (addr2)
180 					dot = addr2;
181 				if (c == EOF)
182 					return;
183 				continue;
184 			}
185 			if (any(c, "o"))
186 notinvis:
187 				tailprim(Command, 1, 1);
188 		}
189 		switch (c) {
190 
191 		case 'a':
192 
193 			switch (peekchar()) {
194 			case 'b':
195 /* abbreviate */
196 				tail("abbreviate");
197 				setnoaddr();
198 				mapcmd(0, 1);
199 				anyabbrs = 1;
200 				continue;
201 			case 'r':
202 /* args */
203 				tail("args");
204 				setnoaddr();
205 				eol();
206 				pargs();
207 				continue;
208 			}
209 
210 /* append */
211 			if (inopen)
212 				goto notinvis;
213 			tail("append");
214 			setdot();
215 			aiflag = exclam();
216 			donewline();
217 			vmacchng(0);
218 			deletenone();
219 			setin(addr2);
220 			inappend = 1;
221 			(void) append(gettty, addr2);
222 			inappend = 0;
223 			nochng();
224 			continue;
225 
226 		case 'c':
227 			switch (peekchar()) {
228 
229 /* copy */
230 			case 'o':
231 				tail("copy");
232 				vmacchng(0);
233 				vi_move();
234 				continue;
235 
236 /* crypt */
237 			case 'r':
238 				tail("crypt");
239 				crflag = -1;
240 			ent_crypt:
241 				setnoaddr();
242 				xflag = 1;
243 				if (permflag)
244 					(void) crypt_close(perm);
245 				permflag = 1;
246 				if ((kflag = run_setkey(perm,
247 				    (key = vgetpass(
248 					gettext("Enter key:"))))) == -1) {
249 					xflag = 0;
250 					kflag = 0;
251 					crflag = 0;
252 					smerror(gettext("Encryption facility "
253 						    "not available\n"));
254 				}
255 				if (kflag == 0)
256 					crflag = 0;
257 				continue;
258 
259 /* cd */
260 			case 'd':
261 				tail("cd");
262 				goto changdir;
263 
264 /* chdir */
265 			case 'h':
266 				ignchar();
267 				if (peekchar() == 'd') {
268 					unsigned char *p;
269 					tail2of("chdir");
270 changdir:
271 					if (savedfile[0] == '/' ||
272 					    !value(vi_WARN))
273 						(void) exclam();
274 					else
275 						(void) quickly();
276 					if (skipend()) {
277 						p = (unsigned char *)
278 						    getenv("HOME");
279 						if (p == NULL)
280 							error(gettext(
281 								"Home directory"
282 								    /*CSTYLED*/
283 								    " unknown"));
284 					} else
285 						getone(), p = file;
286 					eol();
287 					if (chdir((char *)p) < 0)
288 						filioerr(p);
289 					if (savedfile[0] != '/')
290 						edited = 0;
291 					continue;
292 				}
293 				if (inopen)
294 					tailprim((unsigned char *)"change",
295 					    2, 1);
296 				tail2of("change");
297 				break;
298 
299 			default:
300 				if (inopen)
301 					goto notinvis;
302 				tail("change");
303 				break;
304 			}
305 /* change */
306 			aiflag = exclam();
307 #ifdef XPG4ONLY
308 			setcount2();
309 			donewline();
310 #else /* XPG6 and Solaris */
311 			setCNL();
312 #endif /* XPG4ONLY */
313 			vmacchng(0);
314 			setin(addr1);
315 			(void) delete(0);
316 			inappend = 1;
317 			if (append(gettty, addr1 - 1) == 0) {
318 #ifdef XPG4
319 				/*
320 				 * P2003.2/D9:5.10.7.2.4, p. 646,
321 				 * assertion 214(A). If nothing changed,
322 				 * set dot to the line preceding the lines
323 				 * to be changed.
324 				 */
325 				dot = addr1 - 1;
326 #else /* XPG4 */
327 				dot = addr1;
328 #endif /* XPG4 */
329 				if (dot > dol)
330 					dot = dol;
331 			}
332 			inappend = 0;
333 			nochng();
334 			continue;
335 
336 /* delete */
337 		case 'd':
338 			/*
339 			 * Caution: dp and dl have special meaning already.
340 			 */
341 			tail("delete");
342 			c = cmdreg();
343 #ifdef XPG4ONLY
344 			setcount2();
345 			donewline();
346 #else /* XPG6 and Solaris */
347 			setCNL();
348 #endif /* XPG4ONLY */
349 			vmacchng(0);
350 			if (c)
351 				(void) YANKreg(c);
352 			(void) delete(0);
353 			appendnone();
354 			continue;
355 
356 /* edit */
357 /* ex */
358 		case 'e':
359 			if (crflag == 2 || crflag == -2)
360 				crflag = -1;
361 			tail(peekchar() == 'x' ? "ex" : "edit");
362 editcmd:
363 			if (!exclam() && chng)
364 				c = 'E';
365 			gotfile = 0;
366 			if (c == 'E') {
367 				if (inopen && !value(vi_AUTOWRITE)) {
368 					filename(c);
369 					gotfile = 1;
370 				}
371 				ungetchar(lastchar());
372 				if (!exclam()) {
373 					ckaw();
374 					if (chng && dol > zero) {
375 						xchng = 0;
376 						error(value(vi_TERSE) ?
377 						    gettext("No write") :
378 						    gettext("No write since "
379 							"last change (:%s! "
380 							"overrides)"),
381 						    Command);
382 					}
383 				}
384 
385 			}
386 			if (gotfile == 0)
387 				filename(c);
388 			setnoaddr();
389 doecmd:
390 			init();
391 			addr2 = zero;
392 			laste++;
393 			sync();
394 			rop(c);
395 			nochng();
396 			continue;
397 
398 /* file */
399 		case 'f':
400 			tail("file");
401 			setnoaddr();
402 			filename(c);
403 			noonl();
404 /*
405  *			synctmp();
406  */
407 			continue;
408 
409 /* global */
410 		case 'g':
411 			tail("global");
412 			global(!exclam());
413 			nochng();
414 			continue;
415 
416 /* insert */
417 		case 'i':
418 			if (inopen)
419 				goto notinvis;
420 			tail("insert");
421 			setdot();
422 			nonzero();
423 			aiflag = exclam();
424 			donewline();
425 			vmacchng(0);
426 			deletenone();
427 			setin(addr2);
428 			inappend = 1;
429 			(void) append(gettty, addr2 - 1);
430 			inappend = 0;
431 			if (dot == zero && dol > zero)
432 				dot = one;
433 			nochng();
434 			continue;
435 
436 /* join */
437 		case 'j':
438 			tail("join");
439 			c = exclam();
440 			setcount();
441 			nonzero();
442 			donewline();
443 			vmacchng(0);
444 #ifdef XPG4ONLY
445 			/*
446 			 * if no count was specified, addr1 == addr2. if only
447 			 * 1 range arg was specified, inc addr2 to allow
448 			 * joining of the next line.
449 			 */
450 			if (given < 2 && (addr1 == addr2) && (addr2 != dol))
451 				addr2++;
452 
453 #else /* XPG6 and Solaris */
454 			if (given < 2 && addr2 != dol)
455 				addr2++;
456 #endif /* XPG4ONLY */
457 			(void) join(c);
458 			continue;
459 
460 /* k */
461 		case 'k':
462 casek:
463 			pastwh();
464 			c = getchar();
465 			if (endcmd(c))
466 				serror((vi_TERSE) ?
467 				    (unsigned char *)gettext("Mark what?") :
468 				    (unsigned char *)
469 				    gettext("%s requires following "
470 				    "letter"), Command);
471 			donewline();
472 			if (!islower(c))
473 				error((vi_TERSE) ? gettext("Bad mark") :
474 					gettext("Mark must specify a letter"));
475 			setdot();
476 			nonzero();
477 			names[c - 'a'] = *addr2 &~ 01;
478 			anymarks = 1;
479 			continue;
480 
481 /* list */
482 		case 'l':
483 			tail("list");
484 #ifdef XPG4ONLY
485 			setcount2();
486 			donewline();
487 #else /* XPG6 and Solaris */
488 			setCNL();
489 #endif /* XPG4ONLY */
490 			(void) setlist(1);
491 			pflag = 0;
492 			goto print;
493 
494 		case 'm':
495 			if (peekchar() == 'a') {
496 				ignchar();
497 				if (peekchar() == 'p') {
498 /* map */
499 					tail2of("map");
500 					setnoaddr();
501 					mapcmd(0, 0);
502 					continue;
503 				}
504 /* mark */
505 				tail2of("mark");
506 				goto casek;
507 			}
508 /* move */
509 			tail("move");
510 			vmacchng(0);
511 			vi_move();
512 			continue;
513 
514 		case 'n':
515 			if (peekchar() == 'u') {
516 				tail("number");
517 				goto numberit;
518 			}
519 /* next */
520 			tail("next");
521 			setnoaddr();
522 			if (!exclam()) {
523 				ckaw();
524 				if (chng && dol > zero) {
525 					xchng = 0;
526 					error(value(vi_TERSE) ?
527 					    gettext("No write") :
528 					    gettext("No write since last "
529 						"change (:%s! overrides)"),
530 					    Command);
531 				}
532 			}
533 
534 			if (getargs())
535 				makargs();
536 			next();
537 			c = 'e';
538 			filename(c);
539 			goto doecmd;
540 
541 /* open */
542 		case 'o':
543 			tail("open");
544 			oop();
545 			pflag = 0;
546 			nochng();
547 			continue;
548 
549 		case 'p':
550 		case 'P':
551 			switch (peekchar()) {
552 #ifdef TAG_STACK
553 /* pop */
554 			case 'o':
555 				tail("pop");
556 				poptag(exclam());
557 				if (!inopen)
558 					lchng = chng - 1;
559 				else
560 					nochng();
561 				continue;
562 #endif
563 
564 /* put */
565 			case 'u':
566 				tail("put");
567 				setdot();
568 				c = cmdreg();
569 				eol();
570 				vmacchng(0);
571 				if (c)
572 					(void) putreg(c);
573 				else
574 					(void) put();
575 				continue;
576 
577 			case 'r':
578 				ignchar();
579 				if (peekchar() == 'e') {
580 /* preserve */
581 					tail2of("preserve");
582 					eol();
583 					if (preserve() == 0)
584 						error(gettext(
585 						    "Preserve failed!"));
586 					else {
587 #ifdef XPG4
588 						/*
589 						 * error() incs errcnt. this is
590 						 * misleading here; and a
591 						 * violation of POSIX. so call
592 						 * noerror() instead.
593 						 * this is for assertion ex:222.
594 						 */
595 						noerror(
596 						    gettext("File preserved."));
597 
598 #else /* XPG4 */
599 						error(
600 						    gettext("File preserved."));
601 #endif /* XPG4 */
602 					}
603 				}
604 				tail2of("print");
605 				break;
606 
607 			default:
608 				tail("print");
609 				break;
610 			}
611 /* print */
612 			setCNL();
613 			pflag = 0;
614 print:
615 			nonzero();
616 			if (clear_screen && span() > lines) {
617 				flush1();
618 				vclear();
619 			}
620 			/*
621 			 * poffset is nonzero if trailing + or - flags
622 			 * were given, and in that case we need to
623 			 * adjust dot before printing a line.
624 			 */
625 			if (poffset == 0)
626 				plines(addr1, addr2, 1);
627 			else
628 				dot = addr2;
629 			continue;
630 
631 /* quit */
632 		case 'q':
633 			tail("quit");
634 			setnoaddr();
635 			c = quickly();
636 			eol();
637 			if (!c)
638 quit:
639 				if (nomore())
640 					continue;
641 			if (inopen) {
642 				vgoto(WECHO, 0);
643 				if (!ateopr())
644 					vnfl();
645 				else {
646 					tostop();
647 				}
648 				flush();
649 				setty(normf);
650 				ixlatctl(1);
651 			}
652 			cleanup(1);
653 			exit(errcnt);
654 
655 		case 'r':
656 			if (peekchar() == 'e') {
657 				ignchar();
658 				switch (peekchar()) {
659 
660 /* rewind */
661 				case 'w':
662 					tail2of("rewind");
663 					setnoaddr();
664 					if (!exclam()) {
665 						ckaw();
666 						if (chng && dol > zero)
667 							error((vi_TERSE) ?
668 							    /*CSTYLED*/
669 							    gettext("No write") :
670 							    gettext("No write "
671 								"since last "
672 								"change (:rewi"
673 								/*CSTYLED*/
674 								"nd! overrides)"));
675 					}
676 					eol();
677 					erewind();
678 					next();
679 					c = 'e';
680 					ungetchar(lastchar());
681 					filename(c);
682 					goto doecmd;
683 
684 /* recover */
685 				case 'c':
686 					tail2of("recover");
687 					setnoaddr();
688 					c = 'e';
689 					if (!exclam() && chng)
690 						c = 'E';
691 					filename(c);
692 					if (c == 'E') {
693 						ungetchar(lastchar());
694 						(void) quickly();
695 					}
696 					init();
697 					addr2 = zero;
698 					laste++;
699 					sync();
700 					recover();
701 					rop2();
702 					revocer();
703 					if (status == 0)
704 						rop3(c);
705 					if (dol != zero)
706 						change();
707 					nochng();
708 					continue;
709 				}
710 				tail2of("read");
711 			} else
712 				tail("read");
713 /* read */
714 			if (crflag == 2 || crflag == -2)
715 			/* restore crflag for new input text */
716 				crflag = -1;
717 			if (savedfile[0] == 0 && dol == zero)
718 				c = 'e';
719 			pastwh();
720 			vmacchng(0);
721 			if (peekchar() == '!') {
722 				setdot();
723 				ignchar();
724 				unix0(0, 1);
725 				(void) vi_filter(0);
726 				continue;
727 			}
728 			filename(c);
729 			rop(c);
730 			nochng();
731 			if (inopen && endline && addr1 > zero && addr1 < dol)
732 				dot = addr1 + 1;
733 			continue;
734 
735 		case 's':
736 			switch (peekchar()) {
737 			/*
738 			 * Caution: 2nd char cannot be c, g, or r
739 			 * because these have meaning to substitute.
740 			 */
741 
742 /* set */
743 			case 'e':
744 				tail("set");
745 				setnoaddr();
746 				set();
747 				continue;
748 
749 /* shell */
750 			case 'h':
751 				tail("shell");
752 				setNAEOL();
753 				vnfl();
754 				putpad((unsigned char *)exit_ca_mode);
755 				flush();
756 				resetterm();
757 				unixwt(1, unixex("-i", (char *)0, 0, 0));
758 				vcontin(0);
759 				continue;
760 
761 /* source */
762 			case 'o':
763 #ifdef notdef
764 				if (inopen)
765 					goto notinvis;
766 #endif
767 				tail("source");
768 				setnoaddr();
769 				getone();
770 				eol();
771 				source(file, 0);
772 				continue;
773 #ifdef SIGTSTP
774 /* stop, suspend */
775 			case 't':
776 				tail("stop");
777 				goto suspend;
778 			case 'u':
779 #ifdef XPG4
780 				/*
781 				 * for POSIX, "su" with no other distinguishing
782 				 * characteristics, maps to "s". Re. P1003.D11,
783 				 * 5.10.7.3.
784 				 *
785 				 * so, unless the "su" is followed by a "s" or
786 				 * a "!", we assume that the user means "s".
787 				 */
788 				switch (d = peekchar()) {
789 				case 's':
790 				case '!':
791 #endif /* XPG4 */
792 					tail("suspend");
793 suspend:
794 					c = exclam();
795 					eol();
796 					if (!c)
797 						ckaw();
798 					onsusp(0);
799 					continue;
800 #ifdef XPG4
801 				}
802 #endif /* XPG4 */
803 #endif
804 
805 			}
806 			/* fall into ... */
807 
808 /* & */
809 /* ~ */
810 /* substitute */
811 		case '&':
812 		case '~':
813 			Command = (unsigned char *)"substitute";
814 			if (c == 's')
815 				tail(Command);
816 			vmacchng(0);
817 			if (!substitute(c))
818 				pflag = 0;
819 			continue;
820 
821 /* t */
822 		case 't':
823 			if (peekchar() == 'a') {
824 				tagflg = 1; /* :tag command */
825 				tail("tag");
826 				tagfind(exclam());
827 				tagflg = 0;
828 				if (!inopen)
829 					lchng = chng - 1;
830 				else
831 					nochng();
832 				continue;
833 			}
834 			tail("t");
835 			vmacchng(0);
836 			vi_move();
837 			continue;
838 
839 		case 'u':
840 			if (peekchar() == 'n') {
841 				ignchar();
842 				switch (peekchar()) {
843 /* unmap */
844 				case 'm':
845 					tail2of("unmap");
846 					setnoaddr();
847 					mapcmd(1, 0);
848 					continue;
849 /* unabbreviate */
850 				case 'a':
851 					tail2of("unabbreviate");
852 					setnoaddr();
853 					mapcmd(1, 1);
854 					anyabbrs = 1;
855 					continue;
856 				}
857 /* undo */
858 				tail2of("undo");
859 			} else
860 				tail("undo");
861 			setnoaddr();
862 			markDOT();
863 			c = exclam();
864 			donewline();
865 			undo(c);
866 			continue;
867 
868 		case 'v':
869 			switch (peekchar()) {
870 
871 			case 'e':
872 /* version */
873 				tail("version");
874 				setNAEOL();
875 				viprintf("%s", Version);
876 				noonl();
877 				continue;
878 
879 /* visual */
880 			case 'i':
881 				tail("visual");
882 				if (inopen) {
883 					c = 'e';
884 					goto editcmd;
885 				}
886 				vop();
887 				pflag = 0;
888 				nochng();
889 				continue;
890 			}
891 /* v */
892 			tail("v");
893 			global(0);
894 			nochng();
895 			continue;
896 
897 /* write */
898 		case 'w':
899 			c = peekchar();
900 			tail(c == 'q' ? "wq" : "write");
901 wq:
902 			if (skipwh() && peekchar() == '!') {
903 				pofix();
904 				ignchar();
905 				setall();
906 				unix0(0, 1);
907 				(void) vi_filter(1);
908 			} else {
909 				setall();
910 				if (c == 'q')
911 					write_quit = 1;
912 				else
913 					write_quit = 0;
914 				wop(1);
915 				nochng();
916 			}
917 			if (c == 'q')
918 				goto quit;
919 			continue;
920 /* X: crypt */
921 		case 'X':
922 			crflag = -1; /* determine if file is encrypted */
923 			goto ent_crypt;
924 
925 		case 'C':
926 			crflag = 1;  /* assume files read in are encrypted */
927 			goto ent_crypt;
928 
929 /* xit */
930 		case 'x':
931 			tail("xit");
932 			if (!chng)
933 				goto quit;
934 			c = 'q';
935 			goto wq;
936 
937 /* yank */
938 		case 'y':
939 			tail("yank");
940 			c = cmdreg();
941 #ifdef XPG4ONLY
942 			setcount2();
943 #else /* XPG6 and Solaris */
944 			setcount();
945 #endif /* XPG4ONLY */
946 			eol();
947 			vmacchng(0);
948 			if (c)
949 				(void) YANKreg(c);
950 			else
951 				(void) yank();
952 			continue;
953 
954 /* z */
955 		case 'z':
956 			zop(0);
957 			pflag = 0;
958 			continue;
959 
960 /* * */
961 /* @ */
962 		case '*':
963 		case '@':
964 			c = getchar();
965 			if (c == '\n' || c == '\r')
966 				ungetchar(c);
967 			if (any(c, "@*\n\r"))
968 				c = lastmac;
969 			if (isupper(c))
970 				c = tolower(c);
971 			if (!islower(c))
972 				error(gettext("Bad register"));
973 			donewline();
974 			setdot();
975 			cmdmac(c);
976 			continue;
977 
978 /* | */
979 		case '|':
980 			endline = 0;
981 			goto caseline;
982 
983 /* \n */
984 		case '\n':
985 			endline = 1;
986 caseline:
987 			notempty();
988 			if (addr2 == 0) {
989 				if (cursor_up != NOSTR && c == '\n' &&
990 				    !inglobal)
991 					c = CTRL('k');
992 				if (inglobal)
993 					addr1 = addr2 = dot;
994 				else {
995 					if (dot == dol)
996 						error((vi_TERSE) ?
997 						    gettext("At EOF") :
998 						    gettext("At end-of-file"));
999 					addr1 = addr2 = dot + 1;
1000 				}
1001 			}
1002 			setdot();
1003 			nonzero();
1004 			if (seensemi)
1005 				addr1 = addr2;
1006 			getaline(*addr1);
1007 			if (c == CTRL('k')) {
1008 				flush1();
1009 				destline--;
1010 				if (hadpr)
1011 					shudclob = 1;
1012 			}
1013 			plines(addr1, addr2, 1);
1014 			continue;
1015 
1016 /* " */
1017 		case '"':
1018 			comment();
1019 			continue;
1020 
1021 /* # */
1022 		case '#':
1023 numberit:
1024 			setCNL();
1025 			(void) setnumb(1);
1026 			pflag = 0;
1027 			goto print;
1028 
1029 /* = */
1030 		case '=':
1031 			donewline();
1032 			setall();
1033 			if (inglobal == 2)
1034 				pofix();
1035 			viprintf("%d", lineno(addr2));
1036 			noonl();
1037 			continue;
1038 
1039 /* ! */
1040 		case '!':
1041 			if (addr2 != 0) {
1042 				vmacchng(0);
1043 				unix0(0, 1);
1044 				setdot();
1045 				(void) vi_filter(2);
1046 			} else {
1047 				unix0(1, 1);
1048 				pofix();
1049 				putpad((unsigned char *)exit_ca_mode);
1050 				flush();
1051 				resetterm();
1052 				if (!tagflg) {
1053 					unixwt(1, unixex("-c", uxb, 0, 0));
1054 				} else {
1055 					error(gettext("Invalid tags file:"
1056 					    " contains shell escape"));
1057 				}
1058 				vclrech(1);	/* vcontin(0); */
1059 				nochng();
1060 			}
1061 			continue;
1062 
1063 /* < */
1064 /* > */
1065 		case '<':
1066 		case '>':
1067 			for (cnt = 1; peekchar() == c; cnt++)
1068 				ignchar();
1069 			setCNL();
1070 			vmacchng(0);
1071 			shift(c, cnt);
1072 			continue;
1073 
1074 /* ^D */
1075 /* EOF */
1076 		case CTRL('d'):
1077 		case EOF:
1078 			if (exitoneof) {
1079 				if (addr2 != 0)
1080 					dot = addr2;
1081 				return;
1082 			}
1083 			if (!isatty(0)) {
1084 				if (intty)
1085 					/*
1086 					 * Chtty sys call at UCB may cause a
1087 					 * input which was a tty to suddenly be
1088 					 * turned into /dev/null.
1089 					 */
1090 					onhup(0);
1091 				return;
1092 			}
1093 			if (addr2 != 0) {
1094 				setlastchar('\n');
1095 				putnl();
1096 			}
1097 			if (dol == zero) {
1098 				if (addr2 == 0)
1099 					putnl();
1100 				notempty();
1101 			}
1102 			ungetchar(EOF);
1103 			zop(hadpr);
1104 			continue;
1105 		default:
1106 			if (!isalpha(c) || !isascii(c))
1107 				break;
1108 			ungetchar(c);
1109 			tailprim((unsigned char *)"", 0, 0);
1110 		}
1111 		ungetchar(c);
1112 		{
1113 			int length;
1114 			char multic[MULTI_BYTE_MAX];
1115 			wchar_t wchar;
1116 			length = _mbftowc(multic, &wchar, getchar, &peekc);
1117 			if (length < 0)
1118 				length = -length;
1119 			multic[length] = '\0';
1120 			error((vi_TERSE) ? gettext("What?") :
1121 				gettext("Unknown command character '%s'"),
1122 			    multic);
1123 		}
1124 	}
1125 }
1126