1 /* BEGIN INCLUDE FILE - comp_device_table.incl.pl1 */ 2 3 /* Created 1/83 by Ed Wallman: Merged comp_dvid.incl.pl1 and comp_dvt.incl.pl1 4 into one file. 5 6 Ancient History --- 7 8 comp_dvid.incl.pl1 9 Written: JA Falksen - 6/81 10 Modified: EJ Wallman - 11/81 - Added comp_dvt.displayproc 11 Modified: EJW - 1/82 - added length arg to comp_dvt.displayproc 12 Modified: 2/82 - EJW - Deleted ptr arg from comp_dvt.displayproc 13 14 comp_dvt.incl.pl1 15 Written: JA Falksen - 9/80 16 Modified: 11/81 - EJW - Added comp_dvt.displayproc 17 Modified: 1/82 - EJW - Added length arg to comp_dvt.displayproc 18 Modified: 2/82 - EJW - Deleted ptr arg from comp_dvt.displayproc 19 20 Modern History --- 21 22 Modified 1/83 by Ed Wallman: Rewritten to support CDS technology rather 23 than ALM. 24 */ 25 /* format: style2,ind3,ll80,dclind4,idind15,comcol41,linecom */ 26 27 dcl comp_dvid_version 28 fixed bin static options (constant) init (3); 29 dcl COMP_DEVICE_TABLE_VERSION_4 30 char (8) static options (constant) init ("CDVT0004"); 31 32 dcl 1 cdvt_info aligned based (cdvt_info_ptr), 33 2 dvid_ct fixed bin, /* number of dvids */ 34 2 dvid (comp_dvid_ct refer (cdvt_info.dvid_ct)) like comp_dvid; 35 36 dcl cdvt_info_ptr ptr init (null); 37 dcl comp_dvid_ct fixed bin init (0); 38 39 dcl 1 comp_dvid based (const.dvidptr), 40 2 version char (8), /* version of this structure */ 41 2 devname char (32), /* name of device */ 42 2 dvt_r bit (18); /* device table offset */ 43 44 /* All names which end in "_r"are offset values within the device table */ 45 /* segment. The version of this structure is in comp_dvid.incl.pl1 */ 46 47 dcl 1 comp_dvt based (const.devptr), 48 2 devclass char (32), /* what general kind of device is */ 49 /* this, currently available: */ 50 /* "typewriter" (line printer, too) */ 51 /* "braille" */ 52 /* "photocomp" */ 53 2 outproc entry /* page output processor */ 54 (fixed bin, /* function - 0=build */ 55 /* 1=init page */ 56 /* 2=init file */ 57 /* 3=cleanup */ 58 fixed bin (35)),/* error code */ 59 2 footproc entry /* footnote reference proc */ 60 (char (*) varying, 61 /* reference string (IN/OUT) */ 62 ptr), /* comp_dvt_p (IN) */ 63 2 artproc entry (), /* artwork proc */ 64 /* dont know how to describe yet */ 65 2 displayproc 66 entry /* string display interpreter */ 67 (char (*) var, /* raw input string */ 68 fixed bin (24)) /* chars used in this call */ 69 returns (char (*) var), 70 /* interpreted output string */ 71 /* following values are in millipoints */ 72 2 inl_min fixed bin (31), /* min .in delta */ 73 2 min_lead fixed bin (31), /* minimun lead */ 74 2 vmt_min fixed bin (31), /* min usable .vmt */ 75 2 vmb_min fixed bin (31), /* min usable .vmb */ 76 2 def_vmt fixed bin (31), /* default .vmt */ 77 2 def_vmh fixed bin (31), /* default .vmh */ 78 2 def_vmf fixed bin (31), /* default .vmf */ 79 2 def_vmb fixed bin (31), /* default .vmb */ 80 2 pdw_max fixed bin (31), /* max page width available */ 81 2 pdl_max fixed bin (31), /* max page length available, */ 82 /* (0 = unlimited) */ 83 2 upshift fixed bin (31), /* footnote reference shift */ 84 2 init_ps fixed bin (31), /* initial pointsize (millipoints) */ 85 2 lettersp fixed bin (31), /* max letterspacing */ 86 2 max_pages fixed bin, /* max pages/"file" -1 ->unlimited */ 87 2 max_files fixed bin, /* max "files"/reel -1 ->unlimited */ 88 2 init_fam fixed bin, /* initial family index */ 89 2 init_mem fixed bin, /* initial member index */ 90 2 foot_fam fixed bin, /* initial foot family index */ 91 2 foot_mem fixed bin, /* initial foot member index */ 92 2 init_family 93 char (32), /* initial font family to use */ 94 2 init_member 95 char (32), /* initial font member to use */ 96 2 atd_r bit (18) aligned, 97 /* attach description for on-line */ 98 /* output */ 99 2 dvc_r bit (18) aligned, 100 /* device control table relptr */ 101 2 med_sel_tab_r 102 bit (18) aligned, 103 /* media select table relptr */ 104 2 comment_r bit (18) aligned, 105 /* comment string relptr */ 106 2 cleanup_r bit (18) aligned, 107 /* "cleanup" string relptr */ 108 2 foot_family 109 char (32), /* family for footnote reference */ 110 2 foot_member 111 char (32), /* member for footnote reference */ 112 /* if one was specified */ 113 2 sws unaligned, 114 3 interleave 115 bit (1), /* 0- page block has lines in column */ 116 /* order left-to-right */ 117 /* 1- page block has lines in line */ 118 /* order top-to-bottom */ 119 3 no_adjust 120 bit (1), /* 1- do not adjust lines */ 121 3 mbz bit (24), 122 3 endpage bit (9), /* EOP char if not "0"b */ 123 2 open_mode fixed bin (35), /* when going to a file */ 124 2 recleng fixed bin, /* length of tape records */ 125 2 family_ct fixed bin, /* # families present */ 126 2 family (comp_dvt.family_ct), 127 /* families of fonts defined */ 128 3 member_r bit (18) aligned, 129 /* member table relptr */ 130 3 name char (32); /* family name */ 131 132 133 /* The usage formula for units: */ 134 /* */ 135 /* rel_units * length_in_points */ 136 /* ---------------------------- = length_in_units */ 137 /* points_per_EM */ 138 139 /* END INCLUDE FILE comp_dvt.incl.pl1 */ 140 141 /* END INCLUDE FILE - comp_device_table.incl.pl1 */ 142 ^@^@