1 /* BEGIN format_tables.incl.pl1
 2           modified: June 1976, by D Levin
 3 
 4      This include file defines the internal representation of format specifications for fortran. */
 5 
 6 
 7           /* number of array elements required to represent a format specification */
 8 
 9 dcl       increment_table(0:20) fixed bin internal static options(constant) init(
10 
11                     3, 4, 4, 3, 4, 3, 4, 0, 0, 3, 3, 3, 2, 3, 2, 2, 1, 1, 1, 3, 1);
12 /*                  i  f  e  l  d  o  g        r  a  h  x  t  p  (  )  /  :  "  End */
13 
14 
15           /* actual representation of a format statement */
16 
17 dcl
18           1  runtime_format             based aligned structure,
19              2  last_left_paren         fixed bin(17) unaligned, /* position at which to repeat the spec */
20              2  format_desc_bits        unaligned structure,
21                 3  anyitems             bit(1),             /* ON if format contains a field descriptor */
22                 3  v_format             bit(1),             /* ON if format specifies list directed format */
23                 3  s_format             bit(1),             /* ON if format contains an s-format */
24                 3  contains_hollerith   bit(1),             /* ON if format contains hollerith fields */
25                 3  pad                  bit(2),
26              2  fmt_len                 fixed bin(11) unaligned, /* length of format, in chars */
27              2  fmt(1022)               fixed bin(17) unaligned; /* encoded format specs */
28 
29 
30           /* error message overlay */
31 
32 dcl       1 format_error      aligned based structure,
33             2 input_length    fixed bin,
34             2 error_message   char(128);
35 
36 
37           /* named constants for format specifications */
38 
39 dcl      (
40           end_of_format       init(20),
41           hollerith_field     init(11),
42           quoted_string       init(19)) fixed bin int static options(constant);
43 
44 /* END   format_tables.incl.pl1 */