mirror of https://github.com/tildeclub/ex-vi.git
deepend-tildeclub
GitHub
parent
0d7b306269
commit
297a2b4a52
558
ex_unix.c
558
ex_unix.c
|
|
@ -7,7 +7,7 @@
|
|||
*
|
||||
*
|
||||
* Copyright (c) 1980, 1993
|
||||
* The Regents of the University of California. All rights reserved.
|
||||
* The Regents of the University of California. All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
|
|
@ -19,8 +19,8 @@
|
|||
* documentation and/or other materials provided with the distribution.
|
||||
* 3. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by the University of
|
||||
* California, Berkeley and its contributors.
|
||||
* This product includes software developed by the University of
|
||||
* California, Berkeley and its contributors.
|
||||
* 4. Neither the name of the University nor the names of its contributors
|
||||
* may be used to endorse or promote products derived from this software
|
||||
* without specific prior written permission.
|
||||
|
|
@ -71,13 +71,13 @@
|
|||
* EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#ifndef lint
|
||||
#ifdef DOSCCS
|
||||
static char sccsid[] = "@(#)ex_unix.c 1.16 (gritter) 11/23/04";
|
||||
#ifndef lint
|
||||
#ifdef DOSCCS
|
||||
static char sccsid[] = "@(#)ex_unix.c 1.16 (gritter) 11/23/04";
|
||||
#endif
|
||||
#endif
|
||||
|
||||
/* from ex_unix.c 7.6 (Berkeley) 10/22/85 */
|
||||
/* from ex_unix.c 7.6 (Berkeley) 10/22/85 */
|
||||
|
||||
#include "ex.h"
|
||||
#include "ex_temp.h"
|
||||
|
|
@ -93,118 +93,118 @@ static char sccsid[] = "@(#)ex_unix.c 1.16 (gritter) 11/23/04";
|
|||
* First part of a shell escape,
|
||||
* parse the line, expanding # and % and ! and printing if implied.
|
||||
*/
|
||||
void
|
||||
void
|
||||
unix0(int warn)
|
||||
{
|
||||
register char *up, *fp;
|
||||
register short c;
|
||||
char printub, puxb[UXBSIZE + sizeof (int)];
|
||||
register char *up, *fp;
|
||||
register short c;
|
||||
char printub, puxb[UXBSIZE + sizeof (int)];
|
||||
|
||||
printub = 0;
|
||||
CP(puxb, uxb);
|
||||
c = getchar();
|
||||
if (c == '\n' || c == EOF)
|
||||
error(catgets(catd, 1, 192,
|
||||
"Incomplete shell escape command@- use 'shell' to get a shell"));
|
||||
up = uxb;
|
||||
do {
|
||||
switch (c) {
|
||||
printub = 0;
|
||||
CP(puxb, uxb);
|
||||
c = getchar();
|
||||
if (c == '\n' || c == EOF)
|
||||
error(catgets(catd, 1, 192,
|
||||
"Incomplete shell escape command@- use 'shell' to get a shell"));
|
||||
up = uxb;
|
||||
do {
|
||||
switch (c) {
|
||||
|
||||
case '\\':
|
||||
if (any(peekchar(), "%#!"))
|
||||
c = getchar();
|
||||
default:
|
||||
if (up >= &uxb[UXBSIZE]) {
|
||||
case '\\':
|
||||
if (any(peekchar(), "%#!"))
|
||||
c = getchar();
|
||||
default:
|
||||
if (up >= &uxb[UXBSIZE]) {
|
||||
tunix:
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 193,
|
||||
"Command too long"));
|
||||
}
|
||||
*up++ = c;
|
||||
break;
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 193,
|
||||
"Command too long"));
|
||||
}
|
||||
*up++ = c;
|
||||
break;
|
||||
|
||||
case '!':
|
||||
fp = puxb;
|
||||
if (*fp == 0) {
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 194,
|
||||
"No previous command@to substitute for !"));
|
||||
}
|
||||
printub++;
|
||||
while (*fp) {
|
||||
if (up >= &uxb[UXBSIZE])
|
||||
goto tunix;
|
||||
*up++ = *fp++;
|
||||
}
|
||||
break;
|
||||
case '!':
|
||||
fp = puxb;
|
||||
if (*fp == 0) {
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 194,
|
||||
"No previous command@to substitute for !"));
|
||||
}
|
||||
printub++;
|
||||
while (*fp) {
|
||||
if (up >= &uxb[UXBSIZE])
|
||||
goto tunix;
|
||||
*up++ = *fp++;
|
||||
}
|
||||
break;
|
||||
|
||||
case '#':
|
||||
fp = altfile;
|
||||
if (*fp == 0) {
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 195,
|
||||
"No alternate filename@to substitute for #"));
|
||||
}
|
||||
goto uexp;
|
||||
case '#':
|
||||
fp = altfile;
|
||||
if (*fp == 0) {
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 195,
|
||||
"No alternate filename@to substitute for #"));
|
||||
}
|
||||
goto uexp;
|
||||
|
||||
case '%':
|
||||
fp = savedfile;
|
||||
if (*fp == 0) {
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 196,
|
||||
"No filename@to substitute for %%"));
|
||||
}
|
||||
case '%':
|
||||
fp = savedfile;
|
||||
if (*fp == 0) {
|
||||
uxb[0] = 0;
|
||||
error(catgets(catd, 1, 196,
|
||||
"No filename@to substitute for %%"));
|
||||
}
|
||||
uexp:
|
||||
printub++;
|
||||
while (*fp) {
|
||||
if (up >= &uxb[UXBSIZE])
|
||||
goto tunix;
|
||||
#ifndef BIT8
|
||||
*up++ = *fp++ | QUOTE;
|
||||
printub++;
|
||||
while (*fp) {
|
||||
if (up >= &uxb[UXBSIZE])
|
||||
goto tunix;
|
||||
#ifndef BIT8
|
||||
*up++ = *fp++ | QUOTE;
|
||||
#else
|
||||
*up++ = *fp++;
|
||||
*up++ = *fp++;
|
||||
#endif
|
||||
}
|
||||
break;
|
||||
}
|
||||
c = getchar();
|
||||
} while (c == '"' || c == '|' || !endcmd(c));
|
||||
if (c == EOF)
|
||||
ungetchar(c);
|
||||
*up = 0;
|
||||
if (!inopen)
|
||||
resetflav();
|
||||
if (warn)
|
||||
ckaw();
|
||||
if (warn && hush == 0 && chng && xchng != chng && value(WARN) && dol > zero) {
|
||||
xchng = chng;
|
||||
vnfl();
|
||||
printf(mesg(catgets(catd, 1, 197,
|
||||
"[No write]|[No write since last change]")));
|
||||
noonl();
|
||||
flush();
|
||||
} else
|
||||
warn = 0;
|
||||
if (printub) {
|
||||
if (uxb[0] == 0)
|
||||
error(catgets(catd, 1, 198,
|
||||
"No previous command@to repeat"));
|
||||
if (inopen) {
|
||||
splitw++;
|
||||
vclean();
|
||||
vgoto(WECHO, 0);
|
||||
}
|
||||
if (warn)
|
||||
vnfl();
|
||||
if (hush == 0)
|
||||
lprintf("!%s", uxb);
|
||||
if (inopen && Outchar != termchar) {
|
||||
vclreol();
|
||||
vgoto(WECHO, 0);
|
||||
} else
|
||||
putnl();
|
||||
flush();
|
||||
}
|
||||
}
|
||||
break;
|
||||
}
|
||||
c = getchar();
|
||||
} while (c == '"' || c == '|' || !endcmd(c));
|
||||
if (c == EOF)
|
||||
ungetchar(c);
|
||||
*up = 0;
|
||||
if (!inopen)
|
||||
resetflav();
|
||||
if (warn)
|
||||
ckaw();
|
||||
if (warn && hush == 0 && chng && xchng != chng && value(WARN) && dol > zero) {
|
||||
xchng = chng;
|
||||
vnfl();
|
||||
printf("%s",mesg(catgets(catd, 1, 197,
|
||||
"[No write]|[No write since last change]")));
|
||||
noonl();
|
||||
flush();
|
||||
} else
|
||||
warn = 0;
|
||||
if (printub) {
|
||||
if (uxb[0] == 0)
|
||||
error(catgets(catd, 1, 198,
|
||||
"No previous command@to repeat"));
|
||||
if (inopen) {
|
||||
splitw++;
|
||||
vclean();
|
||||
vgoto(WECHO, 0);
|
||||
}
|
||||
if (warn)
|
||||
vnfl();
|
||||
if (hush == 0)
|
||||
lprintf("!%s", uxb);
|
||||
if (inopen && Outchar != termchar) {
|
||||
vclreol();
|
||||
vgoto(WECHO, 0);
|
||||
} else
|
||||
putnl();
|
||||
flush();
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
|
|
@ -213,79 +213,79 @@ uexp:
|
|||
* and indicates filtering. If input is implied, newstdin
|
||||
* must have been setup already.
|
||||
*/
|
||||
struct termios
|
||||
struct termios
|
||||
unixex(char *opt, char *up, int newstdin, int mode)
|
||||
{
|
||||
int pvec[2];
|
||||
struct termios f;
|
||||
int pvec[2];
|
||||
struct termios f;
|
||||
|
||||
signal(SIGINT, SIG_IGN);
|
||||
signal(SIGINT, SIG_IGN);
|
||||
#ifdef SIGTSTP
|
||||
if (dosusp)
|
||||
signal(SIGTSTP, SIG_DFL);
|
||||
if (dosusp)
|
||||
signal(SIGTSTP, SIG_DFL);
|
||||
#endif
|
||||
if (inopen)
|
||||
f = setty(normf);
|
||||
if ((mode & 1) && pipe(pvec) < 0) {
|
||||
/* Newstdin should be io so it will be closed */
|
||||
if (inopen)
|
||||
setty(f);
|
||||
error(catgets(catd, 1, 199, "Can't make pipe for filter"));
|
||||
}
|
||||
if (inopen)
|
||||
f = setty(normf);
|
||||
if ((mode & 1) && pipe(pvec) < 0) {
|
||||
/* Newstdin should be io so it will be closed */
|
||||
if (inopen)
|
||||
setty(f);
|
||||
error(catgets(catd, 1, 199, "Can't make pipe for filter"));
|
||||
}
|
||||
#ifndef VFORK
|
||||
pid = fork();
|
||||
pid = fork();
|
||||
#else
|
||||
pid = vfork();
|
||||
pid = vfork();
|
||||
#endif
|
||||
if (pid < 0) {
|
||||
if (mode & 1) {
|
||||
close(pvec[0]);
|
||||
close(pvec[1]);
|
||||
}
|
||||
setrupt();
|
||||
error(catgets(catd, 1, 200, "No more processes"));
|
||||
}
|
||||
if (pid == 0) {
|
||||
if (mode & 2) {
|
||||
close(0);
|
||||
dup(newstdin);
|
||||
close(newstdin);
|
||||
}
|
||||
if (mode & 1) {
|
||||
close(pvec[0]);
|
||||
close(1);
|
||||
dup(pvec[1]);
|
||||
if (inopen) {
|
||||
close(2);
|
||||
dup(1);
|
||||
}
|
||||
close(pvec[1]);
|
||||
}
|
||||
if (io)
|
||||
close(io);
|
||||
if (tfile)
|
||||
close(tfile);
|
||||
if (pid < 0) {
|
||||
if (mode & 1) {
|
||||
close(pvec[0]);
|
||||
close(pvec[1]);
|
||||
}
|
||||
setrupt();
|
||||
error(catgets(catd, 1, 200, "No more processes"));
|
||||
}
|
||||
if (pid == 0) {
|
||||
if (mode & 2) {
|
||||
close(0);
|
||||
dup(newstdin);
|
||||
close(newstdin);
|
||||
}
|
||||
if (mode & 1) {
|
||||
close(pvec[0]);
|
||||
close(1);
|
||||
dup(pvec[1]);
|
||||
if (inopen) {
|
||||
close(2);
|
||||
dup(1);
|
||||
}
|
||||
close(pvec[1]);
|
||||
}
|
||||
if (io)
|
||||
close(io);
|
||||
if (tfile)
|
||||
close(tfile);
|
||||
#ifndef VMUNIX
|
||||
close(erfile);
|
||||
close(erfile);
|
||||
#endif
|
||||
signal(SIGHUP, oldhup);
|
||||
signal(SIGQUIT, oldquit);
|
||||
#ifdef SIGXFSZ
|
||||
signal(SIGXFSZ, oldxfsz);
|
||||
signal(SIGHUP, oldhup);
|
||||
signal(SIGQUIT, oldquit);
|
||||
#ifdef SIGXFSZ
|
||||
signal(SIGXFSZ, oldxfsz);
|
||||
#endif
|
||||
if (ruptible)
|
||||
signal(SIGINT, SIG_DFL);
|
||||
execl(svalue(SHELL), "sh", opt, up, (char *)0);
|
||||
printf(catgets(catd, 1, 201, "No %s!\n"), svalue(SHELL));
|
||||
error(NOSTR);
|
||||
}
|
||||
if (mode & 1) {
|
||||
io = pvec[0];
|
||||
close(pvec[1]);
|
||||
}
|
||||
if (newstdin)
|
||||
close(newstdin);
|
||||
return (f);
|
||||
if (ruptible)
|
||||
signal(SIGINT, SIG_DFL);
|
||||
execl(svalue(SHELL), "sh", opt, up, (char *)0);
|
||||
printf(catgets(catd, 1, 201, "No %s!\n"), svalue(SHELL));
|
||||
error(NOSTR);
|
||||
}
|
||||
if (mode & 1) {
|
||||
io = pvec[0];
|
||||
close(pvec[1]);
|
||||
}
|
||||
if (newstdin)
|
||||
close(newstdin);
|
||||
return (f);
|
||||
}
|
||||
|
||||
/*
|
||||
|
|
@ -293,24 +293,24 @@ unixex(char *opt, char *up, int newstdin, int mode)
|
|||
* F is for restoration of tty mode if from open/visual.
|
||||
* C flags suppression of printing.
|
||||
*/
|
||||
void
|
||||
void
|
||||
unixwt(int c, struct termios f)
|
||||
{
|
||||
|
||||
waitfor();
|
||||
waitfor();
|
||||
#ifdef SIGTSTP
|
||||
if (dosusp)
|
||||
signal(SIGTSTP, onsusp);
|
||||
if (dosusp)
|
||||
signal(SIGTSTP, onsusp);
|
||||
#endif
|
||||
if (inopen)
|
||||
setty(f);
|
||||
setrupt();
|
||||
if (!inopen && c && hush == 0) {
|
||||
printf("!\n");
|
||||
flush();
|
||||
termreset();
|
||||
gettmode();
|
||||
}
|
||||
if (inopen)
|
||||
setty(f);
|
||||
setrupt();
|
||||
if (!inopen && c && hush == 0) {
|
||||
printf("!\n");
|
||||
flush();
|
||||
termreset();
|
||||
gettmode();
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
|
|
@ -319,118 +319,118 @@ unixwt(int c, struct termios f)
|
|||
* the filter, then a child editor is created to write it.
|
||||
* If output is catch it from io which is created by unixex.
|
||||
*/
|
||||
void
|
||||
void
|
||||
filter(register int mode)
|
||||
{
|
||||
static int pvec[2];
|
||||
struct termios f; /* mjm: was register */
|
||||
register int lines = lineDOL();
|
||||
struct stat statb;
|
||||
static int pvec[2];
|
||||
struct termios f; /* mjm: was register */
|
||||
register int lines = lineDOL();
|
||||
struct stat statb;
|
||||
|
||||
mode++;
|
||||
if (mode & 2) {
|
||||
signal(SIGINT, SIG_IGN);
|
||||
if (pipe(pvec) < 0)
|
||||
error(catgets(catd, 1, 202, "Can't make pipe"));
|
||||
pid = fork();
|
||||
io = pvec[0];
|
||||
if (pid < 0) {
|
||||
setrupt();
|
||||
close(pvec[1]);
|
||||
error(catgets(catd, 1, 203, "No more processes"));
|
||||
}
|
||||
if (pid == 0) {
|
||||
setrupt();
|
||||
io = pvec[1];
|
||||
close(pvec[0]);
|
||||
putfile(1);
|
||||
exitex(0);
|
||||
}
|
||||
close(pvec[1]);
|
||||
io = pvec[0];
|
||||
setrupt();
|
||||
}
|
||||
f = unixex("-c", uxb, (mode & 2) ? pvec[0] : 0, mode);
|
||||
if (mode == 3) {
|
||||
delete(0);
|
||||
addr2 = addr1 - 1;
|
||||
} else if (mode == 1)
|
||||
deletenone();
|
||||
if (mode & 1) {
|
||||
if(FIXUNDO)
|
||||
undap1 = undap2 = addr2+1;
|
||||
if (fstat(io, &statb) < 0 || statb.st_blksize > LBSIZE)
|
||||
bsize = LBSIZE;
|
||||
else {
|
||||
bsize = statb.st_blksize;
|
||||
if (bsize <= 0)
|
||||
bsize = LBSIZE;
|
||||
}
|
||||
ignore(append(getfile, addr2));
|
||||
mode++;
|
||||
if (mode & 2) {
|
||||
signal(SIGINT, SIG_IGN);
|
||||
if (pipe(pvec) < 0)
|
||||
error(catgets(catd, 1, 202, "Can't make pipe"));
|
||||
pid = fork();
|
||||
io = pvec[0];
|
||||
if (pid < 0) {
|
||||
setrupt();
|
||||
close(pvec[1]);
|
||||
error(catgets(catd, 1, 203, "No more processes"));
|
||||
}
|
||||
if (pid == 0) {
|
||||
setrupt();
|
||||
io = pvec[1];
|
||||
close(pvec[0]);
|
||||
putfile(1);
|
||||
exitex(0);
|
||||
}
|
||||
close(pvec[1]);
|
||||
io = pvec[0];
|
||||
setrupt();
|
||||
}
|
||||
f = unixex("-c", uxb, (mode & 2) ? pvec[0] : 0, mode);
|
||||
if (mode == 3) {
|
||||
delete(0);
|
||||
addr2 = addr1 - 1;
|
||||
} else if (mode == 1)
|
||||
deletenone();
|
||||
if (mode & 1) {
|
||||
if(FIXUNDO)
|
||||
undap1 = undap2 = addr2+1;
|
||||
if (fstat(io, &statb) < 0 || statb.st_blksize > LBSIZE)
|
||||
bsize = LBSIZE;
|
||||
else {
|
||||
bsize = statb.st_blksize;
|
||||
if (bsize <= 0)
|
||||
bsize = LBSIZE;
|
||||
}
|
||||
ignore(append(getfile, addr2));
|
||||
#ifdef TRACE
|
||||
if (trace)
|
||||
vudump("after append in filter");
|
||||
if (trace)
|
||||
vudump("after append in filter");
|
||||
#endif
|
||||
}
|
||||
close(io);
|
||||
io = -1;
|
||||
unixwt(!inopen, f);
|
||||
netchHAD(lines);
|
||||
}
|
||||
close(io);
|
||||
io = -1;
|
||||
unixwt(!inopen, f);
|
||||
netchHAD(lines);
|
||||
}
|
||||
|
||||
/*
|
||||
* Set up to do a recover, getting io to be a pipe from
|
||||
* the recover process.
|
||||
*/
|
||||
void
|
||||
void
|
||||
recover(void)
|
||||
{
|
||||
static int pvec[2];
|
||||
static int pvec[2];
|
||||
|
||||
if (pipe(pvec) < 0)
|
||||
error(catgets(catd, 1, 204, " Can't make pipe for recovery"));
|
||||
pid = fork();
|
||||
io = pvec[0];
|
||||
if (pid < 0) {
|
||||
close(pvec[1]);
|
||||
error(catgets(catd, 1, 205, " Can't fork to execute recovery"));
|
||||
}
|
||||
if (pid == 0) {
|
||||
close(2);
|
||||
dup(1);
|
||||
close(1);
|
||||
dup(pvec[1]);
|
||||
close(pvec[1]);
|
||||
execl(EXRECOVER, "exrecover", svalue(DIRECTORY), file, (char *) 0);
|
||||
close(1);
|
||||
dup(2);
|
||||
error(catgets(catd, 1, 206, " No recovery routine"));
|
||||
}
|
||||
close(pvec[1]);
|
||||
if (pipe(pvec) < 0)
|
||||
error(catgets(catd, 1, 204, " Can't make pipe for recovery"));
|
||||
pid = fork();
|
||||
io = pvec[0];
|
||||
if (pid < 0) {
|
||||
close(pvec[1]);
|
||||
error(catgets(catd, 1, 205, " Can't fork to execute recovery"));
|
||||
}
|
||||
if (pid == 0) {
|
||||
close(2);
|
||||
dup(1);
|
||||
close(1);
|
||||
dup(pvec[1]);
|
||||
close(pvec[1]);
|
||||
execl(EXRECOVER, "exrecover", svalue(DIRECTORY), file, (char *) 0);
|
||||
close(1);
|
||||
dup(2);
|
||||
error(catgets(catd, 1, 206, " No recovery routine"));
|
||||
}
|
||||
close(pvec[1]);
|
||||
}
|
||||
|
||||
/*
|
||||
* Wait for the process (pid an external) to complete.
|
||||
*/
|
||||
void
|
||||
void
|
||||
waitfor(void)
|
||||
{
|
||||
int stat = 0;
|
||||
pid_t wpid;
|
||||
int stat = 0;
|
||||
pid_t wpid;
|
||||
|
||||
do {
|
||||
wpid = wait(&stat);
|
||||
if (wpid == pid) {
|
||||
status = stat;
|
||||
rpid = wpid;
|
||||
}
|
||||
} while (wpid != -1);
|
||||
if (status) {
|
||||
if (WIFEXITED(status))
|
||||
status = WEXITSTATUS(status);
|
||||
else
|
||||
status = 0;
|
||||
}
|
||||
do {
|
||||
wpid = wait(&stat);
|
||||
if (wpid == pid) {
|
||||
status = stat;
|
||||
rpid = wpid;
|
||||
}
|
||||
} while (wpid != -1);
|
||||
if (status) {
|
||||
if (WIFEXITED(status))
|
||||
status = WEXITSTATUS(status);
|
||||
else
|
||||
status = 0;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
|
|
@ -438,13 +438,13 @@ waitfor(void)
|
|||
* exits non-zero, force not edited; otherwise force
|
||||
* a write.
|
||||
*/
|
||||
void
|
||||
void
|
||||
revocer(void)
|
||||
{
|
||||
|
||||
waitfor();
|
||||
if (pid == rpid && status != 0)
|
||||
edited = 0;
|
||||
else
|
||||
change();
|
||||
waitfor();
|
||||
if (pid == rpid && status != 0)
|
||||
edited = 0;
|
||||
else
|
||||
change();
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue