THIS FILE IS DAMAGED numbers then 193 call ioa_$ioa_switch_nnl (output_iocb_ptr, "^a", 194 substr (restp -> ch, restrel+1, j)); 195 196 else call ioa_$ioa_switch_nnl (output_iocb_ptr, "^a^d^-^a", 197 textid (x), restline, substr (restp -> ch, restrel+1, j)); 198 if j > 1 then return; 199 restline = restline + 1; 200 restrel = restrel + j; 201 restlen = restlen - j; 202 end; 203 204 end print_context; 205 206 207 /* */ 208 take_diff: proc (tdi); /* IP to pick up changed text */ 209 210 dcl tdi fixed bin; 211 212 if difflen (tdi) = 0 then return; /* evid was deletion */ 213 214 substr (cp (1) -> ch, 1, difflen (tdi)) 215 = substr (cp (tdi) -> ch, 1, difflen (tdi)); 216 cp (1) = addr (cp (1) -> skipchars (difflen (tdi))); 217 tchars (1) = tchars (1) + difflen (tdi); 218 tlines (1) = tlines (1) + difflines (tdi); 219 220 end take_diff; 221 222 223 /* */ 224 AUTOX: proc returns (fixed bin); 225 226 dcl (ai, aj, ak) fixed bin; 227 228 aj, ak = 0; 229 230 do ai = lo + 1 to hi; /* set ai to first text that changed */ 231 if same_as (ai) = 0 then do; 232 aj = ai; 233 go to a_other; 234 end; 235 end; 236 call ioa_$ioa_switch (output_iocb_ptr, "ma_analyze_: called when blocks dont differ. Non-fatal."); 237 return (lo); /* take any, eg orig */ 238 239 a_other: 240 do ai = aj+1 to hi; /* see if 2nd distinct change OR ident change to ai */ 241 if same_as (ai) = 0 then return (0); /* 2nd distinct change, bomb */ 242 else if same_as (ai) = aj then if ^convergence_ok then return (0); 243 end; 244 245 if edit (aj) then return (0); 246 else return (aj); 247 248 end AUTOX; 249 250 /* */ 251 252 set_varch_zero: proc; /* IP to set varch to zero_len B-G */ 253 254 dcl szvi fixed bin; 255 varch = ""; 256 do szvi = 3 to hi; 257 if difflen (szvi) = 0 then do; 258 if varch = "" then do; 259 varch = textid (szvi); 260 first_zero = szvi; 261 end; 262 else varch = varch || ", " || textid (szvi); 263 end; 264 end; 265 end set_varch_zero; 266 267 268 set_same_varch: proc (ssvi); /* IP to set varch to B-G same as param */ 269 270 dcl (ssvi, ssvj) fixed bin; 271 272 do ssvj = ssvi + 1 to hi; 273 if same_as (ssvj) = ssvi then do; 274 if varch = "" then varch = textid (ssvj); 275 else varch = varch || ", " || textid (ssvj); 276 end; 277 end; 278 279 end set_same_varch; 280 281 282 283 end ma_analyze_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/04/82 1609.2 ma_analyze_.pl1 >dumps>old>recomp>ma_analyze_.pl1 19 1 09/28/82 1437.6 merge_ascii_info.incl.pl1 >ldd>include>merge_ascii_info.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. Context_type 000144 automatic char(16) unaligned dcl 32 set ref 51* 55* 114* NL 000150 automatic char(1) initial unaligned dcl 34 set ref 34* 156 190 a_maip parameter pointer dcl 22 ref 11 45 ai 000222 automatic fixed bin(21,0) dcl 226 set ref 230* 231 232* 239* 241 242* aj ure shares stack frame of external procedure ma_analyze_. set_same_varch internal procedure shares stack frame of external procedure ma_analyze_. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME ma_analyze_ 000100 ma_info_ptr ma_analyze_ 000102 nd ma_analyze_ 000103 i ma_analyze_ 000104 first_zero ma_analyze_ 000105 autox ma_analyze_ 000106 varch ma_analyze_ 000140 context_type ma_analyze_ 000144 Context_type ma_analyze_ 000150 NL ma_analyze_ 000162 xp print_diff 000164 i print_diff 000165 j print_diff 000166 k print_diff 000176 i print_context 000177 j print_context 000200 restlen print_context 000201 restline print_context 000202 restp print_context 000204 restrel print_context 000222 ai AUTOX 000223 aj AUTOX 000224 ak AUTOX 000236 szvi set_varch_zero 000246 ssvj set_same_varch THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_cs cat_realloc_cs call_ext_out_desc call_ext_out return shorten_stack ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. ioa_$ioa_switch ioa_$ioa_switch_nnl ma_edit_ NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 11 000123 34 000133 45 000135 47 000141 49 000144 50 000146 51 000151 52 000154 54 000155 55 000160 58 000163 59 000165 60 000167 61 000171 62 000173 63 000175 66 000176 67 000216 68 000223 69 000233 70 000244 71 000254 72 000256 73 000263 74 000265 75 000305 77 000332 79 000334 80 000336 81 000340 82 000341 83 000350 84 000355 85 000375 87 000423 88 000424 89 000431 90 000451 91 000505 94 000507 96 000510 97 000520 98 000530 99 000547 100 000551 101 000560 102 000562 104 000610 106 000612 107 000614 108 000616 109 000617 110 000624 111 000644 113 000674 114 000714 115 000740 118 000747 119 000767 120 001001 124 001002 125 001016 126 001026 127 001036 128 001055 129 001064 130 001066 131 001114 133 001116 134 001120 135 001121 136 001122 137 001127 138 001147 139 001200 141 001202 142 001220 283 001232 146 001233 153 001235 154 001242 155 001243 156 001253 157 001275 158 001302 162 001337 165 001407 166 001412 167 001414 169 001447 174 001450 183 001452 184 001456 185 001464 186 001465 187 001470@—Z3PÛ ‡÷àý°¡Ürð’ÎBD@=Lÿÿÿÿ<Sñ¹Ýv™ÿ&H‚ &Úz—Z3PÒ&—Z3UOÑðzz¶Äar,Attendees —Z3URyÓÛ ‡÷©’BŠf¶Äa—Z3PhB*@—Z3UÔ*Gatha —Z3P8N>*@—Z3ULHuen —Z3P Multics —Z3Pr&—Z3aLemÚÚ¶ÄaÒ ----------------------------------------------------------- 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