/*
* Shell-window functions
* Copyright
* (C) 1992 Joseph H. Allen
*
* This file is part of JOE (Joe's Own Editor)
*/
#include "types.h"
/* Executed when shell process terminates */
static void cdone(void *obj)
{
B *b = (B *)obj;
b->pid = 0;
close(b->out);
b->out = -1;
if (b->vt) {
vtrm(b->vt);
b->vt = 0;
}
}
static void cdone_parse(void *obj)
{
B *b = (B *)obj;
b->pid = 0;
close(b->out);
b->out = -1;
if (b->vt) {
vtrm(b->vt);
b->vt = 0;
}
parserrb(b);
}
/* Set up for shell mode in each window with the buffer */
static void ansiall(B *b)
{
W *w;
if ((w = maint->topwin) != NULL) {
do {
if (w->watom->what & TYPETW) {
BW *bw = (BW *)w->object;
if (bw->b == b) {
bw->o.ansi = bw->b->o.ansi;
bw->o.syntax = bw->b->o.syntax;
}
}
w = w->link.next;
} while (w != maint->topwin);
}
}
/* Executed for each chunk of data we get from the shell */
/* Mark each window which needs to follow the shell output */
static void cready(B *b, off_t byte)
{
W *w;
if (b->oldcur && b->oldcur->byte == byte)
b->shell_flag = 1;
else
b->shell_flag = 0;
if ((w = maint->topwin) != NULL) {
do {
if (w->watom->what & TYPETW) {
BW *bw = (BW *)w->object;
if (bw->b == b && bw->cursor->byte == byte) {
bw->shell_flag = 1;
} else {
bw->shell_flag = 0;
}
}
w = w->link.next;
} while (w != maint->topwin);
}
}
static void cfollow(B *b, VT *vt, off_t byte)
{
W *w;
int xn;
if (vt && piscol(vt->vtcur) >= vt->width)
xn = 1; /* xn glitch: cursor is past end of line */
else
xn = 0;
if (b->oldcur && b->shell_flag) {
b->shell_flag = 0;
pgoto(b->oldcur, byte);
b->oldcur->xcol = piscol(b->oldcur);
if (xn)
b->oldcur->xcol = vt->width - 1;
}
if ((w = maint->topwin) != NULL) {
do {
if (w->watom->what & TYPETW) {
BW *bw = (BW *)w->object;
if (bw->shell_flag) {
bw->shell_flag = 0;
pgoto(bw->cursor, byte);
bw->cursor->xcol = piscol(bw->cursor);
if (xn)
bw->cursor->xcol = vt->width - 1;
if (vt && bw->top->line != vt->top->line && (1 + vt->vtcur->line - vt->top->line) <= bw->h)
pline(bw->top, vt->top->line);
dofollows();
}
}
w = w->link.next;
} while (w != maint->topwin);
}
}
void vt_scrdn()
{
W *w;
if ((w = maint->topwin) != NULL) {
do {
if (w->watom->what & TYPETW) {
BW *bw = (BW *)w->object;
if (bw->shell_flag) {
pnextl(bw->top);
if (bw->parent->y != -1)
nscrlup(bw->parent->t->t, bw->y, bw->y + bw->h, 1);
}
}
w = w->link.next;
} while (w != maint->topwin);
}
}
static void cdata(void *obj, char *dat, ptrdiff_t siz)
{
B *b = (B *)obj;
if (b->vt) { /* ANSI terminal emulator */
MACRO *m;
do {
cready(b, b->vt->vtcur->byte);
m = vt_data(b->vt, &dat, &siz);
cfollow(b, b->vt, b->vt->vtcur->byte);
undomark();
if (m) {
/* only do this if cursor is on window */
if ((maint->curwin->watom->what & TYPETW) && ((BW *)maint->curwin->object)->b == b) {
exmacro(m, 1, NO_MORE_DATA);
edupd(1);
}
rmmacro(m);
}
} while (m);
} else { /* Dumb terminal */
P *q = pdup(b->eof, "cdata");
P *r = pdup(b->eof, "cdata");
off_t byte = q->byte;
char bf[1024];
int x, y;
cready(b, byte);
for (x = y = 0; x != siz; ++x) {
if (dat[x] == 13 || dat[x] == 0) {
;
} else if (dat[x] == 8 || dat[x] == 127) {
if (y) {
--y;
} else {
pset(q, r);
prgetc(q);
bdel(q, r);
--byte;
}
} else if (dat[x] == 7) {
ttputc(7);
} else {
bf[y++] = dat[x];
}
}
if (y) {
binsm(r, bf, y);
}
prm(r);
prm(q);
cfollow(b, NULL, b->eof->byte);
undomark();
}
}
int cstart(BW *bw, const char *name, char **s, void *obj, int *notify, int build, int out_only, const char *first_command, int vt)
{
#ifdef __MSDOS__
if (notify) {
*notify = 1;
}
varm(s);
msgnw(bw->parent, joe_gettext(_("Sorry, no sub-processes in DOS (yet)")));
return -1;
#else
MPX *m;
ptrdiff_t shell_w = -1, shell_h = -1;
if (notify) {
*notify = 1;
}
if (bw->b->pid) {
if (!vt) { /* Don't complain if shell already running.. makes F-key switching nicer */
/* Keep old behavior for dumb terminal */
msgnw(bw->parent, joe_gettext(_("Program already running in this window")));
}
varm(s);
return -1;
}
if (vt) {
BW *master = vtmaster(bw->parent->t, bw->b); /* In case of multiple BWs on one B, pick one to be the master */
if (!master) master = bw; /* Should never happen */
shell_w = master->w;
shell_h = master->h;
bw->b->vt = mkvt(bw->b, master->top, master->h, master->w);
bw->b->o.ansi = 1;
bw->b->o.syntax = load_syntax("ansi");
/* Turn on shell mode for each window */
ansiall(bw->b);
}
/* p_goto_eof(bw->cursor); */
if (!(m = mpxmk(&bw->b->out, name, s, cdata, bw->b, build ? cdone_parse : cdone, bw->b, out_only, shell_w, shell_h))) {
varm(s);
msgnw(bw->parent, joe_gettext(_("No ptys available")));
return -1;
} else {
bw->b->pid = m->pid;
if (first_command)
if (-1 == write(bw->b->out, first_command, strlen(first_command)))
msgnw(bw->parent, joe_gettext(_("Write failed when writing first command to shell")));
}
return 0;
#endif
}
static int dobknd(BW *bw, int vt)
{
char **a;
char *s;
const char *sh;
const char start_sh[] = ". " JOERC "shell.sh\n";
const char start_csh[] = "source " JOERC "shell.csh\n";
if (!modify_logic(bw,bw->b))
return -1;
sh=getenv("SHELL");
if (file_exists(sh) && zcmp(sh,"/bin/sh")) goto ok;
if (file_exists(sh="/bin/bash")) goto ok;
if (file_exists(sh="/usr/bin/bash")) goto ok;
if (file_exists(sh="/bin/sh")) goto ok;
msgnw(bw->parent, joe_gettext(_("\"SHELL\" environment variable not defined or exported")));
return -1;
ok:
a = vamk(3);
s = vsncpy(NULL, 0, sz(sh));
a = vaadd(a, s);
s = vsncpy(NULL, 0, sc("-i"));
a = vaadd(a, s);
return cstart(bw, sh, a, NULL, NULL, 0, 0, (vt ? (zstr(sh, "csh") ? start_csh : start_sh) : NULL), vt);
}
/* Start ANSI shell */
int uvtbknd(W *w, int k)
{
BW *bw;
WIND_BW(bw, w);
if (kmap_empty(kmap_getcontext("vtshell"))) {
msgnw(bw->parent, joe_gettext(_(":vtshell keymap is missing")));
return -1;
}
return dobknd(bw, 1);
}
/* Start dumb shell */
int ubknd(W *w, int k)
{
BW *bw;
WIND_BW(bw, w);
if (kmap_empty(shell_kbd->topmap)) {
msgnw(bw->parent, joe_gettext(_(":shell keymap is missing")));
return -1;
}
return dobknd(bw, 0);
}
/* Run a program in a window */
static int dorun(W *w, char *s, void *object, int *notify)
{
BW *bw;
char **a;
char *cmd;
WIND_BW(bw, w);
if (!modify_logic(bw,bw->b))
return -1;
a = vamk(10);
cmd = vsncpy(NULL, 0, sc("/bin/sh"));
a = vaadd(a, cmd);
cmd = vsncpy(NULL, 0, sc("-c"));
a = vaadd(a, cmd);
a = vaadd(a, s);
return cstart(bw, "/bin/sh", a, NULL, notify, 0, 0, NULL, 0);
}
B *runhist = NULL;
int urun(W *w, int k)
{
if (wmkpw(w, joe_gettext(_("Program to run: ")), &runhist, dorun, "Run", NULL, cmplt_command, NULL, NULL, locale_map, 1)) {
return 0;
} else {
return -1;
}
}
static int dobuild(W *w, char *s, void *object, int *notify)
{
BW *bw;
char **a = vamk(10);
char *cmd = vsncpy(NULL, 0, sc("/bin/sh"));
char *t = NULL;
WIND_BW(bw, w);
bw->b->o.ansi = 1;
bw->b->o.syntax = load_syntax("ansi");
/* Turn on shell mode for each window */
ansiall(bw->b);
a = vaadd(a, cmd);
cmd = vsncpy(NULL, 0, sc("-c"));
a = vaadd(a, cmd);
if (bw->b->current_dir && bw->b->current_dir[0]) {
// Change directory before we run
t = vsncpy(sv(t), sc("cd '"));
t = vsncpy(sv(t), sv(bw->b->current_dir));
t = vsncpy(sv(t), sc("' && "));
}
t = vsncpy(sv(t), sc("echo \"\nJOE: cd `pwd`\n\" && if ("));
t = vsncpy(sv(t), sv(s));
t = vsncpy(sv(t), sc("); then echo \"\nJOE: [32mPASS[0m (exit status = $?)\n\"; else echo \"\nJOE: [31mFAIL[0m (exit status = $?)\n\"; fi"));
vsrm(s);
s = t;
a = vaadd(a, s);
return cstart(bw, "/bin/sh", a, NULL, notify, 1, 0, NULL, 0);
}
B *buildhist = NULL;
int ubuild(W *w, int k)
{
BW *bw;
WIND_BW(bw, w);
if (buildhist) {
if ((bw=wmkpw(bw->parent, joe_gettext(_("Build command: ")), &buildhist, dobuild, "Run", NULL, cmplt_command, NULL, NULL, locale_map, 1))) {
uuparw(bw->parent, 0);
u_goto_eol(bw->parent, 0);
bw->cursor->xcol = piscol(bw->cursor);
return 0;
} else {
return -1;
}
} else {
if (wmkpw(bw->parent, joe_gettext(_("Enter build command (for example, 'make'): ")), &buildhist, dobuild, "Run", NULL, cmplt_command, NULL, NULL, locale_map, 1)) {
return 0;
} else {
return -1;
}
}
}
B *grephist = NULL;
int ugrep(W *w, int k)
{
BW *bw;
WIND_BW(bw, w);
/* Set parser to grep */
bw->b->parseone = parseone_grep;
if (grephist) {
if ((bw=wmkpw(bw->parent, joe_gettext(_("Grep command: ")), &grephist, dobuild, "Run", NULL, cmplt_command, NULL, NULL, locale_map, 1))) {
uuparw(bw->parent, 0);
u_goto_eol(bw->parent, 0);
bw->cursor->xcol = piscol(bw->cursor);
return 0;
} else {
return -1;
}
} else {
if (wmkpw(bw->parent, joe_gettext(_("Enter grep command (for example, 'grep -n foo *.c'): ")), &grephist, dobuild, "Run", NULL, cmplt_command, NULL, NULL, locale_map, 1)) {
return 0;
} else {
return -1;
}
}
}
/* Kill program */
static int pidabort(W *w, int c, void *object, int *notify)
{
BW *bw;
WIND_BW(bw, w);
if (notify) {
*notify = 1;
}
if (c != YES_CODE && !yncheck(yes_key, c)) {
return -1;
}
if (bw->b->pid) {
kill(bw->b->pid, 1);
return -1;
} else {
return -1;
}
}
int ukillpid(W *w, int k)
{
BW *bw;
WIND_BW(bw, w);
if (bw->b->pid) {
if (mkqw(bw->parent, sz(joe_gettext(_("Kill program (y,n,%{abort})?"))), pidabort, NULL, NULL, NULL)) {
return 0;
} else {
return -1;
}
} else {
return 0;
}
}
