1 /* START OF:        lib_list_.incl.pl1                        *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 4           /*                                                                                        */
 5           /* Name:  lib_list_.incl.pl1                                                              */
 6           /*                                                                                        */
 7           /*      This segment declares the list structures which are used by the library           */
 8           /* maintenance tools.  The structures are filled in by lib_sort_tree_, and referenced by  */
 9           /* lib_output_node_list_, having been allocated originally by one of the maintenance      */
10           /* commands (library_map, library_info, library_print, etc).                              */
11           /*                                                                                        */
12           /* Status                                                                                 */
13           /*                                                                                        */
14           /* 0) Created on:  May 30, 1976  by  G. C. Dixon                                          */
15           /*                                                                                        */
16           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
17 
18 
19      dcl  1 index_list                  aligned based (Pindex_list),
20                                                             /* an index list.                                 */
21             2 N                         fixed bin(24),      /* max length of list.                            */
22             2 I                         fixed bin(24),      /* current length of list.                        */
23             2 e (max_entries refer (index_list.N))
24                                         fixed bin(24),      /* the list.                                      */
25           1 name_list                   aligned based (Pname_list),
26                                                             /* a name list.                                   */
27             2 N                         fixed bin(24),      /* max length of list.                            */
28             2 I                         fixed bin(24),      /* current length of list.                        */
29             2 e (max_entries refer (name_list.N)) ptr unal, /* list of ptrs to node names.                    */
30           1 node_list                   aligned based (Pnode_list),
31                                                             /* a list of ptrs to nodes to be output.          */
32             2 N                         fixed bin(24),      /* max length of list.                            */
33             2 I                         fixed bin(24),      /* current length of list.                        */
34             2 e (max_entries refer (node_list.N)) ptr unal, /* list of ptrs to nodes.                         */
35           1 page_list                   aligned based (Ppage_list),
36                                                             /* list of page numbers on which each node was    */
37                                                             /* output.                                        */
38             2 N                         fixed bin(24),      /* max length of list.                            */
39             2 I                         fixed bin(24),      /* current length of list.                        */
40             2 e (max_entries refer (page_list.N))
41                                         fixed bin(24),      /* list of page numbers.                          */
42           max_entries                   fixed bin int static init (32000),
43           Pindex_list                   ptr,                /* ptr to index_list structure.                   */
44           Pname_list                    ptr,                /* ptr to name_list structure.                    */
45           Pnode_list                    ptr,                /* ptr to node_list structure.                    */
46           Ppage_list                    ptr;                /* ptr to page_list structure.                    */
47 
48 /* END OF:          lib_list_.incl.pl1                        *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */