COMPILATION LISTING OF SEGMENT !BBBJXJMpHDpGqP Compiled by: Multics PL/I Compiler, Release 30, of February 16, 1988 Compiled at: Honeywell Bull, Phoenix AZ, SysM Compiled on: 03/08/88 1534.8 mst Tue Options: table map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Bull Inc., 1988 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 15 /* HISTORY COMMENTS: 16* 1) change(88-01-11,Blair), approve(88-02-25,MCR7840), audit(88-02-25,Dupuis), 17* install(88-03-08,MR12.2-1034): 18* Add entry for mrds to establish default search list. 19* END HISTORY COMMENTS */ 20 21 22 /* This segment generates a database used to establish default search lists. 23* 24* Converted from alm to create_data_segment 11-Jul-78 by M. Davidoff. 25* Added >unb to compose search list - EJW - Aug79 26* Added declare (dcl) search list 07-Feb-80 by G. Dixon. 27* Modified 03/27/80 by C. D. Tavares to add graphics paths. 28* Modified 15 April 1980 by M. N. Davidoff to move >unb to last in compose 29* search list. 30* Modified 07/21/80 by CDT to add names "xxx.search" to final segment. 31* Modified 07/20/81 by JM Stansbury to add pnotice paths. 32* Modified 11/02/81 by E. N. Kittlitz to eliminate >ldd>include_2 in translator paths. 33* Modified 07/05/82 by EJ Wallman to change compose list. 34* Modified 09/21/83 by J. A. Bush to add mtape_arguments search_list 35* Modified 11/02/83 by S. Herbst to add probe search list. 36* Modified 11/04/83 by James A Falksen to add mrpg search list. 37* Modified 08/10/84 by B. Braun to add structure, hardcore and dumps search lists. 38* Modified 09/26/84 by B. Braun to correct structure paths to have trailing underscores. 39* Modified 03/22/85 by G. Palter to add >tools>structure_library_6_ to the structure search list. 40**/ 41 /* format: style2 */ 42 search_list_defaults_: 43 procedure; 44 45 /* automatic */ 46 47 declare code fixed binary (35); 48 declare wdir char (168); 49 50 declare 1 cdsa aligned like cds_args; 51 52 declare 1 lists aligned, 53 2 comp bit (0) unaligned, 54 2 compose, 55 3 name_count fixed binary, 56 3 path_count fixed binary, 57 3 names (2) char (32), 58 3 paths (4) like search_path, 59 2 dcl bit (0) unaligned, 60 2 declare, 61 3 name_count fixed binary, 62 3 path_count fixed binary, 63 3 names (2) char (32), 64 3 paths (1) like search_path, 65 2 dict bit (0) unaligned, 66 2 dictionary, 67 3 name_count fixed binary, 68 3 path_count fixed binary, 69 3 names (2) char (32), 70 3 paths (1) like search_path, 71 2 dumps, 72 3 name_count fixed binary, 73 3 path_count fixed binary, 74 3 names (1) char (32), 75 3 paths (2) like search_path, 76 2 ec bit (0) unaligned, 77 2 exec_com, 78 3 name_count fixed binary, 79 3 path_count fixed binary, 80 3 names (2) char (32), 81 3 paths (1) like search_path, 82 2 graphics, 83 3 name_count fixed binary, 84 3 path_count fixed binary, 85 3 names (1) char (32), 86 3 paths (3) like search_path, 87 2 hardcore, 88 3 name_count fixed binary, 89 3 path_count fixed binary, 90 3 names (1) char (32), 91 3 paths (1) like search_path, 92 2 info_segs bit (0) unaligned, 93 2 info bit (0) unaligned, 94 2 info_segments, 95 3 name_count fixed binary, 96 3 path_count fixed binary, 97 3 names (3) char (32), 98 3 paths (2) like search_path, 99 2 mrds, 100 3 name_count fixed binary, 101 3 path_count fixed binary, 102 3 names (1) char (32), 103 3 paths (1) like search_path, 104 2 mrpg_lib, 105 3 name_count fixed binary, 106 3 path_count fixed binary, 107 3 names (1) char (32), 108 3 paths (1) like search_path, 109 2 mtape_args bit (0) unaligned, 110 2 mtape_arguments, 111 3 name_count fixed binary, 112 3 path_count fixed binary, 113 3 names (2) char (32), 114 3 paths (3) like search_path, 115 2 trans bit (0) unaligned, 116 2 translator, 117 3 name_count fixed binary, 118 3 path_count fixed binary, 119 3 names (2) char (32), 120 3 paths (3) like search_path, 121 2 pnotice, 122 3 name_count fixed binary, 123 3 path_count fixed binary, 124 3 names (1) char (32), 125 3 paths (1) like search_path, 126 2 pb bit (0) unaligned, 127 2 probe, 128 3 name_count fixed binary, 129 3 path_count fixed binary, 130 3 names (2) char (32), 131 3 paths (2) like search_path, 132 2 structure, 133 3 name_count fixed binary, 134 3 path_count fixed binary, 135 3 names (1) char (32), 136 3 paths (6) like search_path; 137 138 /* based */ 139 140 declare 1 search_path based, 141 2 type fixed binary, 142 2 pathname char (168); 143 144 /* builtin */ 145 146 declare addr builtin; 147 declare hbound builtin; 148 declare null builtin; 149 declare size builtin; 150 declare unspec builtin; 151 152 /* entry */ 153 154 declare com_err_ entry options (variable); 155 declare create_data_segment_ entry (pointer, fixed binary (35)); 156 declare get_wdir_ entry () returns (char (168)); 157 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 */ 158 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 */ 159 160 161 /* program */ 162 163 lists.compose.name_count = hbound (lists.compose.names, 1); 164 lists.compose.path_count = hbound (lists.compose.paths, 1); 165 lists.compose.names (1) = "compose"; 166 lists.compose.names (2) = "comp"; 167 lists.compose.paths (1).type = WORKING_DIR; 168 lists.compose.paths (1).pathname = "-working_dir"; 169 lists.compose.paths (2).type = UNEXPANDED_PATH; 170 lists.compose.paths (2).pathname = ">udd>[user project]>compose_macros"; 171 lists.compose.paths (3).type = REFERENCING_DIR; 172 lists.compose.paths (3).pathname = "-referencing_dir"; 173 lists.compose.paths (4).type = ABSOLUTE_PATH; 174 lists.compose.paths (4).pathname = ">unb"; 175 176 lists.declare.name_count = hbound (lists.declare.names, 1); 177 lists.declare.path_count = hbound (lists.declare.paths, 1); 178 lists.declare.names (1) = "declare"; 179 lists.declare.names (2) = "dcl"; 180 lists.declare.paths (1).type = ABSOLUTE_PATH; 181 lists.declare.paths (1).pathname = ">sss>pl1.dcl"; 182 183 lists.dictionary.name_count = hbound (lists.dictionary.names, 1); 184 lists.dictionary.path_count = hbound (lists.dictionary.paths, 1); 185 lists.dictionary.names (1) = "dictionary"; 186 lists.dictionary.names (2) = "dict"; 187 lists.dictionary.paths (1).type = ABSOLUTE_PATH; 188 lists.dictionary.paths (1).pathname = ">unb>standard.dict"; 189 190 lists.dumps.name_count = hbound (lists.dumps.names, 1); 191 lists.dumps.path_count = hbound (lists.dumps.paths, 1); 192 lists.dumps.names (1) = "dumps"; 193 lists.dumps.paths (1).type = ABSOLUTE_PATH; 194 lists.dumps.paths (1).pathname = ">dumps"; 195 lists.dumps.paths (2).type = ABSOLUTE_PATH; 196 lists.dumps.paths (2).pathname = ">dumps>save_pdirs"; 197 198 lists.exec_com.name_count = hbound (lists.exec_com.names, 1); 199 lists.exec_com.path_count = hbound (lists.exec_com.paths, 1); 200 lists.exec_com.names (1) = "exec_com"; 201 lists.exec_com.names (2) = "ec"; 202 lists.exec_com.paths (1).type = WORKING_DIR; 203 lists.exec_com.paths (1).pathname = "-working_dir"; 204 205 lists.graphics.name_count = hbound (lists.graphics.names, 1); 206 lists.graphics.path_count = hbound (lists.graphics.paths, 1); 207 lists.graphics.names (1) = "graphics"; 208 lists.graphics.paths (1).type = WORKING_DIR; 209 lists.graphics.paths (1).pathname = "-working_dir"; 210 lists.graphics.paths (2).type = REFERENCING_DIR; 211 lists.graphics.paths (2).pathname = "-referencing_dir"; 212 lists.graphics.paths (3).type = ABSOLUTE_PATH; 213 lists.graphics.paths (3).pathname = ">unb"; 214 215 lists.hardcore.name_count = hbound (lists.hardcore.names, 1); 216 lists.hardcore.path_count = hbound (lists.hardcore.paths, 1); 217 lists.hardcore.names (1) = "hardcore"; 218 lists.hardcore.paths (1).type = ABSOLUTE_PATH; 219 lists.hardcore.paths (1).pathname = ">ldd>h>e"; 220 221 lists.info_segments.name_count = hbound (lists.info_segments.names, 1); 222 lists.info_segments.path_count = hbound (lists.info_segments.paths, 1); 223 lists.info_segments.names (1) = "info_segments"; 224 lists.info_segments.names (2) = "info_segs"; 225 lists.info_segments.names (3) = "info"; 226 lists.info_segments.paths (1).type = ABSOLUTE_PATH; 227 lists.info_segments.paths (1).pathname = ">doc>iml_info"; 228 lists.info_segments.paths (2).type = ABSOLUTE_PATH; 229 lists.info_segments.paths (2).pathname = ">doc>info"; 230 231 lists.mrds.name_count = hbound (lists.mrds.names, 1); 232 lists.mrds.path_count = hbound (lists.mrds.paths, 1); 233 lists.mrds.names (1) = "mrds"; 234 lists.mrds.paths (1).type = WORKING_DIR; 235 lists.mrds.paths (1).pathname = "-working_dir"; 236 237 lists.mrpg_lib.name_count = hbound (lists.mrpg_lib.names, 1); 238 lists.mrpg_lib.path_count = hbound (lists.mrpg_lib.paths, 1); 239 lists.mrpg_lib.names (1) = "mrpg_lib"; 240 lists.mrpg_lib.paths (1).type = REFERENCING_DIR; 241 lists.mrpg_lib.paths (1).pathname = "-referencing_dir"; 242 243 lists.mtape_arguments.name_count = hbound (lists.mtape_arguments.names, 1); 244 lists.mtape_arguments.path_count = hbound (lists.mtape_arguments.paths, 1); 245 lists.mtape_arguments.names (1) = "mtape_arguments"; 246 lists.mtape_arguments.names (2) = "mtape_args"; 247 lists.mtape_arguments.paths (1).type = UNEXPANDED_PATH; 248 lists.mtape_arguments.paths (1).pathname = ">udd>[user project]>[user name]>[user name].value"; 249 lists.mtape_arguments.paths (2).type = ABSOLUTE_PATH; 250 lists.mtape_arguments.paths (2).pathname = ">site>mtape_arguments.value"; 251 lists.mtape_arguments.paths (3).type = ABSOLUTE_PATH; 252 lists.mtape_arguments.paths (3).pathname = ">system_library_standard>mtape_arguments.value"; 253 254 lists.translator.name_count = hbound (lists.translator.names, 1); 255 lists.translator.path_count = hbound (lists.translator.paths, 1); 256 lists.translator.names (1) = "translator"; 257 lists.translator.names (2) = "trans"; 258 lists.translator.paths (1).type = WORKING_DIR; 259 lists.translator.paths (1).pathname = "-working_dir"; 260 lists.translator.paths (2).type = UNEXPANDED_PATH; 261 lists.translator.paths (2).pathname = ">udd>[user project]>include"; 262 lists.translator.paths (3).type = ABSOLUTE_PATH; 263 lists.translator.paths (3).pathname = ">ldd>include"; 264 265 lists.pnotice.name_count = hbound (lists.pnotice.names, 1); 266 lists.pnotice.path_count = hbound (lists.pnotice.paths, 1); 267 lists.pnotice.names (1) = "pnotice"; 268 lists.pnotice.paths (1).type = ABSOLUTE_PATH; 269 lists.pnotice.paths (1).pathname = ">tools"; 270 271 lists.probe.name_count = hbound (lists.probe.names, 1); 272 lists.probe.path_count = hbound (lists.probe.paths, 1); 273 lists.probe.names (1) = "probe"; 274 lists.probe.names (2) = "pb"; 275 lists.probe.paths (1).type = WORKING_DIR; 276 lists.probe.paths (1).pathname = "-working_dir"; 277 lists.probe.paths (2).type = REFERENCING_DIR; 278 lists.probe.paths (2).pathname = "-referencing_dir"; 279 280 lists.structure.name_count = hbound (lists.structure.names, 1); 281 lists.structure.path_count = hbound (lists.structure.paths, 1); 282 lists.structure.names (1) = "structure"; 283 lists.structure.paths (1).type = ABSOLUTE_PATH; 284 lists.structure.paths (1).pathname = ">tools>structure_library_1_"; 285 lists.structure.paths (2).type = ABSOLUTE_PATH; 286 lists.structure.paths (2).pathname = ">tools>structure_library_2_"; 287 lists.structure.paths (3).type = ABSOLUTE_PATH; 288 lists.structure.paths (3).pathname = ">tools>structure_library_3_"; 289 lists.structure.paths (4).type = ABSOLUTE_PATH; 290 lists.structure.paths (4).pathname = ">tools>structure_library_4_"; 291 lists.structure.paths (5).type = ABSOLUTE_PATH; 292 lists.structure.paths (5).pathname = ">tools>structure_library_5_"; 293 lists.structure.paths (6).type = ABSOLUTE_PATH; 294 lists.structure.paths (6).pathname = ">tools>structure_library_6_"; 295 296 unspec (cdsa) = ""b; 297 cdsa.sections (1).p = addr (lists); 298 cdsa.sections (1).len = size (lists); 299 cdsa.sections (1).struct_name = "lists"; 300 cdsa.sections (2).p = null; 301 cdsa.sections (2).struct_name = ""; 302 cdsa.seg_name = "search_list_defaults_"; 303 cdsa.exclude_array_ptr = null; 304 cdsa.switches.have_text = "1"b; 305 306 call create_data_segment_ (addr (cdsa), code); 307 if code ^= 0 308 then do; 309 call com_err_ (code, "search_list_defaults_"); 310 return; 311 end; 312 313 wdir = get_wdir_ (); 314 315 call add_search_names (lists.compose.names (*)); 316 call add_search_names (lists.declare.names (*)); 317 call add_search_names (lists.dictionary.names (*)); 318 call add_search_names (lists.dumps.names (*)); 319 call add_search_names (lists.exec_com.names (*)); 320 call add_search_names (lists.graphics.names (*)); 321 call add_search_names (lists.hardcore.names (*)); 322 call add_search_names (lists.info_segments.names (*)); 323 call add_search_names (lists.mrds.names (*)); 324 call add_search_names (lists.mrpg_lib.names (*)); 325 call add_search_names (lists.mtape_arguments.names (*)); 326 call add_search_names (lists.pnotice.names (*)); 327 call add_search_names (lists.probe.names (*)); 328 call add_search_names (lists.structure.names (*)); 329 call add_search_names (lists.translator.names (*)); 330 331 return; 332 333 add_search_names: 334 proc (name_array); 335 336 declare name_array dimension (*) char (32) aligned parameter; 337 338 declare hbound builtin; 339 declare lbound builtin; 340 341 declare error_table_$segnamedup 342 fixed bin (35) ext static; 343 344 declare hcs_$chname_file entry (char (*), char (*), char (*), char (*), fixed bin (35)); 345 346 declare i fixed bin; 347 declare extra_name char (32); 348 349 do i = lbound (name_array, 1) to hbound (name_array, 1); 350 extra_name = rtrim (name_array (i)) || ".search"; 351 call hcs_$chname_file (wdir, "search_list_defaults_", "", extra_name, code); 352 if code ^= 0 353 then if code ^= error_table_$segnamedup 354 then call com_err_ (code, "search_list_defaults_", "Adding name ^a", extra_name); 355 end; 356 357 return; 358 end add_search_names; 359 360 end search_list_defaults_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 03/08/88 1531.6 !BBBJXJMpHDpGqP.pl1 >spec>install>1034>search_list_defaults_.cds 158 1 02/18/88 2023.8 sl_info.incl.pl1 >ldd>include>sl_info.incl.pl1 159 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 001471 constant fixed bin(17,0) initial dcl 1-33 ref 173 180 187 193 195 212 218 226 228 249 251 262 268 283 285 287 289 291 293 REFERENCING_DIR 001467 constant fixed bin(17,0) initial dcl 1-35 ref 171 210 240 277 UNEXPANDED_PATH 001470 constant fixed bin(17,0) initial dcl 1-34 ref 169 247 260 WORKING_DIR 001466 constant fixed bin(17,0) initial dcl 1-36 ref 167 202 208 234 258 275 addr builtin function dcl 146 ref 297 306 306 cds_args based structure level 1 dcl 2-3 cdsa 000154 automatic structure level 1 dcl 50 set ref 296* 306 306 code 000100 automatic fixed bin(35,0) dcl 47 set ref 306* 307 309* 351* 352 352 352* com_err_ 000012 constant entry external dcl 154 ref 309 352 compose 000221 automatic structure level 2 dcl 52 create_data_segment_ 000014 constant entry external dcl 155 ref 306 declare 276 000221 automatic structure level 2 dcl 52 dictionary 373 000221 automatic structure level 2 dcl 52 dumps 470 000221 automatic structure level 2 dcl 52 error_table_$segnamedup 000020 external static fixed bin(35,0) dcl 341 ref 352 exclude_array_ptr 42 000154 automatic pointer level 2 dcl 50 set ref 303* exec_com 630 000221 automatic structure level 2 dcl 52 extra_name 003331 automatic char(32) packed unaligned dcl 347 set ref 350* 351* 352* get_wdir_ 000016 constant entry external dcl 156 ref 313 graphics 725 000221 automatic structure level 2 dcl 52 hardcore 1140 000221 automatic structure level 2 dcl 52 have_text 44(02) 000154 automatic bit(1) level 3 packed packed unaligned dcl 50 set ref 304* hbound builtin function dcl 338 in procedure "add_search_names" ref 349 hbound builtin function dcl 147 in procedure "search_list_defaults_" ref 163 164 176 177 183 184 190 191 198 199 205 206 215 216 221 222 231 232 237 238 243 244 254 255 265 266 271 272 280 281 hcs_$chname_file 000022 constant entry external dcl 344 ref 351 i 003330 automatic fixed bin(17,0) dcl 346 set ref 349* 350* info_segments 1225 000221 automatic structure level 2 dcl 52 lbound builtin function dcl 339 ref 349 len 2 000154 automatic fixed bin(18,0) array level 3 dcl 50 set ref 298* lists 000221 automatic structure level 1 dcl 52 set ref 297 298 mrds 1405 000221 automatic structure level 2 dcl 52 mrpg_lib 1472 000221 automatic structure level 2 dcl 52 mtape_arguments 1557 000221 automatic structure level 2 dcl 52 name_array parameter char(32) array dcl 336 ref 333 349 349 350 name_count 2002 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 254* name_count 1472 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 237* name_count 1557 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 243* name_count 373 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 183* name_count 1225 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 221* name_count 630 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 198* name_count 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 163* name_count 1140 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 215* name_count 2462 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 280* name_count 1405 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 231* name_count 276 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 176* name_count 2312 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 271* name_count 2225 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 265* name_count 470 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 190* name_count 725 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 205* names 2314 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 271 273* 274* 327* names 1407 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 231 233* 323* names 300 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 176 178* 179* 316* names 632 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 198 200* 201* 319* names 1561 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 243 245* 246* 325* names 2004 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 254 256* 257* 329* names 727 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 205 207* 320* names 1227 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 221 223* 224* 225* 322* names 2 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 163 165* 166* 315* names 1142 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 215 217* 321* names 472 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 190 192* 318* names 2227 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 265 267* 326* names 2464 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 280 282* 328* names 375 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 183 185* 186* 317* names 1474 000221 automatic char(32) array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 237 239* 324* null builtin function dcl 148 ref 300 303 p 000154 automatic pointer array level 3 dcl 50 set ref 297* 300* path_count 631 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 199* path_count 1406 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 232* path_count 726 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 206* path_count 374 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 184* path_count 1 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 164* path_count 2313 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 272* path_count 2003 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 255* path_count 277 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 177* path_count 1560 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 244* path_count 1473 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 238* path_count 2463 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 281* path_count 471 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 191* path_count 1141 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 216* path_count 1226 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 222* path_count 2226 000221 automatic fixed bin(17,0) level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 266* pathname 1602 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 248* 250* 252* pathname 1260 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 227* 229* pathname 2025 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 259* 261* 263* pathname 1420 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 235* pathname 740 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 209* 211* 213* pathname 653 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 203* pathname 2335 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 276* 278* pathname 503 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 194* 196* pathname 2475 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 284* 286* 288* 290* 292* 294* pathname 23 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 168* 170* 172* 174* pathname 1153 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 219* pathname 2240 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 269* pathname 416 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 188* pathname 1505 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 241* pathname 321 000221 automatic char(168) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 181* paths 320 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 177 paths 2024 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 255 paths 737 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 206 paths 652 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 199 paths 1152 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 216 paths 22 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 164 paths 1601 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 244 paths 2334 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 272 paths 2474 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 281 paths 1504 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 238 paths 1257 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 222 paths 2237 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 266 paths 502 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 191 paths 1417 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 232 paths 415 000221 automatic structure array level 3 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 184 pnotice 2225 000221 automatic structure level 2 dcl 52 probe 2312 000221 automatic structure level 2 dcl 52 search_path based structure level 1 unaligned dcl 140 sections 000154 automatic structure array level 2 dcl 50 seg_name 30 000154 automatic char(32) level 2 dcl 50 set ref 302* size builtin function dcl 149 ref 298 struct_name 3 000154 automatic char(32) array level 3 dcl 50 set ref 299* 301* structure 2462 000221 automatic structure level 2 dcl 52 switches 44 000154 automatic structure level 2 dcl 50 translator 2002 000221 automatic structure level 2 dcl 52 type 652 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 202* type 1504 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 240* type 1417 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 234* type 2024 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 258* 260* 262* type 22 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 167* 169* 171* 173* type 2334 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 275* 277* type 737 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 208* 210* 212* type 1152 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 218* type 1601 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 247* 249* 251* type 415 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 187* type 2474 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 283* 285* 287* 289* 291* 293* type 320 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 180* type 502 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 193* 195* type 2237 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 268* type 1257 000221 automatic fixed bin(17,0) array level 4 in structure "lists" dcl 52 in procedure "search_list_defaults_" set ref 226* 228* unspec builtin function dcl 150 set ref 296* wdir 000101 automatic char(168) packed unaligned dcl 48 set ref 313* 351* 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 exclude_names based char(32) array packed unaligned dcl 2-18 sl_info based structure level 1 dcl 1-15 sl_info_num_paths 003317 automatic fixed bin(17,0) dcl 1-27 sl_info_p 003320 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 001144 constant entry internal dcl 333 ref 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 search_list_defaults_ 000341 constant entry external dcl 42 NAME DECLARED BY CONTEXT OR IMPLICATION. rtrim builtin function ref 350 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1602 1626 1474 1612 Length 5470 1474 24 3625 105 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME search_list_defaults_ 1830 external procedure is an external procedure. add_search_names internal procedure shares stack frame of external procedure search_list_defaults_. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME search_list_defaults_ 000100 code search_list_defaults_ 000101 wdir search_list_defaults_ 000154 cdsa search_list_defaults_ 000221 lists search_list_defaults_ 003317 sl_info_num_paths search_list_defaults_ 003320 sl_info_p search_list_defaults_ 003330 i add_search_names 003331 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 42 000340 163 000346 164 000350 165 000352 166 000355 167 000360 168 000362 169 000365 170 000367 171 000372 172 000374 173 000377 174 000401 176 000404 177 000406 178 000410 179 000413 180 000416 181 000420 183 000423 184 000425 185 000427 186 000432 187 000435 188 000437 190 000442 191 000444 192 000446 193 000451 194 000453 195 000456 196 000457 198 000462 199 000464 200 000466 201 000471 202 000474 203 000476 205 000501 206 000503 207 000505 208 000510 209 000512 210 000515 211 000517 212 000522 213 000524 215 000527 216 000531 217 000532 218 000535 219 000537 221 000542 222 000544 223 000546 224 000551 225 000554 226 000557 227 000561 228 000564 229 000565 231 000570 232 000572 233 000573 234 000576 235 000600 237 000603 238 000605 239 000606 240 000611 241 000613 243 000616 244 000620 245 000622 246 000625 247 000630 248 000632 249 000635 250 000637 251 000642 252 000643 254 000646 255 000650 256 000652 257 000655 258 000660 259 000662 260 000665 261 000667 262 000672 263 000674 265 000677 266 000701 267 000702 268 000705 269 000707 271 000712 272 000714 273 000715 274 000720 275 000723 276 000725 277 000730 278 000732 280 000735 281 000737 282 000741 283 000744 284 000746 285 000751 286 000752 287 000755 288 000756 289 000761 290 000762 291 000765 292 000766 293 000771 294 000772 296 000775 297 001000 298 001002 299 001004 300 001007 301 001011 302 001014 303 001017 304 001020 306 001022 307 001034 309 001036 310 001056 313 001057 315 001066 316 001071 317 001074 318 001077 319 001102 320 001105 321 001110 322 001113 323 001116 324 001121 325 001124 326 001127 327 001132 328 001135 329 001140 331 001143 333 001144 349 001150 350 001161 351 001232 352 001267 355 001331 357 001333 Object Segment >spec>install>1034>search_list_defaults_ Created on 03/08/88 1534.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 3076 3324 3334 3334 Length 3675 3076 226 10 325 0 26 Definitions: segname: search_list_defaults_ text|0 comp text|0 compose text|276 dcl text|276 declare text|373 dict text|373 dictionary text|470 dumps text|630 ec text|630 exec_com text|725 graphics text|1140 hardcore text|1225 info text|1225 info_segments text|1225 info_segs text|1405 mrds text|1472 mrpg_lib text|1557 mtape_args text|1557 mtape_arguments text|2312 pb text|2225 pnotice text|2312 probe text|2462 structure symb|0 symbol_table text|2002 trans text|2002 translator 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