1 /* BEGIN INCLUDE FILE ... function_key_data.incl.pl1
 2 
 3    This include file defines the structure used for ttt_info_$function_key_data
 4    MCR 4671      James R. Davis Sept 80
 5 */
 6 
 7 dcl 1 function_key_data aligned based (function_key_data_ptr),
 8       2 version fixed bin,
 9       2 highest fixed bin,                                  /* highest fkey */
10       2 sequence,                                           /* string of all seqs. */
11         3 seq_ptr pointer,
12         3 seq_len fixed bin (21),
13       2 cursor_motion_keys,
14         3 home (0:3) like key_info,
15         3 left (0:3) like key_info,
16         3 up (0:3) like key_info,
17         3 right (0:3) like key_info,
18         3 down (0:3) like key_info,
19       2 function_keys (0:function_key_data_highest refer
20           (function_key_data.highest), 0:3) like key_info;
21 
22 dcl (KEY_PLAIN init (0),
23      KEY_SHIFT init (1),
24      KEY_CTRL init (2),
25      KEY_CTRL_AND_SHIFT init (3)
26      ) fixed bin internal static options (constant);
27 
28 dcl 1 key_info unaligned based (key_info_ptr),
29       2 sequence_index fixed bin (12) unsigned unaligned,
30       2 sequence_length fixed bin (6) unsigned unaligned;   /* 0 -> not exist */
31 
32 dcl function_key_seqs char (function_key_data.sequence.seq_len)
33           based (function_key_data.sequence.seq_ptr);
34 dcl function_key_data_ptr ptr;
35 dcl function_key_data_highest fixed bin;
36 dcl function_key_data_version_1
37           fixed bin internal static options (constant) init (1);
38 dcl key_info_ptr ptr;
39 
40 
41 /* END INCLUDE FILE ... function_key_data.incl.pl1 */