(FILECREATED "11-Aug-85 02:07:12" ("compiled on " {ERIS}SOURCES>CLEARINGHOUSE.;29) " 5-Aug-85 20:35:10" bcompl'd in "INTERLISP-D 5-Aug-85 ..." dated " 5-Aug-85 20:48:34") (FILECREATED "10-Aug-85 02:28:30" {PELE:PARC:XEROX}CLEARINGHOUSE.;1 changes to: (VARS CLEARINGHOUSECOMS AS.WELL.KNOWN.NAME) (FNS AS.DELETE.PASSWORDS AS.CREATE.PASSWORDS AS.MAKE.CONVERSATION CH.IS.IN.DOMAIN.ACL AS.NEXT.VERIFIER AS.CHANGE.PASSWORDS) (COURIERPROGRAMS CHACCESSCONTROL AUTHENTICATION) previous date: "26-Jul-85 12:48:32" {ERIS}SOURCES>CLEARINGHOUSE.;26) AS.CHANGE.PASSWORDS D1 (P 5 RESULT P 4 VERIFIER P 3 CONVKEY P 2 CREDS P 1 CONVGOOK P 0 ADDR I 0 PASSWORD) m` !IdXI[H HggJLK@ h g Mg%KH \HggJL@ g dghh(140Q COURIER.CALL 131Q HASH.PASSWORD 113Q AS.NEXT.VERIFIER 73Q COURIER.CALL 64Q DES.BREAKOUT.BLOCKS 57Q DES.ECB.ENCRYPT 54Q DES.PASSWORD.TO.KEY 33Q AS.NEXT.VERIFIER 13Q AS.MAKE.CONVERSATION 2 \AUTHENTICATION.FIND.SERVER) (145Q ERROR 134Q RETURNERRORS 123Q CHANGE.SIMPLE.KEY 120Q AUTHENTICATION 103Q ERROR 67Q RETURNERRORS 45Q CHANGE.STRONG.KEY 42Q AUTHENTICATION 10Q AS.WELL.KNOWN.NAME) () AS.CREATE.PASSWORDS D1 (P 5 RESULT P 4 VERIFIER P 3 CONVKEY P 2 CREDS P 1 CONVGOOK P 0 ADDR I 1 PASSWORD I 0 NAME) u@ b` !IdZI[H HggJL@KA h g Mg&KH \HggJL@A g dghh(150Q COURIER.CALL 141Q HASH.PASSWORD 122Q AS.NEXT.VERIFIER 102Q COURIER.CALL 73Q DES.BREAKOUT.BLOCKS 66Q DES.ECB.ENCRYPT 63Q DES.PASSWORD.TO.KEY 41Q AS.NEXT.VERIFIER 21Q AS.MAKE.CONVERSATION 10Q \AUTHENTICATION.FIND.SERVER 3 PARSE.NSNAME) (155Q ERROR 144Q RETURNERRORS 132Q CREATE.SIMPLE.KEY 127Q AUTHENTICATION 112Q ERROR 76Q RETURNERRORS 53Q CREATE.STRONG.KEY 50Q AUTHENTICATION 16Q AS.WELL.KNOWN.NAME) () AS.DELETE.PASSWORDS D1 (P 5 RESULT P 4 VERIFIER P 3 CONVKEY P 2 CREDS P 1 CONVGOOK P 0 ADDR I 0 NAME) d@ b` !IdII[H HggJL@g Mg"KH \HggJL@g dghh(127Q COURIER.CALL 105Q AS.NEXT.VERIFIER 65Q COURIER.CALL 41Q AS.NEXT.VERIFIER 21Q AS.MAKE.CONVERSATION 10Q \AUTHENTICATION.FIND.SERVER 3 PARSE.NSNAME) (134Q ERROR 123Q RETURNERRORS 115Q DELETE.SIMPLE.KEY 112Q AUTHENTICATION 75Q ERROR 61Q RETURNERRORS 53Q DELETE.STRONG.KEY 50Q AUTHENTICATION 16Q AS.WELL.KNOWN.NAME) () AS.MAKE.CONVERSATION D1 (P 4 cred.pack P 3 CRED.PACK P 2 INFO P 1 NONCE P 0 ADDR I 0 RECIPIENT F 5 USERNAME) jHhg HggU @ Ig LgJ L gg [ddIjK (146Q DES.MAKE.KEY 122Q COURIER.READ.REP 111Q DES.BREAKOUT.BLOCKS 106Q DES.CBCC.DECRYPT 103Q DES.MAKE.BLOCKS 77Q DES.PASSWORD.TO.KEY 57Q COURIER.CALL 47Q PARSE.NSNAME 43Q PARSE.NSNAME 25Q \INTERNAL/GETPASSWORD 14Q RAND 2 \AUTHENTICATION.FIND.SERVER) (117Q CREDENTIALS.PACKAGE 114Q AUTHENTICATION 67Q ERROR 53Q RETURNERRORS 37Q GET.STRONG.CREDENTIALS 34Q AUTHENTICATION 22Q NS::) () AS.NEXT.VERIFIER D1 (P 2 E P 1 BL I 1 ADDR I 0 CONVKEY) {hgg Hd6dAHd%HAHdHAH 0Id@J LKh]K&M (170Q DES.BREAKOUT.BLOCKS 142Q DES.ECB.ENCRYPT 121Q DES.MAKE.BLOCKS 21Q COURIER.WRITE.REP 5 RAND 2 IDATE) (107Q NSADDRESS 62Q NSADDRESS 37Q NSADDRESS 16Q STRONG.VERIFIER 13Q AUTHENTICATION) () CH.ADD.MEMBER.TO.DOMAIN.ACL D1 (P 0 AUTH I 2 NEWMEMBER I 1 WHICH.LIST I 0 DOMAIN) 1B bi @l b lgg@ABHHg (56Q COURIER.EXPEDITED.CALL 27Q CH.FINDSERVER 22Q PARSE.NSNAME 11Q CH.GETAUTHENTICATOR 3 CH.CANONICAL.NAME) (52Q RETURNERRORS 37Q ADD.MEMBER.TO.DOMAIN.ACL 34Q CHACCESSCONTROL) () CH.ADD.MEMBER.TO.PROPERTY.ACL D1 (P 0 AUTH I 4 STREAM I 3 NEWMEMBER I 2 WHICH.LIST I 1 PROPERTY I 0 OBJECT) 2@ bi @ gg@A ABC HHg (57Q COURIER.CALL 43Q PARSE.NSNAME 33Q CH.PROPERTY 20Q CH.FINDSERVER 11Q CH.GETAUTHENTICATOR 3 PARSE.NSNAME) (53Q RETURNERRORS 26Q ADD.MEMBER.TO.PROPERTY.ACL 23Q CHACCESSCONTROL) () CH.ADD.SELF D1 (I 2 STREAM I 1 PROPERTY I 0 GROUPNAME) )@ bBd gg@Ad3 i g (46Q COURIER.CALL 37Q CH.GETAUTHENTICATOR 33Q CH.PROPERTY 14Q CH.FINDSERVER 3 PARSE.NSNAME) (42Q RETURNERRORS 22Q ADD.SELF 17Q CLEARINGHOUSE) () CH.DELETE.MEMBER.FROM.DOMAIN.ACL D1 (P 0 AUTH I 2 OLDMEMBER I 1 WHICH.LIST I 0 DOMAIN) 1B bi @l b lgg@ABHHg (56Q COURIER.EXPEDITED.CALL 27Q CH.FINDSERVER 22Q PARSE.NSNAME 11Q CH.GETAUTHENTICATOR 3 CH.CANONICAL.NAME) (52Q RETURNERRORS 37Q DELETE.MEMBER.FROM.DOMAIN.ACL 34Q CHACCESSCONTROL) () CH.DELETE.SELF D1 (I 2 STREAM I 1 PROPERTY I 0 GROUPNAME) )@ bBd gg@Ad3 i g (46Q COURIER.CALL 37Q CH.GETAUTHENTICATOR 33Q CH.PROPERTY 14Q CH.FINDSERVER 3 PARSE.NSNAME) (42Q RETURNERRORS 22Q DELETE.SELF 17Q CLEARINGHOUSE) () CH.IS.IN.DOMAIN.ACL D1 (P 0 AUTH I 3 NAME I 2 PROPERTY I 1 WHICH I 0 DOMAIN) 4i @l bi gg@AB BC HHg (61Q COURIER.CALL 45Q PARSE.NSNAME 36Q CH.PROPERTY 22Q CH.FINDSERVER 14Q PARSE.NSNAME 3 CH.GETAUTHENTICATOR) (55Q RETURNERRORS 30Q IS.IN.DOMAIN.ACL 25Q CHACCESSCONTROL) () CH.NUMBER.TO.PROPERTY D1 (L (0 PNUM)) "`Hh@IIiHXNIL (2 CH.PROPERTIES) () CH.RETRIEVE.DOMAIN.ACL D1 (P 0 AUTH I 1 WHICH.LIST I 0 DOMAIN) ,i @l b gg@AoHHg (51Q COURIER.CALL 21Q CH.FINDSERVER 14Q PARSE.NSNAME 3 CH.GETAUTHENTICATOR) (45Q RETURNERRORS 27Q RETRIEVE.DOMAIN.ACL 24Q CHACCESSCONTROL) ( 35Q (CHACCESSCONTROL . ELEMENT.NAME)) CH.RETRIEVE.PROPERTY.ACL D1 (P 0 AUTH I 2 WHICH.LIST I 1 PROPERTY I 0 NAME) 2i @ bi gg@A ABoHHg (57Q COURIER.CALL 33Q CH.PROPERTY 20Q CH.FINDSERVER 12Q PARSE.NSNAME 3 CH.GETAUTHENTICATOR) (53Q RETURNERRORS 26Q RETRIEVE.PROPERTY.ACL 23Q CHACCESSCONTROL) ( 43Q (CHACCESSCONTROL . ELEMENT.NAME)) HASH.PASSWORD D1 (P 2 CHAR P 0 HASH I 0 PASSWORD) Oj@ RIkټILIػICjhiLk\K#NMLMLºHlJlI nM H(110Q IMOD 101Q L-CASECODE 4 MKSTRING) NIL () NSLOGIN D1 (I 1 MSG I 0 HOST) @ihAhg (13Q \INTERNAL/GETPASSWORD) (7 NS) () NS.AUTHENTICATE D1 (P 1 RESULT P 0 ADDR I 0 SIMPLE.CREDENTIALS) ?@g@ bHggg@@g dddg(55Q COURIER.CALL 22Q \AUTHENTICATION.FIND.SERVER 14Q NS.MAKE.SIMPLE.CREDENTIALS 11Q \INTERNAL/GETPASSWORD) (74Q CredentialsInvalid 51Q RETURNERRORS 42Q CHECK.SIMPLE.CREDENTIALS 37Q AUTHENTICATION 33Q AllDown 5 NS::) () NS.MAKE.SIMPLE.CREDENTIALS D1 (I 0 NAME/PASS) %g@ gg h@ gg (41Q COURIER.WRITE.REP 30Q HASH.PASSWORD 20Q COURIER.WRITE.REP 7 PARSE.NSNAME) (36Q SIMPLE.VERIFIER 33Q AUTHENTICATION 15Q SIMPLE.CREDENTIALS 12Q AUTHENTICATION 2 SIMPLE) () \AUTHENTICATION.FIND.SERVER D1 (P 2 ADDR P 0 INFO) l``I*h%lgghd`o Xd` HZlggg ddgdghiJiIY(111Q COURIER.EXPEDITED.CALL 62Q \APPEND2 51Q COURIER.BROADCAST.CALL) (127Q REJECT 121Q ERROR 105Q RETURNERRORS 102Q BROADCAST.FOR.SERVERS 77Q AUTHENTICATION 65Q \AUTHENTICATION.SERVER.CACHE 57Q \AUTHENTICATION.SERVER.CACHE 41Q AUTHENTICATION.NET.HINT 34Q BROADCAST.FOR.SERVERS 31Q AUTHENTICATION 11Q \AUTHENTICATION.SERVER.CACHE 5 \AUTHENTICATION.SERVER.CACHE) ( 45Q "Authentication servers") \NSNAME.DEFPRINT D1 (I 1 STREAM I 0 NAME) @ h(3 NSNAME.TO.STRING) NIL () NSNAME.TO.STRING D1 (P 3 COLON P 2 ORG P 1 DOM P 0 OBJ I 1 FULLNAMEFLG I 0 NSNAME) G@b@@oHIKJ AJ` HKIKJ HKI` oI (104Q CONCAT 72Q STRING-EQUAL 60Q CONCAT 46Q STRING-EQUAL 34Q CONCAT) (67Q CH.DEFAULT.DOMAIN 43Q CH.DEFAULT.ORGANIZATION 3 NSNAME) ( 77Q "" 21Q ":") COURIER.READ.NSNAME D1 (I 2 TYPE I 1 PROGRAM I 0 STREAM) 6`@ HdI@ HdIBg@ HdI(52Q COURIER.READ.STRING 25Q COURIER.READ.STRING 7 COURIER.READ.STRING) (43Q NSNAME 2 NSNAMETYPE#) () COURIER.WRITE.NSNAME D1 (I 3 TYPE I 2 PROGRAM I 1 NAME I 0 STREAM) !@A @A Cg @A (36Q COURIER.WRITE.STRING 20Q COURIER.WRITE.STRING 11Q COURIER.WRITE.STRING) (24Q NSNAME 4 NSNAME) () COURIER.NSNAME.LENGTH D1 (I 2 TYPE I 1 PROGRAM I 0 NSNAME) 3Bgj@hg @hg @hg (56Q COURIER.REP.LENGTH 41Q COURIER.REP.LENGTH 24Q COURIER.REP.LENGTH) (53Q STRING 45Q NSNAME 36Q STRING 30Q NSNAME 21Q STRING 13Q NSNAME 3 NSNAME2) () GETCLEARINGHOUSEA0001 D1 (NAME ERRORSET F 0 RESETY) 3`hi lgghg`o `ohi ci(55Q ERROR 37Q COURIER.BROADCAST.CALL 7 OBTAIN.MONITORLOCK) (43Q LOCAL.CLEARINGHOUSE 27Q CH.NET.HINT 24Q \CH.CHECK.CLEARINGHOUSE 20Q RETRIEVE.ADDRESSES 15Q CLEARINGHOUSE 2 \CH.MAINLOCK) ( 50Q "Can't find a Clearinghouse" 33Q "Clearinghouse servers") GETCLEARINGHOUSE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) /```"S!Tog hgZ JI(52Q ERROR! 45Q RESETRESTORE 33Q GETCLEARINGHOUSEA0001) (41Q ERROR 30Q INTERNAL 12Q LOCAL.CLEARINGHOUSE 6 CH.DEFAULT.ORGANIZATION 2 CH.DEFAULT.DOMAIN) ( 25Q (GETCLEARINGHOUSEA0001)) \CH.CHECK.CLEARINGHOUSE D1 (P 2 DEFAULT P 1 DOMAINS P 0 ADDR I 0 ADDRESSES) @i AHd Yd[~hz``J` o` J` o` J` o` `H dLdodoHI HZo JvipKf(244Q STREQUAL 221Q \CH.UPDATE.CACHE 166Q MKSTRING 155Q PRIN1 142Q PRIN1 122Q PRIN1 107Q PRIN1 67Q PRIN1 54Q TERPRI 20Q CH.DOMAINS.SERVED 4 BESTNSADDRESS) (233Q NSNAME 225Q LOCAL.CLEARINGHOUSE 161Q NSNAMETYPE# 152Q PROMPTWINDOW 137Q PROMPTWINDOW 134Q CH.DEFAULT.ORGANIZATION 127Q NSNAME 117Q PROMPTWINDOW 104Q PROMPTWINDOW 101Q CH.DEFAULT.DOMAIN 74Q NSNAME 64Q PROMPTWINDOW 51Q PROMPTWINDOW 44Q CH.DEFAULT.ORGANIZATION 40Q CH.DEFAULT.DOMAIN) ( 241Q "..." 211Q "CHServers" 201Q "CHServers" 147Q "]" 114Q ":" 61Q "[Default Clearinghouse domain set to ") START.CLEARINGHOUSE D1 (I 0 RESTARTFLG F 0 \NS.ROUTING.TABLE.RADIUS) @`lch`(31Q GETCLEARINGHOUSE) (34Q LOCAL.CLEARINGHOUSE 25Q NS.SERVER.NAMES.TO.ADDRESSES 22Q \CH.CACHE 17Q LOCAL.CLEARINGHOUSE 4 LOCAL.CLEARINGHOUSE) () SHOW.CLEARINGHOUSEA0001 D1 NIL hNIL (3 CLEARINGHOUSE.STRUCTURE.WINDOW) () SHOW.CLEARINGHOUSE D1 (P 5 ORG P 0 SEXPR I 1 DONT.GRAPH I 0 ENTIRE.CLEARINGHOUSE?)  o@50o "dMoM KJh\J&LA0`4dY0IdONh_N&_OKJh\J&LXA1o Hgho `o dgg `(254Q PUTWINDOWPROP 237Q SHOWGRAPH 223Q LAYOUTSEXPR 207Q FILESLOAD 46Q CH.LIST.DOMAINS 43Q CONCAT 23Q CH.LIST.ORGANIZATIONS) (257Q CLEARINGHOUSE.STRUCTURE.WINDOW 251Q SHOW.CLEARINGHOUSEA0001 246Q CLOSEFN 242Q CLEARINGHOUSE.STRUCTURE.WINDOW 226Q CLEARINGHOUSE.STRUCTURE.WINDOW 213Q HORIZONTAL 102Q \CH.CACHE) ( 234Q "Clearinghouse structure" 220Q (HELVETICA 12Q BOLD) 204Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) 37Q "*:" 20Q "*" 6 "") CH.FINDSERVER D1 (P 4 DOMAIN.INFO P 2 ORGANIZATION.INFO P 1 DOMAIN P 0 ORGANIZATION I 2 DONTPROBEFLG I 1 NOERRORFLG I 0 DOMAINPATTERN) @d`l b@HAB ZdKhQB%AhIo@i \I LK[J`dIdHdoAHI @Ai (176Q CH.FINDSERVER 170Q \CH.LOCATE.SERVERS 110Q STRING-EQUAL 100Q ERROR 42Q \CH.FIND.ORG.SERVER 14Q PARSE.NSNAME) (136Q NSNAMETYPE# 27Q NSNAME 21Q NSNAME 5 NSNAMETYPE#) ( 156Q "CHServers" 73Q "Couldn't find Clearinghouse server for domain") \CH.FIND.ORG.SERVER D1 (P 1 ORGINFO I 2 DONTPROBEFLG I 1 NOERRORFLG I 0 ORGANIZATION) `HhB$Ah o@i Y@ IiHX@o V`@d`hdh@`d]MhdhKJh\J&Lh ibq`d@dodoA@ ibH(262Q \CH.LOCATE.SERVERS 224Q GETCLEARINGHOUSE 205Q \NCONC2 100Q GETCLEARINGHOUSE 73Q STRING-EQUAL 47Q STRING-EQUAL 37Q ERROR) (227Q NSNAMETYPE# 210Q \CH.CACHE 132Q \CH.CACHE 110Q \CH.CACHE 103Q \CH.CACHE 2 \CH.CACHE) ( 252Q "CHServers" 242Q "CHServers" 70Q "CHServers" 32Q "Couldn't find Clearinghouse server for organization") \CH.LOCATE.SERVERSA0001 D1 (NAME ERRORSET L (0 NIL) P 5 INFO P 4 CH F 6 STREAM F 7 RESETVARSLST F 10Q CHNAMES F 11Q SERVERGROUP F 12Q RESETY F 13Q CHLIST) gVhhhWcWg V cd_gWWQH I cFVggLg g ]gg MhJ KhZHXK&hci(144Q COURIER.READ.REP 124Q COURIER.CALL 115Q CH.GETAUTHENTICATOR 112Q CH.PROPERTY 66Q SORT.NSADDRESSES.BY.DISTANCE 34Q CH.RETRIEVE.MEMBERS 30Q CH.PROPERTY) (141Q NETWORK.ADDRESS.LIST 136Q CLEARINGHOUSE 120Q NOERROR 107Q ADDRESS.LIST 103Q RETRIEVE.ITEM 100Q CLEARINGHOUSE 45Q ERROR 25Q MEMBERS 2 \SPP.RESETCLOSE) () \CH.LOCATE.SERVERS D1 (P 13Q DOM P 12Q CHDOMAINS P 11Q PAIR P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 3 NOROUTE P 2 CHNAMES P 1 CHLIST P 0 STREAM I 4 DOMAIN I 3 ORGANIZATION I 2 NOERRORFLG I 1 SERVERGROUP I 0 CHSERVER F 14Q LISPXHIST F 15Q RESETVARSLST) PoDC @hBg X6W!Wog hg_ OI1 OhJgoot_ iO _3i9O__DOD OC O iL\hhOOOh iKooDC h(320Q \CH.PRINT.BLURB 274Q \CH.UPDATE.CACHE 234Q STRING-EQUAL 217Q STRING-EQUAL 160Q CH.DOMAINS.SERVED 145Q \LOCATE.NSNET 72Q ERROR! 63Q RESETRESTORE 50Q \CH.LOCATE.SERVERSA0001 24Q COURIER.OPEN 13Q \CH.PRINT.BLURB) (226Q NSNAME 211Q NSNAME 140Q NSADDRESS 120Q ERROR 56Q ERROR 45Q INTERNAL 21Q CLEARINGHOUSE) ( 313Q "Unable to contact Clearinghouse for " 306Q "No network route to Clearinghouse for " 127Q "Unknown domain: " 42Q (\CH.LOCATE.SERVERSA0001) 6 "Finding Clearinghouse server for ") \CH.PRINT.BLURB D1 (I 2 ORGANIZATION I 1 DOMAIN I 0 MSG) B` o` @` AB` o` ` g` (75Q PRIN1 63Q PRIN1 54Q PRIN1 42Q PRIN1 30Q PRIN1 20Q PRIN1 5 TERPRI) (72Q PROMPTWINDOW 67Q : 60Q PROMPTWINDOW 51Q PROMPTWINDOW 37Q PROMPTWINDOW 25Q PROMPTWINDOW 15Q PROMPTWINDOW 2 PROMPTWINDOW) ( 46Q "]" 12Q "[") \CH.UPDATE.CACHE D1 (P 11Q DOMAIN.INFO P 7 X P 5 DOMAIN P 3 ORGANIZATION.INFO P 2 DOMAINSTRING P 1 ORGANIZATION P 0 NAME.AND.ADDRESS I 2 DOMAINS.SERVED I 1 ADDRESS I 0 OBJECT) @jd` o` @` o` A@hXBL `h]M`N8h[`Ih[h K O.KJHhhdhh L\_I OiN^_J OHOO O_(306Q SORT.NSADDRESSES.BY.DISTANCE 262Q STRING-EQUAL 235Q STRING-EQUAL 217Q \NCONC2 160Q \NCONC2 104Q SHOW.CLEARINGHOUSE 55Q PRIN1 42Q PRIN1 25Q PRIN1 12Q TAB) (163Q \CH.CACHE 147Q \CH.CACHE 130Q \CH.CACHE 122Q NSNAME 113Q NSNAME 77Q CLEARINGHOUSE.STRUCTURE.WINDOW 52Q PROMPTWINDOW 37Q PROMPTWINDOW 32Q NSNAME 22Q PROMPTWINDOW 7 PROMPTWINDOW) ( 47Q "]" 17Q "[Noting Clearinghouse ") EQUAL.CH.NAMES D1 (I 1 NAME2 I 0 NAME1) 3@A "@A @A (60Q STRING-EQUAL 37Q STRING-EQUAL 16Q STRING-EQUAL) (53Q NSNAME 45Q NSNAME 32Q NSNAME 24Q NSNAME 11Q NSNAME 3 NSNAME) () PARSE.NSNAME D1 (P 4 J P 3 I P 2 THIRDPART P 1 SECONDPART P 0 FIRSTPART I 2 DEFAULTDOMAIN I 1 #PARTS I 0 NAME) 1 @d`:AAdl@l@`@ dhAdk@l "@ ob@l@ bo@ [-@kKk @Kko@Kk \ @Lk Lk @AAdl9`dHIB"`dMJB `dNl2`JIH_dOJ IB`_dOAdkJIH@l (456Q \LISPERROR 236Q SUBSTRING 227Q SUBSTRING 215Q STRPOS 175Q SUBSTRING 162Q STRPOS 152Q GETCLEARINGHOUSE 134Q MKSTRING 77Q \LISPERROR 47Q NCREATE2) (423Q NSNAME 406Q CH.DEFAULT.ORGANIZATION 352Q NSNAMETYPE# 336Q NSNAME 327Q NSNAME 315Q CH.DEFAULT.ORGANIZATION 276Q CH.DEFAULT.DOMAIN 257Q NSNAMETYPE# 67Q NSNAME 43Q NSNAMETYPE# 34Q NSNAME 5 NSNAMETYPE#) ( 206Q ":" 156Q ":" 113Q "*") CH.NAME.TO.STRING D1 (I 1 FULLNAMEFLG I 0 NSNAME) @d` A (16Q NSNAME.TO.STRING 12Q PARSE.NSNAME) (5 NSNAMETYPE#) () CANONICAL.CH.NAME D1 (I 0 NAME) @ (11Q MKATOM 6 NSNAME.TO.STRING 3 PARSE.NSNAME) NIL () CH.PROPERTY D1 (P 1 PAIR I 0 PROP) .@dl`H o@ hYd@HX(32Q ERROR) (13Q CH.PROPERTIES) ( 26Q "Unknown Clearinghouse property") CH.GETAUTHENTICATOR D1 (P 0 INFO I 0 NONTRIVIAL) /@g H XdHhghhoh(25Q NS.MAKE.SIMPLE.CREDENTIALS 21Q ERROR! 10Q \INTERNAL/GETPASSWORD) (41Q SIMPLE 5 NS::) ( 51Q (0)) CH.SERVERS D1 NIL 8gg`dododog o (65Q COURIER.CALL 61Q CH.GETAUTHENTICATOR 52Q CH.PROPERTY 2 GETCLEARINGHOUSE) (47Q MEMBERS 13Q NSNAMETYPE# 10Q RETRIEVE.MEMBERS 5 CLEARINGHOUSE) ( 56Q (CLEARINGHOUSE . OBJECT.NAME) 41Q "CHServers" 31Q "CHServers" 21Q "CHServers") \CH.GUESS.NEW.PROPERTIES D1 (P 3 ID P 1 OBJECTS P 0 PATTERN I 2 MAXPROPERTYID I 1 MINPROPERTYID I 0 DOMAIN) Q@l `H doXAkbBlbdA2KJ HK YKIM Nh]Kk[N&L(64Q CH.LIST.OBJECTS 17Q NCREATE2 5 PARSE.NSNAME) (13Q NSNAMETYPE#) ( 24Q "*") CH.DOMAINS.SERVEDA0001 D1 (NAME ERRORSET F 0 CHADDRESS) Pggo h(21Q COURIER.CALL 15Q CH.GETAUTHENTICATOR) (6 LIST.DOMAINS.SERVED 3 CLEARINGHOUSE) ( 12Q (CLEARINGHOUSE . DOMAIN.NAME)) CH.DOMAINS.SERVED D1 (I 0 CHADDRESS) o (6 CH.DOMAINS.SERVEDA0001) NIL ( 3 (CH.DOMAINS.SERVEDA0001)) CH.CREATE.OBJECT D1 (I 1 STREAM I 0 OBJECTNAME) $@ bAd gg@i g @(36Q COURIER.CALL 27Q CH.GETAUTHENTICATOR 14Q CH.FINDSERVER 3 PARSE.NSNAME) (32Q RETURNERRORS 22Q CREATE.OBJECT 17Q CLEARINGHOUSE) () CH.DELETE.OBJECT D1 (I 1 STREAM I 0 OBJECTNAME) $@ bAd gg@i g @(36Q COURIER.CALL 27Q CH.GETAUTHENTICATOR 14Q CH.FINDSERVER 3 PARSE.NSNAME) (32Q RETURNERRORS 22Q DELETE.OBJECT 17Q CLEARINGHOUSE) () CH.CANONICAL.NAME D1 (P 0 PARSED I 0 NAME) @ g@ H H(22Q CH.LOOKUP.OBJECT 15Q STRPOS 3 PARSE.NSNAME) (11Q *) () CH.CREATE.ALIAS D1 (I 1 OBJECTNAME I 0 ALIAS) #A b lgg@ Ai g (40Q COURIER.EXPEDITED.CALL 31Q CH.GETAUTHENTICATOR 24Q PARSE.NSNAME 10Q CH.FINDSERVER 3 PARSE.NSNAME) (34Q RETURNERRORS 20Q CREATE.ALIAS 15Q CLEARINGHOUSE) () CH.DELETE.ALIAS D1 (I 0 ALIAS) @ b lgg@i g (34Q COURIER.EXPEDITED.CALL 25Q CH.GETAUTHENTICATOR 10Q CH.FINDSERVER 3 PARSE.NSNAME) (30Q RETURNERRORS 20Q DELETE.ALIAS 15Q CLEARINGHOUSE) () CH.LOOKUP.OBJECT D1 (P 0 ADDRESS I 0 OBJECTPATTERN) '@ bdi Hdlgg@g (44Q COURIER.EXPEDITED.CALL 35Q CH.GETAUTHENTICATOR 12Q CH.FINDSERVER 3 PARSE.NSNAME) (40Q NOERROR 31Q LOOKUP.OBJECT 26Q CLEARINGHOUSE) () CH.DELETE.PROPERTY D1 (I 1 PROPERTY I 0 OBJECTNAME) '@ b lgg@Ad3 i g (44Q COURIER.EXPEDITED.CALL 35Q CH.GETAUTHENTICATOR 31Q CH.PROPERTY 10Q CH.FINDSERVER 3 PARSE.NSNAME) (40Q RETURNERRORS 20Q DELETE.PROPERTY 15Q CLEARINGHOUSE) () LOOKUP.NS.SERVER D1 (P 2 ENTRY P 1 NAME&VALUE P 0 ADDRESSES I 2 FULLFLG I 1 TYPE I 0 NAME) i@ b@`[hOA@AgZ@ J:iK@g g Yd%AIjIhIZ`BJJ(73Q CH.RETRIEVE.ITEM 65Q CH.PROPERTY 43Q EQUAL.CH.NAMES 3 PARSE.NSNAME) (136Q NS.SERVER.NAMES.TO.ADDRESSES 132Q NS.SERVER.NAMES.TO.ADDRESSES 110Q NSADDRESS 70Q NETWORK.ADDRESS.LIST 62Q ADDRESS.LIST 32Q NETWORK.ADDRESS 13Q NS.SERVER.NAMES.TO.ADDRESSES) () \CANONICAL.NSHOSTNAME D1 (P 0 INFO I 0 HOST) @hi @gi Hdi (35Q MKATOM 32Q NSNAME.TO.STRING 17Q LOOKUP.NS.SERVER 5 LOOKUP.NS.SERVER) (13Q FILESERVER) () CH.LIST.ALIASES D1 (I 0 OBJECTNAMEPATTERN) @ b gg@o (32Q COURIER.CALL 26Q CH.GETAUTHENTICATOR 10Q CH.FINDSERVER 3 PARSE.NSNAME) (16Q LIST.ALIASES 13Q CLEARINGHOUSE) ( 23Q (CLEARINGHOUSE . OBJECT)) CH.LIST.ALIASES.OF D1 (I 0 OBJECTPATTERN) .@ b gg@og HghH(35Q COURIER.CALL 26Q CH.GETAUTHENTICATOR 10Q CH.FINDSERVER 3 PARSE.NSNAME) (45Q ERROR 31Q RETURNERRORS 16Q LIST.ALIASES.OF 13Q CLEARINGHOUSE) ( 23Q (CLEARINGHOUSE . OBJECT.NAME)) CH.LIST.DOMAINS D1 (I 0 DOMAINPATTERN) .@l bdi gg@og (53Q COURIER.CALL 44Q CH.GETAUTHENTICATOR 21Q \CH.FIND.ORG.SERVER 5 PARSE.NSNAME) (47Q NOERROR 34Q LIST.DOMAINS 31Q CLEARINGHOUSE 13Q NSNAME) ( 41Q (CLEARINGHOUSE . DOMAIN)) CH.LIST.ORGANIZATIONS D1 (I 0 ORGANIZATIONPATTERN) gg@k o (30Q COURIER.CALL 24Q CH.GETAUTHENTICATOR 15Q PARSE.NSNAME 2 GETCLEARINGHOUSE) (10Q LIST.ORGANIZATIONS 5 CLEARINGHOUSE) ( 21Q (CLEARINGHOUSE . ORGANIZATION)) CH.LIST.OBJECTS D1 (I 1 PROPERTY I 0 OBJECTPATTERN) *@ bi gg@Ag og (47Q COURIER.CALL 40Q CH.GETAUTHENTICATOR 31Q CH.PROPERTY 11Q CH.FINDSERVER 3 PARSE.NSNAME) (43Q NOERROR 26Q ALL 17Q LIST.OBJECTS 14Q CLEARINGHOUSE) ( 35Q (CLEARINGHOUSE . OBJECT)) CH.LIST.PROPERTIES D1 (I 0 OBJECTNAMEPATTERN) @ b lgg@ (30Q COURIER.EXPEDITED.CALL 24Q CH.GETAUTHENTICATOR 10Q CH.FINDSERVER 3 PARSE.NSNAME) (20Q LIST.PROPERTIES 15Q CLEARINGHOUSE) () CH.ADD.GROUP.PROPERTYA0001 D1 (I 0 DATASTREAM F 0 MEMBERS) @Phg (10Q COURIER.WRITE.BULKDATA) (5 NSNAME) () CH.ADD.GROUP.PROPERTY D1 (I 2 MEMBERS I 1 PROPERTY I 0 OBJECTNAME) G0Bd IHhZH&Jb@ b gg@Ad3 gi g (104Q COURIER.CALL 75Q CH.GETAUTHENTICATOR 66Q CH.PROPERTY 47Q CH.FINDSERVER 42Q PARSE.NSNAME 12Q CH.CANONICAL.NAME) (100Q RETURNERRORS 71Q CH.ADD.GROUP.PROPERTYA0001 55Q ADD.GROUP.PROPERTY 52Q CLEARINGHOUSE) () CH.ADD.MEMBER D1 (I 2 NEWMEMBER I 1 PROPERTY I 0 GROUPNAME) .B b@ b lgg@Ad3 Bi g (53Q COURIER.EXPEDITED.CALL 44Q CH.GETAUTHENTICATOR 37Q CH.PROPERTY 16Q CH.FINDSERVER 11Q PARSE.NSNAME 3 CH.CANONICAL.NAME) (47Q RETURNERRORS 26Q ADD.MEMBER 23Q CLEARINGHOUSE) () CH.RETRIEVE.MEMBERS D1 (I 2 STREAM I 1 PROPERTY I 0 OBJECTPATTERN) ,@ bBd gg@Ad3 og (51Q COURIER.CALL 42Q CH.GETAUTHENTICATOR 33Q CH.PROPERTY 14Q CH.FINDSERVER 3 PARSE.NSNAME) (45Q RETURNERRORS 22Q RETRIEVE.MEMBERS 17Q CLEARINGHOUSE) ( 37Q (CLEARINGHOUSE . OBJECT.NAME)) CH.DELETE.MEMBER D1 (I 2 OLDMEMBER I 1 PROPERTY I 0 GROUPNAME) (@ b lgg@Ad3 B i (45Q COURIER.EXPEDITED.CALL 41Q CH.GETAUTHENTICATOR 35Q PARSE.NSNAME 31Q CH.PROPERTY 10Q CH.FINDSERVER 3 PARSE.NSNAME) (20Q DELETE.MEMBER 15Q CLEARINGHOUSE) () CH.ISMEMBER D1 (I 3 NAME I 2 SECONDARYPROPERTY I 1 PROPERTY I 0 GROUPNAME) 9@ b lgg@Ad3 Bm3 B C g (65Q COURIER.EXPEDITED.CALL 56Q CH.GETAUTHENTICATOR 53Q PARSE.NSNAME 47Q CH.PROPERTY 31Q CH.PROPERTY 10Q CH.FINDSERVER 3 PARSE.NSNAME) (61Q RETURNERRORS 20Q IS.MEMBER 15Q CLEARINGHOUSE) () CH.RETRIEVE.ITEM D1 (P 1 NAME&VALUE P 0 ADDRESS I 2 INTERPRETATION I 1 PROPERTY I 0 OBJECTPATTERN) A@ bdi HIlgg@A g YBIIgB (73Q COURIER.READ.REP 51Q COURIER.EXPEDITED.CALL 42Q CH.GETAUTHENTICATOR 37Q CH.PROPERTY 12Q CH.FINDSERVER 3 PARSE.NSNAME) (67Q CLEARINGHOUSE 45Q NOERROR 32Q RETRIEVE.ITEM 27Q CLEARINGHOUSE) () CH.ADD.ITEM.PROPERTY D1 (I 4 STREAM I 3 INTERPRETATION I 2 VALUE I 1 PROPERTY I 0 OBJECTNAME) 3@ bDd gg@Ad3 CBhC Bi g (60Q COURIER.CALL 51Q CH.GETAUTHENTICATOR 43Q COURIER.WRITE.REP 33Q CH.PROPERTY 14Q CH.FINDSERVER 3 PARSE.NSNAME) (54Q RETURNERRORS 22Q ADD.ITEM.PROPERTY 17Q CLEARINGHOUSE) () CH.CHANGE.ITEM D1 (I 3 INTERPRETATION I 2 NEWVALUE I 1 PROPERTY I 0 OBJECTNAME) 1@ b lgg@Ad3 CBhC Bi g (56Q COURIER.EXPEDITED.CALL 47Q CH.GETAUTHENTICATOR 41Q COURIER.WRITE.REP 31Q CH.PROPERTY 10Q CH.FINDSERVER 3 PARSE.NSNAME) (52Q RETURNERRORS 20Q CHANGE.ITEM 15Q CLEARINGHOUSE) () (PRETTYCOMPRINT CLEARINGHOUSECOMS) (RPAQQ CLEARINGHOUSECOMS ((COMS (* Authentication Protocol) (COURIERPROGRAMS AUTHENTICATION CHACCESSCONTROL) (DECLARE: DONTCOPY (CONSTANTS (\AUTHENTICATION.SIMPLE.CREDENTIALS 0) ( \AUTHENTICATION.SOCKET 21)) (GLOBALVARS AUTHENTICATION.NET.HINT \AUTHENTICATION.SERVER.CACHE)) ( INITVARS (AUTHENTICATION.NET.HINT) (\AUTHENTICATION.SERVER.CACHE)) (ADDVARS (\SYSTEMCACHEVARS \AUTHENTICATION.SERVER.CACHE)) (FNS AS.CHANGE.PASSWORDS AS.CREATE.PASSWORDS AS.DELETE.PASSWORDS AS.MAKE.CONVERSATION AS.NEXT.VERIFIER CH.ADD.MEMBER.TO.DOMAIN.ACL CH.ADD.MEMBER.TO.PROPERTY.ACL CH.ADD.SELF CH.DELETE.MEMBER.FROM.DOMAIN.ACL CH.DELETE.SELF CH.IS.IN.DOMAIN.ACL CH.NUMBER.TO.PROPERTY CH.RETRIEVE.DOMAIN.ACL CH.RETRIEVE.PROPERTY.ACL HASH.PASSWORD NSLOGIN NS.AUTHENTICATE NS.MAKE.SIMPLE.CREDENTIALS \AUTHENTICATION.FIND.SERVER)) (COMS (* Clearinghouse Protocol) ( COURIERPROGRAMS CLEARINGHOUSE) (DECLARE: DONTCOPY (CONSTANTS (\CH.BROADCAST.SOCKET 20) ( \CH.NULL.PROPERTY -1)) (RECORDS CHBROADCAST DOMAINCACHE) (TEMPLATES CH.PROPERTY) (GLOBALVARS LOCAL.CLEARINGHOUSE \CH.CACHE CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION CH.NET.HINT \CH.MAINLOCK NS.SERVER.NAMES.TO.ADDRESSES CLEARINGHOUSE.STRUCTURE.WINDOW CH.PROPERTIES)) (INITVARS (CH.NET.HINT) ( CH.DEFAULT.DOMAIN NIL) (CH.DEFAULT.ORGANIZATION NIL) (LOCAL.CLEARINGHOUSE NIL) (\CH.CACHE NIL) ( CLEARINGHOUSE.STRUCTURE.WINDOW NIL) (NS.SERVER.NAMES.TO.ADDRESSES NIL) (\CH.MAINLOCK ( CREATE.MONITORLOCK "Clearinghouse"))) (ADDVARS (\SYSTEMCACHEVARS LOCAL.CLEARINGHOUSE \CH.CACHE NS.SERVER.NAMES.TO.ADDRESSES) (CH.PROPERTIES (ALL 0) (MEMBERS 3) (ADDRESS.LIST 4) (AUTHENTICATION.KEYS 6) (AUTHENTICATION.LEVEL 8) (MAILPRIMARY 30) (MAILBOXES 31) (MAILBOX.ACCESSCONTROL 32) (SERVICES 51) (FILE.SERVICE 10000) (PRINT.SERVICE 10001) (INTERNET.ROUTING.SERVICE 10002) (USER 10003) (MAIL.SERVICE 10004) (WORKSTATION 10005) (EXTERNAL.COMMUNICATION.SERVICE 10006) (RS232CPORT 10007) ( INTERACTIVE.TERMINAL.SERVICE 10008) (GATEWAY.SERVICE 10009) (IBM3270.HOST 10010) (MAIL.GATEWAY 10011) (SIEMENS.9750.HOST 10012) (ADOBE.SERVICE 10013) (LIBRARIAN.SERVICE 10014) (TTX.GATEWAY 10015) ( AUTHENTICATION.SERVICE 10016) (REMOTE.BATCH.SERVICE 10017) (NETWORK 10018) (NETWORK.SERVERS 10019) ( CIU 10020) (CLEARINGHOUSE.SERVICE 10021) (USERGROUP 10022) (FETCH.SERVICE 10023) (USERDATA 20000) ( RS232CDATA 20001) (IBM3270HOSTDATA 20002) (SIEMENS9750HOSTDATA 20003) (CANMAILTO 20005) ( MAILGATEWAYROUTEDATA 20006) (FOREIGNMAILSYSTEMNAME 20007) (USERPASSWORD 20101) (FILESERVER 10) ( PRINTSERVER 11))) (COMS (* Clearinghouse names) (RECORDS NSNAME) (P (DEFPRINT (QUOTE NSNAME) (FUNCTION \NSNAME.DEFPRINT))) (PROP COURIERDEF NSNAME NSNAME2) (FNS \NSNAME.DEFPRINT NSNAME.TO.STRING COURIER.READ.NSNAME COURIER.WRITE.NSNAME COURIER.NSNAME.LENGTH)) (COMS (* Finding Clearinghouse) (FNS GETCLEARINGHOUSE \CH.CHECK.CLEARINGHOUSE START.CLEARINGHOUSE SHOW.CLEARINGHOUSE CH.FINDSERVER \CH.FIND.ORG.SERVER \CH.LOCATE.SERVERS \CH.PRINT.BLURB \CH.UPDATE.CACHE EQUAL.CH.NAMES PARSE.NSNAME CH.NAME.TO.STRING CANONICAL.CH.NAME CH.PROPERTY CH.GETAUTHENTICATOR) (FNS CH.SERVERS \CH.GUESS.NEW.PROPERTIES)) (COMS (* Clearinghouse calls) (FNS CH.DOMAINS.SERVED CH.CREATE.OBJECT CH.DELETE.OBJECT CH.CANONICAL.NAME CH.CREATE.ALIAS CH.DELETE.ALIAS CH.LOOKUP.OBJECT CH.DELETE.PROPERTY LOOKUP.NS.SERVER \CANONICAL.NSHOSTNAME) (FNS CH.LIST.ALIASES CH.LIST.ALIASES.OF CH.LIST.DOMAINS CH.LIST.ORGANIZATIONS CH.LIST.OBJECTS CH.LIST.PROPERTIES) (FNS CH.ADD.GROUP.PROPERTY CH.ADD.MEMBER CH.RETRIEVE.MEMBERS CH.DELETE.MEMBER CH.ISMEMBER) (FNS CH.RETRIEVE.ITEM CH.ADD.ITEM.PROPERTY CH.CHANGE.ITEM))) (VARS AS.WELL.KNOWN.NAME))) (COURIERPROGRAM AUTHENTICATION (14 2) TYPES ((KEY (ARRAY 4 UNSPECIFIED)) (BLOCK (ARRAY 4 UNSPECIFIED)) (CREDENTIALS.TYPE (ENUMERATION (SIMPLE 0) (STRONG 1))) (CREDENTIALS (RECORD (TYPE CREDENTIALS.TYPE) ( VALUE (SEQUENCE UNSPECIFIED)))) (credentials.package (SEQUENCE UNSPECIFIED)) (CREDENTIALS.PACKAGE ( RECORD (CREDENTIALS CREDENTIALS) (NONCE LONGCARDINAL) (RECIPIENT (CLEARINGHOUSE . NAME)) ( CONVERSATION.KEY KEY))) (STRONG.CREDENTIALS (RECORD (CONVERSATION.KEY KEY) (EXPIRATION.TIME TIME) ( INITIATOR (CLEARINGHOUSE . NAME)))) (SIMPLE.CREDENTIALS (CLEARINGHOUSE . NAME)) (VERIFIER (SEQUENCE UNSPECIFIED)) (STRONG.VERIFIER (RECORD (TIMESTAMP TIME) (TICKS LONGCARDINAL))) (SIMPLE.VERIFIER HASHED.PASSWORD) (HASHED.PASSWORD CARDINAL) (PROBLEM (ENUMERATION (CredentialsInvalid 0) ( VerifierInvalid 1) (VerifierExpired 2) (VerifierReused 3) (CredentialsExpired 4) ( InappropriateCredentials 5))) (CALL.PROBLEM (ENUMERATION (TooBusy 0) (AccessRightsInsufficient 1) ( KeysUnavailable 2) (StrongKeyDoesNotExist 3) (SimpleKeyDoesNotExist 4) (StrongKeyAlreadyRegistered 5) (SimpleKeyAlreadyRegistered 6) (DomainForNewKeyUnavailable 7) (DomainForNewKeyUnknown 8) (BadKey 9) ( BadName 10) (DatabaseFull 11) (Other 12))) (WHICH (ENUMERATION (notApplicable 0) (Initiator 1) ( Recipient 2) (Client 3)))) PROCEDURES ((BROADCAST.FOR.SERVERS 0 NIL RETURNS ((CLEARINGHOUSE . NETWORK.ADDRESS.LIST))) (GET.STRONG.CREDENTIALS 1 ((CLEARINGHOUSE . NAME) (CLEARINGHOUSE . NAME) LONGCARDINAL) RETURNS (credentials.package) REPORTS (CALL.ERROR)) (CHECK.SIMPLE.CREDENTIALS 2 ( CREDENTIALS VERIFIER) RETURNS (BOOLEAN) REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (CREATE.STRONG.KEY 3 (CREDENTIALS VERIFIER (CLEARINGHOUSE . NAME) KEY) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (CHANGE.STRONG.KEY 4 (CREDENTIALS VERIFIER KEY) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (DELETE.STRONG.KEY 5 (CREDENTIALS VERIFIER (CLEARINGHOUSE . NAME)) RETURNS NIL REPORTS ( AUTHENTICATION.ERROR CALL.ERROR)) (CREATE.SIMPLE.KEY 6 (CREDENTIALS VERIFIER (CLEARINGHOUSE . NAME) HASHED.PASSWORD) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) (CHANGE.SIMPLE.KEY 7 ( CREDENTIALS VERIFIER HASHED.PASSWORD) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CALL.ERROR)) ( DELETE.SIMPLE.KEY 8 (CREDENTIALS VERIFIER (CLEARINGHOUSE . NAME)) RETURNS NIL REPORTS ( AUTHENTICATION.ERROR CALL.ERROR))) ERRORS ((CALL.ERROR 1 (CALL.PROBLEM WHICH)) (AUTHENTICATION.ERROR 2 (PROBLEM)))) (COURIERPROGRAM CHACCESSCONTROL (127 1) TYPES ((DOMAIN.NAME NSNAME2) (ORGANIZATION.NAME STRING) ( WHICH.LIST (ENUMERATION (Readers 0) (valueDONTUSE 1) (Administrators 2) (selfControllers 3))) ( ELEMENT.NAME NSNAME) (DISTING.NAME NSNAME) (IS.MEMBER BOOLEAN) (PROPERTY (CLEARINGHOUSE . PROPERTY)) ( ACCESS.LIST (SEQUENCE ELEMENT.NAME)) (CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (VERIFIER ( AUTHENTICATION . VERIFIER)) (CALL.PROBLEM (ENUMERATION (AccessRightsInsufficient 1) (TooBusy 2) ( ServerDown 3) (USE.COURIER 4) (Other 5)))) PROCEDURES ((RETRIEVE.PROPERTY.ACL 30 (ELEMENT.NAME PROPERTY WHICH.LIST BULK.DATA.SINK CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (ADD.MEMBER.TO.PROPERTY.ACL 31 (ELEMENT.NAME PROPERTY WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (DELETE.MEMBER.FROM.PROPERTY.ACL 32 (ELEMENT.NAME PROPERTY WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) ( IS.IN.PROPERTY.ACL 33 (ELEMENT.NAME PROPERTY WHICH.LIST PROPERTY ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (IS.MEMBER DISTING.NAME) REPORTS (CALL.ERROR)) (RETRIEVE.DOMAIN.ACL 34 (DOMAIN.NAME WHICH.LIST BULK.DATA.SINK CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) ( ADD.MEMBER.TO.DOMAIN.ACL 35 (DOMAIN.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS NIL REPORTS (CALL.ERROR)) (DELETE.MEMBER.FROM.DOMAIN.ACL 36 (DOMAIN.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (IS.IN.DOMAIN.ACL 37 (DOMAIN.NAME WHICH.LIST PROPERTY ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (IS.MEMBER) REPORTS (CALL.ERROR)) ( RETRIEVE.ORGANIZATION.ACL 38 (ORGANIZATION.NAME WHICH.LIST BULK.DATA.SINK CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (ADD.MEMBER.TO.ORGANIZATION.ACL 39 (ORGANIZATION.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) ( DELETE.MEMBER.FROM.ORGANIZATION.ACL 40 (ORGANIZATION.NAME WHICH.LIST ELEMENT.NAME CREDENTIALS VERIFIER ) RETURNS (DISTING.NAME) REPORTS (CALL.ERROR)) (IS.IN.ORGANIZATION.ACL 41 (ORGANIZATION.NAME WHICH.LIST PROPERTY ELEMENT.NAME CREDENTIALS VERIFIER) RETURNS (IS.MEMBER DISTING.NAME) REPORTS ( CALL.ERROR))) ERRORS ((CALL.ERROR 1 (CALL.PROBLEM)))) (RPAQ? AUTHENTICATION.NET.HINT) (RPAQ? \AUTHENTICATION.SERVER.CACHE) (ADDTOVAR \SYSTEMCACHEVARS \AUTHENTICATION.SERVER.CACHE) (COURIERPROGRAM CLEARINGHOUSE (2 3) TYPES ((ORGANIZATION STRING) (DOMAIN STRING) (OBJECT STRING) ( ORGANIZATION.NAME ORGANIZATION) (DOMAIN.NAME NSNAME2) (OBJECT.NAME NSNAME) (NAME NSNAME) ( ORGANIZATION.NAME.PATTERN ORGANIZATION) (DOMAIN.NAME.PATTERN NSNAME2) (OBJECT.NAME.PATTERN NSNAME) ( PROPERTY LONGCARDINAL) (PROPERTIES (SEQUENCE PROPERTY)) (ITEM (SEQUENCE UNSPECIFIED)) (NETWORK.ADDRESS NSADDRESS) (NETWORK.ADDRESS.LIST (SEQUENCE NETWORK.ADDRESS)) (AUTHENTICATOR (RECORD (CREDENTIALS ( AUTHENTICATION . CREDENTIALS)) (VERIFIER (AUTHENTICATION . VERIFIER)))) (MAILBOX.VALUES (RECORD (TIME TIME) (MAIL.SERVICE (SEQUENCE NAME)))) (USERDATA.VALUE (RECORD (LAST.NAME.INDEX CARDINAL) ( FILE.SERVICE NAME))) (WHICH.ARGUMENT (ENUMERATION (FIRST 1) (SECOND 2))) (ARGUMENT.PROBLEM ( ENUMERATION (IllegalProperty 10) (IllegalOrganization 11) (IllegalDomain 12) (IllegalObject 13) ( NoSuchOrganization 14) (NoSuchDomain 15) (NoSuchObject 16))) (CALL.PROBLEM (ENUMERATION ( AccessRightsInsufficient 1) (TooBusy 2) (ServerDown 3) (USE.COURIER 4) (Other 5))) (PROPERTY.PROBLEM ( ENUMERATION (Missing 20) (WrongType 21))) (UPDATE.PROBLEM (ENUMERATION (NoChange 30) (OutOfDate 31) ( ObjectOverflow 32) (DatabaseOverflow 33)))) PROCEDURES ((RETRIEVE.ADDRESSES 0 NIL RETURNS ( NETWORK.ADDRESS.LIST) REPORTS (CALL.ERROR)) (LIST.DOMAINS.SERVED 1 (BULK.DATA.SINK AUTHENTICATOR) RETURNS NIL REPORTS (CALL.ERROR)) (CREATE.OBJECT 2 (OBJECT.NAME AUTHENTICATOR) RETURNS NIL REPORTS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER)) (DELETE.OBJECT 3 ( OBJECT.NAME AUTHENTICATOR) RETURNS NIL REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER)) (LOOKUP.OBJECT 4 (OBJECT.NAME.PATTERN AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR CALL.ERROR WRONG.SERVER)) (LIST.ORGANIZATIONS 5 (ORGANIZATION.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) RETURNS NIL REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER)) (LIST.DOMAINS 6 (DOMAIN.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) RETURNS NIL REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER)) (LIST.OBJECTS 7 (OBJECT.NAME.PATTERN PROPERTY BULK.DATA.SINK AUTHENTICATOR) RETURNS NIL REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER)) (LIST.ALIASES 8 (OBJECT.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) RETURNS NIL REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER)) (LIST.ALIASES.OF 9 ( OBJECT.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER)) (CREATE.ALIAS 10 (OBJECT.NAME OBJECT.NAME AUTHENTICATOR ) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER)) (DELETE.ALIAS 11 (OBJECT.NAME AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER)) (ADD.GROUP.PROPERTY 12 ( OBJECT.NAME PROPERTY BULK.DATA.SOURCE AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (ADD.ITEM.PROPERTY 13 ( OBJECT.NAME PROPERTY ITEM AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (DELETE.PROPERTY 14 ( OBJECT.NAME PROPERTY AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (LIST.PROPERTIES 15 (OBJECT.NAME.PATTERN AUTHENTICATOR) RETURNS (OBJECT.NAME PROPERTIES) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER)) (RETRIEVE.ITEM 16 (OBJECT.NAME.PATTERN PROPERTY AUTHENTICATOR) RETURNS ( OBJECT.NAME ITEM) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR WRONG.SERVER) ) (CHANGE.ITEM 17 (OBJECT.NAME PROPERTY ITEM AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) ( RETRIEVE.MEMBERS 18 (OBJECT.NAME.PATTERN PROPERTY BULK.DATA.SINK AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR WRONG.SERVER)) (ADD.MEMBER 19 ( OBJECT.NAME PROPERTY NSNAME AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (ADD.SELF 20 (OBJECT.NAME PROPERTY AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (DELETE.MEMBER 21 (OBJECT.NAME PROPERTY NSNAME AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (DELETE.SELF 22 (OBJECT.NAME PROPERTY AUTHENTICATOR) RETURNS (OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER)) (IS.MEMBER 23 (OBJECT.NAME.PATTERN PROPERTY PROPERTY NSNAME AUTHENTICATOR) RETURNS (BOOLEAN OBJECT.NAME) REPORTS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR WRONG.SERVER))) ERRORS ((CALL.ERROR 1 (CALL.PROBLEM)) (ARGUMENT.ERROR 2 (ARGUMENT.PROBLEM WHICH.ARGUMENT)) (PROPERTY.ERROR 3 (PROPERTY.PROBLEM OBJECT.NAME)) (UPDATE.ERROR 4 (UPDATE.PROBLEM BOOLEAN WHICH.ARGUMENT OBJECT.NAME)) (WRONG.SERVER 5 (OBJECT.NAME)) (AUTHENTICATION.ERROR 6 (( AUTHENTICATION . PROBLEM))))) (RPAQ? CH.NET.HINT) (RPAQ? CH.DEFAULT.DOMAIN NIL) (RPAQ? CH.DEFAULT.ORGANIZATION NIL) (RPAQ? LOCAL.CLEARINGHOUSE NIL) (RPAQ? \CH.CACHE NIL) (RPAQ? CLEARINGHOUSE.STRUCTURE.WINDOW NIL) (RPAQ? NS.SERVER.NAMES.TO.ADDRESSES NIL) (RPAQ? \CH.MAINLOCK (CREATE.MONITORLOCK "Clearinghouse")) (ADDTOVAR \SYSTEMCACHEVARS LOCAL.CLEARINGHOUSE \CH.CACHE NS.SERVER.NAMES.TO.ADDRESSES) (ADDTOVAR CH.PROPERTIES (ALL 0) (MEMBERS 3) (ADDRESS.LIST 4) (AUTHENTICATION.KEYS 6) ( AUTHENTICATION.LEVEL 8) (MAILPRIMARY 30) (MAILBOXES 31) (MAILBOX.ACCESSCONTROL 32) (SERVICES 51) ( FILE.SERVICE 10000) (PRINT.SERVICE 10001) (INTERNET.ROUTING.SERVICE 10002) (USER 10003) (MAIL.SERVICE 10004) (WORKSTATION 10005) (EXTERNAL.COMMUNICATION.SERVICE 10006) (RS232CPORT 10007) ( INTERACTIVE.TERMINAL.SERVICE 10008) (GATEWAY.SERVICE 10009) (IBM3270.HOST 10010) (MAIL.GATEWAY 10011) (SIEMENS.9750.HOST 10012) (ADOBE.SERVICE 10013) (LIBRARIAN.SERVICE 10014) (TTX.GATEWAY 10015) ( AUTHENTICATION.SERVICE 10016) (REMOTE.BATCH.SERVICE 10017) (NETWORK 10018) (NETWORK.SERVERS 10019) ( CIU 10020) (CLEARINGHOUSE.SERVICE 10021) (USERGROUP 10022) (FETCH.SERVICE 10023) (USERDATA 20000) ( RS232CDATA 20001) (IBM3270HOSTDATA 20002) (SIEMENS9750HOSTDATA 20003) (CANMAILTO 20005) ( MAILGATEWAYROUTEDATA 20006) (FOREIGNMAILSYSTEMNAME 20007) (USERPASSWORD 20101) (FILESERVER 10) ( PRINTSERVER 11)) (DATATYPE NSNAME ((NSOBJECT POINTER) (NSDOMAIN POINTER) (NSORGANIZATION POINTER)) (* Canonical three-part Clearinghouse name)) (/DECLAREDATATYPE (QUOTE NSNAME) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((NSNAME 0 POINTER) (NSNAME 2 POINTER) (NSNAME 4 POINTER))) (QUOTE 6)) (DEFPRINT (QUOTE NSNAME) (FUNCTION \NSNAME.DEFPRINT)) (PUTPROPS NSNAME COURIERDEF (COURIER.READ.NSNAME COURIER.WRITE.NSNAME COURIER.NSNAME.LENGTH)) (PUTPROPS NSNAME2 COURIERDEF (COURIER.READ.NSNAME COURIER.WRITE.NSNAME)) (RPAQQ AS.WELL.KNOWN.NAME "Authentication Service:CHServers:CHServers") (PUTPROPS CLEARINGHOUSE COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL