1 /* BEGIN INCLUDE FILE compstat.incl.pl1 - external static data for compose 2 3 This storage is converted from external (as declared) to internal by the 4 binder and contains items that must be accessible to both the bound and 5 unbound program. */ 6 7 /* Written: ??/??/7? - EJW 8 Modified: 10/18/84 - EJW - (First recorded change) Added current_parms_ptr 9 and removed the codes array; version 6. 10 */ 11 12 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 13 14 dcl 1 compstat$compconst 15 aligned like const ext static; 16 17 dcl const_version fixed bin (35) static options (constant) init (6); 18 dcl MAX_TREE_AREA_CT /* entries in a tree area */ 19 fixed bin static options (constant) init (80); 20 dcl MAX_TREE_AREAS /* number of tree areas */ 21 fixed bin static options (constant) init (20); 22 23 dcl 1 const aligned based (compstat$compconst.ptr), 24 2 ptr ptr, /* self pointer - MUST BE FIRST */ 25 2 version fixed bin (35), /* structure version */ 26 2 art_symbols /* string of art symbols */ 27 char (28) aligned, 28 2 builtin_count /* count of builtin variables */ 29 fixed bin, 30 2 comp_dir char (200), /* dir in which compose lives */ 31 2 comp_version 32 char (8) var, /* compose version id */ 33 2 date_value char (8) var, /* current date */ 34 2 dsm_name char (32), /* device support module name */ 35 2 dvt_name char (32), /* device table name */ 36 2 max_seg_chars 37 fixed bin (35), /* char count in a max seg */ 38 2 null_str char (1) var, /* an empty string */ 39 2 ptrs, 40 ( 3 call_stk_ptr, /* -> insert call stack */ 41 3 colhdrptr, /* empty column header structure */ 42 3 ctl_ptr, /* input line structure */ 43 3 current_parms_ptr, /* current formatting parms */ 44 3 default_parms_ptr, /* default initial text parms */ 45 3 devptr, /* -> comp_dvt structure */ 46 3 dvidptr, /* -> comp_dvid structure */ 47 3 errblk_ptr, /* error message block pointer */ 48 3 footnote_parms_ptr, /* footnote formatting parms */ 49 3 fnttbldata_ptr, /* -> font table data */ 50 3 global_area_ptr, /* per invocation storage */ 51 3 init_page_parms_ptr, /* default initial page parms */ 52 3 insert_data_ptr, /* insert file data block */ 53 3 local_area_ptr, /* per file storage */ 54 3 loctbl_ptr, /* for font copying */ 55 3 option_ptr, /* program options block */ 56 3 outproc_ptr, /* device writer for cleanup */ 57 3 page_ptr, /* active page structure */ 58 3 page_header_ptr, /* empty page header structure */ 59 3 page_parms_ptr, /* page formatting parameter block */ 60 3 save_shared_ptr, /* saved shared data */ 61 3 shared_ptr, /* shared data structure */ 62 3 text_entry_ptr, /* empty text entry structure */ 63 3 text_header_ptr, /* empty text header structure */ 64 3 text_parms_ptr, /* main body formatting parms */ 65 3 tree_ptr /* symbol tree structure */ 66 ) ptr, 67 2 time_value char (6) var; /* time at start */ 68 69 /* Other external */ 70 dcl ( 71 ioa_, 72 ioa_$nnl 73 ) entry options (variable); 74 dcl iox_$error_output 75 ptr ext static, /* iocb pointer for error_output */ 76 iox_$user_input 77 ptr ext static, /* iocb pointer for user_input */ 78 iox_$user_output 79 ptr ext static; /* iocb pointer for user_output */ 80 dcl sys_info$max_seg_size 81 fixed bin (18) ext static; 82 83 /* END INCLUDE FILE compstat.incl.pl1 */