bound_lang_tools_.bind 08/13/81 1841.4r w 08/13/81 1838.9 5859 /* Bindfile for bound_lang_tools_ RAB 4/21/74 */ /* Modified: 17 Dec 1979 by PCK to add pl1_version tools */ Global: retain; Objectname: bound_lang_tools_; Addname: compile_messages, tmg, table, generate_compatible, print_pl1_version, update_pl1_version, gen_pl1_version_; Order: tmg, compile_messages, build_message_segment, generate_compatible, update_pl1_version, gen_pl1_version_, print_pl1_version; objectname: tmg; synonym: table; objectname: build_message_segment; global: delete; objectname: generate_compatible; objectname: print_pl1_version; objectname: update_pl1_version; objectname: gen_pl1_version_;  build_message_segment 11/15/82 1838.6rew 11/15/82 1706.4 23040 TX@T'T,T1T"N4(end)123456789return_conversion_errorUnbalanced comment--fatal errorSequence number > 500--fatal errorMessage number ^d is null--fatal error.Invalid severity for message ^d--fatal errorMessage number ^d is out of sequence--fatal error JP%@D(@[@\@]@a(@PP@PB@PP@@[@@@Y@E(@H@b@Z@Z@bN@FT H.@.@>@E@ >@E@Z,@E@N@@$$@@~@@$PP@@DN@@@44@@E@@l@i@@$PP@@~c@D@>F@F@cN@ BBP(O(OF,@E@D@[@^@%@:I@@(M-F@F@ FOH+F,@@TCI.@.@>G@N@@\,,@@E@@'@&@@$PP@@E@G@BPNE@BPO^@[@@@1((@@@@$PP@@`(@[@[@[@@P FO$_(@ @@O_@T_.@N a,@a@N]@BP N@B],@`,@ a(@]@BP N@@_B],@`,@[,@E@`@BP@N]@`~@@N[.@%D@>F@F@N BBP(O(OF,@]@ i\>PP@d@f@[@@P FO_k@k@9[@@POT.@[,@ FO'[@>@~@[@Pe*/.@.@>j@@@  @@@@$PP@fPP@0@d@[>@>[@k(@[@>\@\@@POTf.@\,@\@[~@@N@[@fP@P@ `@n\@[@@P@0@d@P@0@d@l@n@[@^@@@Y@r@ F`sFnPP@0@l@^@[@nPP@0@l@!s!!I!!I!! /*) build_message_segment symbol_table  ioa_N`  &symbtreeIIBPL/I 7"' *;\IPVYIIMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0+K^IB>dumps>old>recomp>build_message_segment.pl1pl1info Cbuild_message_segmentB _ -xs_jZZj  @eobj_map  \t  compile_messages 12/01/87 1600.6re 12/01/87 1559.5 24840 compile_messagesVV?V V4L#V!VTVT$TTmessage?#cleanup.message ^/Usage: compile_messages <pathname>iP%@@@@@@"@D@$@ @ P@D@h@6@@N@@$($Y@-'@'@4@B@6@A@8@D@:@2@$PP@D@?@A@V'@@BP>@@@@E@B@@D@@F@D@H@'@J@L@N@P@R@T@<@$PP@D@ A@V'@BP*@'@,@(@@@1o`P'@ P@0@@(@@A@B(@@F@@@H@A@J@B@L@dN@aP@aR@`T@D@P@ P@c0@@F@D@$PP@@'@E@X@@Z@@\@'@^@@`@@b@D@d@?f@<h@j@7l@4n@1p@2r@V@$PP@D@ A@V'@BP*@'@,@(@@t@"@ @$PP@@@@t F@! !@@ @ @@` !@@ @ @@` @>@@@@@B@@D@D@F@H@J@L@N@P@<@$PP@D@h@H@*@@,@@.@(@ $PP@'@@>@@@@'@B@@D@D@F@<@$PP@D@G@''(@@1@@>@'@@@1@B@D@D@F@H@J@L@<@$PP@D@ A@V1@BP*@1@,@(@@@@@A@P@@D@@@PP@@@P@P@@ $P P@!!'!(!&compile_messages symbol_tablei build_message_segmentcom_err_cu_ arg_count!"%arg_ptr!(*expand_pathname_component_add_suffix-28 get_wdir_;;>initiate_file_ componentAEHterminate_file_KKOtssi_clean_up_segmentRTYfinish_segmentR\` get_segmentRcfo'` cleanup.1ril&& &'&,&:&@&J&Q&[&b&hsymbtreeMLMv%>PL/I 3!& *<lHTbiHHMultics PL/I Compiler, Release 29, of July 28, 1986GJohnson.SysMaint.aoptimize map0.oRsMv$>spec>install>MR12.2-1005>compile_messages.pl1pl1info Dcompile_messages_e? <Ox?i: PVjZZjZZZfkZFk|ZP @eU*eU*eU*eTobj_map s$:l  gen_pl1_version_ 11/15/82 1838.6rew 11/15/82 1707.3 22752 gen_pl1_version_January February March April May June July August SeptemberOctober November December Monday Tuesday WednesdayThursday Friday Saturday Sunday TVT at EXL#X^a: ^a, of errorstringsizeDXXStringsize raised.Experimental PL/I Compiler of Multics PL/I Compiler, Release aWVy"P%@Q@ @@#)`P'@F@H@J@d.L@F@P@fR@H@T@V@X@Z@N@ P@@@@F@F@@J@@K@@L@@N@@O@@P@@H@@M@@Q@@PP@@,$P P@PP@@@L@@@@@@K(@@@@@P@ F`@sYt@>@.@.@@@~@@J@@>@i@ @@{@ `@`@@>@@@ E@X@@>@@@@ e@`@>@@@ E@@>@@@@@@@@F@ e@`@@>@@@ E@@>@@@ E@@@Nt@R@ `@`S @@@N(@@@@@@@O(@@@@@J@@M@0>i@ @@ 1@ `@`@>@@@ E@i@@>@@@@ e@`@ @>@@@ E@W@>@@@ E@@@>@@@ E@F@>@@@ E@@@>@@@ E@@>@@@ E@@@>@@@ E@%@>@@@ E@@@Nt@R@ `@`S @R@PP `@`S@A@ `@`@B(P@8B8:, gen_pl1_version_ symbol_table" ioa_decode_clock_value_ date_time)}` stringsize.1,"% &&!symbtreeIIIPL/I 7"' *:]FNVZFFMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0&K^I>dumps>old>recomp>gen_pl1_version_.pl1pl1info Bgen_pl1_version_B _xC PVjZZj 'UPXV@,@eT`obj_map -  ]l  generate_compatible 11/15/82 1838.6rew 11/15/82 1706.9 105408 O **""****(o***kk kk ?* *?***?G*?*?*?'*k(((OWh@cO kA"k(kPkQkQkkk@Qk@Qk@ q9k@Qk@Qo?So?o?Po?o?o?o?o?o?So?o?o?H A-,4=BCF7D 6../ 51 122@ GG'' 9&&##E ()**+:33%%8>""$??0<;!aliasable arg-descriptor interactive options-constantoptions-variableparameter-desc reserved-1 reserved-2 reserved-3 reserved-4 return-value stringvalue storage-block temporary unused-1 aligned area auto automatic based bin binary bit builtin char character complex cond condition constant controlled cplx ctl dec decimal def defined dim dimension direct entry env environmentext external file fixed float format generic init initial input int internal irred irreduciblekeyed label like local member nonvar nonvarying offset options output parameter parm pic picture pointer pos position prec precision print ptr real record red reducible returns seql sequential signed static stream structure unal unaligned uns unsigned update var variable varying ~ gcNo "NL" found in bnf text. No "NL<" sequence found in bnf text. Not enough lines in bnf text. No root production found. Missing ">" in line: ^s^a Missing ">" in line: ^s^a Keyword lookup failed: "^a" Non-terminal "^a" is undefined. Non-terminal "^a" has never been referenced. Missing "]" in line: ^s^a eof4***VX$T0LT/VHTMT%NHTTIT#VT<root>?#cleanup4@generate_compatible"^a"b, /* ^2d ^a */"^b"b, /* ^2d ^a */return_conversion_error^-PROGRAM GENERATED TABLE^2/^|^2/^-DIFFERENCES FROM REAL TABLE^2/Error ^d while scanning ^[^;in^]compatible_bnf. ------------------------------------------------------------------------ 123456789012345678901234567890123456789012345678901234567890123456789012 111111111122222222223333333333444444444455555555556666666666777 ---------------------------------------------------------------------------- 1234567890123456789012345678901234567890123456789012345678901234567890123456 1111111111222222222233333333334444444444555555555566666666667777777DP%@GP%@ P @B@A@ M@P'@.@F@@V@@X@ @Z@$\@*^@`@T@ $PP@P@@b@b@V@@X@T@$PP@n@n@lNo@o@lN n@lo>@F0o,@n@ln>@F0n,@W(@!b@@V@b@X@T@@ W@$P P @b@@V@b@X@T@@n@n@lNln>@F0n,@$P@0@@TT@f@h@d@P@@@ LjLj@f@h@d@$PP@@@LjLj@f@h@d@$PP@@@LjLj@f@h@d@$PP@n@n@HN;o@o@HN~c@n@$c>@n@lo>@O0F~o,@$P@"d@f@h@n@:c@Ad@l@c@~On@n@p@T@r@dt@av@^x@cz@j@$PP@n,@$P @@@~(T(T@f@Jh@d@P@@@P~P~@f@>h@d@$PP@@@P~P~@f@2h@d@$PP@@@P~P~@f@&h@d@$PP@n@n@HNGo@o@HN"~}@n@$}>@U(@@0F~UV(@@0VV@UM@=B@IB@CB@o@ O@@BBo,@n@\O@B@@ dd@l@C@n@n@p@T@r@t@v@x@z@j@$PP@n,@@@SP~P~@f@h@d@$PP@@@oP~P~@f@h@d@$PP@@@OP~P~@f@h@d@$PP@.@@@.@@@SP%@$P@@ZP%@$P(@@`P%@$P @@gP%@$P (@@lpP'@@(@B@D@F@@@0H0 PW@J@G@@@V@B@X@H@Z@P@P\@G@^@_`@cb@Zd@]f@Uh@T@P@ Pq@VG@@(@bB@bD@bF@P@P @@V@B@X@Z@e@\@@P^@9`@=b@2d@/f@G@h@T@$PP@@@@(@@@SN @0 .$.@?PNP@@@ @P @@@ @@,@@ PP @@@ @@@@N @0 .$.@?PNP @P@@@@@,@PP @@@@qPP'@WB@ P@D@ @F@H@J@L@@@ P@@ @@(@(@(@ P@@X@Y@Z(@ F@@T` .@.@>n@ @@@@(@n@q@+@P` <.@.@>n@ @@@@@n@@P@O@@@T` .@.@>q@ @@@@@@@0@lRC@ P@@du@@@.P @@@l0@ @@@@@@@@@@&@n@n@&N@ cFn,@n@N@ XFYOd@ `@`e @@@@@ @(@q@@P@O@@@T` .@.@>.@+@@(@q@ F@#@@(@@@@@<M M M(@0@r@@P F@Z@ F`[@DY@~@@ >P@6@@@Z@@ `@`[@8@n@n@8N@rV6P@ Fn,@@9@n@n@9N@ YFZ@@ `F`[@6PbeFn,@,@@ Z@XOYO `@`[6PbeOcOY@@0@@P F@ q@T`>.@.@>n@ @@@@@n@$N$Z@@P `@`[n@>r@r@~@q@~@r@@Pto.@.@@o@0@r.@r@@@O@<Mr@~@q@~@To>.@.@>p@4@@@@@+[Mr@~@q@~@To].@.@>p@ @@@@@r@~@q@~@to.@.@@p@0@X@ p@$N$r@@PNN `@o@X,@p@r.@:@X@~@@>P@@@@@B@n@n@BN@$ n@O@@v@@@@kn@ F@@<M@@PO@N@O@@@ n,@Y@@PrFY,@X@:@D@F@P@d@ `@`eJ@J@SN FP@P@ `F@ J,@J@SN  @0 .$.@?FPPD@J@J@N FP@P@ `F@J,@J@N  @0 .$.@?FPPD@@@@@@@D@L@N@@S@R@R@SN@  YFNP@P@@ `F`R,@R@N@@>R@@ NPP@XOYO `@`@7bOR@ c(FXFNPPL@vPP'@PP@PF@@@@@FN@?PP@P@ VB@@G@A@A@GN@0BPF)F&V@ @D@H@D@K0@@@ P@d@ `@`@@eH@H@L@J@@A@DPBvBPFD@L@J@@A,@@,@@{`P'@PP@PG@@@@@GN@jPP@P@ VB@ PF@D@@H@A@A@HN@BPFT@ PF,@FF@FOA,@BPI@A@A@IN@A P@E@BPJ@F@F@JN@BPFT@A@FN@ T@OX@P@PZ@V@+@F,@A@BPFT@ FX@P@PZ@V@@a FX@P@PZ@V@@E@ P@A,@D@ P@@,@@`P'@PP@PF@B@B@FN@;PP@P@ VD@@G@C@C@GN@,DPFI@FA@ PF@H@@@@@HN@ PFAN@@,@@@ PN@,@A@@O FL@P@PN@J@@C,@B,@@L@N@ P@S@R@R@SN@NPPlR@ PF>OPF0@EFOl>PF0@ER,@L@!!!n!T<generate_compatible symbol_tableD compatible_bnfincompatible_bnfcom_err_!!$ioa_'')get_temp_segments_,,1release_temp_segments_44:area_==?gencG`BMD%` cleanup.1SG5J gc_set_newZM`P gc_reset_new`S`V gc_set_diffgZ`] gc_reset_diffl``cERRORqgjcleanvloscan{qtmarkvIymarkt{~7 && &&&+&3&<&AsymbtreeIIi3PL/I 7"' *JWtWWMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map4)K^IM?):G>dumps>old>recomp>generate_compatible.pl1>ldd>include>pl1_attribute_table.incl.pl1pl1info Rgenerate_compatibleG*Zf<UO x/ iz^<O 4x/  * +Z<%Ox/ k<7x]xPVjZZjZkVj+@+`Zk +PXVBk XVBk jC9UYUYpobj_map 77d  print_pl1_version 11/15/82 1838.6rew 11/15/82 1707.2 19584 pl1_version print_pl1_versionXXT4#V VVTV?#cleanup^a: pl1_release="^a"^a: pl1_version="^a"Usage: print_pl1_version <path>QP%@x@z(@@|WPP'@ Pz@ x@0@ x@B@w@D@@@P@@v@@@$P P@v@N(@@@  @@@@@@@@@ $PP@@@B@@@@@w@@@$P P@@@V@BP@D@@n@@w@@@@@@|@@$PP@w@rz@D@@n@@x@@r@p@x@@w@@e@b@b@\@Y@V@W@@$PP@x@Z0@K@@@x@@3@@@w@@@$PP@w@8@@M@@)@P@@+@2@&@@ $PP@3@3@3@@@@PB@@@@ @@ $PP@x@@w@@@$PP@@w@@@@@@$PP@z@ x@@w@@@$PP@@print_pl1_version symbol_tableQ ioa_cu_arg_ptr arg_count expand_pathname_##(com_err_++. suppress_name+15hcs_initiate8:=component_info_name@DFterminate_noname8INW5` cleanup.1ZQDT*&&&"&*&0&7&?&H&PsymbtreeII~PL/I 7"' *GtT^kqTTMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map4'K^I>$#WAi>dumps>old>recomp>print_pl1_version.pl1>ldd>include>component_info.incl.pl1pl1info Oprint_pl1_versionE;)n</O4mx_ZvPVjZZj VjPZ@ @ZXV@@eU*eU*eU*@obj_map **[t  tmg 11/15/82 1838.6rew 11/15/82 1707.1 49320 code op type1 type2 type3 q2 q3 a2 a3 c2 c3 z2 z3 atm2atm3atm4if ifnot flipto jump put fetch get_fx2 compile cplalt cplsave load add switch erase bump drop TTT.TX VT)TXT$TL^d:VT TX 4T.almVVV?Switch Test ?#.table^-zero^-0,128Zero length input.^-vfd^-18/^a,9/^d,9/128^a^-vfd^-18/^a,9/13,9/128+^d^a^-vfd^-18/L^d,9/^d,9/128+^d^aSyntax error in line # ^d:^/^aIllegal use of "*" in line # ^d:^/^a^a "^a" not known, "^a" on line # ^d:^/^aVariable field error, switch on line # ^d:^/^aLEP&@"PP@)@JP&@"PP@)@@2] @ @Z@@3@@0@@-@@*@ @'"@$@$&@(@!*@,@.@0@2@4@6@8@:@<@>@@@B@D@ F@H@(@P@P @@`@*@,@@.@@0@*@4@,@6@.@8@0@:@F@<@2@TP@F@F@@@$PJ@B@@D@;F@8H@8J@>@ LP@@T@ .@.@>G@!G@G.@G@>i@G@ `@` O@% N f@ `@`g @G@>i@ `@` O@ N o@ `@`p @f@T,@f@i@R@f@ `@`gL@@P@-@T@A@V@L@X@L@Z@F@\@^@,@`@b@d@f@j@h@N@$PRP@ @L@0@F@@@$PJ@B@g@D@F@H@J@>@ LP@@A@,(@2@4@t.6@,@@@$PJ@B@2@D@F@H@J@>@ LP@@@4@2@$PVP@o@T,@o@i@R@o@ `@`p@P@N@T@P@V@F@X@Z@,@\@^@`@b@N@$PXP@ @F@F@@@$PJ@B@p@D@sF@pH@jJ@>@ LP@@A@ FA@@@C@E@D(@R(@@@AN@-~,@A@,~@@@LPTo .@.@>B@D,@N @,@C@NP O@C,@N~@ `@oB@@.@@@S@"M C@NP~@~@ o@` ~@C.@*MfB@N"@ @*M@+2@+4@2@@@C@NP@@OB@G@D@ F@H@ J@>@ $PNP@G@C.@N"R@,@,@P@C@NP@@OR@G@T@E@V@X@Z@\@^@N@$PPP@G@C.@E,@R(@,(@@@$2$,@P@$PJ@R@2@T@D@V@@X@Z@\@^@`@b@N@LP@d~@T`:.@.@>G@C@NP o@`C.@~@~GN@f~@G~@NG@~@ `@o@@ M,(@@@ 2 ,@P@$PJ@R@2@T@D@V@@X@Z@\@}^@`@zb@N@LP@"~@~T` .@.@>G@~@~G@~ N z@ `@`{&@I@I@&N@0z@ @F`{I,@&~@~GN@T(@G@>,@~@,~@G@Te .@.@>H@~@G~@~H@~ N T@ `@eUI@$PV '@J@J@'N@  T@ @F`U/J,@)x@,(@@@\,2,,@n@$PJ@p@2@r@x@t@U@v@{@x@D@z@@|@~@ @@@@@@@l@ LP@@@ 2 2@P@C@NP@@OR@G@T@E@V@I@X@J@Z@@\@^@`@b@d@f@h@j@N@$PPP@R@T@T`U,.@.@>G@,(@@@ 020,@P@$PJ@R@2@T@D@V@@X@Z@\@^@`@b@N@LP@HT@G~@ N G@]@ `@oU^(@J@J@(N@ ]@ @F`^ J,@x@]@T@ `@`^UdG@~L@T,@@@2L@i@V@ `@`U2@P@C@NP@@OR@G@T@J@X@@Z@T\@]^@d`@d@,@b@Rf@N@$PPP@ @$@@k22@P@C@NP@@OR@G@T@U@V@I@X@@Z@.\@8^@?`@d@7b@-f@N@$PPP@G@C.@C@  ~,@@L@N@4@,@6@L@8@P@:@F@<@2@$PZP@F@@tmg  symbol_tableEcom_err_ioa_rsnprsnpnnlhcs_initiate_count "& expand_path_))- get_wdir_003tssi_ get_segment68;finish_segment6>BJ `tableME`H2L\Dtmg&&&&(&/&5&=&DsymbtreeIIzPL/I 7"' *7q@\hn@@Multics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0K^IY>dumps>old>recomp>tmg.pl1pl1info ?tmgA |Fe#Y2,dFe#Y2,|1@/  x7> z<[C9x<IO PP+PkVj ZVjV`ZvCUYUYUobj_map 22N\DqN  update_pl1_version 11/15/82 1838.6rew 11/15/82 1707.1 30888 pl1_version update_pl1_versionXXT4T/#VVT2VV ?#cleanup^a: pl1_release="^a"^a: pl1_version="^a"The length of release may not be greater than 3Usage: update pl1_version <path> {<release> | EXL}0P%@@(@(@@@P'@ P@.@a@@@@@$P P@@N(@@@44@@@@@@@@@ $PP@@@P@@N@@@@@$P P@N@V@PP@R@@|@@@@@@u@{@p@@$PP@@n@L@@J@@@@@$P P@J@NH@LP `@`IH@N(@@@g00@@<@@@I@F@?@@ $PP@@@@@$PP@@@@ @ @@@@  7@@@R@@|@ @@ @@@@@%@@@@ @@@@ @"@@$P P@@@$P$NP@@R@@|@ @@ @@@@@@@@@@@@ @"@@P@@0@v@@@@@@@@@@@$PP@@c@@@@  @@(@@@R@@|@ @@ @@@@@@@@@@$PP@@@P@I@@@@@ $PP@@3@@@@@P@@@@@@ $PP@@@@@@n@PB@@p@w@j@@ $PP@.@@@@@W@a@c@@$PP@@.@@@pP'@ P@@@@ @ @@J@R@N@|@P@J@R@GT@@V@<X@BZ@5\@?^@3`@L@P@ P@@J@R@N@|@P@J@R@*T@@V@X@%Z@\@"^@`@L@$PP@ P@0@ @N@@P@L@$P"P@@update_pl1_version symbol_table ioa_cu_arg_ptr arg_count expand_pathname_##(com_err_++. suppress_name+15hcs_initiate8:=component_info_name@DFgen_pl1_version_IIN get_group_id_QQUadd_acl_entries8X\delete_acl_entries8_dlist_acl8gjterminate_noname8mr error_table_user_not_founduy}H` cleanup.1Xrestore_acl_and_terminate&&&&"&*&0&7&?&H&P&W&^&f&l&t&symbtreeIIPL/I 7"' *GTcu}TTMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map4(K^Is>$#WAi>dumps>old>recomp>update_pl1_version.pl1>ldd>include>component_info.incl.pl1pl1info Oupdate_pl1_versionu?<O=xS"i<#Otx7@PVjZZj VjPZ@ @ZZPZ@k XV@@eU*eU*eU*eU*eU*@obj_map &N