1 /* START OF pnotice_language_info_.incl.pl1 */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(1981-06-14,Stansbury), approve(), audit(), install(): 6 Created May 14, 1981 by JM Stansbury 7 2) change(1981-07-30,Stansbury), approve(), audit(), install(): 8 Modified - added type 3. 9 3) change(1985-08-28,LJAdams), approve(1985-10-29,MCR7150), 10 audit(1986-02-07,Wallman), install(1986-02-13,MR12.0-1017): 11 Modified - added type 4. 12 4) change(1985-10-29,LJAdams), approve(1985-10-29,MCR7150), 13 audit(1986-02-07,Wallman), install(1986-02-13,MR12.0-1017): 14 Added Type 5 to define runoff and compose files. 15 5) change(2021-11-11,GDixon), approve(2021-12-07,MCR10105), 16 audit(2021-12-09,Swenson), install(2021-12-10,MR12.8-1014): 17 A) Augment header comment to include a new Type 6 governing history 18 comments in .info segments. 19 B) Correct malformations in that header comment to make it more 20 readable. 21 END HISTORY COMMENTS */ 22 23 24 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 25 /* */ 26 /* Structure defining the individual languages known to and processed by the add_pnotice */ 27 /* command. A language may be a true programming language, like PL/1, or some */ 28 /* other suffixed subsystem, like absin. The following information is kept for each */ 29 /* language: */ 30 /* 1: name the suffix identifying the language, */ 31 /* 2: type one of the currently defined types. See notes. */ 32 /* 3: cmt_bgn the delimiter used to begin a comment, */ 33 /* 4: cmt_end the delimiter used to end a comment. */ 34 /* */ 35 /* Notes: There are currently 6 defined types. */ 36 /* Type 1: has a comment end delimiter other than a newline character. */ 37 /* Type 2: has the newline character as the comment end delimiter. */ 38 /* Type 3: this type was invented due to the creation of version 1 and version 2 */ 39 /* exec_com segments. These require some extra work to determine comment */ 40 /* creation eligibility and placement. */ 41 /* Type 4: has a /****^ as a comment begin delimiter - pl1. */ 42 /* Type 5: this type is used to define compin and runoff files. */ 43 /* Type 6: invented for .info segments that require some reformatting before the */ 44 /* first history comment can be added. pnotices are not supported. */ 45 /* Follows PL/I comment begin and end delimiter style. */ 46 /* */ 47 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 48 49 50 dcl pnotice_language_info_$languages fixed bin ext static; 51 52 dcl 1 pnotice_language_info aligned based (addr (pnotice_language_info_$languages)), 53 2 languages, 54 3 N fixed bin, 55 3 lang_array (0 refer (pnotice_language_info.N)), 56 4 lang_type fixed bin, 57 4 lang_name char (8) var, /* i.e., pl1, cobol, fortran... */ 58 4 comment_start char (8) var, 59 4 comment_end char (8) var; 60 61 /* END OF pnotice_language_info_.incl.pl1 */