1 /* ====== BEGIN INCLUDE SEGMENT         apl_symbol_bead.incl.pl1 ================================== */
 2 
 3 /* Explanation of fields:
 4    symbol_bead.hash_link_pointer        points to next symbol in same hash bucket in the symbol table.
 5    symbol_bead.meaning_pointer          points to current "value" of this name:
 6                                            =  null            => unused (e.g. undefined variable)
 7                                            -> group bead      => group name
 8                                            -> value bead      => variable with a value
 9                                            -> function bead   => function name
10                                            -> label bead      => localized label value
11                                            -> shared var bead => shared variable          */
12 
13 declare 1 symbol_bead                   aligned based,
14           2 header                      aligned like general_bead,
15           2 hash_link_pointer           pointer unaligned,
16           2 meaning_pointer             pointer unaligned,
17           2 name_length                 fixed binary,
18           2 name                        character (0 refer (symbol_bead.name_length)) unaligned;
19 
20 /* ------ END INCLUDE SEGMENT           apl_symbol_bead.incl.pl1 ---------------------------------- */