MAKE_INTRINSIC_0("slsmg_refresh", smg_refresh, SLANG_VOID_TYPE),
MAKE_INTRINSIC_0("slsmg_reset_smg", smg_reset_smg, SLANG_VOID_TYPE),
MAKE_INTRINSIC_0("slsmg_init_smg", smg_init_smg, SLANG_VOID_TYPE),
MAKE_INTRINSIC_SI("slsmg_write_nstring", smg_write_nstring, SLANG_VOID_TYPE),
MAKE_INTRINSIC_6("slsmg_write_wrapped_string", smg_write_wrapped_string, SLANG_VOID_TYPE, S,I,I,I,I,I),
MAKE_INTRINSIC_0("slsmg_char_at", smg_char_at, SLANG_INT_TYPE),
MAKE_INTRINSIC_II("slsmg_set_screen_start", smg_set_screen_start, SLANG_VOID_TYPE),
MAKE_INTRINSIC_I("slsmg_draw_hline", smg_draw_hline, SLANG_VOID_TYPE),
MAKE_INTRINSIC_I("slsmg_draw_vline", smg_draw_vline, SLANG_VOID_TYPE),
MAKE_INTRINSIC_III("slsmg_draw_object", smg_draw_object, SLANG_VOID_TYPE),
MAKE_INTRINSIC_4("slsmg_draw_box", smg_draw_box, SLANG_VOID_TYPE,I,I,I,I),
MAKE_INTRINSIC_0("slsmg_get_column", smg_get_column, SLANG_INT_TYPE),
MAKE_INTRINSIC_0("slsmg_get_row", smg_get_row, SLANG_INT_TYPE),
MAKE_INTRINSIC_I("slsmg_forward", smg_forward, SLANG_VOID_TYPE),
MAKE_INTRINSIC_5("slsmg_set_color_in_region", smg_set_color_in_region, SLANG_VOID_TYPE, I, I, I, I, I),
MAKE_INTRINSIC_ISS("slsmg_define_color", smg_define_color, SLANG_VOID_TYPE),
#ifndef IBMPC_SYSTEM
MAKE_INTRINSIC_S("slsmg_write_to_status_line", smg_write_to_status_line, SLANG_VOID_TYPE),
#endif
SLANG_END_INTRIN_FUN_TABLE
};
static SLang_IConstant_Type Smg_Constants [] =
{
MAKE_ICONSTANT("SLSMG_NEWLINE_IGNORED", SLSMG_NEWLINE_IGNORED),
MAKE_ICONSTANT("SLSMG_NEWLINE_MOVES", SLSMG_NEWLINE_MOVES),
MAKE_ICONSTANT("SLSMG_NEWLINE_SCROLLS", SLSMG_NEWLINE_SCROLLS),
MAKE_ICONSTANT("SLSMG_NEWLINE_PRINTABLE", SLSMG_NEWLINE_PRINTABLE),
MAKE_INTRINSIC_0("_pgclos", _pgclos, V),
MAKE_INTRINSIC_1("_pgconb", _pgconb, V, D),
MAKE_INTRINSIC_3("_pgconl", _pgconl, V, S, I, I),
MAKE_INTRINSIC_0("_pgconf", _pgconf, V),
MAKE_INTRINSIC_0("_pgcons", _pgcons, V),
MAKE_INTRINSIC_1("_pgcont", _pgcont, V, I),
/* MAKE_INTRINSIC_0("_pgconx", _pgconx, V), */
MAKE_INTRINSIC_2("_pgctab", _pgctab, V, D, D),
MAKE_INTRINSIC_0("_pgcurs", _pgcurs, I),
MAKE_INTRINSIC_2("_pgdraw", _pgdraw, V, D, D),
MAKE_INTRINSIC_0("_pgebuf", _pgebuf, V),
MAKE_INTRINSIC_0("_pgend", _pgend, V),
MAKE_INTRINSIC_6("_pgenv", _pgenv, V, D,D,D,D,I,I),
MAKE_INTRINSIC_0("_pgeras", _pgeras, V),
MAKE_INTRINSIC_5("_pgerr1", _pgerr1, V, I, D, D, D, D),
MAKE_INTRINSIC_1("_pgerrb", _pgerrb, V, D),
MAKE_INTRINSIC_1("_pgerrx", _pgerrx, V, D),
MAKE_INTRINSIC_1("_pgerry", _pgerry, V, D),
MAKE_INTRINSIC_0("_pgetxt", _pgetxt, V),
MAKE_INTRINSIC_0("_pggray", _pggray, V),
MAKE_INTRINSIC_3("_pghi2d", _pghi2d, V, I, D, I),
MAKE_INTRINSIC_4("_pghist", _pghist, V, D, D, I, I),
MAKE_INTRINSIC_0("_pgiden", _pgiden, V),
MAKE_INTRINSIC_0("_pgimag", _pgimag, V),
MAKE_INTRINSIC_3("_pglab", _pglab, V, S, S, S),
MAKE_INTRINSIC_2("_pglcur", _pglcur, V, R, R),
MAKE_INTRINSIC_0("_pgldev", _pgldev, V),
/* MAKE_INTRINSIC_0("_pglen", _pglen) */