THIS FILE IS DAMAGED COMPILATION LISTING OF SEGMENT mlsys_message_id_mgr_ Compiled by: Multics PL/I Compiler, Release 28e, of February 14, 1985 Compiled at: Honeywell Multics Op. - System M Compiled on: 06/30/86 1356.4 mst Mon Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1983 * 4* * * 5* *********************************************************** */ 6 7 /* format: off */ 8 9 /* Message-ID management for the Multics Mail System */ 10 11 /* Created: July 1983 by G. Palter */ 12 13 /* format: on,style4,delnl,insnl,ifthenstmt,ifthen,^indcomtxt */ 14 15 16 mlsys_message_id_mgr_: 17 procedure () options (rename ((alloc_, mlsys_storage_mgr_$allocate))); 18 19 return; /* not an entrypoint */ 20 21 22 /* Parameters */ 23 24 dcl P_message_id bit (72) aligned parameter; 25 26 dcl P_message_id_system character (256) varying; /* encode_foreign_id, encode_psuedo_id: name of system from 27* whence this message ID originated; 28* decode_message_id: set to name of originating system */ 29 30 dcl P_clock_reading fixed binary (71) parameter; /* encode_local_id: the date/time to be encoded; 31* encode_psuedo_id: date/time created of the message */ 32 33 dcl P_message_id_text character (*) parameter; /* encode_foreign_id: the actual Message-ID text */ 34 35 dcl P_from_field pointer parameter; /* encode_psuedo_id: -> the From field of the message */ 36 37 dcl P_message_id_string character (*) varying parameter; /* decode_message_id: set to the text of the ID */ 38 dcl P_system_is_local bit (1) aligned parameter; /* decode_message_id: set ON => ID is for the local system */ 39 dcl P_code fixed binary (35) parameter; /* decode_message_id only */ 40 /**** format: indcomtxt */ 41 42 43 /* Message-ID hash table used to encode text strings purporting to be message unique identifies from other systems */ 44 45 dcl 1 encoded_message_id aligned, /* the encoding used in Message-IDs ... */ 46 2 flags, 47 3 hashed_id bit (1) unaligned, /* ... ON => the ID is encoded in the hash table; 48* OFF => the ID is a local clock reading */ 49 3 pad bit (35) unaligned, 50 2 bucket_idx fixed binary (18) unaligned unsigned, /* ... in which bucket this ID may be found */ 51 2 n_steps fixed binary (18) unaligned unsigned; /* ... # of steps from base of bucket to the ID */ 52 53 dcl 1 local_encoded_message_id aligned based (addr (encoded_message_id)), 54 2 flags, 55 3 hashed_id bit (1) unaligned, /* ... OFF for local IDs */ 56 3 pad bit (17) unaligned, 57 3 clock_reading fixed binary (54) unaligned unsigned; 58 /* ... the local clock reading */ 59 60 dcl 1 message_id_slot aligned based (message_id_slot_ptr), /* a single slot in the hash table ... */ 61 2 next_slot_ptr pointer, /* ... -> next slot in the hash table */ 62 2 system_name character (256) varying, /* ... name of system that generated this ID */ 63 2 flags, 64 3 local_system bit (1) unaligned, /* ... ON => it's the local system */ 65 3 pad bit (35) unaligned, 66 2 message_id_lth fixed binary (21), /* ... length of the ID text in this slot */ 67 2 message_id character (message_id_slot_message_id_lth refer (message_id_slot.message_id_lth)); 68 dcl (message_id_slot_ptr, last_message_id_slot_ptr) pointer\+Chandler Multics PK:2"\4@+.,BWong Multics PC`aQP쑩?Pbb,-Barnecut UOFC P| =wO;'~-.Blight HIS PJ%j<./Armstrong SysMaint PjV#M{&O;/v0BNemeth PSE P^O)GKS7Z0H1GWMay Multics P_`@K*EP6H,1 2EHo Develcon P`>G4L$bdv2 3RWaters Multics :(S.o~34TALee Multics PhAM!9w[(V45MAgar CDC ;1@`T1%v6B"t5b6Mikulecky Multics 7@8LS*6:f.F6`47Rohs Multics P}~WPPPhkJ\7@8CABrown Operator PeHLzاx89Yip UOFC Pp]c N8769:Apuzzo Develcon PdFL |^:|;Develnet Develnet Pd!O@3vL G`;PNSamanani Multics ΠoveS@9`> ?Lah CDC PzQTOb?@Eichele Multics P[$QPz@hAMcInnis Multics PhAM!?d(LA:BSmith CDC =6@4+S2!@2"D DVB CTague Multics Pr]hXN4SrCDLee Multics USlO7DEPolischuk Multics zQUOyLJ EFLupton Multics Pj) @JMlfFTGBachelor CDC Pw+U8N"*<8G&HBubric Multics P} PP"YXj HIBeck SysAdmin Pr]QW5N\~IJHarrison Multics Pqx!NVU JKCox Multics Pr]%@YNUbKnLHuen Multics Ԗ@3KQ= "RL@MMQuintin CDC ZRT>P$MNVu Multics 8S* l~NOBlackmore Multics Pq]mPO XOPMulhaupt Multics >y2SIoSJ POQAWTaylor Multics ʏ8FS*nlQZRLuk Multics b@;S1Q$6>R,SZimmerman Multics @8S*;nRdSTMiko CDC AJP,tJT>UDurand Multics 8+S*-43UVKallstrom Multics E Qo=h^V tWSiler Office W= >WS94 lXWFXLeskiw Multics P3Q8J*XYPANakaska Multics 8WS*G)f rxYZItani Multics :NS.tZ>[Savery Office P@0Pr[\Schwartz Multics PqPO湣 r\`]McDonald Office ;$SV#0D]2^Goutier Multics . 86S*! sL ^^_Kittlitz Multics 8S)zxz_<`Maryniuk Multics F :S0`aClayton Multics jFSf̞MazbD'Souza Office P=@<Qԩa<  ^bLcThompson Multics ZS ~RI 2 D0cdSwanson Multics 8=S*3, ` rdePalmer Multics 8S)ż efKramer Multics ֚@9]S+B1 fgPlatnich Office PZ;6R xgfhFournier Multics Ş8S*XG  * *Jh8iFrere Multics r8&S* c F Xi jBenjamin Bull J :S+D t > jkHaggett BullMCOIN(!GToK~c klGratton Office M 8S*: lmNeil Multics SZٻ dmRnSeaward Multics Shֺ , >6n$oBhardwaj Multics \ SvŖ Z lopSieber Multics &S*& pqPost Multics F@FSu qC:&CEO0Q  ast_up.dz CEOLG`H $ Lnae}̩*@5~n*@~w)4`Hindbo }̩ &cocGo.PPaHmisc cocGtT  a~2r}̩(*@Cm*CZ&i|@'LaL~Product_Ideas.forum i|)>udd>Office>Siler>meetings>products.forum}̩p*@C*C&5Go.8a=beta 5GtO  *&a~2r}̩*C*@cocb&~w)Go.apl/1 ~w)GtU 9 V~a~2r}̩*@coc*@H&~پGo.((a 4tools ~پGtX2 Na~2r}̩*@~پ*@~پv*@~w)6*@<6*Cm6L&CmNvvanSamanani.profile CmNG`H $ h&a2}̩r*x*@ N&CEO0Ma#course CEOKG2$ Va9}̩*Cm*&;&Go.aDbull_sum GtP2 a~2r}̩&Go.amls Kme2 ] .a~2r}̩*@*@n&CmPk>>a6start_up.ec CmPG$ .4aF}̩4 *Cmp*@ j* &i@|0a0ttraining.forum i(>udd>Office>Willott>meetings>train.forum}̩V:*C8*@C6&CmEO0HaSamanani.memo CmEOKG $ n6a}̩h*@3~b* t&i@ "a"iVfile_Migration.forum i>udd>ACTC>mtgs>vfile.forum}̩vZ*CH*@C:&CEO0Na+course.wl CEOKGQ $ ^a}̩& *Cm*@Cmnp&CmM"TTaLSamanani.value CmM $ Da`}̩P*@NF86* !Mallmes }̩*@&CEO0IaTFmeet.trans CEOKG $ >a}̩`*@2vZ*3N&CEO0Kasrb.trans CEOLGL$ Fa}̩*&;nR* level 1 dcl 60 set ref 132 message_id_slot_message_id_lth 000106 automatic fixed bin(21,0) dcl 69 set ref 131* 132 132 message_id_slot_ptr 000102 automatic pointer dcl 68 set ref 122* 122* 124 124 127* 128 132* 133 134 135 136 137 139 195* 195* 198 199 200 201* 209 mlsys_data_$hash_tables_segment_ptr 000032 external static pointer dcl 2-64 ref 116 116 122 132 137 187 187 195 mlsys_et_$unknown_message_id 000014 external static fixed bin(35,0) dcl 82 ref 189 mlsys_hash_$hash 000016 constant entry external dcl 84 ref 116 mlsys_misc_utils_$get_best_address_name 000020 constant entry external dcl 85 ref 156 mlsys_nit_interface_$get_fully_qualified_name 000022 constant entry external dcl 86 ref 119 mlsys_nit_interface_$get_local_system_name 000024 constant entry external dcl 87 ref 220 mlsys_nit_interface_$is_local_system 000026 constant entry external dcl 88 ref 134 n_real_steps 000107 automatic fixed bin(17,0) dcl 74 set ref 194* 197 208* 208 n_steps 1(18) 000100 automatic fixed bin(18,0) level 2 packed unsigned unaligned dcl 45 set ref 117* 126* 126 197 next_slot_ptr based pointer level 2 dcl 60 set ref 128 136* 139* 209 null builtin function dcl 91 ref 121 122 136 137 195 pad 0(01) based bit(17) level 3 in structure "local_encoded_message_id" packed unaligned dcl 53 in procedure "mlsys_message_id_mgr_" set ref 101* pad 0(01) 000100 automatic bit(35) level 3 in structure "encoded_message_id" packed unaligned dcl 45 in procedure "mlsys_message_id_mgr_" set ref 114* psuedo_id_text 000100 automatic structure level 1 dcl 160 set ref 169 169 request_id_ 000030 constant entry external dcl 89 ref 165 219 semicolon 4(27) 000100 automatic char(1) level 2 packed unaligned dcl 160 set ref 166* string builtin function dcl 91 ref 169 169 system_name 2 based varying char(256) level 2 dcl 60 set ref 124 133* 200 the_address 000212 automatic pointer dcl 78 set ref 153* 156* unspec builtin function dcl 91 set ref 103* 103 142* 142 179* 179 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ADDRESS_LIST_VERSION_2 internal static char(8) initial unaligned dcl 3-12 address_list_n_addresses automatic fixed bin(17,0) dcl 3-16 address_list_ptr automatic pointer dcl 3-14 mlsys_area based area(1024) dcl 2-61 mlsys_data_$address_list_allocation external static fixed bin(17,0) dcl 2-33 mlsys_data_$domains_available external static fixed bin(1,0) dcl 2-44 mlsys_data_$forum_not_available external static fixed bin(1,0) dcl 2-44 mlsys_data_$highest_usable_ring external static fixed bin(3,0) dcl 2-49 mlsys_data_$ism_not_available external static fixed bin(1,0) dcl 2-44 mlsys_data_$lowest_forum_ring external static fixed bin(3,0) dcl 2-49 mlsys_data_$mailbox_allocation external static fixed bin(17,0) dcl 2-33 mlsys_data_$max_lock_wait_retries external static fixed bin(17,0) dcl 2-19 mlsys_data_$max_opening_retries external static fixed bin(17,0) dcl 2-16 mlsys_data_$message_body_sections_allocation external static fixed bin(17,0) dcl 2-33 mlsys_data_$message_redistributions_list_allocation external static fixed bin(17,0) dcl 2-33 mlsys_data_$message_references_list_allocation external static fixed bin(17,0) dcl 2-33 mlsys_data_$message_user_fields_allocation external static fixed bin(17,0) dcl 2-33 mlsys_data_$person_id external static varying char(24) dcl 2-70 mlsys_data_$project_id external static varying char(12) dcl 2-71 mlsys_data_$subsystem_area_ptr external static pointer dcl 2-62 mlsys_data_$subsystem_ring external static fixed bin(3,0) dcl 2-49 mlsys_data_$temp_segment_list_ptr external static pointer dcl 2-54 mlsys_data_$transmit_cache_ptr external static pointer dcl 2-66 mlsys_data_$user_id external static varying char(32) dcl 2-72 mlsys_data_$user_is_anonymous external static bit(1) dcl 2-68 mlsys_data_$valid_segments external static bit(1) array unaligned dcl 2-56 NAMES DECLARED BY EXPLICIT CONTEXT. HAVE_ENCODED_MESSAGE_ID 000316 constant label dcl 142 ref 124 UNKNOWN_MESSAGE_ID 000527 constant label dcl 189 ref 211 decode_message_id 000472 constant entry external dcl 176 encode_foreign_id 000062 constant entry external dcl 110 ref 169 encode_local_id 000031 constant entry external dcl 95 encode_psuedo_id 000330 constant entry external dcl 150 mlsys_message_id_mgr_ 000017 constant entry external dcl 16 NAME DECLARED BY CONTEXT OR IMPLICATION. addr builtin function ref 100 101 219 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1122 1156 663 1132 Length 1432 663 34 240 236 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME mlsys_message_id_mgr_ 240 external procedure is an external procedure. begin block on line 158 90 begin block uses auto adjustable storage. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME begin block on line 158 000100 psuedo_id_text begin block on line 158 mlsys_message_id_mgr_ 000100 encoded_message_id mlsys_message_id_mgr_ 000102 message_id_slot_ptr mlsys_message_id_mgr_ 000104 last_message_id_slot_ptr mlsys_message_id_mgr_ 000106 message_id_slot_message_id_lth mlsys_message_id_mgr_ 000107 n_real_steps mlsys_message_id_mgr_ 000110 full_system_name mlsys_message_id_mgr_ 000212 the_address mlsys_message_id_mgr_2r&qdGo.O  amail qdGtR l 2^a~2r}̩^N*@qdV*@qd&CEO0OBBa:words CEOLsGw d$ fa}̩.*Cm*@CmL&&;EO0Dxxap0TGIF2.trans &;EOKG`H i$ a}̩*@**$&i@ aXmeetings_dir.forum i>site>forum_dir>mtgs_dir.forum}̩P*@C^B*Cmigration.forum imi.forum imtgs_dir.forum iMeetings_Director.forum i,Meetings_Directory.forum ivfile.forum i|t train.forum ienv.forum i~Aproducts.forum i|~&2EO0,bbaZDbeta.90/5/22.mail 2EOKG$ na}̩Z&3EO0-aDbxps.mail 3EOL{GQ$ va }̩& EO0.anick.mail EOLGQ$ d~a}̩& EO00anick.trans EOLG $ a }̩d&EO01a{xps.frank.mail EOLuG ----------------------------------------------------------- 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