1 /* BEGIN INCLUDE FILE format_document_options.incl.pl1 2 3 Modified 82.10.18 by Paul W. Benjamin to add dont_compress_sw and upgrade 4 to version_2. 5 Modified 83.02.15 by PWB to add break_word_sw and max_line_length_sw. 6 Modified 83.03.01 by PWB to add dont_break_indented_lines_sw. 7 Modified 83.03.03 by PWB to add sub_err_sw. 8 Modified 83.06.07 by PWB to add dont_fill_sw. 9 Modified 83.06.09 by PWB to add hyphenation_sw and syllable_size. 10 */ 11 12 dcl 1 format_document_options aligned based (format_document_options_ptr), 13 2 version_number fixed bin, /* input */ 14 /* must be format_document_version_2 */ 15 2 indentation fixed bin, /* input */ 16 /* all lines must be indented by this value */ 17 2 line_length fixed bin, /* input */ 18 /* initial line length */ 19 2 switches, 20 3 pgno_sw bit (1) unal, /* input */ 21 /* end each page with a centered page number */ 22 3 adj_sw bit (1) unal, /* input */ 23 /* adjust mode initially on */ 24 /* only meaningful if dont_fill_sw = "0"b */ 25 3 galley_sw bit (1) unal, /* input */ 26 /* galley mode -- no page breaks */ 27 3 error_sw bit (1) unal, /* input */ 28 /* report all errors on error_output */ 29 3 literal_sw bit (1) unal, /* input */ 30 /* "1"b - interpret all lines as text */ 31 /* "0"b - lines that start with "." are controls */ 32 3 file_sw bit (1) unal, /* output */ 33 /* has meaning for non-zero storage system status codes */ 34 /* "1"b code refers to output file */ 35 /* "0"b code refers to input file */ 36 3 dont_compress_sw bit (1) unal, /* input */ 37 /* "1"b - don't compress white space */ 38 /* "0"b - compress white space when filling */ 39 3 break_word_sw bit (1) unal, /* input */ 40 /* "1"b - break a word rather than exceed line_length */ 41 /* "0"b - write an overlength line if no spaces found */ 42 3 max_line_length_sw bit (1) unal, /* input */ 43 /* "1"b - line_length cannot be exceeded */ 44 /* "0"b - line_length can be exceeded (by .pdw controls) */ 45 3 dont_break_indented_lines_sw /* input */ 46 bit (1) unal, /* don't break a line that begins with whitespace */ 47 /* when it is the last line, or the next line is */ 48 /* null or the next line begins with whitespace */ 49 3 sub_err_sw bit (1) unal, /* input */ 50 /* quietly call sub_err_ with diagnostic errors */ 51 3 dont_fill_sw bit (1) unal, /* input */ 52 /* "1"b - fill mode off initially */ 53 /* "0"b - fill mode on initially */ 54 3 hyphenation_sw bit (1) unal, 55 3 mbz bit (23) unal, /* input */ 56 /* MUST be zero */ 57 2 syllable_size 58 fixed bin; /* input */ 59 /* smallest portion of word */ 60 /* to be left by hyphenation */ 61 62 dcl format_document_options_ptr ptr; 63 dcl format_document_version_2 fixed bin int static options (constant) init (2); 64 dcl format_document_version_1 fixed bin int static options (constant) init (1); 65 66 /* END INCLUDE FILE format_document_options.incl.pl1 */