1 /*  START OF:       abs_io_block.incl.pl1 */
 2 
 3 /* Initial coding:  07/15/80  by J. Spencer Love */
 4 
 5 
 6 declare   block_ptr           ptr;
 7 
 8 declare   1 block             aligned based (block_ptr),
 9             2 prev_block_ptr  ptr,                          /* to find them all; null = global global */
10             2 containing_lex_block_ptr  ptr,                /* null = proc block */
11             2 args_ptr                  ptr,                /* ptr to parsed_args */
12             2 containing_proc_block_ptr ptr,                /* null = outer block */
13             2 keyword_pos               fixed bin (21),     /* position of &if, &do, etc. */
14             2 if_info aligned like abs_data.if_info,        /* &if-&then-&else nesting information */
15             2 statement_end_pos         fixed bin (21),     /* to skip the statement */
16             2 identifier                fixed bin,          /* type of block */
17             2 dependent,
18              3 else_clause_pos          fixed bin (21),     /* for &if block */
19              3 elif_level               fixed bin (21);     /* 0 = &if */
20 
21 /* END INCLUDE FILE  abs_io_block.incl.pl1 */