1 /* START OF: pnotice_source_info.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 4 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 5 /* */ 6 /* This include file is used by the software protection tools. It describes information */ 7 /* that is needed from a source segment, and information needed to insert new notices */ 8 /* into the segment. */ 9 /* STATUS: */ 10 /* 0) Created August 1981 by JM Stansbury */ 11 /* 1) Modified December 1982 by JM Stansbury */ 12 /* added notice_type and notice_to_add.(name type). */ 13 /* */ 14 /* */ 15 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 16 17 18 /****^ HISTORY COMMENTS: 19 1) change(85-09-27,LJAdams), approve(85-09-27,MCR7150), 20 audit(86-02-07,Wallman), install(86-02-13,MR12.0-1017): 21 added notice_date and seq to notice_info. 22 END HISTORY COMMENTS */ 23 24 25 dcl 1 source_info aligned, 26 2 version fixed bin, 27 2 archive_name char (32) unal, /* name of the archive if one being processed. */ 28 2 Parchive ptr, /* pointer to archive or null. */ 29 2 Larchive fixed bin (21), /* length of archive or zero. */ 30 2 dir char (168) unal, /* containing directory */ 31 2 entry char (32) unal, /* entry name of a source segment */ 32 2 Pentry ptr, /* pointer to the entry */ 33 2 Lentry fixed bin (21), /* length of the entry */ 34 2 type fixed bin, /* the language type of the entry */ 35 2 ec_version fixed bin, /* if type is 3 (an exec_com), this will be its version, */ 36 /* as obtained from calling get_ec_version_ */ 37 2 text_pos fixed bin (21), /* this will be the char pos of the first */ 38 /* non-version char in an exec_com. */ 39 2 cmt_bgn char (8) var, /* comment begin character(s) */ 40 2 cmt_end char (8) var, /* comment end character(s) */ 41 2 Pold_box ptr, /* pointer to beginning of existing star box */ 42 2 Lold_box fixed bin (21), /* length of the star box */ 43 2 notice_to_add, 44 3 name char (32) var, /* primary name */ 45 3 type fixed bin, /* copyright, trade_secret or public_domain */ 46 2 Nnotices fixed bin, /* number of notices in the segment */ 47 2 notice_info (10), 48 3 notice_name char (32) unal, /* primary name */ 49 3 notice_date char (4), 50 3 notice_type fixed bin, /* 1=copyright,2=trade secret, 3=public domain */ 51 3 seq fixed bin; 52 dcl V_source_info_1 fixed bin int static options (constant) init (1); 53 54 55 /* END OF: pnotice_source_info.incl.pl1 * * * * * * * * * * * * * * * * */