/* gi_dispa.c: Dispatch layer for Glk API, version 0.7.5. Designed by Andrew Plotkin http://eblong.com/zarf/glk/ This file is copyright 1998-2017 by Andrew Plotkin. It is distributed under the MIT license; see the "LICENSE" file. */ /* This code should be linked into every Glk library, without change. Get the latest version from the URL above. */ #include "glk.h" #include "garglk.h" #include "gi_dispa.h" #ifndef NULL #define NULL 0 #endif #define NUMCLASSES \ (sizeof(class_table) / sizeof(gidispatch_intconst_t)) #define NUMINTCONSTANTS \ (sizeof(intconstant_table) / sizeof(gidispatch_intconst_t)) #define NUMFUNCTIONS \ (sizeof(function_table) / sizeof(gidispatch_function_t)) /* The constants in this table must be ordered alphabetically. */ static gidispatch_intconst_t class_table[] = { { "fileref", (2) }, /* "Qc" */ { "schannel", (3) }, /* "Qd" */ { "stream", (1) }, /* "Qb" */ { "window", (0) }, /* "Qa" */ }; /* The constants in this table must be ordered alphabetically. */ static gidispatch_intconst_t intconstant_table[] = { { "evtype_Arrange", (5) }, { "evtype_CharInput", (2) }, { "evtype_Hyperlink", (8) }, { "evtype_LineInput", (3) }, { "evtype_MouseInput", (4) }, { "evtype_None", (0) }, { "evtype_Redraw", (6) }, { "evtype_SoundNotify", (7) }, { "evtype_Timer", (1) }, { "evtype_VolumeNotify", (9) }, { "filemode_Read", (0x02) }, { "filemode_ReadWrite", (0x03) }, { "filemode_Write", (0x01) }, { "filemode_WriteAppend", (0x05) }, { "fileusage_BinaryMode", (0x000) }, { "fileusage_Data", (0x00) }, { "fileusage_InputRecord", (0x03) }, { "fileusage_SavedGame", (0x01) }, { "fileusage_TextMode", (0x100) }, { "fileusage_Transcript", (0x02) }, { "fileusage_TypeMask", (0x0f) }, { "gestalt_CharInput", (1) }, { "gestalt_CharOutput", (3) }, { "gestalt_CharOutput_ApproxPrint", (1) }, { "gestalt_CharOutput_CannotPrint", (0) }, { "gestalt_CharOutput_ExactPrint", (2) }, { "gestalt_DateTime", (20) }, { "gestalt_DrawImage", (7) }, { "gestalt_Graphics", (6) }, { "gestalt_GraphicsCharInput", (23) }, { "gestalt_GraphicsTransparency", (14) }, { "gestalt_HyperlinkInput", (12) }, { "gestalt_Hyperlinks", (11) }, { "gestalt_LineInput", (2) }, { "gestalt_LineInputEcho", (17) }, { "gestalt_LineTerminatorKey", (19) }, { "gestalt_LineTerminators", (18) }, { "gestalt_MouseInput", (4) }, { "gestalt_ResourceStream", (22) }, { "gestalt_Sound", (8) }, { "gestalt_Sound2", (21) }, { "gestalt_SoundMusic", (13) }, { "gestalt_SoundNotify", (10) }, { "gestalt_SoundVolume", (9) }, { "gestalt_Timer", (5) }, { "gestalt_Unicode", (15) }, { "gestalt_UnicodeNorm", (16) }, { "gestalt_Version", (0) }, { "imagealign_InlineCenter", (0x03) }, { "imagealign_InlineDown", (0x02) }, { "imagealign_MarginLeft", (0x04) }, { "imagealign_MarginRight", (0x05) }, { "imagealign_InlineUp", (0x01) }, { "keycode_Delete", (0xfffffff9) }, { "keycode_Down", (0xfffffffb) }, { "keycode_End", (0xfffffff3) }, { "keycode_Escape", (0xfffffff8) }, { "keycode_Func1", (0xffffffef) }, { "keycode_Func10", (0xffffffe6) }, { "keycode_Func11", (0xffffffe5) }, { "keycode_Func12", (0xffffffe4) }, { "keycode_Func2", (0xffffffee) }, { "keycode_Func3", (0xffffffed) }, { "keycode_Func4", (0xffffffec) }, { "keycode_Func5", (0xffffffeb) }, { "keycode_Func6", (0xffffffea) }, { "keycode_Func7", (0xffffffe9) }, { "keycode_Func8", (0xffffffe8) }, { "keycode_Func9", (0xffffffe7) }, { "keycode_Home", (0xfffffff4) }, { "keycode_Left", (0xfffffffe) }, { "keycode_MAXVAL", (28) }, { "keycode_PageDown", (0xfffffff5) }, { "keycode_PageUp", (0xfffffff6) }, { "keycode_Return", (0xfffffffa) }, { "keycode_Right", (0xfffffffd) }, { "keycode_Tab", (0xfffffff7) }, { "keycode_Unknown", (0xffffffff) }, { "keycode_Up", (0xfffffffc) }, { "seekmode_Current", (1) }, { "seekmode_End", (2) }, { "seekmode_Start", (0) }, { "style_Alert", (5) }, { "style_BlockQuote", (7) }, { "style_Emphasized", (1) }, { "style_Header", (3) }, { "style_Input", (8) }, { "style_NUMSTYLES", (11) }, { "style_Normal", (0) }, { "style_Note", (6) }, { "style_Preformatted", (2) }, { "style_Subheader", (4) }, { "style_User1", (9) }, { "style_User2", (10) }, { "stylehint_BackColor", (8) }, { "stylehint_Indentation", (0) }, { "stylehint_Justification", (2) }, { "stylehint_NUMHINTS", (10) }, { "stylehint_Oblique", (5) }, { "stylehint_ParaIndentation", (1) }, { "stylehint_Proportional", (6) }, { "stylehint_ReverseColor", (9) }, { "stylehint_Size", (3) }, { "stylehint_TextColor", (7) }, { "stylehint_Weight", (4) }, { "stylehint_just_Centered", (2) }, { "stylehint_just_LeftFlush", (0) }, { "stylehint_just_LeftRight", (1) }, { "stylehint_just_RightFlush", (3) }, { "winmethod_Above", (0x02) }, { "winmethod_Below", (0x03) }, { "winmethod_Border", (0x000) }, { "winmethod_BorderMask", (0x100) }, { "winmethod_DirMask", (0x0f) }, { "winmethod_DivisionMask", (0xf0) }, { "winmethod_Fixed", (0x10) }, { "winmethod_Left", (0x00) }, { "winmethod_NoBorder", (0x100) }, { "winmethod_Proportional", (0x20) }, { "winmethod_Right", (0x01) }, { "wintype_AllTypes", (0) }, { "wintype_Blank", (2) }, { "wintype_Graphics", (5) }, { "wintype_Pair", (1) }, { "wintype_TextBuffer", (3) }, { "wintype_TextGrid", (4) }, }; /* The functions in this table must be ordered by id. */ static gidispatch_function_t function_table[] = { { 0x0001, glk_exit, "exit" }, { 0x0002, glk_set_interrupt_handler, "set_interrupt_handler" }, { 0x0003, glk_tick, "tick" }, { 0x0004, glk_gestalt, "gestalt" }, { 0x0005, glk_gestalt_ext, "gestalt_ext" }, { 0x0020, glk_window_iterate, "window_iterate" }, { 0x0021, glk_window_get_rock, "window_get_rock" }, { 0x0022, glk_window_get_root, "window_get_root" }, { 0x0023, glk_window_open, "window_open" }, { 0x0024, glk_window_close, "window_close" }, { 0x0025, glk_window_get_size, "window_get_size" }, { 0x0026, glk_window_set_arrangement, "window_set_arrangement" }, { 0x0027, glk_window_get_arrangement, "window_get_arrangement" }, { 0x0028, glk_window_get_type, "window_get_type" }, { 0x0029, glk_window_get_parent, "window_get_parent" }, { 0x002A, glk_window_clear, "window_clear" }, { 0x002B, glk_window_move_cursor, "window_move_cursor" }, { 0x002C, glk_window_get_stream, "window_get_stream" }, { 0x002D, glk_window_set_echo_stream, "window_set_echo_stream" }, { 0x002E, glk_window_get_echo_stream, "window_get_echo_stream" }, { 0x002F, glk_set_window, "set_window" }, { 0x0030, glk_window_get_sibling, "window_get_sibling" }, { 0x0040, glk_stream_iterate, "stream_iterate" }, { 0x0041, glk_stream_get_rock, "stream_get_rock" }, { 0x0042, glk_stream_open_file, "stream_open_file" }, { 0x0043, glk_stream_open_memory, "stream_open_memory" }, { 0x0044, glk_stream_close, "stream_close" }, { 0x0045, glk_stream_set_position, "stream_set_position" }, { 0x0046, glk_stream_get_position, "stream_get_position" }, { 0x0047, glk_stream_set_current, "stream_set_current" }, { 0x0048, glk_stream_get_current, "stream_get_current" }, { 0x0060, glk_fileref_create_temp, "fileref_create_temp" }, { 0x0061, glk_fileref_create_by_name, "fileref_create_by_name" }, { 0x0062, glk_fileref_create_by_prompt, "fileref_create_by_prompt" }, { 0x0063, glk_fileref_destroy, "fileref_destroy" }, { 0x0064, glk_fileref_iterate, "fileref_iterate" }, { 0x0065, glk_fileref_get_rock, "fileref_get_rock" }, { 0x0066, glk_fileref_delete_file, "fileref_delete_file" }, { 0x0067, glk_fileref_does_file_exist, "fileref_does_file_exist" }, { 0x0068, glk_fileref_create_from_fileref, "fileref_create_from_fileref" }, { 0x0080, glk_put_char, "put_char" }, { 0x0081, glk_put_char_stream, "put_char_stream" }, { 0x0082, glk_put_string, "put_string" }, { 0x0083, glk_put_string_stream, "put_string_stream" }, { 0x0084, glk_put_buffer, "put_buffer" }, { 0x0085, glk_put_buffer_stream, "put_buffer_stream" }, { 0x0086, glk_set_style, "set_style" }, { 0x0087, glk_set_style_stream, "set_style_stream" }, { 0x0090, glk_get_char_stream, "get_char_stream" }, { 0x0091, glk_get_line_stream, "get_line_stream" }, { 0x0092, glk_get_buffer_stream, "get_buffer_stream" }, { 0x00A0, glk_char_to_lower, "char_to_lower" }, { 0x00A1, glk_char_to_upper, "char_to_upper" }, { 0x00B0, glk_stylehint_set, "stylehint_set" }, { 0x00B1, glk_stylehint_clear, "stylehint_clear" }, { 0x00B2, glk_style_distinguish, "style_distinguish" }, { 0x00B3, glk_style_measure, "style_measure" }, { 0x00C0, glk_select, "select" }, { 0x00C1, glk_select_poll, "select_poll" }, { 0x00D0, glk_request_line_event, "request_line_event" }, { 0x00D1, glk_cancel_line_event, "cancel_line_event" }, { 0x00D2, glk_request_char_event, "request_char_event" }, { 0x00D3, glk_cancel_char_event, "cancel_char_event" }, { 0x00D4, glk_request_mouse_event, "request_mouse_event" }, { 0x00D5, glk_cancel_mouse_event, "cancel_mouse_event" }, { 0x00D6, glk_request_timer_events, "request_timer_events" }, #ifdef GLK_MODULE_IMAGE { 0x00E0, glk_image_get_info, "image_get_info" }, { 0x00E1, glk_image_draw, "image_draw" }, { 0x00E2, glk_image_draw_scaled, "image_draw_scaled" }, { 0x00E8, glk_window_flow_break, "window_flow_break" }, { 0x00E9, glk_window_erase_rect, "window_erase_rect" }, { 0x00EA, glk_window_fill_rect, "window_fill_rect" }, { 0x00EB, glk_window_set_background_color, "window_set_background_color" }, #endif /* GLK_MODULE_IMAGE */ #ifdef GLK_MODULE_SOUND { 0x00F0, glk_schannel_iterate, "schannel_iterate" }, { 0x00F1, glk_schannel_get_rock, "schannel_get_rock" }, { 0x00F2, glk_schannel_create, "schannel_create" }, { 0x00F3, glk_schannel_destroy, "schannel_destroy" }, { 0x00F8, glk_schannel_play, "schannel_play" }, { 0x00F9, glk_schannel_play_ext, "schannel_play_ext" }, { 0x00FA, glk_schannel_stop, "schannel_stop" }, { 0x00FB, glk_schannel_set_volume, "schannel_set_volume" }, { 0x00FC, glk_sound_load_hint, "sound_load_hint" }, #ifdef GLK_MODULE_SOUND2 { 0x00F4, glk_schannel_create_ext, "schannel_create_ext" }, { 0x00F7, glk_schannel_play_multi, "schannel_play_multi" }, { 0x00FD, glk_schannel_set_volume_ext, "schannel_set_volume_ext" }, { 0x00FE, glk_schannel_pause, "schannel_pause" }, { 0x00FF, glk_schannel_unpause, "schannel_unpause" }, #endif /* GLK_MODULE_SOUND2 */ #endif /* GLK_MODULE_SOUND */ #ifdef GLK_MODULE_HYPERLINKS { 0x0100, glk_set_hyperlink, "set_hyperlink" }, { 0x0101, glk_set_hyperlink_stream, "set_hyperlink_stream" }, { 0x0102, glk_request_hyperlink_event, "request_hyperlink_event" }, { 0x0103, glk_cancel_hyperlink_event, "cancel_hyperlink_event" }, #endif /* GLK_MODULE_HYPERLINKS */ #ifdef GLK_MODULE_UNICODE { 0x0120, glk_buffer_to_lower_case_uni, "buffer_to_lower_case_uni" }, { 0x0121, glk_buffer_to_upper_case_uni, "buffer_to_upper_case_uni" }, { 0x0122, glk_buffer_to_title_case_uni, "buffer_to_title_case_uni" }, { 0x0128, glk_put_char_uni, "put_char_uni" }, { 0x0129, glk_put_string_uni, "put_string_uni" }, { 0x012A, glk_put_buffer_uni, "put_buffer_uni" }, { 0x012B, glk_put_char_stream_uni, "put_char_stream_uni" }, { 0x012C, glk_put_string_stream_uni, "put_string_stream_uni" }, { 0x012D, glk_put_buffer_stream_uni, "put_buffer_stream_uni" }, { 0x0130, glk_get_char_stream_uni, "get_char_stream_uni" }, { 0x0131, glk_get_buffer_stream_uni, "get_buffer_stream_uni" }, { 0x0132, glk_get_line_stream_uni, "get_line_stream_uni" }, { 0x0138, glk_stream_open_file_uni, "stream_open_file_uni" }, { 0x0139, glk_stream_open_memory_uni, "stream_open_memory_uni" }, { 0x0140, glk_request_char_event_uni, "request_char_event_uni" }, { 0x0141, glk_request_line_event_uni, "request_line_event_uni" }, #endif /* GLK_MODULE_UNICODE */ #ifdef GLK_MODULE_UNICODE_NORM { 0x0123, glk_buffer_canon_decompose_uni, "buffer_canon_decompose_uni" }, { 0x0124, glk_buffer_canon_normalize_uni, "buffer_canon_normalize_uni" }, #endif /* GLK_MODULE_UNICODE_NORM */ #ifdef GLK_MODULE_LINE_ECHO { 0x0150, glk_set_echo_line_event, "set_echo_line_event" }, #endif /* GLK_MODULE_LINE_ECHO */ #ifdef GLK_MODULE_LINE_TERMINATORS { 0x0151, glk_set_terminators_line_event, "set_terminators_line_event" }, #endif /* GLK_MODULE_LINE_TERMINATORS */ #ifdef GLK_MODULE_DATETIME { 0x0160, glk_current_time, "current_time" }, { 0x0161, glk_current_simple_time, "current_simple_time" }, { 0x0168, glk_time_to_date_utc, "time_to_date_utc" }, { 0x0169, glk_time_to_date_local, "time_to_date_local" }, { 0x016A, glk_simple_time_to_date_utc, "simple_time_to_date_utc" }, { 0x016B, glk_simple_time_to_date_local, "simple_time_to_date_local" }, { 0x016C, glk_date_to_time_utc, "date_to_time_utc" }, { 0x016D, glk_date_to_time_local, "date_to_time_local" }, { 0x016E, glk_date_to_simple_time_utc, "date_to_simple_time_utc" }, { 0x016F, glk_date_to_simple_time_local, "date_to_simple_time_local" }, #endif /* GLK_MODULE_DATETIME */ #ifdef GLK_MODULE_RESOURCE_STREAM { 0x0049, glk_stream_open_resource, "stream_open_resource" }, { 0x013A, glk_stream_open_resource_uni, "stream_open_resource_uni" }, #endif /* GLK_MODULE_RESOURCE_STREAM */ #ifdef GLK_MODULE_GARGLKTEXT { 0x1100, garglk_set_zcolors, "garglk_set_zcolors" }, { 0x1101, garglk_set_zcolors_stream, "garglk_set_zcolors_stream" }, { 0x1102, garglk_set_reversevideo, "garglk_set_reversevideo" }, { 0x1103, garglk_set_reversevideo_stream, "garglk_set_reversevideo_stream" }, #endif /* GLK_MODULE_GARGLKTEXT */ }; glui32 gidispatch_count_classes() { return NUMCLASSES; } gidispatch_intconst_t *gidispatch_get_class(glui32 index) { if (index >= NUMCLASSES) return NULL; return &(class_table[index]); } glui32 gidispatch_count_intconst() { return NUMINTCONSTANTS; } gidispatch_intconst_t *gidispatch_get_intconst(glui32 index) { if (index >= NUMINTCONSTANTS) return NULL; return &(intconstant_table[index]); } glui32 gidispatch_count_functions() { return NUMFUNCTIONS; } gidispatch_function_t *gidispatch_get_function(glui32 index) { if (index >= NUMFUNCTIONS) return NULL; return &(function_table[index]); } gidispatch_function_t *gidispatch_get_function_by_id(glui32 id) { int top, bot, val; gidispatch_function_t *func; bot = 0; top = NUMFUNCTIONS; while (1) { val = (top+bot) / 2; func = &(function_table[val]); if (func->id == id) return func; if (bot >= top-1) break; if (func->id < id) { bot = val+1; } else { top = val; } } return NULL; } char *gidispatch_prototype(glui32 funcnum) { switch (funcnum) { case 0x0001: /* exit */ return "0:"; case 0x0002: /* set_interrupt_handler */ /* cannot be invoked through dispatch layer */ return NULL; case 0x0003: /* tick */ return "0:"; case 0x0004: /* gestalt */ return "3IuIu:Iu"; case 0x0005: /* gestalt_ext */ return "4IuIu&#Iu:Iu"; case 0x0020: /* window_iterate */ return "3Qa+#Cn:"; case 0x0085: /* put_buffer_stream */ return "2Qb>+#Cn:"; case 0x0086: /* set_style */ return "1Iu:"; case 0x0087: /* set_style_stream */ return "2QbIu:"; case 0x0090: /* get_char_stream */ return "2Qb:Is"; case 0x0091: /* get_line_stream */ return "3Qb<+#Cn:Iu"; case 0x0092: /* get_buffer_stream */ return "3Qb<+#Cn:Iu"; case 0x00A0: /* char_to_lower */ return "2Cu:Cu"; case 0x00A1: /* char_to_upper */ return "2Cu:Cu"; case 0x00B0: /* stylehint_set */ return "4IuIuIuIs:"; case 0x00B1: /* stylehint_clear */ return "3IuIuIu:"; case 0x00B2: /* style_distinguish */ return "4QaIuIu:Iu"; case 0x00B3: /* style_measure */ return "5QaIuIu+#Qd>+#IuIu:Iu"; case 0x00FD: /* schannel_set_volume_ext */ return "4QdIuIuIu:"; case 0x00FE: /* schannel_pause */ return "1Qd:"; case 0x00FF: /* schannel_unpause */ return "1Qd:"; #endif /* GLK_MODULE_SOUND2 */ #endif /* GLK_MODULE_SOUND */ #ifdef GLK_MODULE_HYPERLINKS case 0x0100: /* set_hyperlink */ return "1Iu:"; case 0x0101: /* set_hyperlink_stream */ return "2QbIu:"; case 0x0102: /* request_hyperlink_event */ return "1Qa:"; case 0x0103: /* cancel_hyperlink_event */ return "1Qa:"; #endif /* GLK_MODULE_HYPERLINKS */ #ifdef GLK_MODULE_UNICODE case 0x0120: /* buffer_to_lower_case_uni */ return "3&+#IuIu:Iu"; case 0x0121: /* buffer_to_upper_case_uni */ return "3&+#IuIu:Iu"; case 0x0122: /* buffer_to_title_case_uni */ return "4&+#IuIuIu:Iu"; case 0x0128: /* put_char_uni */ return "1Iu:"; case 0x0129: /* put_string_uni */ return "1U:"; case 0x012A: /* put_buffer_uni */ return "1>+#Iu:"; case 0x012B: /* put_char_stream_uni */ return "2QbIu:"; case 0x012C: /* put_string_stream_uni */ return "2QbU:"; case 0x012D: /* put_buffer_stream_uni */ return "2Qb>+#Iu:"; case 0x0130: /* get_char_stream_uni */ return "2Qb:Is"; case 0x0131: /* get_buffer_stream_uni */ return "3Qb<+#Iu:Iu"; case 0x0132: /* get_line_stream_uni */ return "3Qb<+#Iu:Iu"; case 0x0138: /* stream_open_file_uni */ return "4QcIuIu:Qb"; case 0x0139: /* stream_open_memory_uni */ return "4&#!IuIuIu:Qb"; case 0x0140: /* request_char_event_uni */ return "1Qa:"; case 0x0141: /* request_line_event_uni */ return "3Qa&+#!IuIu:"; #endif /* GLK_MODULE_UNICODE */ #ifdef GLK_MODULE_UNICODE_NORM case 0x0123: /* buffer_canon_decompose_uni */ return "3&+#IuIu:Iu"; case 0x0124: /* buffer_canon_normalize_uni */ return "3&+#IuIu:Iu"; #endif /* GLK_MODULE_UNICODE_NORM */ #ifdef GLK_MODULE_LINE_ECHO case 0x0150: /* set_echo_line_event */ return "2QaIu:"; #endif /* GLK_MODULE_LINE_ECHO */ #ifdef GLK_MODULE_LINE_TERMINATORS case 0x0151: /* set_terminators_line_event */ return "2Qa>#Iu:"; #endif /* GLK_MODULE_LINE_TERMINATORS */ #ifdef GLK_MODULE_DATETIME case 0x0160: /* current_time */ return "1<+[3IsIuIs]:"; case 0x0161: /* current_simple_time */ return "2Iu:Is"; case 0x0168: /* time_to_date_utc */ return "2>+[3IsIuIs]<+[8IsIsIsIsIsIsIsIs]:"; case 0x0169: /* time_to_date_local */ return "2>+[3IsIuIs]<+[8IsIsIsIsIsIsIsIs]:"; case 0x016A: /* simple_time_to_date_utc */ return "3IsIu<+[8IsIsIsIsIsIsIsIs]:"; case 0x016B: /* simple_time_to_date_local */ return "3IsIu<+[8IsIsIsIsIsIsIsIs]:"; case 0x016C: /* date_to_time_utc */ return "2>+[8IsIsIsIsIsIsIsIs]<+[3IsIuIs]:"; case 0x016D: /* date_to_time_local */ return "2>+[8IsIsIsIsIsIsIsIs]<+[3IsIuIs]:"; case 0x016E: /* date_to_simple_time_utc */ return "3>+[8IsIsIsIsIsIsIsIs]Iu:Is"; case 0x016F: /* date_to_simple_time_local */ return "3>+[8IsIsIsIsIsIsIsIs]Iu:Is"; #endif /* GLK_MODULE_DATETIME */ #ifdef GLK_MODULE_RESOURCE_STREAM case 0x0049: /* stream_open_resource */ return "3IuIu:Qb"; case 0x013A: /* stream_open_resource_uni */ return "3IuIu:Qb"; #endif /* GLK_MODULE_RESOURCE_STREAM */ #ifdef GLK_MODULE_GARGLKTEXT case 0x1100: /* garglk_set_zcolors */ return "2IuIu:"; case 0x1101: /* garglk_set_zcolors_stream */ return "3QbIuIu:"; case 0x1102: /* garglk_set_reversevideo */ return "1Iu:"; case 0x1103: /* garglk_set_reversevideo_stream */ return "2QbIu:"; #endif /* GLK_MODULE_GARGLKTEXT */ #ifdef GLK_EXTEND_PROTOTYPE GLK_EXTEND_PROTOTYPE #endif /* GLK_EXTEND_PROTOTYPE */ default: return rustglk_ext_prototype(funcnum); } } void gidispatch_call(glui32 funcnum, glui32 numargs, gluniversal_t *arglist) { switch (funcnum) { case 0x0001: /* exit */ glk_exit(); break; case 0x0002: /* set_interrupt_handler */ /* cannot be invoked through dispatch layer */ break; case 0x0003: /* tick */ glk_tick(); break; case 0x0004: /* gestalt */ arglist[3].uint = glk_gestalt(arglist[0].uint, arglist[1].uint); break; case 0x0005: /* gestalt_ext */ if (arglist[2].ptrflag) { arglist[6].uint = glk_gestalt_ext(arglist[0].uint, arglist[1].uint, arglist[3].array, arglist[4].uint); } else { arglist[4].uint = glk_gestalt_ext(arglist[0].uint, arglist[1].uint, NULL, 0); } break; case 0x0020: /* window_iterate */ if (arglist[1].ptrflag) arglist[4].opaqueref = glk_window_iterate(arglist[0].opaqueref, &arglist[2].uint); else arglist[3].opaqueref = glk_window_iterate(arglist[0].opaqueref, NULL); break; case 0x0021: /* window_get_rock */ arglist[2].uint = glk_window_get_rock(arglist[0].opaqueref); break; case 0x0022: /* window_get_root */ arglist[1].opaqueref = glk_window_get_root(); break; case 0x0023: /* window_open */ arglist[6].opaqueref = glk_window_open(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint, arglist[3].uint, arglist[4].uint); break; case 0x0024: /* window_close */ if (arglist[1].ptrflag) { stream_result_t dat; glk_window_close(arglist[0].opaqueref, &dat); arglist[2].uint = dat.readcount; arglist[3].uint = dat.writecount; } else { glk_window_close(arglist[0].opaqueref, NULL); } break; case 0x0025: /* window_get_size */ { int ix = 1; glui32 *ptr1, *ptr2; if (!arglist[ix].ptrflag) { ptr1 = NULL; } else { ix++; ptr1 = &(arglist[ix].uint); } ix++; if (!arglist[ix].ptrflag) { ptr2 = NULL; } else { ix++; ptr2 = &(arglist[ix].uint); } ix++; glk_window_get_size(arglist[0].opaqueref, ptr1, ptr2); } break; case 0x0026: /* window_set_arrangement */ glk_window_set_arrangement(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint, arglist[3].opaqueref); break; case 0x0027: /* window_get_arrangement */ { int ix = 1; glui32 *ptr1, *ptr2; winid_t *ptr3; if (!arglist[ix].ptrflag) { ptr1 = NULL; } else { ix++; ptr1 = &(arglist[ix].uint); } ix++; if (!arglist[ix].ptrflag) { ptr2 = NULL; } else { ix++; ptr2 = &(arglist[ix].uint); } ix++; if (!arglist[ix].ptrflag) { ptr3 = NULL; } else { ix++; ptr3 = (winid_t *)(&(arglist[ix].opaqueref)); } ix++; glk_window_get_arrangement(arglist[0].opaqueref, ptr1, ptr2, ptr3); } break; case 0x0028: /* window_get_type */ arglist[2].uint = glk_window_get_type(arglist[0].opaqueref); break; case 0x0029: /* window_get_parent */ arglist[2].opaqueref = glk_window_get_parent(arglist[0].opaqueref); break; case 0x002A: /* window_clear */ glk_window_clear(arglist[0].opaqueref); break; case 0x002B: /* window_move_cursor */ glk_window_move_cursor(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint); break; case 0x002C: /* window_get_stream */ arglist[2].opaqueref = glk_window_get_stream(arglist[0].opaqueref); break; case 0x002D: /* window_set_echo_stream */ glk_window_set_echo_stream(arglist[0].opaqueref, arglist[1].opaqueref); break; case 0x002E: /* window_get_echo_stream */ arglist[2].opaqueref = glk_window_get_echo_stream(arglist[0].opaqueref); break; case 0x002F: /* set_window */ glk_set_window(arglist[0].opaqueref); break; case 0x0030: /* window_get_sibling */ arglist[2].opaqueref = glk_window_get_sibling(arglist[0].opaqueref); break; case 0x0040: /* stream_iterate */ if (arglist[1].ptrflag) arglist[4].opaqueref = glk_stream_iterate(arglist[0].opaqueref, &arglist[2].uint); else arglist[3].opaqueref = glk_stream_iterate(arglist[0].opaqueref, NULL); break; case 0x0041: /* stream_get_rock */ arglist[2].uint = glk_stream_get_rock(arglist[0].opaqueref); break; case 0x0042: /* stream_open_file */ arglist[4].opaqueref = glk_stream_open_file(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint); break; case 0x0043: /* stream_open_memory */ if (arglist[0].ptrflag) arglist[6].opaqueref = glk_stream_open_memory(arglist[1].array, arglist[2].uint, arglist[3].uint, arglist[4].uint); else arglist[4].opaqueref = glk_stream_open_memory(NULL, 0, arglist[1].uint, arglist[2].uint); break; case 0x0044: /* stream_close */ if (arglist[1].ptrflag) { stream_result_t dat; glk_stream_close(arglist[0].opaqueref, &dat); arglist[2].uint = dat.readcount; arglist[3].uint = dat.writecount; } else { glk_stream_close(arglist[0].opaqueref, NULL); } break; case 0x0045: /* stream_set_position */ glk_stream_set_position(arglist[0].opaqueref, arglist[1].sint, arglist[2].uint); break; case 0x0046: /* stream_get_position */ arglist[2].uint = glk_stream_get_position(arglist[0].opaqueref); break; case 0x0047: /* stream_set_current */ glk_stream_set_current(arglist[0].opaqueref); break; case 0x0048: /* stream_get_current */ arglist[1].opaqueref = glk_stream_get_current(); break; case 0x0060: /* fileref_create_temp */ arglist[3].opaqueref = glk_fileref_create_temp(arglist[0].uint, arglist[1].uint); break; case 0x0061: /* fileref_create_by_name */ arglist[4].opaqueref = glk_fileref_create_by_name(arglist[0].uint, arglist[1].charstr, arglist[2].uint); break; case 0x0062: /* fileref_create_by_prompt */ arglist[4].opaqueref = glk_fileref_create_by_prompt(arglist[0].uint, arglist[1].uint, arglist[2].uint); break; case 0x0063: /* fileref_destroy */ glk_fileref_destroy(arglist[0].opaqueref); break; case 0x0064: /* fileref_iterate */ if (arglist[1].ptrflag) arglist[4].opaqueref = glk_fileref_iterate(arglist[0].opaqueref, &arglist[2].uint); else arglist[3].opaqueref = glk_fileref_iterate(arglist[0].opaqueref, NULL); break; case 0x0065: /* fileref_get_rock */ arglist[2].uint = glk_fileref_get_rock(arglist[0].opaqueref); break; case 0x0066: /* fileref_delete_file */ glk_fileref_delete_file(arglist[0].opaqueref); break; case 0x0067: /* fileref_does_file_exist */ arglist[2].uint = glk_fileref_does_file_exist(arglist[0].opaqueref); break; case 0x0068: /* fileref_create_from_fileref */ arglist[4].opaqueref = glk_fileref_create_from_fileref(arglist[0].uint, arglist[1].opaqueref, arglist[2].uint); break; case 0x0080: /* put_char */ glk_put_char(arglist[0].uch); break; case 0x0081: /* put_char_stream */ glk_put_char_stream(arglist[0].opaqueref, arglist[1].uch); break; case 0x0082: /* put_string */ glk_put_string(arglist[0].charstr); break; case 0x0083: /* put_string_stream */ glk_put_string_stream(arglist[0].opaqueref, arglist[1].charstr); break; case 0x0084: /* put_buffer */ if (arglist[0].ptrflag) glk_put_buffer(arglist[1].array, arglist[2].uint); else glk_put_buffer(NULL, 0); break; case 0x0085: /* put_buffer_stream */ if (arglist[1].ptrflag) glk_put_buffer_stream(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else glk_put_buffer_stream(arglist[0].opaqueref, NULL, 0); break; case 0x0086: /* set_style */ glk_set_style(arglist[0].uint); break; case 0x0087: /* set_style_stream */ glk_set_style_stream(arglist[0].opaqueref, arglist[1].uint); break; case 0x0090: /* get_char_stream */ arglist[2].sint = glk_get_char_stream(arglist[0].opaqueref); break; case 0x0091: /* get_line_stream */ if (arglist[1].ptrflag) arglist[5].uint = glk_get_line_stream(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else arglist[3].uint = glk_get_line_stream(arglist[0].opaqueref, NULL, 0); break; case 0x0092: /* get_buffer_stream */ if (arglist[1].ptrflag) arglist[5].uint = glk_get_buffer_stream(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else arglist[3].uint = glk_get_buffer_stream(arglist[0].opaqueref, NULL, 0); break; case 0x00A0: /* char_to_lower */ arglist[2].uch = glk_char_to_lower(arglist[0].uch); break; case 0x00A1: /* char_to_upper */ arglist[2].uch = glk_char_to_upper(arglist[0].uch); break; case 0x00B0: /* stylehint_set */ glk_stylehint_set(arglist[0].uint, arglist[1].uint, arglist[2].uint, arglist[3].sint); break; case 0x00B1: /* stylehint_clear */ glk_stylehint_clear(arglist[0].uint, arglist[1].uint, arglist[2].uint); break; case 0x00B2: /* style_distinguish */ arglist[4].uint = glk_style_distinguish(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint); break; case 0x00B3: /* style_measure */ if (arglist[3].ptrflag) arglist[6].uint = glk_style_measure(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint, &(arglist[4].uint)); else arglist[5].uint = glk_style_measure(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint, NULL); break; case 0x00C0: /* select */ if (arglist[0].ptrflag) { event_t dat; glk_select(&dat); arglist[1].uint = dat.type; arglist[2].opaqueref = dat.win; arglist[3].uint = dat.val1; arglist[4].uint = dat.val2; } else { glk_select(NULL); } break; case 0x00C1: /* select_poll */ if (arglist[0].ptrflag) { event_t dat; glk_select_poll(&dat); arglist[1].uint = dat.type; arglist[2].opaqueref = dat.win; arglist[3].uint = dat.val1; arglist[4].uint = dat.val2; } else { glk_select_poll(NULL); } break; case 0x00D0: /* request_line_event */ if (arglist[1].ptrflag) glk_request_line_event(arglist[0].opaqueref, arglist[2].array, arglist[3].uint, arglist[4].uint); else glk_request_line_event(arglist[0].opaqueref, NULL, 0, arglist[2].uint); break; case 0x00D1: /* cancel_line_event */ if (arglist[1].ptrflag) { event_t dat; glk_cancel_line_event(arglist[0].opaqueref, &dat); arglist[2].uint = dat.type; arglist[3].opaqueref = dat.win; arglist[4].uint = dat.val1; arglist[5].uint = dat.val2; } else { glk_cancel_line_event(arglist[0].opaqueref, NULL); } break; case 0x00D2: /* request_char_event */ glk_request_char_event(arglist[0].opaqueref); break; case 0x00D3: /* cancel_char_event */ glk_cancel_char_event(arglist[0].opaqueref); break; case 0x00D4: /* request_mouse_event */ glk_request_mouse_event(arglist[0].opaqueref); break; case 0x00D5: /* cancel_mouse_event */ glk_cancel_mouse_event(arglist[0].opaqueref); break; case 0x00D6: /* request_timer_events */ glk_request_timer_events(arglist[0].uint); break; #ifdef GLK_MODULE_IMAGE case 0x00E0: /* image_get_info */ { int ix = 1; glui32 *ptr1, *ptr2; if (!arglist[ix].ptrflag) { ptr1 = NULL; } else { ix++; ptr1 = &(arglist[ix].uint); } ix++; if (!arglist[ix].ptrflag) { ptr2 = NULL; } else { ix++; ptr2 = &(arglist[ix].uint); } ix++; ix++; arglist[ix].uint = glk_image_get_info(arglist[0].uint, ptr1, ptr2); } break; case 0x00E1: /* image_draw */ arglist[5].uint = glk_image_draw(arglist[0].opaqueref, arglist[1].uint, arglist[2].sint, arglist[3].sint); break; case 0x00E2: /* image_draw_scaled */ arglist[7].uint = glk_image_draw_scaled(arglist[0].opaqueref, arglist[1].uint, arglist[2].sint, arglist[3].sint, arglist[4].uint, arglist[5].uint); break; case 0x00E8: /* window_flow_break */ glk_window_flow_break(arglist[0].opaqueref); break; case 0x00E9: /* window_erase_rect */ glk_window_erase_rect(arglist[0].opaqueref, arglist[1].sint, arglist[2].sint, arglist[3].uint, arglist[4].uint); break; case 0x00EA: /* window_fill_rect */ glk_window_fill_rect(arglist[0].opaqueref, arglist[1].uint, arglist[2].sint, arglist[3].sint, arglist[4].uint, arglist[5].uint); break; case 0x00EB: /* window_set_background_color */ glk_window_set_background_color(arglist[0].opaqueref, arglist[1].uint); break; #endif /* GLK_MODULE_IMAGE */ #ifdef GLK_MODULE_SOUND case 0x00F0: /* schannel_iterate */ if (arglist[1].ptrflag) arglist[4].opaqueref = glk_schannel_iterate(arglist[0].opaqueref, &arglist[2].uint); else arglist[3].opaqueref = glk_schannel_iterate(arglist[0].opaqueref, NULL); break; case 0x00F1: /* schannel_get_rock */ arglist[2].uint = glk_schannel_get_rock(arglist[0].opaqueref); break; case 0x00F2: /* schannel_create */ arglist[2].opaqueref = glk_schannel_create(arglist[0].uint); break; case 0x00F3: /* schannel_destroy */ glk_schannel_destroy(arglist[0].opaqueref); break; case 0x00F8: /* schannel_play */ arglist[3].uint = glk_schannel_play(arglist[0].opaqueref, arglist[1].uint); break; case 0x00F9: /* schannel_play_ext */ arglist[5].uint = glk_schannel_play_ext(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint, arglist[3].uint); break; case 0x00FA: /* schannel_stop */ glk_schannel_stop(arglist[0].opaqueref); break; case 0x00FB: /* schannel_set_volume */ glk_schannel_set_volume(arglist[0].opaqueref, arglist[1].uint); break; case 0x00FC: /* sound_load_hint */ glk_sound_load_hint(arglist[0].uint, arglist[1].uint); break; #ifdef GLK_MODULE_SOUND2 case 0x00F4: /* schannel_create_ext */ arglist[3].opaqueref = glk_schannel_create_ext(arglist[0].uint, arglist[1].uint); break; case 0x00F7: /* schannel_play_multi */ if (arglist[0].ptrflag && arglist[3].ptrflag) arglist[8].uint = glk_schannel_play_multi(arglist[1].array, arglist[2].uint, arglist[4].array, arglist[5].uint, arglist[6].uint); else if (arglist[0].ptrflag) arglist[6].uint = glk_schannel_play_multi(arglist[1].array, arglist[2].uint, NULL, 0, arglist[4].uint); else if (arglist[1].ptrflag) arglist[6].uint = glk_schannel_play_multi(NULL, 0, arglist[2].array, arglist[3].uint, arglist[4].uint); else arglist[4].uint = glk_schannel_play_multi(NULL, 0, NULL, 0, arglist[2].uint); break; case 0x00FD: /* schannel_set_volume_ext */ glk_schannel_set_volume_ext(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint, arglist[3].uint); break; case 0x00FE: /* schannel_pause */ glk_schannel_pause(arglist[0].opaqueref); break; case 0x00FF: /* schannel_unpause */ glk_schannel_unpause(arglist[0].opaqueref); break; #endif /* GLK_MODULE_SOUND2 */ #endif /* GLK_MODULE_SOUND */ #ifdef GLK_MODULE_HYPERLINKS case 0x0100: /* set_hyperlink */ glk_set_hyperlink(arglist[0].uint); break; case 0x0101: /* set_hyperlink_stream */ glk_set_hyperlink_stream(arglist[0].opaqueref, arglist[1].uint); break; case 0x0102: /* request_hyperlink_event */ glk_request_hyperlink_event(arglist[0].opaqueref); break; case 0x0103: /* cancel_hyperlink_event */ glk_cancel_hyperlink_event(arglist[0].opaqueref); break; #endif /* GLK_MODULE_HYPERLINKS */ #ifdef GLK_MODULE_UNICODE case 0x0120: /* buffer_to_lower_case_uni */ if (arglist[0].ptrflag) arglist[5].uint = glk_buffer_to_lower_case_uni(arglist[1].array, arglist[2].uint, arglist[3].uint); else arglist[3].uint = glk_buffer_to_lower_case_uni(NULL, 0, arglist[1].uint); break; case 0x0121: /* buffer_to_upper_case_uni */ if (arglist[0].ptrflag) arglist[5].uint = glk_buffer_to_upper_case_uni(arglist[1].array, arglist[2].uint, arglist[3].uint); else arglist[3].uint = glk_buffer_to_upper_case_uni(NULL, 0, arglist[1].uint); break; case 0x0122: /* buffer_to_title_case_uni */ if (arglist[0].ptrflag) arglist[6].uint = glk_buffer_to_title_case_uni(arglist[1].array, arglist[2].uint, arglist[3].uint, arglist[4].uint); else arglist[4].uint = glk_buffer_to_title_case_uni(NULL, 0, arglist[1].uint, arglist[2].uint); break; case 0x0128: /* put_char_uni */ glk_put_char_uni(arglist[0].uint); break; case 0x0129: /* put_string_uni */ glk_put_string_uni(arglist[0].unicharstr); break; case 0x012A: /* put_buffer_uni */ if (arglist[0].ptrflag) glk_put_buffer_uni(arglist[1].array, arglist[2].uint); else glk_put_buffer_uni(NULL, 0); break; case 0x012B: /* put_char_stream_uni */ glk_put_char_stream_uni(arglist[0].opaqueref, arglist[1].uint); break; case 0x012C: /* put_string_stream_uni */ glk_put_string_stream_uni(arglist[0].opaqueref, arglist[1].unicharstr); break; case 0x012D: /* put_buffer_stream_uni */ if (arglist[1].ptrflag) glk_put_buffer_stream_uni(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else glk_put_buffer_stream_uni(arglist[0].opaqueref, NULL, 0); break; case 0x0130: /* get_char_stream_uni */ arglist[2].sint = glk_get_char_stream_uni(arglist[0].opaqueref); break; case 0x0131: /* get_buffer_stream_uni */ if (arglist[1].ptrflag) arglist[5].uint = glk_get_buffer_stream_uni(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else arglist[3].uint = glk_get_buffer_stream_uni(arglist[0].opaqueref, NULL, 0); break; case 0x0132: /* get_line_stream_uni */ if (arglist[1].ptrflag) arglist[5].uint = glk_get_line_stream_uni(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else arglist[3].uint = glk_get_line_stream_uni(arglist[0].opaqueref, NULL, 0); break; case 0x0138: /* stream_open_file_uni */ arglist[4].opaqueref = glk_stream_open_file_uni(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint); break; case 0x0139: /* stream_open_memory_uni */ if (arglist[0].ptrflag) arglist[6].opaqueref = glk_stream_open_memory_uni(arglist[1].array, arglist[2].uint, arglist[3].uint, arglist[4].uint); else arglist[4].opaqueref = glk_stream_open_memory_uni(NULL, 0, arglist[1].uint, arglist[2].uint); break; case 0x0140: /* request_char_event_uni */ glk_request_char_event_uni(arglist[0].opaqueref); break; case 0x0141: /* request_line_event_uni */ if (arglist[1].ptrflag) glk_request_line_event_uni(arglist[0].opaqueref, arglist[2].array, arglist[3].uint, arglist[4].uint); else glk_request_line_event_uni(arglist[0].opaqueref, NULL, 0, arglist[2].uint); break; #endif /* GLK_MODULE_UNICODE */ #ifdef GLK_MODULE_UNICODE_NORM case 0x0123: /* buffer_canon_decompose_uni */ if (arglist[0].ptrflag) arglist[5].uint = glk_buffer_canon_decompose_uni(arglist[1].array, arglist[2].uint, arglist[3].uint); else arglist[3].uint = glk_buffer_canon_decompose_uni(NULL, 0, arglist[1].uint); break; case 0x0124: /* buffer_canon_normalize_uni */ if (arglist[0].ptrflag) arglist[5].uint = glk_buffer_canon_normalize_uni(arglist[1].array, arglist[2].uint, arglist[3].uint); else arglist[3].uint = glk_buffer_canon_normalize_uni(NULL, 0, arglist[1].uint); break; #endif /* GLK_MODULE_UNICODE_NORM */ #ifdef GLK_MODULE_LINE_ECHO case 0x0150: /* set_echo_line_event */ glk_set_echo_line_event(arglist[0].opaqueref, arglist[1].uint); break; #endif /* GLK_MODULE_LINE_ECHO */ #ifdef GLK_MODULE_LINE_TERMINATORS case 0x0151: /* set_terminators_line_event */ if (arglist[1].ptrflag) glk_set_terminators_line_event(arglist[0].opaqueref, arglist[2].array, arglist[3].uint); else glk_set_terminators_line_event(arglist[0].opaqueref, NULL, 0); break; #endif /* GLK_MODULE_LINE_TERMINATORS */ #ifdef GLK_MODULE_DATETIME case 0x0160: /* current_time */ if (arglist[0].ptrflag) { glktimeval_t dat; glk_current_time(&dat); arglist[1].sint = dat.high_sec; arglist[2].uint = dat.low_sec; arglist[3].sint = dat.microsec; } else { glk_current_time(NULL); } break; case 0x0161: /* current_simple_time */ arglist[2].sint = glk_current_simple_time(arglist[0].uint); break; case 0x0168: /* time_to_date_utc */ { glktimeval_t timeval; glktimeval_t *timeptr = NULL; glkdate_t date; glkdate_t *dateptr = NULL; int ix = 0; if (arglist[ix++].ptrflag) { timeptr = &timeval; timeval.high_sec = arglist[ix++].sint; timeval.low_sec = arglist[ix++].uint; timeval.microsec = arglist[ix++].sint; } if (arglist[ix++].ptrflag) { dateptr = &date; } glk_time_to_date_utc(timeptr, dateptr); if (dateptr) { arglist[ix++].sint = date.year; arglist[ix++].sint = date.month; arglist[ix++].sint = date.day; arglist[ix++].sint = date.weekday; arglist[ix++].sint = date.hour; arglist[ix++].sint = date.minute; arglist[ix++].sint = date.second; arglist[ix++].sint = date.microsec; } } break; case 0x0169: /* time_to_date_local */ { glktimeval_t timeval; glktimeval_t *timeptr = NULL; glkdate_t date; glkdate_t *dateptr = NULL; int ix = 0; if (arglist[ix++].ptrflag) { timeptr = &timeval; timeval.high_sec = arglist[ix++].sint; timeval.low_sec = arglist[ix++].uint; timeval.microsec = arglist[ix++].sint; } if (arglist[ix++].ptrflag) { dateptr = &date; } glk_time_to_date_local(timeptr, dateptr); if (dateptr) { arglist[ix++].sint = date.year; arglist[ix++].sint = date.month; arglist[ix++].sint = date.day; arglist[ix++].sint = date.weekday; arglist[ix++].sint = date.hour; arglist[ix++].sint = date.minute; arglist[ix++].sint = date.second; arglist[ix++].sint = date.microsec; } } break; case 0x016A: /* simple_time_to_date_utc */ { glkdate_t date; glkdate_t *dateptr = NULL; int ix = 2; if (arglist[ix++].ptrflag) { dateptr = &date; } glk_simple_time_to_date_utc(arglist[0].sint, arglist[1].uint, dateptr); if (dateptr) { arglist[ix++].sint = date.year; arglist[ix++].sint = date.month; arglist[ix++].sint = date.day; arglist[ix++].sint = date.weekday; arglist[ix++].sint = date.hour; arglist[ix++].sint = date.minute; arglist[ix++].sint = date.second; arglist[ix++].sint = date.microsec; } } break; case 0x016B: /* simple_time_to_date_local */ { glkdate_t date; glkdate_t *dateptr = NULL; int ix = 2; if (arglist[ix++].ptrflag) { dateptr = &date; } glk_simple_time_to_date_local(arglist[0].sint, arglist[1].uint, dateptr); if (dateptr) { arglist[ix++].sint = date.year; arglist[ix++].sint = date.month; arglist[ix++].sint = date.day; arglist[ix++].sint = date.weekday; arglist[ix++].sint = date.hour; arglist[ix++].sint = date.minute; arglist[ix++].sint = date.second; arglist[ix++].sint = date.microsec; } } break; case 0x016C: /* date_to_time_utc */ { glkdate_t date; glkdate_t *dateptr = NULL; glktimeval_t timeval; glktimeval_t *timeptr = NULL; int ix = 0; if (arglist[ix++].ptrflag) { dateptr = &date; date.year = arglist[ix++].sint; date.month = arglist[ix++].sint; date.day = arglist[ix++].sint; date.weekday = arglist[ix++].sint; date.hour = arglist[ix++].sint; date.minute = arglist[ix++].sint; date.second = arglist[ix++].sint; date.microsec = arglist[ix++].sint; } if (arglist[ix++].ptrflag) { timeptr = &timeval; } glk_date_to_time_utc(dateptr, timeptr); if (timeptr) { arglist[ix++].sint = timeval.high_sec; arglist[ix++].uint = timeval.low_sec; arglist[ix++].sint = timeval.microsec; } } break; case 0x016D: /* date_to_time_local */ { glkdate_t date; glkdate_t *dateptr = NULL; glktimeval_t timeval; glktimeval_t *timeptr = NULL; int ix = 0; if (arglist[ix++].ptrflag) { dateptr = &date; date.year = arglist[ix++].sint; date.month = arglist[ix++].sint; date.day = arglist[ix++].sint; date.weekday = arglist[ix++].sint; date.hour = arglist[ix++].sint; date.minute = arglist[ix++].sint; date.second = arglist[ix++].sint; date.microsec = arglist[ix++].sint; } if (arglist[ix++].ptrflag) { timeptr = &timeval; } glk_date_to_time_local(dateptr, timeptr); if (timeptr) { arglist[ix++].sint = timeval.high_sec; arglist[ix++].uint = timeval.low_sec; arglist[ix++].sint = timeval.microsec; } } break; case 0x016E: /* date_to_simple_time_utc */ { glkdate_t date; glkdate_t *dateptr = NULL; int ix = 0; if (arglist[ix++].ptrflag) { dateptr = &date; date.year = arglist[ix++].sint; date.month = arglist[ix++].sint; date.day = arglist[ix++].sint; date.weekday = arglist[ix++].sint; date.hour = arglist[ix++].sint; date.minute = arglist[ix++].sint; date.second = arglist[ix++].sint; date.microsec = arglist[ix++].sint; } arglist[ix+2].sint = glk_date_to_simple_time_utc(dateptr, arglist[ix].uint); } break; case 0x016F: /* date_to_simple_time_local */ { glkdate_t date; glkdate_t *dateptr = NULL; int ix = 0; if (arglist[ix++].ptrflag) { dateptr = &date; date.year = arglist[ix++].sint; date.month = arglist[ix++].sint; date.day = arglist[ix++].sint; date.weekday = arglist[ix++].sint; date.hour = arglist[ix++].sint; date.minute = arglist[ix++].sint; date.second = arglist[ix++].sint; date.microsec = arglist[ix++].sint; } arglist[ix+2].sint = glk_date_to_simple_time_local(dateptr, arglist[ix].uint); } break; #endif /* GLK_MODULE_DATETIME */ #ifdef GLK_MODULE_RESOURCE_STREAM case 0x0049: /* stream_open_resource */ arglist[3].opaqueref = glk_stream_open_resource(arglist[0].uint, arglist[1].uint); break; case 0x013A: /* stream_open_resource_uni */ arglist[3].opaqueref = glk_stream_open_resource_uni(arglist[0].uint, arglist[1].uint); break; #endif /* GLK_MODULE_RESOURCE_STREAM */ #ifdef GLK_MODULE_GARGLKTEXT case 0x1100: /* garglk_set_zcolors */ garglk_set_zcolors(arglist[0].uint, arglist[1].uint); break; case 0x1101: /* garglk_set_zcolors_stream */ garglk_set_zcolors_stream(arglist[0].opaqueref, arglist[1].uint, arglist[2].uint); break; case 0x1102: /* garglk_set_reversevideo */ garglk_set_reversevideo(arglist[0].uint); break; case 0x1103: /* garglk_set_reversevideo_stream */ garglk_set_reversevideo_stream(arglist[0].opaqueref, arglist[1].uint); break; #endif /* GLK_MODULE_GARGLKTEXT */ #ifdef GLK_EXTEND_CALL GLK_EXTEND_CALL #endif /* GLK_EXTEND_CALL */ default: rustglk_ext_call(funcnum, numargs, arglist); break; } } #ifdef GI_DISPA_GAME_ID_AVAILABLE static char *(*game_id_hook)(void) = NULL; /* Set a function for getting a game ID string. The Glk library may call the supplied function when creating files, so that the files can be put in a game-specific location. The function must have the form: char *func(void); It should return NULL or a pointer to a (null-terminated) string. (The string will be copied, so it may be in a temporary buffer.) */ void gidispatch_set_game_id_hook(char *(*hook)(void)) { game_id_hook = hook; } /* Retrieve a game ID string for the current game. If not NULL, this string may be in a temporary buffer, so the caller must copy it! */ char *gidispatch_get_game_id(void) { if (!game_id_hook) return NULL; return game_id_hook(); } #endif /* GI_DISPA_GAME_ID_AVAILABLE */