COMPILATION LISTING OF SEGMENT !BBBJXGgwMJhfgc Compiled by: Multics PL/I Compiler, Release 29, of July 28, 1986 Compiled at: Honeywell Bull, Phoenix AZ, SysM Compiled on: 02/16/88 1421.8 mst Tue Options: table map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* *********************************************************** */ 6 dial_out_sl_default_: 7 procedure (); 8 9 /* automatic */ 10 11 declare code fixed binary (35); 12 declare wdir char (168); 13 14 declare 1 cdsa aligned like cds_args; 15 16 declare 1 lists aligned, 17 2 dial_out, 18 3 name_count fixed binary, 19 3 path_count fixed binary, 20 3 names (1) char (32), 21 3 paths (3) like search_path; 22 23 /* based */ 24 25 declare 1 search_path based, 26 2 type fixed binary, 27 2 pathname char (168); 28 29 /* builtin */ 30 31 declare addr builtin; 32 declare hbound builtin; 33 declare null builtin; 34 declare rtrim builtin; 35 declare size builtin; 36 declare unspec builtin; 37 38 /* entry */ 39 40 declare com_err_ entry options (variable); 41 declare create_data_segment_ entry (pointer, fixed binary (35)); 42 declare get_wdir_ entry () returns (char (168)); 43 1 1 /* BEGIN INCLUDE FILE . . . sl_info.incl.pl1 */ 1 2 1 3 1 4 1 5 /****^ HISTORY COMMENTS: 1 6* 1) change(87-11-16,Lippard), approve(87-12-21,MCR7822), 1 7* audit(88-02-09,Blair), install(88-02-16,MR12.2-1023): 1 8* Modified to add INITIATED_SEGS type. 1 9* 2) change(87-11-19,Lippard), approve(87-12-21,MCR7822), 1 10* audit(88-02-09,Blair), install(88-02-16,MR12.2-1023): 1 11* Added uid to sl_info structure. 1 12* END HISTORY COMMENTS */ 1 13 1 14 1 15 declare 1 sl_info aligned based (sl_info_p), 1 16 2 version fixed binary, /* Must be 1 */ 1 17 2 num_paths fixed binary, /* Number of search paths */ 1 18 2 change_index_p pointer, /* Pointer to search list's update count */ 1 19 2 change_index fixed binary (71), /* This search list's update count */ 1 20 2 pad1 (6) bit (36), /* Must be zero */ 1 21 2 paths (sl_info_num_paths refer (sl_info.num_paths)), 1 22 3 type fixed binary, /* Type of search path */ 1 23 3 code fixed binary (35), /* Standard status code of search path */ 1 24 3 uid bit (36), /* Unique ID */ 1 25 3 pathname char (168) unaligned; /* Search pathname */ 1 26 1 27 declare sl_info_num_paths fixed binary; 1 28 declare sl_info_p pointer; 1 29 declare sl_info_version_1 fixed binary internal static options (constant) initial (1); 1 30 1 31 /* Keyword Types */ 1 32 1 33 declare ABSOLUTE_PATH fixed binary internal static options (constant) initial (0); 1 34 declare UNEXPANDED_PATH fixed binary internal static options (constant) initial (1); 1 35 declare REFERENCING_DIR fixed binary internal static options (constant) initial (3); 1 36 declare WORKING_DIR fixed binary internal static options (constant) initial (4); 1 37 declare PROCESS_DIR fixed binary internal static options (constant) initial (5); 1 38 declare HOME_DIR fixed binary internal static options (constant) initial (6); 1 39 declare INITIATED_SEGS fixed binary internal static options (constant) initial (7); 1 40 1 41 /* END INCLUDE FILE . . . sl_info.incl.pl1 */ 44 2 1 /* BEGIN INCLUDE FILE cds_args.incl.pl1 */ 2 2 2 3 dcl 1 cds_args based aligned, 2 4 2 sections (2), 2 5 3 p ptr, /* pointer to data for text/static section */ 2 6 3 len fixed bin (18), /* size of text/static section */ 2 7 3 struct_name char (32), /* name of declared structure for this section */ 2 8 2 seg_name char (32), /* name to create segment by */ 2 9 2 num_exclude_names fixed bin, /* number of names in exclude array */ 2 10 2 exclude_array_ptr ptr, /* pointer to array of exclude names */ 2 11 2 switches, /* control switches */ 2 12 3 defs_in_link bit (1) unal, /* says put defs in linkage */ 2 13 3 separate_static bit (1) unal, /* says separate static section is wanted */ 2 14 3 have_text bit (1) unal, /* ON if text section given */ 2 15 3 have_static bit (1) unal, /* ON if static section given */ 2 16 3 pad bit (32) unal; 2 17 2 18 dcl exclude_names (1) char (32) based; /* pointed to be cds_args.exclude_array_ptr */ 2 19 2 20 /* END INCLUDE FILE cds_args.incl.pl1 */ 45 46 47 /* program */ 48 49 lists.dial_out.name_count = hbound (lists.dial_out.names, 1); 50 lists.dial_out.path_count = hbound (lists.dial_out.paths, 1); 51 lists.dial_out.names (1) = "dial_out"; 52 lists.dial_out.paths (1).type = WORKING_DIR; 53 lists.dial_out.paths (1).pathname = "-working_dir"; 54 lists.dial_out.paths (2).type = UNEXPANDED_PATH; 55 lists.dial_out.paths (2).pathname = ">udd>[user project]>dial_out_dir"; 56 lists.dial_out.paths (3).type = ABSOLUTE_PATH; 57 lists.dial_out.paths (3).pathname = ">site>dial_out_dir"; 58 59 unspec (cdsa) = ""b; 60 cdsa.sections (1).p = addr (lists); 61 cdsa.sections (1).len = size (lists); 62 cdsa.sections (1).struct_name = "lists"; 63 cdsa.sections (2).p = null; 64 cdsa.sections (2).struct_name = ""; 65 cdsa.seg_name = "dial_out_sl_default_"; 66 cdsa.exclude_array_ptr = null; 67 cdsa.switches.have_text = "1"b; 68 69 call create_data_segment_ (addr (cdsa), code); 70 if code ^= 0 71 then do; 72 call com_err_ (code, "dial_out_sl_default_"); 73 return; 74 end; 75 76 wdir = get_wdir_ (); 77 78 call add_search_names (lists.dial_out.names (*)); 79 80 return; 81 82 add_search_names: 83 proc (name_array); 84 85 declare name_array dimension (*) char (32) aligned parameter; 86 87 declare hbound builtin; 88 declare lbound builtin; 89 90 declare error_table_$segnamedup 91 fixed bin (35) ext static; 92 93 declare hcs_$chname_file entry (char (*), char (*), char (*), char (*), fixed bin (35)); 94 95 declare i fixed bin; 96 declare extra_name char (32); 97 98 do i = lbound (name_array, 1) to hbound (name_array, 1); 99 extra_name = rtrim (name_array (i)) || ".search"; 100 call hcs_$chname_file (wdir, "dial_out_sl_default_", "", extra_name, code); 101 if code ^= 0 102 then if code ^= error_table_$segnamedup 103 then call com_err_ (code, "dial_out_sl_default_", "Adding name ^a", extra_name); 104 end; 105 106 return; 107 end add_search_names; 108 109 end dial_out_sl_default_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 02/16/88 1409.5 !BBBJXGgwMJhfgc.pl1 >spec>install>MR12.2-1023>dial_out_sl_default_.cds 44 1 02/16/88 1407.4 sl_info.incl.pl1 >spec>install>MR12.2-1023>sl_info.incl.pl1 45 2 04/01/76 2209.5 cds_args.incl.pl1 >ldd>include>cds_args.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. ABSOLUTE_PATH 000424 constant fixed bin(17,0) initial dcl 1-33 ref 56 UNEXPANDED_PATH 000423 constant fixed bin(17,0) initial dcl 1-34 ref 54 WORKING_DIR 000422 constant fixed bin(17,0) initial dcl 1-36 ref 52 addr builtin function dcl 31 ref 60 69 69 cds_args based structure level 1 dcl 2-3 cdsa 000154 automatic structure level 1 dcl 14 set ref 59* 69 69 code 000100 automatic fixed bin(35,0) dcl 11 set ref 69* 70 72* 100* 101 101 101* com_err_ 000012 constant entry external dcl 40 ref 72 101 create_data_segment_ 000014 constant entry external dcl 41 ref 69 dial_out 000221 automatic structure level 2 dcl 16 error_table_$segnamedup 000020 external static fixed bin(35,0) dcl 90 ref 101 exclude_array_ptr 42 000154 automatic pointer level 2 dcl 14 set ref 66* extra_name 000447 automatic char(32) unaligned dcl 96 set ref 99* 100* 101* get_wdir_ 000016 constant entry external dcl 42 ref 76 have_text 44(02) 000154 automatic bit(1) level 3 packed unaligned dcl 14 set ref 67* hbound builtin function dcl 32 in procedure "dial_out_sl_default_" ref 49 50 hbound builtin function dcl 87 in procedure "add_search_names" ref 98 hcs_$chname_file 000022 constant entry external dcl 93 ref 100 i 000446 automatic fixed bin(17,0) dcl 95 set ref 98* 99* lbound builtin function dcl 88 ref 98 len 2 000154 automatic fixed bin(18,0) array level 3 dcl 14 set ref 61* lists 000221 automatic structure level 1 dcl 16 set ref 60 61 name_array parameter char(32) array dcl 85 ref 82 98 98 99 name_count 000221 automatic fixed bin(17,0) level 3 dcl 16 set ref 49* names 2 000221 automatic char(32) array level 3 dcl 16 set ref 49 51* 78* null builtin function dcl 33 ref 63 66 p 000154 automatic pointer array level 3 dcl 14 set ref 60* 63* path_count 1 000221 automatic fixed bin(17,0) level 3 dcl 16 set ref 50* pathname 13 000221 automatic char(168) array level 4 dcl 16 set ref 53* 55* 57* paths 12 000221 automatic structure array level 3 dcl 16 set ref 50 rtrim builtin function dcl 34 ref 99 search_path based structure level 1 unaligned dcl 25 sections 000154 automatic structure array level 2 dcl 14 seg_name 30 000154 automatic char(32) level 2 dcl 14 set ref 65* size builtin function dcl 35 ref 61 struct_name 3 000154 automatic char(32) array level 3 dcl 14 set ref 62* 64* switches 44 000154 automatic structure level 2 dcl 14 type 12 000221 automatic fixed bin(17,0) array level 4 dcl 16 set ref 52* 54* 56* unspec builtin function dcl 36 set ref 59* wdir 000101 automatic char(168) unaligned dcl 12 set ref 76* 100* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. HOME_DIR constant fixed bin(17,0) initial dcl 1-38 INITIATED_SEGS constant fixed bin(17,0) initial dcl 1-39 PROCESS_DIR constant fixed bin(17,0) initial dcl 1-37 REFERENCING_DIR constant fixed bin(17,0) initial dcl 1-35 exclude_names based char(32) array unaligned dcl 2-18 sl_info based structure level 1 dcl 1-15 sl_info_num_paths 000434 automatic fixed bin(17,0) dcl 1-27 sl_info_p 000436 automatic pointer dcl 1-28 sl_info_version_1 constant fixed bin(17,0) initial dcl 1-29 NAMES DECLARED BY EXPLICIT CONTEXT. add_search_names 000225 constant entry internal dcl 82 ref 78 dial_out_sl_default_ 000075 constant entry external dcl 6 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 532 556 425 542 Length 2102 425 24 1310 105 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME dial_out_sl_default_ 372 external procedure is an external procedure. add_search_names internal procedure shares stack frame of external procedure dial_out_sl_default_. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME dial_out_sl_default_ 000100 code dial_out_sl_default_ 000101 wdir dial_out_sl_default_ 000154 cdsa dial_out_sl_default_ 000221 lists dial_out_sl_default_ 000434 sl_info_num_paths dial_out_sl_default_ 000436 sl_info_p dial_out_sl_default_ 000446 i add_search_names 000447 extra_name add_search_names THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_char_temp call_ext_out_desc call_ext_out return_mac shorten_stack ext_entry int_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ create_data_segment_ get_wdir_ hcs_$chname_file THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$segnamedup LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 6 000074 49 000102 50 000104 51 000106 52 000111 53 000113 54 000116 55 000120 56 000123 57 000125 59 000130 60 000133 61 000135 62 000137 63 000142 64 000144 65 000147 66 000152 67 000153 69 000155 70 000167 72 000171 73 000211 76 000212 78 000221 80 000224 82 000225 98 000231 99 000241 100 000312 101 000347 104 000411 106 000413 Object Segment >spec>install>MR12.2-1023>dial_out_sl_default_ Created on 02/16/88 1421.9 mst Tue by GJohnson.SysMaint.a using create_data_segment_, Version II of Thursday, November 20, 1986 Object Text Defs Link Symb Static Start 0 0 214 246 256 256 Length 455 214 32 10 163 0 3 Definitions: segname: dial_out_sl_default_ text|0 dial_out symb|0 symbol_table No Links. ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved