OpenSolaris_b135/cmd/vi/port/ex.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2007 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/* Copyright (c) 1981 Regents of the University of California */
#pragma ident "%Z%%M% %I% %E% SMI"
#include "ex.h"
#include "ex_argv.h"
#include "ex_temp.h"
#include "ex_tty.h"
#include <stdlib.h>
#include <locale.h>
#include <stdio.h>
#ifdef TRACE
unsigned char tttrace[BUFSIZ];
#endif
#define EQ(a, b) (strcmp(a, b) == 0)
char *strrchr();
void init_re(void);
/*
* The code for ex is divided as follows:
*
* ex.c Entry point and routines handling interrupt, hangup
* signals; initialization code.
*
* ex_addr.c Address parsing routines for command mode decoding.
* Routines to set and check address ranges on commands.
*
* ex_cmds.c Command mode command decoding.
*
* ex_cmds2.c Subroutines for command decoding and processing of
* file names in the argument list. Routines to print
* messages and reset state when errors occur.
*
* ex_cmdsub.c Subroutines which implement command mode functions
* such as append, delete, join.
*
* ex_data.c Initialization of options.
*
* ex_get.c Command mode input routines.
*
* ex_io.c General input/output processing: file i/o, unix
* escapes, filtering, source commands, preserving
* and recovering.
*
* ex_put.c Terminal driving and optimizing routines for low-level
* output (cursor-positioning); output line formatting
* routines.
*
* ex_re.c Global commands, substitute, regular expression
* compilation and execution.
*
* ex_set.c The set command.
*
* ex_subr.c Loads of miscellaneous subroutines.
*
* ex_temp.c Editor buffer routines for main buffer and also
* for named buffers (Q registers if you will.)
*
* ex_tty.c Terminal dependent initializations from termcap
* data base, grabbing of tty modes (at beginning
* and after escapes).
*
* ex_unix.c Routines for the ! command and its variations.
*
* ex_v*.c Visual/open mode routines... see ex_v.c for a
* guide to the overall organization.
*/
/*
* This sets the Version of ex/vi for both the exstrings file and
* the version command (":ver").
*/
/* variable used by ":ver" command */
unsigned char *Version = (unsigned char *)"Version SVR4.0, Solaris 2.5.0";
/*
* NOTE: when changing the Version number, it must be changed in the
* following files:
*
* port/READ_ME
* port/ex.c
* port/ex.news
*
*/
#ifdef XPG4
unsigned char *savepat = (unsigned char *) NULL; /* firstpat storage */
#endif /* XPG4 */
/*
* Main procedure. Process arguments and then
* transfer control to the main command processing loop
* in the routine commands. We are entered as either "ex", "edit", "vi"
* or "view" and the distinction is made here. For edit we just diddle options;
* for vi we actually force an early visual command.
*/
static unsigned char cryptkey[19]; /* contents of encryption key */
static void usage(unsigned char *);
static int validate_exrc(unsigned char *);
void init(void);
int
main(int ac, char *av[])
{
extern char *optarg;
extern int optind;
unsigned char *rcvname = 0;
unsigned char *cp;
int c;
unsigned char *cmdnam;
bool recov = 0;
bool ivis = 0;
bool itag = 0;
bool fast = 0;
extern int verbose;
int argcounter = 0;
extern int tags_flag; /* Set if tag file is not sorted (-S flag) */
unsigned char scratch [PATH_MAX+1]; /* temp for sourcing rc file(s) */
int vret = 0;
unsigned char exrcpath [PATH_MAX+1]; /* temp for sourcing rc file(s) */
int toptseen = 0;
#ifdef TRACE
unsigned char *tracef;
#endif
tagflg = 0;
(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
(void) textdomain(TEXT_DOMAIN);
/*
* Immediately grab the tty modes so that we won't
* get messed up if an interrupt comes in quickly.
*/
(void) gTTY(2);
normf = tty;
ppid = getpid();
/* Note - this will core dump if you didn't -DSINGLE in CFLAGS */
lines = 24;
columns = 80; /* until defined right by setupterm */
/*
* Defend against d's, v's, w's, and a's in directories of
* path leading to our true name.
*/
if ((cmdnam = (unsigned char *)strrchr(av[0], '/')) != 0)
cmdnam++;
else
cmdnam = (unsigned char *)av[0];
if (EQ((char *)cmdnam, "vi"))
ivis = 1;
else if (EQ(cmdnam, "view")) {
ivis = 1;
value(vi_READONLY) = 1;
} else if (EQ(cmdnam, "vedit")) {
ivis = 1;
value(vi_NOVICE) = 1;
value(vi_REPORT) = 1;
value(vi_MAGIC) = 0;
value(vi_SHOWMODE) = 1;
} else if (EQ(cmdnam, "edit")) {
value(vi_NOVICE) = 1;
value(vi_REPORT) = 1;
value(vi_MAGIC) = 0;
value(vi_SHOWMODE) = 1;
}
#ifdef XPG4
{
struct winsize jwin;
char *envptr;
envlines = envcolumns = -1;
oldlines = oldcolumns = -1;
if (ioctl(0, TIOCGWINSZ, &jwin) != -1) {
oldlines = jwin.ws_row;
oldcolumns = jwin.ws_col;
}
if ((envptr = getenv("LINES")) != NULL &&
*envptr != '\0' && isdigit(*envptr)) {
if ((envlines = atoi(envptr)) <= 0) {
envlines = -1;
}
}
if ((envptr = getenv("COLUMNS")) != NULL &&
*envptr != '\0' && isdigit(*envptr)) {
if ((envcolumns = atoi(envptr)) <= 0) {
envcolumns = -1;
}
}
}
#endif /* XPG4 */
draino();
pstop();
/*
* Initialize interrupt handling.
*/
oldhup = signal(SIGHUP, SIG_IGN);
if (oldhup == SIG_DFL)
signal(SIGHUP, onhup);
oldquit = signal(SIGQUIT, SIG_IGN);
ruptible = signal(SIGINT, SIG_IGN) == SIG_DFL;
if (signal(SIGTERM, SIG_IGN) == SIG_DFL)
signal(SIGTERM, onhup);
if (signal(SIGEMT, SIG_IGN) == SIG_DFL)
signal(SIGEMT, onemt);
signal(SIGILL, oncore);
signal(SIGTRAP, oncore);
signal(SIGIOT, oncore);
signal(SIGFPE, oncore);
signal(SIGBUS, oncore);
signal(SIGSEGV, oncore);
signal(SIGPIPE, oncore);
init_re();
while (1) {
#ifdef TRACE
while ((c = getopt(ac, (char **)av, "VU:Lc:Tvt:rlw:xRCsS")) !=
EOF)
#else
while ((c = getopt(ac, (char **)av,
"VLc:vt:rlw:xRCsS")) != EOF)
#endif
switch (c) {
case 's':
hush = 1;
value(vi_AUTOPRINT) = 0;
fast++;
break;
case 'R':
value(vi_READONLY) = 1;
break;
case 'S':
tags_flag = 1;
break;
#ifdef TRACE
case 'T':
tracef = (unsigned char *)"trace";
goto trace;
case 'U':
tracef = tttrace;
strcpy(tracef, optarg);
trace:
trace = fopen((char *)tracef, "w");
#define tracbuf NULL
if (trace == NULL)
viprintf("Trace create error\n");
else
setbuf(trace, (char *)tracbuf);
break;
#endif
case 'c':
if (optarg != NULL)
firstpat = (unsigned char *)optarg;
else
firstpat = (unsigned char *)"";
break;
case 'l':
value(vi_LISP) = 1;
value(vi_SHOWMATCH) = 1;
break;
case 'r':
if (av[optind] && (c = av[optind][0]) &&
c != '-') {
if ((strlen(av[optind])) >=
sizeof (savedfile)) {
(void) fprintf(stderr, gettext(
"Recovered file name"
" too long\n"));
exit(1);
}
rcvname = (unsigned char *)av[optind];
optind++;
}
case 'L':
recov++;
break;
case 'V':
verbose = 1;
break;
case 't':
if (toptseen) {
usage(cmdnam);
exit(1);
} else {
toptseen++;
}
itag = tagflg = 1; /* -t option */
if (strlcpy(lasttag, optarg,
sizeof (lasttag)) >= sizeof (lasttag)) {
(void) fprintf(stderr, gettext("Tag"
" file name too long\n"));
exit(1);
}
break;
case 'w':
defwind = 0;
if (optarg[0] == NULL)
defwind = 3;
else for (cp = (unsigned char *)optarg;
isdigit(*cp); cp++)
defwind = 10*defwind + *cp - '0';
if (defwind < 0)
defwind = 3;
break;
case 'C':
crflag = 1;
xflag = 1;
break;
case 'x':
/* encrypted mode */
xflag = 1;
crflag = -1;
break;
case 'v':
ivis = 1;
break;
default:
usage(cmdnam);
exit(1);
}
if (av[optind] && av[optind][0] == '+' &&
av[optind-1] && strcmp(av[optind-1], "--")) {
firstpat = (unsigned char *)&av[optind][1];
optind++;
continue;
} else if (av[optind] && av[optind][0] == '-' &&
av[optind-1] && strcmp(av[optind-1], "--")) {
hush = 1;
value(vi_AUTOPRINT) = 0;
fast++;
optind++;
continue;
}
break;
}
if (isatty(0) == 0) {
/*
* If -V option is set and input is coming in via
* stdin then vi behavior should be ignored. The vi
* command should act like ex and only process ex commands
* and echo the input ex commands to stderr
*/
if (verbose == 1) {
ivis = 0;
}
/*
* If the standard input is not a terminal device,
* it is as if the -s option has been specified.
*/
if (ivis == 0) {
hush = 1;
value(vi_AUTOPRINT) = 0;
fast++;
}
}
ac -= optind;
av = &av[optind];
for (argcounter = 0; argcounter < ac; argcounter++) {
if ((strlen(av[argcounter])) >= sizeof (savedfile)) {
(void) fprintf(stderr, gettext("File argument"
" too long\n"));
exit(1);
}
}
#ifdef SIGTSTP
if (!hush && signal(SIGTSTP, SIG_IGN) == SIG_DFL)
signal(SIGTSTP, onsusp), dosusp++;
#endif
if (xflag) {
permflag = 1;
if ((kflag = run_setkey(perm,
(key = (unsigned char *)getpass(
gettext("Enter key:"))))) == -1) {
kflag = 0;
xflag = 0;
smerror(gettext("Encryption facility not available\n"));
}
if (kflag == 0)
crflag = 0;
else {
strcpy(cryptkey, "CrYpTkEy=XXXXXXXXX");
strcpy(cryptkey + 9, key);
if (putenv((char *)cryptkey) != 0)
smerror(gettext(" Cannot copy key to environment"));
}
}
#ifndef PRESUNEUC
/*
* Perform locale-specific initialization
*/
localize();
#endif /* PRESUNEUC */
/*
* Initialize end of core pointers.
* Normally we avoid breaking back to fendcore after each
* file since this can be expensive (much core-core copying).
* If your system can scatter load processes you could do
* this as ed does, saving a little core, but it will probably
* not often make much difference.
*/
fendcore = (line *) sbrk(0);
endcore = fendcore - 2;
/*
* If we are doing a recover and no filename
* was given, then execute an exrecover command with
* the -r option to type out the list of saved file names.
* Otherwise set the remembered file name to the first argument
* file name so the "recover" initial command will find it.
*/
if (recov) {
if (ac == 0 && (rcvname == NULL || *rcvname == NULL)) {
ppid = 0;
setrupt();
execlp(EXRECOVER, "exrecover", "-r", (char *)0);
filioerr(EXRECOVER);
exit(++errcnt);
}
if (rcvname && *rcvname)
(void) strlcpy(savedfile, rcvname, sizeof (savedfile));
else {
(void) strlcpy(savedfile, *av++, sizeof (savedfile));
ac--;
}
}
/*
* Initialize the argument list.
*/
argv0 = (unsigned char **)av;
argc0 = ac;
args0 = (unsigned char *)av[0];
erewind();
/*
* Initialize a temporary file (buffer) and
* set up terminal environment. Read user startup commands.
*/
if (setexit() == 0) {
setrupt();
intty = isatty(0);
value(vi_PROMPT) = intty;
if (((cp = (unsigned char *)getenv("SHELL")) != NULL) &&
(*cp != '\0')) {
if (strlen(cp) < sizeof (shell)) {
(void) strlcpy(shell, cp, sizeof (shell));
}
}
if (fast)
setterm((unsigned char *)"dumb");
else {
gettmode();
cp = (unsigned char *)getenv("TERM");
if (cp == NULL || *cp == '\0')
cp = (unsigned char *)"unknown";
setterm(cp);
}
}
/*
* Bring up some code from init()
* This is still done in init later. This
* avoids null pointer problems
*/
dot = zero = truedol = unddol = dol = fendcore;
one = zero+1;
{
int i;
for (i = 0; i <= 'z'-'a'+1; i++)
names[i] = 1;
}
if (setexit() == 0 && !fast) {
if ((globp =
(unsigned char *) getenv("EXINIT")) && *globp) {
if (ivis)
inexrc = 1;
commands(1, 1);
inexrc = 0;
} else {
globp = 0;
if ((cp = (unsigned char *) getenv("HOME")) !=
0 && *cp) {
strncpy(scratch, cp, sizeof (scratch) - 1);
strncat(scratch, "/.exrc",
sizeof (scratch) - 1 - strlen(scratch));
if (ivis)
inexrc = 1;
if ((vret = validate_exrc(scratch)) == 0) {
source(scratch, 1);
} else {
if (vret == -1) {
error(gettext(
"Not owner of .exrc "
"or .exrc is group or "
"world writable"));
}
}
inexrc = 0;
}
}
/*
* Allow local .exrc if the "exrc" option was set. This
* loses if . is $HOME, but nobody should notice unless
* they do stupid things like putting a version command
* in .exrc.
* Besides, they should be using EXINIT, not .exrc, right?
*/
if (value(vi_EXRC)) {
if (ivis)
inexrc = 1;
if ((cp = (unsigned char *) getenv("PWD")) != 0 &&
*cp) {
strncpy(exrcpath, cp, sizeof (exrcpath) - 1);
strncat(exrcpath, "/.exrc",
sizeof (exrcpath) - 1 - strlen(exrcpath));
if (strcmp(scratch, exrcpath) != 0) {
if ((vret =
validate_exrc(exrcpath)) == 0) {
source(exrcpath, 1);
} else {
if (vret == -1) {
error(gettext(
"Not owner of "
".exrc or .exrc "
"is group or world "
"writable"));
}
}
}
}
inexrc = 0;
}
}
init(); /* moved after prev 2 chunks to fix directory option */
/*
* Initial processing. Handle tag, recover, and file argument
* implied next commands. If going in as 'vi', then don't do
* anything, just set initev so we will do it later (from within
* visual).
*/
if (setexit() == 0) {
if (recov)
globp = (unsigned char *)"recover";
else if (itag) {
globp = ivis ? (unsigned char *)"tag" :
(unsigned char *)"tag|p";
#ifdef XPG4
if (firstpat != NULL) {
/*
* if the user specified the -t and -c
* flags together, then we service these
* commands here. -t is handled first.
*/
savepat = firstpat;
firstpat = NULL;
inglobal = 1;
commands(1, 1);
/* now handle the -c argument: */
globp = savepat;
commands(1, 1);
inglobal = 0;
globp = savepat = NULL;
/* the above isn't sufficient for ex mode: */
if (!ivis) {
setdot();
nonzero();
plines(addr1, addr2, 1);
}
}
#endif /* XPG4 */
} else if (argc)
globp = (unsigned char *)"next";
if (ivis)
initev = globp;
else if (globp) {
inglobal = 1;
commands(1, 1);
inglobal = 0;
}
}
/*
* Vi command... go into visual.
*/
if (ivis) {
/*
* Don't have to be upward compatible
* by starting editing at line $.
*/
#ifdef XPG4
if (!itag && (dol > zero))
#else /* XPG4 */
if (dol > zero)
#endif /* XPG4 */
dot = one;
globp = (unsigned char *)"visual";
if (setexit() == 0)
commands(1, 1);
}
/*
* Clear out trash in state accumulated by startup,
* and then do the main command loop for a normal edit.
* If you quit out of a 'vi' command by doing Q or ^\,
* you also fall through to here.
*/
seenprompt = 1;
ungetchar(0);
globp = 0;
initev = 0;
setlastchar('\n');
setexit();
commands(0, 0);
cleanup(1);
return (errcnt);
}
/*
* Initialization, before editing a new file.
* Main thing here is to get a new buffer (in fileinit),
* rest is peripheral state resetting.
*/
void
init(void)
{
int i;
void (*pstat)();
fileinit();
dot = zero = truedol = unddol = dol = fendcore;
one = zero+1;
undkind = UNDNONE;
chng = 0;
edited = 0;
for (i = 0; i <= 'z'-'a'+1; i++)
names[i] = 1;
anymarks = 0;
if (xflag) {
xtflag = 1;
/* ignore SIGINT before crypt process */
pstat = signal(SIGINT, SIG_IGN);
if (tpermflag)
(void) crypt_close(tperm);
tpermflag = 1;
if (makekey(tperm) != 0) {
xtflag = 0;
smerror(gettext(
"Warning--Cannot encrypt temporary buffer\n"));
}
signal(SIGINT, pstat);
}
}
/*
* Return last component of unix path name p.
*/
unsigned char *
tailpath(p)
unsigned char *p;
{
unsigned char *r;
for (r = p; *p; p++)
if (*p == '/')
r = p+1;
return (r);
}
/*
* validate_exrc - verify .exrc as belonging to the user.
* The file uid should match the process ruid,
* and the file should be writable only by the owner.
*/
static int
validate_exrc(unsigned char *exrc_path)
{
struct stat64 exrc_stat;
int process_uid;
if (stat64((char *)exrc_path, &exrc_stat) == -1)
return (0); /* ignore if .exrec is not found */
process_uid = geteuid();
/* if not root, uid must match file owner */
if (process_uid && process_uid != exrc_stat.st_uid)
return (-1);
if ((exrc_stat.st_mode & (S_IWGRP | S_IWOTH)) != 0)
return (-1);
return (0);
}
/*
* print usage message to stdout
*/
static void
usage(unsigned char *name)
{
char buf[160];
#ifdef TRACE
(void) snprintf(buf, sizeof (buf), gettext(
"Usage: %s [- | -s] [-l] [-L] [-wn] "
"[-R] [-S] [-r [file]] [-t tag] [-T] [-U tracefile]\n"
"[-v] [-V] [-x] [-C] [+cmd | -c cmd] file...\n"), name);
#else
(void) snprintf(buf, sizeof (buf), gettext(
"Usage: %s [- | -s] [-l] [-L] [-wn] "
"[-R] [-S] [-r [file]] [-t tag]\n"
"[-v] [-V] [-x] [-C] [+cmd | -c cmd] file...\n"), name);
#endif
(void) write(2, buf, strlen(buf));
}