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 * Copyright 2007 Sun Microsystems, Inc. All rights reserved.
23 * Use is subject to license terms.
24 */
25
26 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
27 /* All Rights Reserved */
28
29 /* Copyright (c) 1981 Regents of the University of California */
30
31 #include "ex.h"
32 #include "ex_argv.h"
33 #include "ex_temp.h"
34 #include "ex_tty.h"
35 #include <stdlib.h>
36 #include <locale.h>
37 #include <stdio.h>
38 #ifdef TRACE
39 unsigned char tttrace[BUFSIZ];
40 #endif
41
42 #define EQ(a, b) (strcmp(a, b) == 0)
43
44 char *strrchr();
45 void init_re(void);
46
47 /*
48 * The code for ex is divided as follows:
49 *
50 * ex.c Entry point and routines handling interrupt, hangup
51 * signals; initialization code.
52 *
53 * ex_addr.c Address parsing routines for command mode decoding.
54 * Routines to set and check address ranges on commands.
55 *
56 * ex_cmds.c Command mode command decoding.
57 *
58 * ex_cmds2.c Subroutines for command decoding and processing of
59 * file names in the argument list. Routines to print
60 * messages and reset state when errors occur.
61 *
62 * ex_cmdsub.c Subroutines which implement command mode functions
63 * such as append, delete, join.
64 *
65 * ex_data.c Initialization of options.
66 *
67 * ex_get.c Command mode input routines.
68 *
69 * ex_io.c General input/output processing: file i/o, unix
70 * escapes, filtering, source commands, preserving
71 * and recovering.
72 *
73 * ex_put.c Terminal driving and optimizing routines for low-level
74 * output (cursor-positioning); output line formatting
75 * routines.
76 *
77 * ex_re.c Global commands, substitute, regular expression
78 * compilation and execution.
79 *
80 * ex_set.c The set command.
81 *
82 * ex_subr.c Loads of miscellaneous subroutines.
83 *
84 * ex_temp.c Editor buffer routines for main buffer and also
85 * for named buffers (Q registers if you will.)
86 *
87 * ex_tty.c Terminal dependent initializations from termcap
88 * data base, grabbing of tty modes (at beginning
89 * and after escapes).
90 *
91 * ex_unix.c Routines for the ! command and its variations.
92 *
93 * ex_v*.c Visual/open mode routines... see ex_v.c for a
94 * guide to the overall organization.
95 */
96
97 /*
98 * This sets the Version of ex/vi for both the exstrings file and
99 * the version command (":ver").
100 */
101
102 /* variable used by ":ver" command */
103 unsigned char *Version = (unsigned char *)"Version SVR4.0, Solaris 2.5.0";
104
105 /*
106 * NOTE: when changing the Version number, it must be changed in the
107 * following files:
108 *
109 * port/READ_ME
110 * port/ex.c
111 * port/ex.news
112 *
113 */
114 #ifdef XPG4
115 unsigned char *savepat = (unsigned char *) NULL; /* firstpat storage */
116 #endif /* XPG4 */
117
118 /*
119 * Main procedure. Process arguments and then
120 * transfer control to the main command processing loop
121 * in the routine commands. We are entered as either "ex", "edit", "vi"
122 * or "view" and the distinction is made here. For edit we just diddle options;
123 * for vi we actually force an early visual command.
124 */
125 static unsigned char cryptkey[19]; /* contents of encryption key */
126
127 static void usage(unsigned char *);
128
129 static int validate_exrc(unsigned char *);
130
131 void init(void);
132
133 int
134 main(int ac, char *av[])
135 {
136 extern char *optarg;
137 extern int optind;
138 unsigned char *rcvname = 0;
139 unsigned char *cp;
140 int c;
141 unsigned char *cmdnam;
142 bool recov = 0;
143 bool ivis = 0;
144 bool itag = 0;
145 bool fast = 0;
146 extern int verbose;
147 int argcounter = 0;
148 extern int tags_flag; /* Set if tag file is not sorted (-S flag) */
149 unsigned char scratch [PATH_MAX+1]; /* temp for sourcing rc file(s) */
150 int vret = 0;
151 unsigned char exrcpath [PATH_MAX+1]; /* temp for sourcing rc file(s) */
152 int toptseen = 0;
153 #ifdef TRACE
154 unsigned char *tracef;
155 #endif
156 tagflg = 0;
157 (void) setlocale(LC_ALL, "");
158 #if !defined(TEXT_DOMAIN)
159 #define TEXT_DOMAIN "SYS_TEST"
160 #endif
161 (void) textdomain(TEXT_DOMAIN);
162
163 /*
164 * Immediately grab the tty modes so that we won't
165 * get messed up if an interrupt comes in quickly.
166 */
167 (void) gTTY(2);
168 normf = tty;
169 ppid = getpid();
170 /* Note - this will core dump if you didn't -DSINGLE in CFLAGS */
171 lines = 24;
172 columns = 80; /* until defined right by setupterm */
173 /*
174 * Defend against d's, v's, w's, and a's in directories of
175 * path leading to our true name.
176 */
177 if ((cmdnam = (unsigned char *)strrchr(av[0], '/')) != 0)
178 cmdnam++;
179 else
180 cmdnam = (unsigned char *)av[0];
181
182 if (EQ((char *)cmdnam, "vi"))
183 ivis = 1;
184 else if (EQ(cmdnam, "view")) {
185 ivis = 1;
186 value(vi_READONLY) = 1;
187 } else if (EQ(cmdnam, "vedit")) {
188 ivis = 1;
189 value(vi_NOVICE) = 1;
190 value(vi_REPORT) = 1;
191 value(vi_MAGIC) = 0;
192 value(vi_SHOWMODE) = 1;
193 } else if (EQ(cmdnam, "edit")) {
194 value(vi_NOVICE) = 1;
195 value(vi_REPORT) = 1;
196 value(vi_MAGIC) = 0;
197 value(vi_SHOWMODE) = 1;
198 }
199
200 #ifdef XPG4
201 {
202 struct winsize jwin;
203 char *envptr;
204
205 envlines = envcolumns = -1;
206 oldlines = oldcolumns = -1;
207
208 if (ioctl(0, TIOCGWINSZ, &jwin) != -1) {
209 oldlines = jwin.ws_row;
210 oldcolumns = jwin.ws_col;
211 }
212
213 if ((envptr = getenv("LINES")) != NULL &&
214 *envptr != '\0' && isdigit(*envptr)) {
215 if ((envlines = atoi(envptr)) <= 0) {
216 envlines = -1;
217 }
218 }
219
220 if ((envptr = getenv("COLUMNS")) != NULL &&
221 *envptr != '\0' && isdigit(*envptr)) {
222 if ((envcolumns = atoi(envptr)) <= 0) {
223 envcolumns = -1;
224 }
225 }
226 }
227 #endif /* XPG4 */
228
229 draino();
230 pstop();
231
232 /*
233 * Initialize interrupt handling.
234 */
235 oldhup = signal(SIGHUP, SIG_IGN);
236 if (oldhup == SIG_DFL)
237 signal(SIGHUP, onhup);
238 oldquit = signal(SIGQUIT, SIG_IGN);
239 ruptible = signal(SIGINT, SIG_IGN) == SIG_DFL;
240 if (signal(SIGTERM, SIG_IGN) == SIG_DFL)
241 signal(SIGTERM, onhup);
242 signal(SIGILL, oncore);
243 signal(SIGTRAP, oncore);
244 signal(SIGIOT, oncore);
245 signal(SIGFPE, oncore);
246 signal(SIGBUS, oncore);
247 signal(SIGSEGV, oncore);
248 signal(SIGPIPE, oncore);
249 init_re();
250 while (1) {
251 #ifdef TRACE
252 while ((c = getopt(ac, (char **)av, "VU:Lc:Tvt:rlw:xRCsS")) !=
253 EOF)
254 #else
255 while ((c = getopt(ac, (char **)av,
256 "VLc:vt:rlw:xRCsS")) != EOF)
257 #endif
258 switch (c) {
259 case 's':
260 hush = 1;
261 value(vi_AUTOPRINT) = 0;
262 fast++;
263 break;
264
265 case 'R':
266 value(vi_READONLY) = 1;
267 break;
268 case 'S':
269 tags_flag = 1;
270 break;
271 #ifdef TRACE
272 case 'T':
273 tracef = (unsigned char *)"trace";
274 goto trace;
275
276 case 'U':
277 tracef = tttrace;
278 strcpy(tracef, optarg);
279 trace:
280 trace = fopen((char *)tracef, "w");
281 #define tracbuf NULL
282 if (trace == NULL)
283 viprintf("Trace create error\n");
284 else
285 setbuf(trace, (char *)tracbuf);
286 break;
287 #endif
288 case 'c':
289 if (optarg != NULL)
290 firstpat = (unsigned char *)optarg;
291 else
292 firstpat = (unsigned char *)"";
293 break;
294
295 case 'l':
296 value(vi_LISP) = 1;
297 value(vi_SHOWMATCH) = 1;
298 break;
299
300 case 'r':
301 if (av[optind] && (c = av[optind][0]) &&
302 c != '-') {
303 if ((strlen(av[optind])) >=
304 sizeof (savedfile)) {
305 (void) fprintf(stderr, gettext(
306 "Recovered file name"
307 " too long\n"));
308 exit(1);
309 }
310
311 rcvname = (unsigned char *)av[optind];
312 optind++;
313 }
314
315 case 'L':
316 recov++;
317 break;
318
319 case 'V':
320 verbose = 1;
321 break;
322
323 case 't':
324 if (toptseen) {
325 usage(cmdnam);
326 exit(1);
327 } else {
328 toptseen++;
329 }
330 itag = tagflg = 1; /* -t option */
331 if (strlcpy(lasttag, optarg,
332 sizeof (lasttag)) >= sizeof (lasttag)) {
333 (void) fprintf(stderr, gettext("Tag"
334 " file name too long\n"));
335 exit(1);
336 }
337 break;
338
339 case 'w':
340 defwind = 0;
341 if (optarg[0] == NULL)
342 defwind = 3;
343 else for (cp = (unsigned char *)optarg;
344 isdigit(*cp); cp++)
345 defwind = 10*defwind + *cp - '0';
346 if (defwind < 0)
347 defwind = 3;
348 break;
349
350 case 'C':
351 crflag = 1;
352 xflag = 1;
353 break;
354
355 case 'x':
356 /* encrypted mode */
357 xflag = 1;
358 crflag = -1;
359 break;
360
361 case 'v':
362 ivis = 1;
363 break;
364
365 default:
366 usage(cmdnam);
367 exit(1);
368 }
369 if (av[optind] && av[optind][0] == '+' &&
370 av[optind-1] && strcmp(av[optind-1], "--")) {
371 firstpat = (unsigned char *)&av[optind][1];
372 optind++;
373 continue;
374 } else if (av[optind] && av[optind][0] == '-' &&
375 av[optind-1] && strcmp(av[optind-1], "--")) {
376 hush = 1;
377 value(vi_AUTOPRINT) = 0;
378 fast++;
379 optind++;
380 continue;
381 }
382 break;
383 }
384
385 if (isatty(0) == 0) {
386 /*
387 * If -V option is set and input is coming in via
388 * stdin then vi behavior should be ignored. The vi
389 * command should act like ex and only process ex commands
390 * and echo the input ex commands to stderr
391 */
392 if (verbose == 1) {
393 ivis = 0;
394 }
395
396 /*
397 * If the standard input is not a terminal device,
398 * it is as if the -s option has been specified.
399 */
400 if (ivis == 0) {
401 hush = 1;
402 value(vi_AUTOPRINT) = 0;
403 fast++;
404 }
405 }
406
407 ac -= optind;
408 av = &av[optind];
409
410 for (argcounter = 0; argcounter < ac; argcounter++) {
411 if ((strlen(av[argcounter])) >= sizeof (savedfile)) {
412 (void) fprintf(stderr, gettext("File argument"
413 " too long\n"));
414 exit(1);
415 }
416 }
417
418 #ifdef SIGTSTP
419 if (!hush && signal(SIGTSTP, SIG_IGN) == SIG_DFL)
420 signal(SIGTSTP, onsusp), dosusp++;
421 #endif
422
423 if (xflag) {
424 permflag = 1;
425 if ((kflag = run_setkey(perm,
426 (key = (unsigned char *)getpass(
427 gettext("Enter key:"))))) == -1) {
428 kflag = 0;
429 xflag = 0;
430 smerror(gettext("Encryption facility not available\n"));
431 }
432 if (kflag == 0)
433 crflag = 0;
434 else {
435 strcpy(cryptkey, "CrYpTkEy=XXXXXXXXX");
436 strcpy(cryptkey + 9, key);
437 if (putenv((char *)cryptkey) != 0)
438 smerror(gettext(" Cannot copy key to environment"));
439 }
440
441 }
442 #ifndef PRESUNEUC
443 /*
444 * Perform locale-specific initialization
445 */
446 localize();
447 #endif /* PRESUNEUC */
448
449 /*
450 * Initialize end of core pointers.
451 * Normally we avoid breaking back to fendcore after each
452 * file since this can be expensive (much core-core copying).
453 * If your system can scatter load processes you could do
454 * this as ed does, saving a little core, but it will probably
455 * not often make much difference.
456 */
457 fendcore = (line *) sbrk(0);
458 endcore = fendcore - 2;
459
460 /*
461 * If we are doing a recover and no filename
462 * was given, then execute an exrecover command with
463 * the -r option to type out the list of saved file names.
464 * Otherwise set the remembered file name to the first argument
465 * file name so the "recover" initial command will find it.
466 */
467 if (recov) {
468 if (ac == 0 && (rcvname == NULL || *rcvname == NULL)) {
469 ppid = 0;
470 setrupt();
471 execlp(EXRECOVER, "exrecover", "-r", (char *)0);
472 filioerr(EXRECOVER);
473 exit(++errcnt);
474 }
475 if (rcvname && *rcvname)
476 (void) strlcpy(savedfile, rcvname, sizeof (savedfile));
477 else {
478 (void) strlcpy(savedfile, *av++, sizeof (savedfile));
479 ac--;
480 }
481 }
482
483 /*
484 * Initialize the argument list.
485 */
486 argv0 = (unsigned char **)av;
487 argc0 = ac;
488 args0 = (unsigned char *)av[0];
489 erewind();
490
491 /*
492 * Initialize a temporary file (buffer) and
493 * set up terminal environment. Read user startup commands.
494 */
495 if (setexit() == 0) {
496 setrupt();
497 intty = isatty(0);
498 value(vi_PROMPT) = intty;
499 if (((cp = (unsigned char *)getenv("SHELL")) != NULL) &&
500 (*cp != '\0')) {
501 if (strlen(cp) < sizeof (shell)) {
502 (void) strlcpy(shell, cp, sizeof (shell));
503 }
504 }
505 if (fast)
506 setterm((unsigned char *)"dumb");
507 else {
508 gettmode();
509 cp = (unsigned char *)getenv("TERM");
510 if (cp == NULL || *cp == '\0')
511 cp = (unsigned char *)"unknown";
512 setterm(cp);
513 }
514 }
515
516 /*
517 * Bring up some code from init()
518 * This is still done in init later. This
519 * avoids null pointer problems
520 */
521
522 dot = zero = truedol = unddol = dol = fendcore;
523 one = zero+1;
524 {
525 int i;
526
527 for (i = 0; i <= 'z'-'a'+1; i++)
528 names[i] = 1;
529 }
530
531 if (setexit() == 0 && !fast) {
532 if ((globp =
533 (unsigned char *) getenv("EXINIT")) && *globp) {
534 if (ivis)
535 inexrc = 1;
536 commands(1, 1);
537 inexrc = 0;
538 } else {
539 globp = 0;
540 if ((cp = (unsigned char *) getenv("HOME")) !=
541 0 && *cp) {
542 strncpy(scratch, cp, sizeof (scratch) - 1);
543 strncat(scratch, "/.exrc",
544 sizeof (scratch) - 1 - strlen(scratch));
545 if (ivis)
546 inexrc = 1;
547 if ((vret = validate_exrc(scratch)) == 0) {
548 source(scratch, 1);
549 } else {
550 if (vret == -1) {
551 error(gettext(
552 "Not owner of .exrc "
553 "or .exrc is group or "
554 "world writable"));
555 }
556 }
557 inexrc = 0;
558 }
559 }
560
561 /*
562 * Allow local .exrc if the "exrc" option was set. This
563 * loses if . is $HOME, but nobody should notice unless
564 * they do stupid things like putting a version command
565 * in .exrc.
566 * Besides, they should be using EXINIT, not .exrc, right?
567 */
568
569 if (value(vi_EXRC)) {
570 if (ivis)
571 inexrc = 1;
572 if ((cp = (unsigned char *) getenv("PWD")) != 0 &&
573 *cp) {
574 strncpy(exrcpath, cp, sizeof (exrcpath) - 1);
575 strncat(exrcpath, "/.exrc",
576 sizeof (exrcpath) - 1 - strlen(exrcpath));
577 if (strcmp(scratch, exrcpath) != 0) {
578 if ((vret =
579 validate_exrc(exrcpath)) == 0) {
580 source(exrcpath, 1);
581 } else {
582 if (vret == -1) {
583 error(gettext(
584 "Not owner of "
585 ".exrc or .exrc "
586 "is group or world "
587 "writable"));
588 }
589 }
590 }
591 }
592 inexrc = 0;
593 }
594 }
595
596 init(); /* moved after prev 2 chunks to fix directory option */
597
598 /*
599 * Initial processing. Handle tag, recover, and file argument
600 * implied next commands. If going in as 'vi', then don't do
601 * anything, just set initev so we will do it later (from within
602 * visual).
603 */
604 if (setexit() == 0) {
605 if (recov)
606 globp = (unsigned char *)"recover";
607 else if (itag) {
608 globp = ivis ? (unsigned char *)"tag" :
609 (unsigned char *)"tag|p";
610 #ifdef XPG4
611 if (firstpat != NULL) {
612 /*
613 * if the user specified the -t and -c
614 * flags together, then we service these
615 * commands here. -t is handled first.
616 */
617 savepat = firstpat;
618 firstpat = NULL;
619 inglobal = 1;
620 commands(1, 1);
621
622 /* now handle the -c argument: */
623 globp = savepat;
624 commands(1, 1);
625 inglobal = 0;
626 globp = savepat = NULL;
627
628 /* the above isn't sufficient for ex mode: */
629 if (!ivis) {
630 setdot();
631 nonzero();
632 plines(addr1, addr2, 1);
633 }
634 }
635 #endif /* XPG4 */
636 } else if (argc)
637 globp = (unsigned char *)"next";
638 if (ivis)
639 initev = globp;
640 else if (globp) {
641 inglobal = 1;
642 commands(1, 1);
643 inglobal = 0;
644 }
645 }
646
647 /*
648 * Vi command... go into visual.
649 */
650 if (ivis) {
651 /*
652 * Don't have to be upward compatible
653 * by starting editing at line $.
654 */
655 #ifdef XPG4
656 if (!itag && (dol > zero))
657 #else /* XPG4 */
658 if (dol > zero)
659 #endif /* XPG4 */
660 dot = one;
661 globp = (unsigned char *)"visual";
662 if (setexit() == 0)
663 commands(1, 1);
664 }
665
666 /*
667 * Clear out trash in state accumulated by startup,
668 * and then do the main command loop for a normal edit.
669 * If you quit out of a 'vi' command by doing Q or ^\,
670 * you also fall through to here.
671 */
672 seenprompt = 1;
673 ungetchar(0);
674 globp = 0;
675 initev = 0;
676 setlastchar('\n');
677 setexit();
678 commands(0, 0);
679 cleanup(1);
680 return (errcnt);
681 }
682
683 /*
684 * Initialization, before editing a new file.
685 * Main thing here is to get a new buffer (in fileinit),
686 * rest is peripheral state resetting.
687 */
688 void
689 init(void)
690 {
691 int i;
692 void (*pstat)();
693 fileinit();
694 dot = zero = truedol = unddol = dol = fendcore;
695 one = zero+1;
696 undkind = UNDNONE;
697 chng = 0;
698 edited = 0;
699 for (i = 0; i <= 'z'-'a'+1; i++)
700 names[i] = 1;
701 anymarks = 0;
702 if (xflag) {
703 xtflag = 1;
704 /* ignore SIGINT before crypt process */
705 pstat = signal(SIGINT, SIG_IGN);
706 if (tpermflag)
707 (void) crypt_close(tperm);
708 tpermflag = 1;
709 if (makekey(tperm) != 0) {
710 xtflag = 0;
711 smerror(gettext(
712 "Warning--Cannot encrypt temporary buffer\n"));
713 }
714 signal(SIGINT, pstat);
715 }
716 }
717
718 /*
719 * Return last component of unix path name p.
720 */
721 unsigned char *
722 tailpath(p)
723 unsigned char *p;
724 {
725 unsigned char *r;
726
727 for (r = p; *p; p++)
728 if (*p == '/')
729 r = p+1;
730 return (r);
731 }
732
733
734 /*
735 * validate_exrc - verify .exrc as belonging to the user.
736 * The file uid should match the process ruid,
737 * and the file should be writable only by the owner.
738 */
739 static int
740 validate_exrc(unsigned char *exrc_path)
741 {
742 struct stat64 exrc_stat;
743 int process_uid;
744
745 if (stat64((char *)exrc_path, &exrc_stat) == -1)
746 return (0); /* ignore if .exrec is not found */
747 process_uid = geteuid();
748 /* if not root, uid must match file owner */
749 if (process_uid && process_uid != exrc_stat.st_uid)
750 return (-1);
751 if ((exrc_stat.st_mode & (S_IWGRP | S_IWOTH)) != 0)
752 return (-1);
753 return (0);
754 }
755
756 /*
757 * print usage message to stdout
758 */
759 static void
760 usage(unsigned char *name)
761 {
762 char buf[160];
763
764 #ifdef TRACE
765 (void) snprintf(buf, sizeof (buf), gettext(
766 "Usage: %s [- | -s] [-l] [-L] [-wn] "
767 "[-R] [-S] [-r [file]] [-t tag] [-T] [-U tracefile]\n"
768 "[-v] [-V] [-x] [-C] [+cmd | -c cmd] file...\n"), name);
769 #else
770 (void) snprintf(buf, sizeof (buf), gettext(
771 "Usage: %s [- | -s] [-l] [-L] [-wn] "
772 "[-R] [-S] [-r [file]] [-t tag]\n"
773 "[-v] [-V] [-x] [-C] [+cmd | -c cmd] file...\n"), name);
774 #endif
775 (void) write(2, buf, strlen(buf));
776 }