bound_active_function_.bind 07/05/88 1415.7rew 07/05/88 1357.8 48960 /* *********************************************************** * * * Copyright, (C) Honeywell Information Systems Inc., 1982 * * * *********************************************************** */ /* HISTORY COMMENTS: 1) change(86-01-30,KFleming), approve(86-01-30,MCR7333), audit(86-08-05,Lippard), install(86-08-06,MR12.0-1116): Modified the entry for entries to include 'exists.' Added object_segments (osegs) and nonobject_segments (nosegs). 2) change(86-11-12,GDixon), approve(86-11-24,MCR7579), audit(86-11-17,Lippard), install(86-12-01,MR12.0-1229): Added object_files and object_msfs entrypoints, renamed osegs to obsegs. 3) change(88-06-01,TLNguyen), approve(88-06-01,MCR7839), audit(88-06-03,Lippard), install(88-07-05,MR12.2-1054): Remove working_dir (wd) entrypoint. See the MTB 775 in the >udd>m>mtbs directory for more detail as the result of satisfying the SCP6361. END HISTORY COMMENTS */ /* bound_active_function_ This bound segment contains commonly used active functions. Created: Feb, 1971 by D. Bricklin - initial components: pd (wd). Modified: Nov, 1971 by C. D. Tavares - add get_pathname (gpn). Modified: Dec, 1971 by G. C. Dixon - add date_time. Modified: May 18, 1973 by R. E. Mullen - add files. Modified: July 16, 1973 by C. L. Wong - add home_dir. Modified: December 6, 1976 by G. C. Dixon - add underline and equal_name. Modified: September 14, 1977 by P. Green - add severity. Modified: June 9, 1978 by O. Sibert - add dwd, move home_dir to process_dir procedure, and fix bug in equal_name. Modified: February 1979 by Michael R. Jordan - replace files with entries. Modified: 03/27/80 S. Herbst - add long_year. Modified: 29 December 1980 by M. N. Davidoff - add select. Modified: 8 May 1982 by B. Margolin - add path and friends (from bound_full_cp_). Modified: 9 March 1983 by R. Harvey - added entry shortest_path to path Modified: 10 Feb 1984 by J A Falksen - moved date functions, i.e. date_time, etc., to bound_time_rtns_. */ Objectname: bound_active_function_; Global: delete; Order: process_dir, get_pathname, entries, path, equal_name, underline, contents, severity, select; Addname: branches, component, contents, default_wdir, dwd, directories, dirs, directory, dir, entries, entry, entry_path, equal_name, enm, exists, files, home_dir, hd, get_pathname, gpn, is_component_pathname, icpn, links, master_directories, mdirs, msfs, nonbranches, nondirectories, nondirs, nonfiles, nonlinks, nonmaster_directories, nmdirs, nonmsfs, nonnull_links, nnlinks, nonobject_files, nobfiles, nonobject_msfs, nobmsfs, nonobject_segments, nobsegs, nonsegments, nonsegs, nonzero_files, nzfiles, nonzero_msfs, nzmsfs, nonzero_segments, nzsegs, null_links, nlinks, object_files, obfiles, object_msfs, obmsfs, object_segments, obsegs, path, process_dir, pd, segments, segs, select, severity, shortest_path, strip, strip_component, spc, strip_entry, spe, suffix, underline, unique, zero_segments, zsegs; objectname: equal_name; synonym: equal_name, enm; retain: equal_name, enm; objectname: entries; synonym: branches, nonbranches, directories, dirs, nondirectories, nondirs, exists, files, nonfiles, links, nonlinks, master_directories, mdirs, nonmaster_directories, nmdirs, msfs, nonmsfs, null_links, nlinks, nonnull_links, nnlinks, object_files, obfiles, nonobject_files, nobfiles, object_msfs, obmsfs, nonobject_msfs, nobmsfs, object_segments, obsegs, nonobject_segments, nobsegs, segments, segs, nonsegments, nonsegs, nonzero_files, nzfiles, nonzero_msfs, nzmsfs, zero_segments, zsegs, nonzero_segments, nzsegs; retain: branches, nonbranches, directories, dirs, nondirectories, nondirs, entries, exists, files, nonfiles, links, nonlinks, master_directories, mdirs, nonmaster_directories, nmdirs, msfs, nonmsfs, null_links, nlinks, nonnull_links, nnlinks, object_files, obfiles, nonobject_files, nobfiles, object_msfs, obmsfs, nonobject_msfs, nobmsfs, object_segments, obsegs, nonobject_segments, nobsegs, segments, segs, nonsegments, nonsegs, nonzero_files, nzfiles, nonzero_msfs, nzmsfs, zero_segments, zsegs, nonzero_segments, nzsegs; objectname: get_pathname; synonym: gpn; retain: get_pathname, gpn; objectname: process_dir; synonym: process_dir, pd, home_dir, hd, default_wdir, dwd; retain: process_dir, pd, home_dir, hd, default_wdir, dwd; objectname: severity; retain: severity; objectname: underline; retain: underline; objectname: contents; retain: contents; objectname: select; retain: select; objectname: path; synonym: component, directory, dir, entry, entry_path, is_component_pathname, icpn, path, shortest_path, strip, strip_component, spc, strip_entry, spe, suffix, unique; retain: component, directory, dir, entry, entry_path, is_component_pathname, icpn, path, shortest_path, strip, strip_component, spc, strip_entry, spe, suffix, unique; /* END */  contents 12/09/86 1518.7re 12/09/86 1518.3 83448 contents @TT TT+V?TTTTNVT%T'TTT-exTT-toNTVT"V -fm-rql-nnl-nlV4#L-exclude-match-from-newline?#cleanup-no_newlineFollowing ^a.-requote_lineSearching for /^a/Illegal regexp: /^a/No lines selected.Line ^d not found.^[/^a/^;^a^] not matched.Missing argument following ^a.Pathname already supplied. ^aOnly one line range is allowed. ^aNon-numeric argument "^a" following ^a.Usage: contents path {-control_args}Usage: [contents path {-control_args}]Return string of ^d characters is too long.P%@C@&@@(@@*@R@,@$@P@R@$PNPB(@ P\@^@B@P\@^@ @@(@@@@A@@(@f@ޫ@֫@@@ث@`@L @P'@.@@@ @CN@/(@@&@F@(@D@*@/@,@$@$PP@FPD@T`-.@.@>N F`- F`A(@@(@ F`(  F`A@@(@ F`#  F`A(@@@ F` F`*@CN@0@D@V/@@@4$$$$PP4@6@$@8@FP:@>@@@B@/@D@2@\@@Pݟ0@@tr F`۞@N؁ޟ@ӿ0@ԁ/@@ca F` 0@@j/@.S F` F` 0@@X/@AD@V/@^a.@$PP4@j6@.@8@@:@>@@@zB@/@D@2@\@@% F@ @@`D@V/@.(@@@ $ .@4@E6@$@8@@:@X>@b@@SB@/@D@2@\@@,@ F@/B@/(@@@($(/@4@$6@$@8@9:@C<@3>@2@ $P P@/(@@@($(/@4@6@$@8@#:@-<@>@2@ $PP@/@.(@/@&@F@(@D@*@.@,@$@$PP@@H@`@J@@L@S@N@R@P@R@T@V@X@ Z@F@$PP@R@^a.@R@4@6@.@8@@:@>@@@B@D@2@\@@@`@^@@`@S@b@d@@f@H@h@R@j@l@n@p@r@t@v@x@\@$P"P@֟@տ0@,^a.@`@4@@6@S@8@z@:@<@>@@@B@2@$P(P@R@4@6@.@8@z@:@>@@@B@D@2@\@@@H@> F@A@ Pu`?@.@.@@.@.@.@@.@@@@Pҫ@О@@(@@@A@J Ԟ@N@TPѝ@T` .@.@@О@~@@@@T@@i@@ `@`@@@@@@@$P*P@P@@@@@ @T@@i@@ `@`@@@@ @Ԟ@>@>@P@FҪ@T@О@i@@ `@`@@@@ @B@@@(@$P&P@@@@@@@@$P@@@(@(@P@О@@@0@@JN@(@B@(P @P@T` .@.@>@@@>@ A@@@~@@,@@À@!NN@۞@NN@@׿0@@ @@@ޟ@ƿ0@ ڝ@@@@@0@2(@P@@@N@'@$PF@F@F@@ª@@Ī@@ƪ@@@ V@F@@P@@@@@M@@,@@e@0@3(@P@@ @N@'@$PF@F@F@@ª@@Ī@@ƪ@@@T V@F@@P@@@@@M@@,@@/@@@T@@i@@P `@`@@@ª@@Ī@@$P*P@P@@ª@@@  @@V@P@@ª@@}@@@.@P@@F@@B@m̫@@(@$P&P@@@@ª@@Ī@@$P@Z@ANN@(@@@d.@@Ҫ@Ԫ@@֪@@ت@ܪ@ު@@@Б@\@@9@0@!@V@(@@@@@@@@@@P@@@@@@@@\@@(@@@@Ҫ@Ԫ@@֪@ڪ@ܪ@ު@Б@ \@@@pP(@"PP@@@ P@B@A@>PA@>@N@B(@@@,D,A@>A@B@R@ST@D@V@A@X@f\@p^@V`@Sb@P@@\@@@@A@@@@@P@ F`@@N@,@ F@0@PP@P@͞@~@@N@@@@.@ e@`)PPd@A@B(@&PF@d@H@A@J@B@L@D@$P@ P@@A@ d@B@A(@$P&PF@d@H@B@J@A@L@D@$P@@@@PNPP F@j FFf @FP.PP@0@ P@0@P@0@@@@@(@(@P@@@PP@P@@ @P @@@@@R@@@$$P,P@R@P P@$P0NPCR@AN"PPV@(@@@@@@@@@P@P@ @"@$@@&@@\@@PPV@@@R@@~@@@P@P@ @@@@@@\@@P (P@`P'@ P֟@0@@(@A(@@D@@@F@^H@A@J@~L@cN@bP@yR@B@.P@ P@|0@P>@@ P@r0@P>@@@ @ @A@P@(@ PP@P@@ @ @A@P@(@ PP@P@(@@CN@LL*@K.,@$PP0@2@*@4@ PP6@*:@ <@>@P@P@@.@\@@,@)(@@0@@2@@4@)@6@.@$PP@P@T`-.@.@>N)(@@@5 . )@D@F@.@H@ P@PJ@N@P@R@PPT@B@\@@`@W@V)@@D@R@F@V@H@)@J@L@N@B@ $PP@V@ PPR@ןP@P@PP@PP0@P2@ P4@.@ @ P P6@@P)@V)@V(@@@(B(V@Z@z\@B@^@P`@Pb@f@h@j@)@l@PPn@X@\@@  P@PP@P@ @@@؟@0@@r@p@$P P@PP@~0@C@~@>@@>P@@@@(@P"@@i0@C@~@>@@>P@@@@(@P"@"P> @"PPPNP@P F@@ FF @"PFP~O@@FO  @ "PFPOPP@O@ !!!!! !!!!!!0!J!I.#!/!J!I!0!J!I.# !/!!!! #.#" !0!!!!$#.#"?#/contents  symbol_table active_fnc_err_ suppress_namecom_err_!$cu_ af_return_arg'(,arg_ptr'/1 cv_dec_check_448 error_table_badopt;?A inconsistent;DHnoarg;KM not_act_fnc;PSexpand_pathname_ componentV[^get_system_free_area_aaginitiate_file_j[niox_ put_charsqsv user_outputqy| pathname_[requote_string_ search_file_silentterminate_file_nomatch; ` cleanup.1 put_next_linecleaner|2&&&#&&&.&3&:&C&J&O&U&`&i&p&x&~&&&&&symbtreeM.vTM(PL/I 3!& *S]w]]Multics PL/I Compiler, Release 29, of July 28, 1986GJohnson.SysMaint.aoptimize map8hEM(@$NIXI(\gqK-L>spec>install>1238>contents.pl1>ldd>include>terminate_file.incl.pl1>ldd>include>access_mode_values.incl.pl1pl1info [contentsOe?P()g/@-link -dm_file -multisegment_file -directory -segment SUFFIX01U    branch nonbranch component directory dir nondirectory nondir entry file nonfile link nonlink master_directory mdir nonmaster_directory nmdir msf nonmsf null_link nlink non_null_link nonnull_link nnlink object_file obfile nonobject_file nobfile object_msf obmsf nonobject_msf nobmsf object_segment obseg nonobject_segment nobseg segment seg nonsegment nonseg nonzero_file nzfile nonzero_msf nzmsf zero_segment zseg nonzero_segment nzseg segments directories msfs links entries branches files zero_segments master_directories null_links nonsegments nondirectories nonmsfs nonfiles nonzero_segments nonmaster_directories nonnull_links nonzero_files nonzero_msfs nonbranches nonlinks object_files nonobject_files object_msfs nonobject_msfs object_segments nonobject_segments exists linkN^/^aXT$T"L$V V?TTTtrueTTTP@@ @t@w@T@w@i@@w@ `@`x@@v@@@@@@@ $PBP@ @v@@@v@@x@@@@@@y@@ @@(@w@T@w@i@@w@ `@`x@@v@@@@r@l@@ $PBP@ @v@@@v@@x@@@@Y@V@H@@ @@}(@&@@@@N@*F@@@D@A@@@m@@@@@,@@5@@@ N@@PP `@$N@@@ @@$PLP@B@@ N@@PP `@$5@@@@@$PLP@)@@@(P"(@@@&@@x@@@@@@@@ @@ @@ @@@@$PLP@.@_@@ڨ@ܪ@Aު@P@@(@PP@@@@@@@v@@P@P@@@@@@$P8P@v@ @ F@ X@ s F@ $P0Pv@ F@ J s F@ $PPv@ F@=. F@ 9*r@N"@%@@~PP@0@ڈ@w @s6G@kPP@0@ڈ@d@@v@@B@S@@$PP@v@NN[r@NGv@$P$NP *NP(NP,NPLPP@0@ڈ@Ξ@>@@ @N5@@1PF@:@ @@PF6OFJ@@PN@@@@@@@@E.@@@@@.@@PP@0@@ڈ@$@ @@ @@@@$PLP@@^a@v@@x@@@@PP@@@@P@P@@@@PP@0@ڈ@@@A@P@@@ɀPP6@@ŀ (@@ @@@@@ @@@@@@ @$P4P@ (@@ @@@@@ @@@y@v@@ @$PDP@(@@)@ @  @)N@I@GƝ@PMFA@@*@ @  @*N@PFP@P@ `F@ @ ,@,@$PZP@$$M@N@ (@@@$ $ @@x@ @ @"@C&@D(@.*@@ @@k@@PFP@P@ @@` ,@@,@$PZPN@ (@@@$$ @ @x@@@@@@@ @ @@CƝ@@PO,@@$$M@N@ (@@@u$$ @ @x@@@@@@@ @ @@"@@PFPP@ @@`@@ D (@@ @P@@@ @@@PP@@@ @$PDP@@+@ @ @+N@Ɲ@PMF@ ,@,@$PZPN@ (@@@"$$ @ @x@@@@@@@ @ @@Ɲ@@PO@% F@V>@@u@>@.@.@@ @ ~@ @>i@ @ `@` E@=N@ `@` @(@PP@u`@>@.@.@@ @@ ~@ @~@ N@ @@.@ o@`@@@4P@~@$N@$@@.@ e@`%@T @@i@@@ `@`.@ @ @"@0@$@@$PXP@0@@P1@.P@~@1N@1@@.@ e@`@ @;@$>@tN@"$@>0@T @0@i@$@ `@`%$@ O@@@ @ @"@$@@$PNP@ @t@~@$~@t@ @ @@@ @"@$@@$PNP@ @~@Nt@@@ %@$@ %@$@@@,@.@PNhPPF2@P@@ /3@2@Vu@.ž2@@@@3@5(@6(@@:@PO<@3@>@5@@@6@B@v@D@F@2@H@J@L@N@P@8@$PHP@v@J@@4@'2@@@@6@@:@PO<@6@>@2@@@3@B@v@D@F@2@H@vJ@sL@pN@P@8@$PHP@2@N3@2@.PP2@NJ@2@P@0@2@,@3@J@2@2@NJ@2@2@P@0@2@,@2@NJ@2@P@0@2@,@2@J@2@P@0@2@,@@"@P6@@ @6N@(@@@  PF2@@-M&6@@:@2@O<@J@>@@@@v@B@D@J@6@F@*H@%L@8@$P6P@aΞ@>@5@ 5@NPF6@FWu@r2@2@5@PF@PF:@<@2@>@@@8@@8r2@6@O@@:@PF<@@>@v@@@B@2@D@F@H@8@$P:P@@PF @F@ N2@6@PO@PF:@<@2@>@@@8@@92@6@O@@:@PF<@@>@v@@@B@2@D@F@H@8@$P:P@@PF @F@ 2@6@PO@PF:@<@2@>@@@8@@Ƹ5.@gԟ@0@&֞@NW@6@Ξ@>@PFFJ@6@G2@O6> F2@2@O85@O@5>@2>@@@Ξ@>@@@@@@ ,@ 4@ Ξ@>@..PP@0@,@'Ξ@>@5@ 5@N )2@5@PF6OFJ@6@PN:@6@<@2@>@'@@8@@d5.@.PP@0@@,@2@M@2@P@0@2@,@2@NJ@2@NJ@2@2@P@0@2@,@3@J@2@2@NJ@2@2@P@0@2@,@PPP@0@@,@2@J@4@2@P@0@2@,@2@NM@2@P@0@2@,@3@J@2@2@NJ@2@@2@P@0@2@,@2@NJ@@2@P@0@2@,@2@NJ@2@NJ@2@@2@P@0@2@,@3@M@2@2@NJ@2@2@P@0@2@,@P@P@@ @@2@2@NJ@2@2@P@0@2,@4@@2@2@J@2@2@P@0@2@,@2@N 3@M@2@P@0@2@,@N%l2@P@P@@:@PF<@3@>@6@@@sB@2@D@QF@lH@8@@-6@@6@.PP@0@6@,@P@0@,@2@N%@2@P@P@@:@PF<@3@>@6@@@GB@2@D@%F@@H@8@@6@@6@.PP@0@6@,@P@0@,@2@NN!2@P@P@@:@PF<@6@>@@@2@B@D@8@ @|6@@6@.PP@0@6@,@P@0@,@2@NN"2@P@P@@:@PF<@6@>@@@2@B@D@8@ @R6@@@6@.PP@0@6@,@P@0@,@2@N!2@P@P@@:@PF<@6@>@@@2@B@D@8@ @)6@@6@.PP@0@6@,@P@0@,@2@N"2@P@P@@:@PF<@6@>@@@2@B@D@8@ @6@@@6@.PP@0@6@,@P@0@,@2@N!n2@P@P@@:@PF<@6@>@w@@2@B@rD@8@ @ظ6@@6@.PP@0@6@,@P@0@,@2@N"F2@P@P@@:@PF<@6@>@O@@2@B@JD@8@ @6@@@6@.PP@0@6@,@P@0@,@ 2@P@P@@:@PF<@ >@B@@@A@B@v@D@#F@2@H@J@L@N@P@8@$PJP@B@#0@ @:@v@<@>@@@8@$PP@v@NN ~42@@2@.PP@0@2@,@R@2(@B@:@A@<@@>@R@@@2@B@v@D@F@L@H@N@J@P@8@$P P@v@.PP@0@,@$P0NPڀNP؀.PP@0@,@8@(@(@@V@@X@@Z@p@\@@^@@`@@b@@d@v@f@h@j@l@n@t@v@p@r@x@T@$$PFP@8@>@@@AB@P@z@P@{@ @}@~(@@@PP@P@|@@}@@ @@~@@@@v@@BP@P@@P@\@g@@g@F@_@@ $PRP@(@~(@ @@@@@~@@R@1@.@H@@$P\P@v@J@~@@PP@0@~@>@D@F@AH@P@@P@@FPP@P@N@@HP@P@@P@!@@ $PTP@M(@FPP~x@K(@K@xN@B@@K@@ t@ >@.@.@@@ ~@@T@@i@@@ `@e@(@N@@@@@@L@ª@J@Ī@ƪ@@Ȫ@ʪ@̪@Ϊ@Ъ@@$PHP@ @J@M@$L@M@K,@M@C@@FPP@0@@D@z@|@ןH@ (@|PP֪@Pت@H@ڪ@@ܪ@@ު@v@@@@@@@@ԑ@$PP@v@|PP@0@z@H@0@|PP@0@z@@֪@|PPت@v@ڪ@vܪ@ު@@ԑ@ $PPP@v@|PP@0@z@@z@WpP'@ P@0@w@T@@w@i@F@w@ `@`xA(@@H@A@J@@@L@ZN@TP@D@ VP@ @ Pğ@`0@w@T@@w@i@F@w@ `@`xA(@@H@A@J@@@L@;N@5P@D@ $PVP@ @.@F@ P @;0@@(@A(@ @T@@@V@X@A@Z@\@^@`@b@R@$P\P@ PB@0@A(@@(@ @T@A@V@X@@@Z@\@^@`@b@R@$P\P@ P@0@P>@@@`PP'@ Pԟ@0@!֞@NW@A@Ξ@>@PFFJ@A@G@@O6> F@@@@O8B@O@B>@@>@@@ PП@Ϳ0@Ξ@>@@@ PBЫ@Bԫ@@ipP(@"PP@U@B@@No@P'@ PB@0@@@>B@@@"PP@@@@@> PpP@B@PP@@U@ `@`@ P@ BP@@T`,.@.@>T`,.@.@>V@@@V~@V@W@@@@@@EW@ `@`@ P,@ P@>pP@PP P@@@T@ T@PP@PF @@ PT@T,@@NPBPP@@U@ `@`@ PBs@Bt@D@ BP@@ F`qT`,.@.@ @@`E E@@-MO F@E @@ E  F@E @@ E  F@E  @@ E  F@E &@@ E  F@E @@ E D@P@PPF@@@E @ F@E  D,@ PBs@X@E@\@X@^@@v@`@b@d@f@Z@ $PV@@@V~@V@W@@@@@@EW@ `@`@@@>B@@D@~PP@PP(P@@@PP@@ @N@PP@PFP @F@ @ P@,@P(P@ f !B!A!!2!!2!r!!!zj!5!?#>^a-entries  symbol_tableBiox_ user_outputactive_fnc_err_archive_ get_component!%next_component(,com_err_//2check_star_name_entry5:<cu_ af_arg_ptr?@C af_return_arg?FJ arg_count?MParg_ptr?SU error_table_archive_fmt_errX\`archive_pathnameXchbad_argXkmbadoptXprno_s_permissionXuynoargX|~no_dirXnoentryXnomatchX not_act_fncX not_archiveX too_many_argsXexpand_pathname_ add_suffix componentfs_util_get_typesuffix_info_for_typeget_line_length_switchget_system_free_area_get_temp_segment_hcs_ get_uid_filestar_dir_list_ status_minfinitiate_file_ioa_nnlmatch_star_name_  object_lib_initiate pathname_release_temp_segment_!!'requote_string_**.sys_info max_seg_size148terminate_file_;;?G `filesLB$`EsegsRG-`JsegmentsWL4`Odirs]R=`U directoriesbWD`Zlinksh]M``branchesmbV`enonsegssh_`k nonsegmentsxmf`pnondirsso`vnondirectoriesxv`{msfs`zsegs` zero_segments`mdirs`master_directories`nlinks` null_links`nonmsfs`nonfiles`nzsegs`nonzero_segments`nmdirs`nonmaster_directories`nnlinks` nonnull_links`nzfiles` nonzero_files`nzmsfs ` nonzero_msfs`obfiles` object_files!`nobfiles *`nonobject_files1`obmsfs :` object_msfsA`nobmsfs"J`nonobject_msfs'Q`obsegs."Z`%object_segments3'a`*nobsegs;.j`1nonobject_segmentsA3q`6 nonbranchesG;z`>nonlinksLA`DexistsRG`J cleanup.1WLOCleanup`R Ufree_star_structuresiWZprocess_entry_type_listo`c cleanup.2ril 4^&&&'&.&4&>&E&L&R&W&b&j&o&t&{&&&&&&&&&&&&&&&&&&&&& &&& &)&0&:&AsymbtreeM.vTMSgfPL/I 3!& *YEVMultics PL/I Compiler, Release 29, of July 28, 1986GJohnson.SysMaint.aoptimize map PhيMSˀX(\gqK-Lb QrJDj,QrJEu!%*0DeȀ~%HI#'K"I旌![מK$NIX>spec>install>1229>entries.pl1>ldd>include>access_mode_values.incl.pl1>ldd>include>copy_flags.incl.pl1>ldd>include>file_system_operations.incl.pl1>ldd>include>object_info.incl.pl1>ldd>include>star_structures.incl.pl1>ldd>include>status_structures.incl.pl1>ldd>include>suffix_info.incl.pl1>ldd>include>terminate_file.incl.pl1pl1info entriesmFkF@|P_ׁ5#j+ F@|_ׁ5#j+ F@|P_W5#k| @Xf<È xo` iM@K@@@V @@$@M@&@w@(@@*@L@,@ @.@0@2@4@6@"@$PP@L@ @@V @ @me@^a @L@$@ @&@ @(@DP*@.@0@2@ @4@"@@@@@:@@<@w@>@@@@@B@@D@L@F@H@J@L@N@P@R@T@8@$PP@L@8 @me@@@(( F@ MM@ @ F@ HM@ @L@X@ @Z@@\@w@^@ @`@@b@@d@ @f@@h@l@n@{p@|r@v@x@|@st@z@V@$@@@K@4M@$@@&@@(@@*@L@,@d.@4@`0@2@\6@"@$PP@L@C\\ @me@@@Z L@$@ @&@@(@E,@I.@F0@"@ @@@) F@  @@@ u@ >@.@.@@ @  ~@~>i@ `@` O@ @ > @@ @ E@@ @ @@` @J@^a @ @@@@@ @@$PP@+u@>@.@.@@ @ ~@ @T @ @i@@ `@`@@ @@@@@$PP@@@AN@A@FPFPP `@`@ @@?#:: equal_name  symbol_table` active_fnc_err_com_err_ suppress_name!cu_ af_return_arg$%)arg_ptr$,. arg_count$14expand_pathname_ component7<? pathname_component_checkBEIget_equal_name_L<Pioa_SSUrequote_string_XX\enmc 3`_f`:`&&&#&+&0&6&A&K&R&W&^symbtreePc+%JPܢ#QzPL/I 3!% (7fBN\cBBMultics PL/I Compiler, Release 33a, of May 30, 1990Fudge.SysMaint.aoptimize map.!Pܢ$>spec>install>1032>equal_name.pl1pl1info ? equal_nameI%?iZ<O Ӊ4xGTɐPk + VjVj@+|ZP+VjV`Z@eU*eU*eU*eT obj_map g$:f  get_pathname 09/04/90 1204.7re 09/04/90 1204.3 29952 get_pathnameT ^oT$T#TTVT TTT T4V-nm#-nameCalling sequence is ^a is not a known reference name. "^a" cannot be a reference name. ^a^/^a:^-[^a ref_name]^/or:^3-[^a octal_segment_no]^/or:^3-[^a -name octal_ref_name] P%@ P%@D@@H@@C@@L@@@ P@L@$P"NPM@ P@@D@@L@@@P@L(@M(@P@@L@D@N*@@@F@@@@@L@@@$PP@FP@@ F` F`@@@F@@@@@L@@@$PP@+@@@F@@@@@L@@@$PP@@@V@FP@L@@@ª@@Ī@Rƪ@Ȫ@@ $PP@L@@@J@@@ NޅV@FP@J@@L@ª@@Ī@3ƪ@4Ȫ@@ $PP@L@J@̪@N@Ϊ@A@Ъ@x@Ҫ@L@Ԫ@֪@ت@ڪ@ܪ@ު@ʑ@$PP@L@T@x .@.@!>@B@A@>i@A@ `@`N O@@B>@@@@B@ e@`x@ @@` @M@^a@@@@@@@@$PP@+u@>@.@.@@@~@@T@@i@@ `@`@@@@@@@$PP@@@CN@C@HPHPP `@`@ @@$P(PL@x@F@@(@@@V@@@@@XX@@@@@@@@@L@@@@@@FP@@@@@@@@@}@r@@@@l @@ @g@@ @@@$PPL@$P&PL@$PPL@@@V@K@K@@@k$$L@̪@@Ϊ@@Ъ@FPҪ@N֪@Cت@>ڪ@@ܪ@ʑ@@@@@@V@,@,@@@C$$$P$P̪@@Ϊ@@Ъ@FPҪ@.֪@#ت@ڪ@@ܪ@ʑ@@@@@@@$P P̪@@Ϊ@@Ъ@@Ҫ@֪@ܪ@ت@ڪ@ʑ@@@@?#>! get_pathname symbol_table active_fnc_err_com_err_cu_ af_return_arg# arg_count&)arg_ptr,. cv_oct_check_115hcs_fs_get_path_name8:?fs_get_seg_ptr8BFioa_IIKrequote_string_NNR error_table_badoptUY[bigargU^` invalidsegnoUcg not_act_fncUjm seg_unknownUpssmallargUvywrong_no_of_argsU|gpnD`K`*&&&%&+&0&7&A&H&M&T&]&b&i&o&u&{&symbtreePc+%JPܢ2PL/I 3!% (7mBOajBBMultics PL/I Compiler, Release 33a, of May 30, 1990Fudge.SysMaint.aoptimize map.#Pܢ2>spec>install>1032>get_pathname.pl1pl1info ? get_pathname5?P N)<O Ӄ4xמzSx^6PZjkʨkZ Vj@ #PkVjZPkZkQk @eU*eU*eU*eU*eU*eT obj_map *m4  path 03/24/83 1506.7rew 03/24/83 1505.0 80280 TNV?N$TTTT TTT trueTTXTV T TVVTT LTTpathVV#uniquesuffixstripfalseentrystrip_entryentry_pathcomponentdirectory!BBBBBBBBBBBBBBstrip_componentshortest_pathForming pathname.Creating pathname.is_component_pathnameUsage: unique {octal_number}Usage: [unique {octal_number}]Usage: ^a ^[path^;path {string}^;path {string1 {string2}}^]Usage: [^a ^[path^;path {string}^;path {string1 {string2}}^]]{P%@@@@@u@P%@@@@@@K@@NN!K@V@@@@̀ ̀ @V@FPX@@Z@@\@@^@Z`@@b@Zd@Rf@[h@T@$P P@#K@V@L@V@@@@̀ ̀ @V@FPX@HPZ@@\@@^@7`@@b@@d@/f@8h@T@$P P@@@@XT@"@T@$@((@*@ @@ F@ @ @V@ @X@ Z@\@T@$PP@u@ >@.@.@@@~@BN@B@@P@P `@` du@>@.@.@@@ʞ~@BN@B@@P@P `@`RP%@P%@@y@@@S@@9 @@@Mʀ F@ @V@ @X@Z@\@T@$PP@u@ >@.@.@@S@S~@BN@B@@P@P `@` u@>@.@.@@S@ʞS~@BN@B@@P@P `@`@B@XS@^a@@V@@P@X@Z@S@\@T@$PP@ F@ @PTS@@Pi@V@@P@ `@`l@X@S@Z@@\@T@$P$P@@@BN@B@@P@PlP `@`@ @@P%@_l@S@@@@u@ >@.@.@@@ ~@BN@B@@P@P `@`P%@E@t@@@S@@ F@ #u@ >@.@.@@S@ S~@BN@B@@P@P `@`xu@ >@.@.@@S@ S~@BN@B@@P@P `@`fP%@P%@ T@ V@ X@S@@@u@L F@  BN@B@@P@P `@$=BN@B@@P@P `@$3P%@՝՞@th@@@S@4@!M@V@@X@S@Z@@\@@^@`@f@b@d@h@T@$P P@@ßT@ßV@.X@@"@T@$@(@~*@ @@u@>@.@.@@S@ʞS~@BN@B@@P@P `@`P%@{l@@@@@ҸDP%@P%@x@x@@@@@ F@ K @@@ " @@@ P%@€P%@B@B@@@@b@ @@@ ʀ@NQP@::.@.@>@u@.@.@@>@˞~@@>@ʞ~@@@Ue..@.@>@˞~@@˞N@@N FFu@>@.@.@@@ʞ~@BN@B@@P@P `@`D~BN@B@@P@P `@`:u@>@.@.@@@ʞ~@@ʞ~@BN@B@@P@P `@`@KN@#K~@@~@ʞ~@K>@i@ @@FPK@ `@`@@ nF` @K~@~BN@B@@ `@` @ǀP%@l@@@S@,@ F@ @@@ U@ ..@.@>S@!S~@@!N@(Pu@ >@.@.@@S@ S~@N@@(P ~@@S@uo>@.@.@@@S@~@BN@B@@P@P `@òP%@ @@K @V@@@X@B@Z@@\@T@$PP@@$P NP(@@@@ʞB@@@{N1@(@(l@@@` T @"@l@$@T@&@(@*@,@ @ P@(@l@@@A T @"@l@$@T@&@(@*@,@ @ P@@@V@D@X@J@Z@@\@T@P@J@V@DPV@@X@@Z@@\@^@`@T@ $P P@@J@T@J@i@X@DP `@`$PPV@\@@^@T@.@ @@ BN@B@@P@P `@$@@(@@V@@X@Z@\@T@$P"P@BN@B@@P@P `@`@ @A @P@n@P@o@ PPn@ @@`@ @r@@@t@B@v@@x@p@$PP@@$P NP(@@@@ʞB@@@ PNPNP?@z(@@@@|@z@@P@|@@P@P@=@ P@P@2@@P@G@@P@z(@@@<|.path  symbol_table{ error_table_bad_conversion not_act_fnc cv_oct_check_ $active_fnc_err_''+ suppress_name'.2com_err_5585.;ioa_>>@cu_ af_return_argCDHarg_ptrCKMexpand_pathname_ componentPUXget_shortest_path_[[` pathname_component_checkcfj unique_chars_mmqrequote_string_ttx ` shortest_path{`~dir6` directory=`entry``Uicpn"`is_component_pathname)` entry_pathU`strip`spc`strip_component`spe` strip_entry`suffix`unique`error&&&&&&-&4&:&=&B&J&O&Z&b&l&s&zsymbtreeIIDsPL/I 7"' *7@g@@Multics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0MgI,>spec>on>03/24/83>path.pl1pl1info ?path+5G4i:.@|IOӃ 9 >|#P_WOSmx;iºV i F@u j @@@v@~@P@1 F@u U @@~@P@@@@@#@@«@@@m@@~@P@m@$PP@u@@S@P@@p@@@Nm~@m@ o@@o@,u@@>@.@.@@@~@@T}@Ğ@i@@ `@`@@@}@@@@~@$PP@Ş@@nN@n@jPjPP `@`@ @^a}@}@@@@@ @ @~@$PP@@?# process_dir  symbol_tableh active_fnc_err_com_err_cu_ af_return_arg" get_pdir_%%(get_default_wdir_++0hcs_fs_search_get_wdir35:ioa_==?requote_string_BBF user_info_homedirILN error_table_ not_act_fncQUXno_wdirQ[] too_many_argsQ`dpdk '`goh.`hduk8`nhome_diryo?`rdwduI`x default_wdiryP`| &&&$&*&2&<&A&H&P&Z&_&fsymbtreeNdNspecial_ldd>install>MR12.2-1054>process_dir.pl1pl1info D process_dirSe' h<O Ӂx7xw8Pk + Vj+Zׁ5ZPk_j@ +XVJ+V`ZZj@eU*eU*eU*eU*pobj_map  o0  select 11/04/82 2025.5rew 11/04/82 1717.9 28944 selectTTBTtrueTXTV4T T LT&V#false^[^x^]^a[^a ^a]?#Argument ^d.Argument 1.Usage: ^[[^]^a test_string {args}^[]^]Test result for argument ^d (^a) is neither "true" nor "false". ^aX0P%@T@ڪ@@ܪ@@ު@H@@ؑ@P@H@ D@$P PJ@ԟL@ PN@P@(P$PNP D(@PJ@ǟL@PN@P@H@ڪ@ܪ@ު@@ؑ@P@@T@ (@@@((@@@@@D@@|@D@@@@@@@@@N@@@@@ڪ@B@ܪ@@@ު@H@@ؑ@P@H@xx@w@H@@R@@@`@]@W@@ J@@@R@T@@S@S@N@DS@ڪ@F@ܪ@E@ު@H@@ؑ@$PP@H@CF@F@H@@$@@@S@@0@-@&@#@@J@@@E@V@FPڪ@@ܪ@@ު@@@ؑ@$PP@@@@@@>@>@@T@@@i@BP@@ `@`@ E@@@@P@ e@`@@@@V@@H@@@@@@@@@$PP@ @H@1޸@@V@E@V@FPڪ@@ܪ@@ު@@@ؑ@$PP@ʟ@H@@@@@BP@P@@@@@@@@@J@@ @@U@ F`VLD@.R@ P@N@,@ F@E@V@FPڪ@@ܪ@@ު@@@ؑ@$PP@@@P@P͞@~@N@@@.@ e@`@ @E@V@t@R@@@@@@@FP@W@_@@@@ $PP@R(@NU@ F`VYIYE@V@FPڪ@@ܪ@@ު@@@ؑ@$PP@U@T@U@i@ڪ@U@ `@`V@ܪ@@ު@@@ؑ@$PP@(@@@FDD@ @@@@S@@P@P@@@ @ @@"@@$@ @J@@ @@S,@D@ ^/@@ڪ@ܪ@ؑ@$PP@@Ҩ@D@R@ ^/&@&@*@,@(@$PP@҈@?# select  symbol_tableX error_table_ not_act_fncactive_fnc_err_af_suppress_name %com_err_((+ suppress_name(.2cu_ af_return_arg56:arg_ptr5=?evaluate_active_string5BHioa_nnlKMNrequote_string_QQU[ >`-&&&'&-&4&<&A&J&P&WsymbtreeIIRPL/I 7"' *FrP\ioPPMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map4Ky))I~;,<êGA>dumps>old>recomp>select.pl1>ldd>include>cp_active_string_types.incl.pl1pl1info Nselectg?P@x- <{OӂMxǞoP +!PkP Z Z+ZUP@eU*eU*eU*eobj_map --\r  severity 11/04/82 2025.5rew 11/04/82 1717.9 28656 severityT8T(4TTT)VT$-dftTT/TV#-default?#_severity_Unable to access argument #1.Unable to access argument #^d.Default string missing following ^a.^/Error accessing severity indicator ^a.Unable to access default string argument.^/Usage: severity indicator_name {-default STR}The severity indicator ^a is not a single word variable.RP%@R@b@T@d@S@f@J@h@`@P@J@ $PPN@P@ PF@H@@@T(P$PNP  PN@P@PF@H@@(@J@l@on@_@p@}r@zt@wv@j@  P@@R@@@0j0Pz@Y|@j@~@g@d@`@x@ N@@@`L@B@B@RN@B@l@D@n@A@p@J@r@j@F@@J@@@X ` J@@0@`@@B@@<@9@4@1@@N@@@DPA@ F`/ F`#DB@RN@A@V_@@@8$`$$PP@@`@@@@@@@_@@@N@@@B,@B@l@L@n@K@p@J@r@j@F@@J@1@@#,j,J@z@|@j@~@@@@x@ N@@@A@V_@^a@$PP@@@@@@@@@_@@@N@@@B,@n_@_@l@D@n@A@p@J@r@j@F@@J@@@ ` J@z@|@`@~@@@@x@ N@@@A@ >@T_@@i@DPA@ `@` E@ @\@@^@@Z@@J@@_@@{@@w@@@$PP@ @J@@L@{0@A@V_@@@(`(J@@Z@`@@DP@f@c@T@_@@@N@@@@@ K@SN@S@TPTPLP `@`@K@V_@^a@@b@LPd@9f@_@h@`@$PP@@^@NA@V_@(@@@u8j8@@@j@@DP@@$@@_@@@N@@@\PY@@@Y` @@` ;V @@t@V >@.@.@@_@ _~@SN@S@_@TPTP `@eV!t@V >@.@.@@@ ~@@T_@^a@@i@d@@ `@eV@b@f@_@h@`@$PP@ @@ j ?#severity  symbol_tableR active_fnc_err_com_err_cu_ af_arg_ptr! af_return_arg$(arg_ptr+-get_external_variable_006ioa_99; error_table_badopt>BDnoarg>GI not_act_fnc>LOU d`<&&&#&*&/&8&=&F&K&QsymbtreeIIPL/I 7"' *8aBLX^BBMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0Ky)*I>dumps>old>recomp>severity.pl1pl1info @severity5?ASxG>idPk + VjZZkVj ZUXV@@eU*eU*eU*e obj_map <<Va  underline 11/04/82 2025.5rew 11/04/82 1718.1 23112 4>`P%@C@P@H@R@B@T@J@V@N@P@J@C@ BN@B@HPHP `@$@BN@B@HPHP `@$C@L@K@K@LN@K@P@D@R@@@T@J@V@N@$PP@@@oDP@@@XX@ M HP@@BN@@,@ F@@X@U HP@@BN@@,@ F@f@K"MHPB@@~@N@@@.@ e@$U@B@@~@N@@@.@ e@$M@3_MHP@@BN@@,@ F@@X@B@@~@N@@@.@ e@$8@HPB@@~@N@@@.@ e@$&@@@BN@@,@ F@@X@ HP@@BN@@,@ F@@@@N@@OD@@.@HP@BN@,@ F@K,@wHP~X@HPX~@HPHP FeX@BN@B@@@BN@,@ F@C@P@N@$P P@A(@C@M@K@K@MN@K@P@D@R@@@T@J@V@N@$PP@@@A>@>A@K,@C@F@P@N@$P P@`@ PA@@@>>A@@B@(@C@D@K@ PK@DN@sK@H@D@J@@@L@J@N@F@P@F@$PP@ P@@WDP@@@@EE@ M BP@@N@,@ F@@E= BP@@N@,@ F@3_MBP@@N@,@ F@@E@@~@N@.@ e@$mBP@@~@N@.@ e@$[@@N@,@ F@@E BP@@N@,@ F@P@@N@@@OD@@.@BP@@@N@@,@ F@:@K,@BP~E@BPE~@BPBP Fe@.E@@N@@@@@@@R@@@E@$PPH@R@J@E@L@J@N@F@P@@YZ@Y@$PPP@Z@R@Y@T@J@V@N@P@@_ """__ underline  symbol_table> cu_ af_return_arg arg_count arg_list_ptr"arg_ptr%' arg_ptr_rel*-iox_ put_chars025 user_output08;A `&&&$&)&/&7&=symbtreeIIPL/I 7"' *8^CLV[CCMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0Ky)-I>dumps>old>recomp>underline.pl1pl1info @ underline?*&i~