static void mpxresume(void)
{
int fds[2];
pipe(fds);
acceptch = NO_MORE_DATA;
have = 0;
if (!(kbdpid = fork())) {
close(fds[1]);
do {
unsigned char c;
int sta;
pack.who = 0;
sta = joe_read(fileno(termin), &c, 1);
if (sta == 0)
pack.ch = NO_MORE_DATA;
else
pack.ch = c;
pack.size = 0;
joe_write(mpxsfd, &pack, sizeof(struct packet) - 1024);
} while (joe_read(fds[0], &pack, 1) == 1);
_exit(0);
}
close(fds[0]);
ackkbd = fds[1];
}
int ttflsh(void)
{
/* Flush output */
if (obufp) {
joe_write(fileno(termout), obuf, obufp);
obufp = 0;
}
/* Ack previous packet */
if (ackkbd != -1 && acceptch != NO_MORE_DATA && !have) {
unsigned char c = 0;
if (pack.who && pack.who->func)
joe_write(pack.who->ackfd, &c, 1);
else
joe_write(ackkbd, &c, 1);
acceptch = NO_MORE_DATA;
}
/* Check for typeahead or next packet */
if (!have && !leave) {
if (ackkbd != -1) {
fcntl(mpxfd, F_SETFL, O_NDELAY);
if (read(mpxfd, &pack, sizeof(struct packet) - 1024) > 0) {
fcntl(mpxfd, F_SETFL, 0);
joe_read(mpxfd, pack.data, pack.size);
have = 1;
acceptch = pack.ch;
} else
fcntl(mpxfd, F_SETFL, 0);
} else {
/* Set terminal input to non-blocking */
fcntl(fileno(termin), F_SETFL, O_NDELAY);
/* Try to read */
if (read(fileno(termin), &havec, 1) == 1)
have = 1;
/* Set terminal back to blocking */
fcntl(fileno(termin), F_SETFL, 0);
}
}
return 0;
}
static int cp(char *from, char *to)
{
int f, g;
ptrdiff_t amnt;
struct stat sbuf;
#ifdef HAVE_UTIME
#ifdef NeXT
time_t utbuf[2];
#else
struct utimbuf utbuf;
#endif
#endif
f = open(from, O_RDONLY);
if (f < 0) {
return -1;
}
if (fstat(f, &sbuf) < 0) {
return -1;
}
g = creat(to, sbuf.st_mode & ~(unsigned)(S_ISUID | S_ISGID));
if (g < 0) {
close(f);
return -1;
}
while ((amnt = read(f, stdbuf, stdsiz)) > 0) {
if (amnt != joe_write(g, stdbuf, amnt)) {
break;
}
}
close(f);
close(g);
if (amnt) {
return -1;
}
#ifdef HAVE_UTIME
#ifdef NeXT
utbuf[0] = (time_t) sbuf.st_atime;
utbuf[1] = (time_t) sbuf.st_mtime;
#else
utbuf.actime = sbuf.st_atime;
utbuf.modtime = sbuf.st_mtime;
#endif
utime(to, &utbuf);
#endif
#ifdef WITH_SELINUX
copy_security_context(from,to);
#endif
return 0;
}
int ttshell(unsigned char *cmd)
{
int x, omode = ttymode;
int stat= -1;
unsigned char *s = (unsigned char *)getenv("SHELL");
if (!s) {
s = USTR "/bin/sh";
/* return; */
}
ttclsn();
#ifdef HAVE_FORK
if ((x = fork()) != 0) {
#else
if ((x = vfork()) != 0) { /* For AMIGA only */
#endif
if (x != -1)
wait(&stat);
if (omode)
ttopnn();
return stat;
} else {
signrm();
if (cmd)
execl((char *)s, (char *)s, "-c", cmd, NULL);
else {
fprintf(stderr, (char *)joe_gettext(_("You are at the command shell. Type 'exit' to return\n")));
execl((char *)s, (char *)s, NULL);
}
_exit(0);
return 0;
}
}
/* Create keyboard task */
static void mpxresume(void)
{
int fds[2];
pipe(fds);
acceptch = NO_MORE_DATA;
have = 0;
if (!(kbdpid = fork())) {
close(fds[1]);
do {
unsigned char c;
int sta;
pack.who = 0;
sta = joe_read(fileno(termin), &c, 1);
if (sta == 0)
pack.ch = NO_MORE_DATA;
else
pack.ch = c;
pack.size = 0;
joe_write(mpxsfd, &pack, sizeof(struct packet) - 1024);
} while (joe_read(fds[0], &pack, 1) == 1);
_exit(0);
}
close(fds[0]);
ackkbd = fds[1];
}
int ttflsh(void)
{
/* Flush output */
if (obufp) {
unsigned long usec = obufp * upc; /* No. usecs this write should take */
#ifdef HAVE_SETITIMER
if (usec >= 50000 && baud < 9600) {
struct itimerval a, b;
a.it_value.tv_sec = usec / 1000000;
a.it_value.tv_usec = usec % 1000000;
a.it_interval.tv_usec = 0;
a.it_interval.tv_sec = 0;
alarm(0);
joe_set_signal(SIGALRM, dosig);
yep = 0;
maskit();
setitimer(ITIMER_REAL, &a, &b);
joe_write(fileno(termout), obuf, obufp);
while (!yep)
pauseit();
unmaskit();
} else
joe_write(fileno(termout), obuf, obufp);
#else
joe_write(fileno(termout), obuf, obufp);
#ifdef FIORDCHK
if (baud < 9600 && usec / 1000)
nap(usec / 1000);
#endif
#endif
obufp = 0;
}
/* Ack previous packet */
if (ackkbd != -1 && acceptch != NO_MORE_DATA && !have) {
unsigned char c = 0;
if (pack.who && pack.who->func)
joe_write(pack.who->ackfd, &c, 1);
else
joe_write(ackkbd, &c, 1);
acceptch = NO_MORE_DATA;
}
/* Check for typeahead or next packet */
if (!have && !leave) {
if (ackkbd != -1) {
fcntl(mpxfd, F_SETFL, O_NDELAY);
if (read(mpxfd, &pack, sizeof(struct packet) - 1024) > 0) {
fcntl(mpxfd, F_SETFL, 0);
joe_read(mpxfd, pack.data, pack.size);
have = 1;
acceptch = pack.ch;
} else
fcntl(mpxfd, F_SETFL, 0);
} else {
/* Set terminal input to non-blocking */
fcntl(fileno(termin), F_SETFL, O_NDELAY);
/* Try to read */
if (read(fileno(termin), &havec, 1) == 1)
have = 1;
/* Set terminal back to blocking */
fcntl(fileno(termin), F_SETFL, 0);
}
}
return 0;
}
int execmd(CMD *cmd, int k)
{
BW *bw = (BW *) maint->curwin->object;
int ret = -1;
/* Warning: bw is a BW * only if maint->curwin->watom->what &
(TYPETW|TYPEPW) */
#if junk
/* Send data to shell window: this is broken ^K ^H (help) sends its ^H to shell */
if ((maint->curwin->watom->what & TYPETW) && bw->b->pid && !bw->b->vt && piseof(bw->cursor) &&
(k==3 || k==9 || k==13 || k==8 || k==127 || k==4 || (cmd->func==utype /* && k>=32 && k<256 */))) {
unsigned char c = k;
joe_write(bw->b->out, &c, 1);
return 0;
}
#endif
if (cmd->m)
return exmacro(cmd->m, 0);
/* We don't execute if we have to fix the column position first
* (i.e., left arrow when cursor is in middle of nowhere) */
if (cmd->flag & ECHKXCOL) {
if (bw->o.hex)
bw->cursor->xcol = piscol(bw->cursor);
else if (bw->cursor->xcol != piscol(bw->cursor))
goto skip;
}
/* Don't execute command if we're in wrong type of window */
if (!(cmd->flag & maint->curwin->watom->what))
goto skip;
/* Complete selection for block commands */
if ((cmd->flag & EBLOCK) && nowmarking)
utoggle_marking(maint->curwin->object);
/* We are about to modify the file */
if ((maint->curwin->watom->what & TYPETW) && (cmd->flag & EMOD)) {
if (!modify_logic(bw,bw->b))
goto skip;
}
/* Execute command */
ret = cmd->func(maint->curwin->object, k);
if (smode)
--smode;
/* Don't update anything if we're going to leave */
if (leave)
return 0;
/* cmd->func could have changed bw on us */
/* This is bad: maint->curwin might not be the same window */
/* Safer would be to attach a pointer to curwin- if curwin
gets clobbered, so does pointer. */
bw = (BW *) maint->curwin->object;
/* Maintain position history */
/* If command was not a positioning command */
if (!(cmd->flag & EPOS)
&& (maint->curwin->watom->what & (TYPETW | TYPEPW)))
afterpos();
/* If command was not a movement */
if (!(cmd->flag & (EMOVE | EPOS)) && (maint->curwin->watom->what & (TYPETW | TYPEPW)))
aftermove(maint->curwin, bw->cursor);
if (cmd->flag & EKILL)
justkilled = 1;
else
justkilled = 0;
skip:
/* Make dislayed cursor column equal the actual cursor column
* for commands which arn't simple vertical movements */
if ((cmd->flag & EFIXXCOL) && (maint->curwin->watom->what & (TYPETW | TYPEPW)))
bw->cursor->xcol = piscol(bw->cursor);
/* Recenter cursor to middle of screen */
if (cmd->flag & EMID) {
int omid = mid;
mid = 1;
dofollows();
mid = omid;
}
if (joe_beep && ret)
ttputc(7);
return ret;
}
