1 /* BEGIN INCLUDE FILE ... _abbrev_profile.incl.pl1 */
 2 /* Created:  18 February 1982 by G. Palter */
 3 
 4 
 5 /* Format of the profile maintained by the abbrev command */
 6 
 7 dcl  1 abbrev_profile aligned based (ap_ptr),
 8        2 version fixed binary,
 9        2 next_free fixed binary (18),                       /* offset of next free word (RTBOS) */
10        2 garbage fixed binary (18),                         /* # of words of unreferenced space: controls compaction */
11        2 pad1 bit (36),
12        2 old_cis_time fixed binary (71),                    /* check_info_segs kept its time here: now uses value_ */
13        2 pad2 (26) bit (36),
14        2 hash_table (0 : 127) fixed binary (18),            /* offset first abbrev starting with given letter (RTBOS) */
15        2 data_space (0 : 0) bit (36) aligned;               /* contains abbreviations */
16 
17 dcl  ap_ptr pointer;
18 
19 dcl  ABBREV_PROFILE_VERSION_1 fixed binary static options (constant) initial (1);
20 
21 
22 /* A single abbreviation */
23 
24 dcl  1 ape aligned based (ape_ptr),
25        2 header,
26          3 flags unaligned,
27            4 bol bit (1) unaligned,                         /* ON => expand only at beginning of line */
28            4 pad bit (17) unaligned,
29          3 next fixed binary (18) unsigned unaligned,       /* to next abbreviation in this chain (RTBOS) */
30          3 value_lth fixed binary (21),                     /* # of characters int the expansion */
31          3 name character (8),                              /* name of the abbreviation */
32        2 value character (0 refer (ape.value_lth));
33 
34 dcl  ape_ptr pointer;
35 
36 /* END INCLUDE FILE ... _abbrev_profile.incl.pl1 */