static int ui_alloc(struct ui_st **stp)
{
struct ui_st *st;
int err;
if (!stp)
return EINVAL;
st = mem_zalloc(sizeof(*st), ui_destructor);
if (!st)
return ENOMEM;
tmr_init(&st->tmr);
err = fd_listen(STDIN_FILENO, FD_READ, ui_fd_handler, st);
if (err)
goto out;
err = term_setup(st);
if (err) {
info("stdio: could not setup terminal: %m\n", err);
err = 0;
}
out:
if (err)
mem_deref(st);
else
*stp = st;
return err;
}
/* initialze terminal */
void term_init(void)
{
const char hide_cursor[] = "\x1b[?25l";
debug("term_init");
if(term_width(STDERR_FILENO) >= 0)
write(STDERR_FILENO, hide_cursor, sizeof(hide_cursor));
debug1("param.term_ctrl: %i", param.term_ctrl);
if(!param.term_ctrl)
return;
term_enable = 0;
if(tcgetattr(0,&old_tio) < 0)
{
fprintf(stderr,"Can't get terminal attributes\n");
return;
}
if(term_setup(&old_tio) < 0)
{
fprintf(stderr,"Can't set terminal attributes\n");
return;
}
term_enable = 1;
}
void term_sigcont(int sig)
{
term_enable = 0;
if (term_setup(&old_tio) < 0) {
fprintf(stderr,"Can't set terminal attributes\n");
return;
}
term_enable = 1;
}
/* initialze terminal */
void term_init(void)
{
debug("term_init");
term_enable = 0;
if(tcgetattr(0,&old_tio) < 0) {
fprintf(stderr,"Can't get terminal attributes\n");
return;
}
if(term_setup(&old_tio) < 0) {
fprintf(stderr,"Can't set terminal attributes\n");
return;
}
term_enable = 1;
}
TERM_REC *terminfo_core_init(FILE *in, FILE *out)
{
TERM_REC *old_term, *term;
old_term = current_term;
current_term = term = g_new0(TERM_REC, 1);
term->in = in;
term->out = out;
if (!term_setup(term)) {
g_free(term);
term = NULL;
}
current_term = old_term;
return term;
}
static void mainloop(void)
{
int step = srows / PAGESTEPS;
int hstep = scols / PAGESTEPS;
int c;
term_setup();
signal(SIGCONT, sigcont);
loadpage(num);
srow = prow;
scol = -scols / 2;
draw();
while ((c = readkey()) != -1) {
if (c == 'q')
break;
if (c == 'e' && reload())
break;
switch (c) { /* commands that do not require redrawing */
case 'o':
numdiff = num - getcount(num);
break;
case 'Z':
zoom_def = getcount(zoom);
break;
case 'i':
printinfo();
break;
case 27:
count = 0;
break;
case 'm':
setmark(readkey());
break;
case 'd':
sleep(getcount(1));
break;
default:
if (isdigit(c))
count = count * 10 + c - '0';
}
switch (c) { /* commands that require redrawing */
case CTRLKEY('f'):
case 'J':
if (!loadpage(num + getcount(1)))
srow = prow;
break;
case CTRLKEY('b'):
case 'K':
if (!loadpage(num - getcount(1)))
srow = prow;
break;
case 'G':
setmark('\'');
if (!loadpage(getcount(doc_pages(doc) - numdiff) + numdiff))
srow = prow;
break;
case 'O':
numdiff = num - getcount(num);
setmark('\'');
if (!loadpage(num + numdiff))
srow = prow;
break;
case 'z':
zoom_page(getcount(zoom_def));
break;
case 'w':
zoom_page(pcols ? zoom * scols / pcols : zoom);
break;
case 'W':
if (lmargin() < rmargin())
zoom_page(zoom * (scols - hstep) /
(rmargin() - lmargin()));
break;
case 'f':
zoom_page(prows ? zoom * srows / prows : zoom);
break;
case 'r':
rotate = getcount(0);
if (!loadpage(num))
srow = prow;
break;
case '`':
case '\'':
jmpmark(readkey(), c == '`');
break;
case 'j':
srow += step * getcount(1);
break;
case 'k':
srow -= step * getcount(1);
break;
case 'l':
scol += hstep * getcount(1);
break;
case 'h':
scol -= hstep * getcount(1);
break;
case 'H':
srow = prow;
break;
case 'L':
srow = prow + prows - srows;
break;
case 'M':
srow = prow + prows / 2 - srows / 2;
break;
case 'C':
scol = -scols / 2;
break;
case ' ':
case CTRLKEY('d'):
srow += srows * getcount(1) - step;
break;
case 127:
case CTRLKEY('u'):
srow -= srows * getcount(1) - step;
break;
case '[':
scol = pcol;
break;
case ']':
scol = pcol + pcols - scols;
break;
case '{':
scol = pcol + lmargin() - hstep / 2;
break;
case '}':
scol = pcol + rmargin() + hstep / 2 - scols;
break;
case CTRLKEY('l'):
break;
case 'I':
invert = !invert;
loadpage(num);
break;
default: /* no need to redraw */
continue;
}
srow = MAX(prow - srows + MARGIN, MIN(prow + prows - MARGIN, srow));
scol = MAX(pcol - scols + MARGIN, MIN(pcol + pcols - MARGIN, scol));
draw();
}
term_cleanup();
}
static void sigcont(int sig)
{
term_setup();
}
void io_init(bool term_ctrl)
{
static readonly unsigned char open_params_list[2] =
{
(unsigned char)iop_newversion,
(unsigned char)iop_eol
};
static readonly unsigned char null_params_list[2] =
{
(unsigned char)iop_nl,
(unsigned char)iop_eol
};
static readonly unsigned char no_params = (unsigned char)iop_eol;
static readonly unsigned char shr_params[3] =
{
(unsigned char)iop_shared,
(unsigned char)iop_readonly,
(unsigned char)iop_eol
};
int4 status;
mval val;
mstr tn;
MSTR_CONST (gtm_netout, "GTM_NETOUT");
MSTR_CONST (sys_net, "SYS$NET");
char buf1[MAX_TRANS_NAME_LEN]; /* buffer to hold translated name */
mval pars;
io_log_name *inp, *outp;
io_log_name *ln;
error_def(ERR_LOGTOOLONG);
io_init_name();
/* default logical names */
io_root_log_name = (io_log_name *)malloc(SIZEOF(*io_root_log_name));
memset(io_root_log_name, 0, SIZEOF(*io_root_log_name));
val.mvtype = MV_STR;
val.str.addr = "0";
val.str.len = 1;
ln = get_log_name(&val.str, INSERT);
assert(ln != 0);
val.str = gtm_principal;
status = TRANS_LOG_NAME(&val.str, &tn, buf1, SIZEOF(buf1), dont_sendmsg_on_log2long);
if (SS_NOLOGNAM == status)
dollar_principal = 0;
else if (SS_NORMAL == status)
dollar_principal = get_log_name(&tn, INSERT);
# ifdef UNIX
else if (SS_LOG2LONG == status)
rts_error(VARLSTCNT(5) ERR_LOGTOOLONG, 3, val.str.len, val.str.addr, SIZEOF(buf1) - 1);
# endif
else
rts_error(VARLSTCNT(1) status);
/* open devices */
val.str = sys_input;
inp = get_log_name(&val.str, INSERT);
pars.mvtype = MV_STR;
status = TRANS_LOG_NAME(&val.str, &tn, buf1, SIZEOF(buf1), dont_sendmsg_on_log2long);
if (SS_NOLOGNAM == status)
{
pars.str.len = SIZEOF(null_params_list);
pars.str.addr = (char *)null_params_list;
} else if (SS_NORMAL == status)
{
if (!io_is_rm(&val.str))
{
pars.str.len = SIZEOF(no_params);
pars.str.addr = (char *)&no_params;
} else if (io_is_sn(&val.str))
{
pars.str.len = SIZEOF(open_params_list);
pars.str.addr = (char *)open_params_list;
} else
{
pars.str.len = SIZEOF(shr_params);
pars.str.addr = (char *)shr_params;
}
}
# ifdef UNIX
else if (SS_LOG2LONG == status)
rts_error(VARLSTCNT(5) ERR_LOGTOOLONG, 3, val.str.len, val.str.addr, SIZEOF(buf1) - 1);
# endif
else
rts_error(VARLSTCNT(1) status);
ESTABLISH(io_init_ch);
(*op_open_ptr)(&val, &pars, 0, 0);
io_curr_device.in = io_std_device.in = inp->iod;
val.str = sys_output;
if ((SS_NORMAL == TRANS_LOG_NAME(>m_netout, &tn, buf1, SIZEOF(buf1), do_sendmsg_on_log2long))
&& (SS_NORMAL == TRANS_LOG_NAME(&sys_net, &tn, buf1, SIZEOF(buf1), do_sendmsg_on_log2long))
&& io_is_sn(&sys_net))
val.str = sys_net;
outp = get_log_name(&val.str, INSERT);
status = TRANS_LOG_NAME(&val.str, &tn, buf1, SIZEOF(buf1), dont_sendmsg_on_log2long);
if ((SS_NORMAL != status) && (SS_NOLOGNAM != status))
{
# ifdef UNIX
if (SS_LOG2LONG == status)
rts_error(VARLSTCNT(5) ERR_LOGTOOLONG, 3, val.str.len, val.str.addr, SIZEOF(buf1) - 1);
else
# endif
rts_error(VARLSTCNT(1) status);
}
if ((val.str.addr == sys_net.addr) && (pars.str.addr == (char *)open_params_list))
/* sys$net is the only input thing that uses open_params_list */
outp->iod = io_curr_device.in;
/* For terminals and mailboxes and sockets, SYS$INPUT and SYS$OUTPUT may point to
the same device. If input is one of those, then check translated
name for output against translated name for input;
in that case they should be joined by their logical names */
if (((tt == io_curr_device.in->type) || (mb == io_curr_device.in->type) ||
(gtmsocket == io_curr_device.in->type))
&& same_device_check(tn, buf1))
outp->iod = io_curr_device.in;
if (!outp->iod)
{
if (status == SS_NOLOGNAM)
{
pars.str.len = SIZEOF(null_params_list);
pars.str.addr = (char *)null_params_list;
} else if (status == SS_NORMAL)
{
pars.str.len = SIZEOF(open_params_list);
pars.str.addr = (char *)open_params_list;
}
(*op_open_ptr)(&val, &pars, 0, 0);
}
io_curr_device.out = io_std_device.out = outp->iod;
term_setup(term_ctrl);
io_std_device.out->pair = io_std_device;
io_std_device.in->pair = io_std_device;
io_std_device.out->perm = io_std_device.in->perm = TRUE;
for (ln = io_root_log_name; ln; ln = ln->next)
ln->iod = io_std_device.in;
if (dollar_principal)
dollar_principal->iod = io_std_device.in;
pars.str.len = SIZEOF(no_params);
pars.str.addr = (char *)&no_params;
val.str.len = io_curr_device.in->trans_name->len;
val.str.addr = io_std_device.in->trans_name->dollar_io;
op_use(&val, &pars);
REVERT;
return;
}
