127 lines
2.1 KiB
C
127 lines
2.1 KiB
C
|
/* Read and output terminal commands */
|
||
|
|
|
||
|
|
#include "config.h"
|
||
|
|
#include "alloc.h"
|
||
|
|
#include "fail.h"
|
||
|
|
#include "io.h"
|
||
|
|
#include "mlvalues.h"
|
||
|
|
|
||
|
|
#ifdef HAS_TERMINFO
|
||
|
|
|
||
|
|
#undef getch
|
||
|
|
#include <curses.h>
|
||
|
|
#include <term.h>
|
||
|
|
|
||
|
|
value terminfo_setup(unit) /* ML */
|
||
|
|
value unit;
|
||
|
|
{
|
||
|
|
if (setupterm(NULL, 1, 1) != 1) failwith("Terminfo.setupterm");
|
||
|
|
return Val_unit;
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_getstr(capa) /* ML */
|
||
|
|
value capa;
|
||
|
|
{
|
||
|
|
char * res = (char *) tigetstr(String_val(capa));
|
||
|
|
if (res == (char *)(-1)) raise_not_found();
|
||
|
|
return copy_string(res);
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_getnum(capa) /* ML */
|
||
|
|
value capa;
|
||
|
|
{
|
||
|
|
int res = tigetnum(String_val(capa));
|
||
|
|
if (res == -2) raise_not_found();
|
||
|
|
return Val_int(res);
|
||
|
|
}
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
#ifdef HAS_TERMCAP
|
||
|
|
|
||
|
|
#define _BSD /* For DEC OSF1 */
|
||
|
|
#undef getch
|
||
|
|
#include <curses.h>
|
||
|
|
|
||
|
|
value terminfo_setup(unit)
|
||
|
|
value unit;
|
||
|
|
{
|
||
|
|
static buffer[1024];
|
||
|
|
if (tgetent(buffer, getenv("TERM")) != 1) failwith("Terminfo.setupterm");
|
||
|
|
return Val_unit;
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_getstr(capa)
|
||
|
|
value capa;
|
||
|
|
{
|
||
|
|
char buff[1024];
|
||
|
|
char * p = buff;
|
||
|
|
if (tgetstr(String_val(capa), &p) == 0) raise_not_found();
|
||
|
|
return copy_string(buff);
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_getnum(capa)
|
||
|
|
value capa;
|
||
|
|
{
|
||
|
|
int res = tgetnum(String_val(capa));
|
||
|
|
if (res == -1) raise_not_found();
|
||
|
|
return Val_int(res);
|
||
|
|
}
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
value terminfo_setup(unit)
|
||
|
|
value unit;
|
||
|
|
{
|
||
|
|
failwith("Terminfo.setupterm");
|
||
|
|
return Val_unit;
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_getstr(capa)
|
||
|
|
value capa;
|
||
|
|
{
|
||
|
|
raise_not_found();
|
||
|
|
return Val_unit;
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_getnum(capa)
|
||
|
|
value capa;
|
||
|
|
{
|
||
|
|
raise_not_found();
|
||
|
|
return Val_unit;
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined HAS_TERMINFO || defined HAS_TERMCAP
|
||
|
|
|
||
|
|
static struct channel * terminfo_putc_channel;
|
||
|
|
|
||
|
|
static int terminfo_putc(c)
|
||
|
|
int c;
|
||
|
|
{
|
||
|
|
putch(terminfo_putc_channel, c);
|
||
|
|
return c;
|
||
|
|
}
|
||
|
|
|
||
|
|
value terminfo_puts(chan, str, count) /* ML */
|
||
|
|
struct channel * chan;
|
||
|
|
value str, count;
|
||
|
|
{
|
||
|
|
terminfo_putc_channel = chan;
|
||
|
|
tputs(String_val(str), Int_val(count), terminfo_putc);
|
||
|
|
return Val_unit;
|
||
|
|
}
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
value terminfo_puts(chan, str, count)
|
||
|
|
struct channel * chan;
|
||
|
|
value str, count;
|
||
|
|
{
|
||
|
|
invalid_argument("Terminfo.puts");
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|