1 /* BEGIN INCLUDE FILE: mowse_io_control_info.incl.pl1 * * * * * * * * * * * * */ 2 3 /****^ HISTORY COMMENTS: 4 1) change(86-06-15,Flegel), approve(86-12-16,MCR7580), 5 audit(86-12-15,Gilcrease), install(87-01-06,MR12.0-1255): 6 Created for control support for mowse_io_. 7 2) change(86-08-01,Flegel), approve(86-12-16,MCR7580), 8 audit(86-12-15,Gilcrease), install(87-01-06,MR12.0-1255): 9 Changed version fields to char (8) and 10 installed version constant. 11 3) change(86-10-08,Flegel), approve(86-12-16,MCR7580), 12 audit(86-12-15,Gilcrease), install(87-01-06,MR12.0-1255): 13 Added flush_subchannel_info structure. 14 4) change(86-11-27,Flegel), approve(86-11-27,MCR7580), 15 audit(86-12-15,Gilcrease), install(87-01-06,MR12.0-1255): 16 Approved. 17 5) change(86-12-05,Flegel), approve(86-12-05,MCR7580), 18 audit(86-12-15,Gilcrease), install(87-01-06,MR12.0-1255): 19 Added mowse_io_set_video_mode_info structure. 20 6) change(87-07-31,Flegel), approve(87-07-31,MCR7580), 21 audit(87-07-31,RBarstad), install(87-08-07,MR12.1-1075): 22 Changes to support async call channels. 23 END HISTORY COMMENTS */ 24 25 /* : Version number */ 26 /* format: style4,indattr,ifthen,^indcomtxt,thendo,^indproc,^indblkcom,initcol1,declareind8,dclind4,struclvlind3,comcol55 */ 27 dcl mowse_io_info_version_1 28 char (8) int static options (constant) 29 init ("miover_1"); 30 31 /* : Mowse store info structure */ 32 dcl mowse_io_store_info_ptr 33 ptr; 34 dcl 01 mowse_io_store_info based (mowse_io_store_info_ptr), 35 02 version char (8), 36 02 info_ptr ptr; /* Pointer to mowse_info_ structure */ 37 38 /* : Mowse info structure */ 39 dcl mowse_io_info_ptr ptr; 40 dcl 01 mowse_io_info based (mowse_io_info_ptr), 41 02 version char (8), 42 02 mcb_ptr ptr, /* Pointer to mowse_mcb */ 43 02 info_ptr ptr; /* Pointer to Mowse information (CATs etc.) */ 44 45 /* : Control info overlay for debug_on */ 46 dcl mowse_io_debug_info_ptr 47 ptr; 48 dcl 01 mowse_io_debug_info based (mowse_io_debug_info_ptr), 49 02 version char (8), 50 02 segment_name char (512) var; /* Debug file name */ 51 52 /* : Control info overlay for get_terminal_emulator_state */ 53 dcl mowse_io_terminal_state_ptr 54 ptr; 55 dcl 01 mowse_io_terminal_state 56 based (mowse_io_terminal_state_ptr), 57 02 version char (8), 58 02 state bit (1) unal, /* WSTERM state */ 59 02 mbz bit (35) unal; 60 61 /* : Control info overlay for send_message and send_local_message */ 62 dcl mowse_io_message_ptr ptr; 63 dcl 01 mowse_io_message based (mowse_io_message_ptr), 64 02 version char (8), 65 02 channel fixed bin, /* Channel of message */ 66 02 io_message_ptr ptr, /* Pointer to the nonvarying message */ 67 02 io_message_len fixed bin (21); /* Length of message */ 68 69 /* : Control info overlay for put_to_sleep */ 70 dcl mowse_io_sleep_info_ptr 71 ptr; 72 dcl 01 mowse_io_sleep_info based (mowse_io_sleep_info_ptr), 73 02 version char (8), 74 02 major_index fixed bin, /* CAT index of sleeper */ 75 02 sleep_seconds fixed bin; /* Sleep interval */ 76 77 /* : Control info for flush_subchannel */ 78 dcl mowse_io_flush_subchannel_info_ptr 79 ptr; 80 dcl 01 mowse_io_flush_subchannel_info 81 based (mowse_io_flush_subchannel_info_ptr), 82 02 version char (8), 83 02 subchannel fixed bin; /* The subchannel to be flushed (BG/FG) */ 84 85 /* : Control info to set the video mode */ 86 dcl mowse_io_set_video_mode_info_ptr 87 ptr; 88 dcl 01 mowse_io_set_video_mode_info 89 based (mowse_io_set_video_mode_info_ptr), 90 02 version char (8), 91 02 mode bit (1) unal, /* On or off */ 92 02 mbz bit (35) unal; 93 94 /* END INCLUDE FILE: mowse_io_control_info.incl.pl1 * * * * * * * * * * * * */