COMPILATION LISTING OF SEGMENT !BBBJXcMNdMKFjD Compiled by: Multics PL/I Compiler, Release 30, of February 16, 1988 Compiled at: Honeywell Bull, Phoenix AZ, SysM Compiled on: 07/26/88 1015.1 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* *********************************************************** */ 8 9 10 11 /* HISTORY COMMENTS: 12* 1) change(88-04-13,Blair), approve(88-04-13,MCR7842), 13* audit(88-06-29,Lippard), install(88-07-26,MR12.2-1069): 14* Add -hd to the mlsys search list after -wd for SCP 6349. 15* END HISTORY COMMENTS */ 16 17 18 /* format: off */ 19 20 /* Creates the default search list for the Multics mail system: This data segment is intended to be bound into 21* bound_mail_system_ and, therefore, does not add the search list names to itself */ 22 23 /* Created: April 1982 by G. Palter from search_list_defaults_ */ 24 25 /* format: on,style4,delnl,insnl,ifthenstmt,ifthen */ 26 27 28 mlsys_search_list_default_: 29 procedure () options (variable); 30 31 32 dcl 1 cdsa aligned like cds_args; 33 34 dcl 1 list aligned, 35 2 mlsys bit (0) unaligned, /* the mail_system search list */ 36 2 mail_system, 37 3 name_count fixed binary, 38 3 path_count fixed binary, 39 3 names (2) character (32), 40 3 paths (3) like search_path; 41 42 dcl 1 search_path based, /* a single search path */ 43 2 type fixed binary, 44 2 pathname character (168); 45 46 dcl code fixed binary (35); 47 48 dcl MLSYS_SEARCH_LIST_DEFAULT_ character (32) static options (constant) initial ("mlsys_search_list_default_"); 49 50 dcl com_err_ entry () options (variable); 51 dcl create_data_segment_ entry (pointer, fixed binary (35)); 52 53 dcl (addr, currentsize, hbound, null, unspec) builtin; 54 55 /* Setup the definition of the search list */ 56 57 list.mail_system.name_count = hbound (list.mail_system.names, 1); 58 list.mail_system.path_count = hbound (list.mail_system.paths, 1); 59 list.mail_system.names (1) = "mail_system"; 60 list.mail_system.names (2) = "mlsys"; 61 list.mail_system.paths (1).type = WORKING_DIR; 62 list.mail_system.paths (1).pathname = "-working_dir"; 63 list.mail_system.paths (2).type = HOME_DIR; 64 list.mail_system.paths (2).pathname = "-home_dir"; 65 list.mail_system.paths (3).type = UNEXPANDED_PATH; 66 list.mail_system.paths (3).pathname = ">udd>[user project]>[user name]>[user name].mlsys"; 67 68 69 /* Create the data segment */ 70 71 unspec (cdsa) = ""b; 72 cdsa.sections (1).p = addr (list); 73 cdsa.sections (1).len = currentsize (list); 74 cdsa.sections (1).struct_name = "list"; 75 cdsa.sections (2).p = null (); 76 cdsa.sections (2).struct_name = ""; 77 cdsa.seg_name = MLSYS_SEARCH_LIST_DEFAULT_; 78 cdsa.exclude_array_ptr = null (); 79 cdsa.switches.have_text = "1"b; 80 81 call create_data_segment_ (addr (cdsa), code); 82 if code ^= 0 then call com_err_ (code, MLSYS_SEARCH_LIST_DEFAULT_); 83 84 return; 85 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 */ 86 87 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 */ 88 89 90 end mlsys_search_list_default_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 07/26/88 1013.4 !BBBJXcMNdMKFjD.pl1 >spec>install>1069>mlsys_search_list_default_.cds 86 1 02/18/88 2023.8 sl_info.incl.pl1 >ldd>include>sl_info.incl.pl1 88 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. HOME_DIR 000000 constant fixed bin(17,0) initial dcl 1-38 ref 63 MLSYS_SEARCH_LIST_DEFAULT_ 000002 constant char(32) initial packed unaligned dcl 48 set ref 77 82* UNEXPANDED_PATH 000166 constant fixed bin(17,0) initial dcl 1-34 ref 65 WORKING_DIR 000001 constant fixed bin(17,0) initial dcl 1-36 ref 61 addr builtin function dcl 53 ref 72 81 81 cds_args based structure level 1 dcl 2-3 cdsa 000100 automatic structure level 1 dcl 32 set ref 71* 81 81 code 000370 automatic fixed bin(35,0) dcl 46 set ref 81* 82 82* com_err_ 000012 constant entry external dcl 50 ref 82 create_data_segment_ 000014 constant entry external dcl 51 ref 81 currentsize builtin function dcl 53 ref 73 exclude_array_ptr 42 000100 automatic pointer level 2 dcl 32 set ref 78* have_text 44(02) 000100 automatic bit(1) level 3 packed packed unaligned dcl 32 set ref 79* hbound builtin function dcl 53 ref 57 58 len 2 000100 automatic fixed bin(18,0) array level 3 dcl 32 set ref 73* list 000145 automatic structure level 1 dcl 34 set ref 72 73 mail_system 000145 automatic structure level 2 dcl 34 name_count 000145 automatic fixed bin(17,0) level 3 dcl 34 set ref 57* names 2 000145 automatic char(32) array level 3 dcl 34 set ref 57 59* 60* null builtin function dcl 53 ref 75 78 p 000100 automatic pointer array level 3 dcl 32 set ref 72* 75* path_count 1 000145 automatic fixed bin(17,0) level 3 dcl 34 set ref 58* pathname 23 000145 automatic char(168) array level 4 dcl 34 set ref 62* 64* 66* paths 22 000145 automatic structure array level 3 dcl 34 set ref 58 search_path based structure level 1 unaligned dcl 42 sections 000100 automatic structure array level 2 dcl 32 seg_name 30 000100 automatic char(32) level 2 dcl 32 set ref 77* struct_name 3 000100 automatic char(32) array level 3 dcl 32 set ref 74* 76* switches 44 000100 automatic structure level 2 dcl 32 type 22 000145 automatic fixed bin(17,0) array level 4 dcl 34 set ref 61* 63* 65* unspec builtin function dcl 53 set ref 71* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ABSOLUTE_PATH constant fixed bin(17,0) initial dcl 1-33 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 packed unaligned dcl 2-18 sl_info based structure level 1 dcl 1-15 sl_info_num_paths 000371 automatic fixed bin(17,0) dcl 1-27 sl_info_p 000372 automatic pointer dcl 1-28 sl_info_version_1 constant fixed bin(17,0) initial dcl 1-29 NAME DECLARED BY EXPLICIT CONTEXT. mlsys_search_list_default_ 000051 constant entry external dcl 28 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 246 264 167 256 Length 1466 167 16 1165 56 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME mlsys_search_list_default_ 270 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME mlsys_search_list_default_ 000100 cdsa mlsys_search_list_default_ 000145 list mlsys_search_list_default_ 000370 code mlsys_search_list_default_ 000371 sl_info_num_paths mlsys_search_list_default_ 000372 sl_info_p mlsys_search_list_default_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return_mac ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ create_data_segment_ NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 28 000050 57 000056 58 000060 59 000062 60 000065 61 000070 62 000072 63 000075 64 000077 65 000102 66 000104 71 000107 72 000112 73 000114 74 000116 75 000121 76 000123 77 000126 78 000131 79 000132 81 000134 82 000146 84 000165 Object Segment >spec>install>1069>mlsys_search_list_default_ Created on 07/26/88 1015.2 mst Tue by Hirneisen.SysMaint.a using create_data_segment_, Version II of Thursday, November 20, 1986 Object Text Defs Link Symb Static Start 0 0 224 264 274 274 Length 470 224 40 10 160 0 4 Definitions: segname: mlsys_search_list_default_ text|0 mail_system text|0 mlsys 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