THIS FILE IS DAMAGED / 1 35 pad2, 1 36 n_exclusion_specs, /* number of distinct "name=" fields in attributes */ 1 37 n_mates, /* number of mating devs/vols for this vol/dev */ 1 38 n_subtypes, /* number of registration subtypes */ 1 39 n_defined_attributes) fixed bin (17) unaligned, /* number of defined attributes */ 1 40 3 pad_2 (8) fixed bin (35), 1 41 3 attributes_valid bit (72) aligned, /* "1"b if corresp. attribute undeleted */ 1 42 3 attributes_to_match bit (72) aligned, /* potential mate must possess these attributes */ 1 43 3 attribute_names (72) char (12) aligned, /* all possible attributes for this resource */ 1 44 3 exclusion_specs (36) bit (72) aligned, /* each masks all attrributes of the form "key=val" */ 1 45 3 pad_3 (32) fixed bin (35), 1 46 3 registration_defaults aligned, /* applied at reg. time if none given */ 1 47 4 default_flags aligned, 1 48 5 (potential_attributes_given, /* "1"b = there are default potential_attributes */ 1 49 attributes_given, /* and similarly, etc. */ 1 50 aim_range_given, 1 51 charge_type_given) bit (1) unaligned, 1 52 5 pad bit (31) unaligned, 1 53 4 potential_attributes bit (72) aligned, /* for registration, if given */ 1 54 4 attributes bit (72) aligned, /* for registration and also for runtime "I-don't-care" */ 1 55 4 aim_range (2) bit (72) aligned, /* and similarly, etc. */ 1 56 4 charge_type fixed bin, 1 57 4 pad_4 (8) fixed bin (35) aligned, 1 58 2 mates (N_MATES refer (rtde.n_mates)) char (32) aligned, 1 59 /* the volume type that mounts on this device, or vice versa */ 1 60 2 subtypes (N_SUBTYPES refer (rtde.n_subtypes)) aligned, /* named registration default groups */ 1 61 3 subtype_name char (32), /* name of the group */ 1 62 3 subtype_defaults like rtde.registration_defaults aligned; 1 63 1 64 dcl RTDT_version_3 fixed bin static options (constant) initial (3), 1 65 RTDT_version_2 fixed bin static options (constant) initial (2), 1 66 /* same format, but without precanon_proc */ 1 67 (N_MATES, N_SUBTYPES, N_CHARGE_TYPES) fixed bin, 1 68 RTDT_area_len fixed bin (18); 1 69 1 70 dcl (rtdep, rtdtp, cttp) pointer; 1 71 1 72 /* ---------------- END include file rtdt.incl.pl1 ---------------- */ 77 78 79 rtdtp = null (); 80 81 call cu_$arg_list_ptr (alp); 82 call cu_$arg_count (nargs); 83 84 begin; 85 86 87 dcl matchnames (nargs) char (32); 88 89 90 dirname = SYSDIR; 91 ename = SYSENT; 92 93 header_sw = "1"b; 94 long_sw = "0"b; 95 n_names_to_match = 0; 96 97 do i = 1 to nargs; 98 call cu_$arg_ptr_rel (i, ap, al, code, alp); 99 if code ^= 0 then call crump (code, "obtaining arguments"); 100 101 if substr (arg, 1, 1) = "-" then do; 102 if arg = "-lg" | arg = "-long" then long_sw = "1"b; 103 104 else if arg = "-pn" | arg = "-pathname" then do; 105 i = i + 1; 106 call cu_$arg_ptr_rel (i, ap, al, code, alp); 107 if code ^= 0 then call crump (code, "No pathname supplied."); 108 109 call expand_pathname_$add_suffix (arg, "rtdt", dirname, ename, code); 110 if code ^= 0 then call crump (code, arg); 111 end; 112 113 else if arg = "-nhe" | arg = "-no_header" then header_sw = "0"b; 114 115 else call crump (error_table_$badopt, arg); 116 end; 117 118 else do; 119 n_names_to_match = n_names_to_match + 1; 120 matchnames (n_names_to_match) = arg; 121 end; 122 end; 123 124 offset level 2 dcl 1-3 ref 159 fixed_info based structure level 2 dcl 1-16 flags 61 based structure level 3 packed unaligned dcl 1-16 hcs_$initiate_count 000032 constant entry external dcl 60 ref 141 145 hcs_$terminate_noname 000034 constant entry external dcl 61 ref 131 header_sw 000373 automatic bit(1) dcl 32 set ref 93* 113* 152 i 000130 automatic fixed bin(17,0) dcl 209 in procedure "knockoff_60_ch" set ref 218* 219 220 i 000374 automatic fixed bin(17,0) dcl 33 in procedure "lrt" set ref 97* 98* 105* 105 106* 165* 165* 168 170 170 188 197* 198 198* index builtin function dcl 68 ref 218 ioa_ 000036 constant entry external dcl 62 ref 152 172 183 is_synonym 61(05) based bit(1) level 4 packed unaligned dcl 1-16 set ref 172* 175 187 is_volume 61(01) based bit(1) level 4 packed unaligned dcl 1-16 set ref 172* j 000375 automatic fixed bin(17,0) dcl 34 set ref 182* 183* junk 000376 automatic fixed bin(17,0) dcl 35 set ref 155* length builtin function dcl 69 ref 212 long_sw 000377 automatic bit(1) dcl 36 set ref 94* 102* 152* 175 matchnames 000100 automatic char(32) array unaligned dcl 87 set ref 120* 165 170* 188* 198 198* n_names_to_match 000400 automatic fixed bin(17,0) dcl 37 set ref 95* 119* 119 120 165 168 168 187 197 name 1 based char(32) level 3 dcl 1-16 set ref 165 172* 180 nargs 000401 automatic fixed bin(17,0) dcl 38 set ref 82* 87 97 next_resource based offset level 3 dcl 1-16 ref 194 null builtin function dcl 70 ref 79 131 142 147 159 pointer builtin function dcl 71 ref 159 194 reason parameter char unaligned dcl 227 set ref 225 230* registration_defaults 602 based structure level 3 dcl 1-16 reverse builtin function dcl 72 ref 218 rtde based structure level 1 dcl 1-16 rtdep 000410 automatic pointer dcl 1-70 set ref 159* 159* 163 165 172 172 172 172 175 177 179* 180 187 188* 194 rtdt based structure level 1 dcl 1-3 rtdt_area 42 based area level 2 dcl 1-3 ref 159 194 rtdtp 000412 automatic pointer dcl 1-70 set ref 79* 131 131* 141* 142 145* 147 149 149 159 159 194 string parameter varying char(512) ----------------------------------------------------------- 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