(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 09:31:30" ("compiled on " {DSK}sources>CLEARINGHOUSE.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "19-Jan-93 10:24:59" {DSK}lde>lispcore>sources>CLEARINGHOUSE.;2 61119 changes to%: (RECORDS CHBROADCAST DOMAINCACHE ORGCACHE NSNAME) previous date%: " 4-Jan-93 17:33:21" {DSK}lde>lispcore>sources>CLEARINGHOUSE.;1) \NSNAME.DEFPRINT :D8 (I 1 STREAM I 0 NAME) @ h(5 NSNAME.TO.STRING) NIL () NSNAME.TO.STRING :D8 (P 3 COLON P 2 ORG P 1 DOM P 0 OBJ I 1 FULLNAMEFLG I 0 NSNAME F 4 CH.DEFAULT.ORGANIZATION F 5 CH.DEFAULT.DOMAIN) Q@b@@oHIKJ AJT HKIKJ HKIU oI (78 CONCAT 65 CL::SIMPLE-STRING-EQUAL 55 CONCAT 43 CL::SIMPLE-STRING-EQUAL 33 CONCAT) (5 NSNAME) ( 71 "" 20 ":") COURIER.READ.NSNAME :D8 (I 2 TYPE I 1 PROGRAM I 0 STREAM) @`@ HdI@ HdIBg@ HdI(52 COURIER.READ.STRING 27 COURIER.READ.STRING 11 COURIER.READ.STRING) (43 NSNAME 4 |NSNAMETYPE#|) () COURIER.WRITE.NSNAME :D8 (I 3 TYPE I 2 PROGRAM I 1 NAME I 0 STREAM) +@A @A Cg @A (40 COURIER.WRITE.STRING 22 COURIER.WRITE.STRING 13 COURIER.WRITE.STRING) (28 NSNAME 6 NSNAME) () COURIER.NSNAME.LENGTH :D8 (I 2 TYPE I 1 PROGRAM I 0 NSNAME) RBgj@hg d@hg d@hg d(75 COURIER.REP.LENGTH 51 COURIER.REP.LENGTH 28 COURIER.REP.LENGTH) (70 STRING 62 NSNAME 46 STRING 38 NSNAME 23 STRING 15 NSNAME 5 NSNAME2) () GETCLEARINGHOUSEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) B`hg `+lgghg`o XH(59 COURIER.BROADCAST.CALL 15 OBTAIN.MONITORLOCK) (48 CH.NET.HINT 43 \CH.CHECK.CLEARINGHOUSE 37 RETRIEVE.ADDRESSES 32 CLEARINGHOUSE 20 LOCAL.CLEARINGHOUSE 10 WITH.MONITOR 4 \CH.MAINLOCK) ( 53 "Clearinghouse servers") GETCLEARINGHOUSE :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* F 2 CH.DEFAULT.DOMAIN F 3 CH.DEFAULT.ORGANIZATION) (RS` g $(33 SI::MONITOR-UNWIND 28 \MVLIST 23 GETCLEARINGHOUSEA0001) (18 SI::MONITOR-UNWIND 8 LOCAL.CLEARINGHOUSE) () \CH.CHECK.CLEARINGHOUSE :D8 (P 2 DEFAULT P 1 DOMAINS P 0 ADDR I 0 ADDRESSES F 5 CH.DEFAULT.DOMAIN F 6 CH.DEFAULT.ORGANIZATION) @i AHd Yd[hUVg` o` Jc ` o` Jc ` o` `H dLdodoHI HZo JNiDK6(216 STREQUAL 190 \CH.UPDATE.CACHE 159 MKSTRING 146 PRIN1 130 PRIN1 109 PRIN1 93 PRIN1 72 PRIN1 56 TERPRI 20 CH.DOMAINS.SERVED 6 BESTNSADDRESS) (204 NSNAME 196 LOCAL.CLEARINGHOUSE 152 |NSNAMETYPE#| 141 PROMPTWINDOW 125 PROMPTWINDOW 116 NSNAME 104 PROMPTWINDOW 88 PROMPTWINDOW 79 NSNAME 67 PROMPTWINDOW 51 PROMPTWINDOW) ( 211 "..." 180 "CHServers" 171 "CHServers" 136 "]" 99 ":" 62 "[Default Clearinghouse domain set to ") START.CLEARINGHOUSE :D8 (I 0 RESTARTFLG F 0 \NS.ROUTING.TABLE.RADIUS) +@`"lch`(35 GETCLEARINGHOUSE) (40 LOCAL.CLEARINGHOUSE 29 NS.SERVER.NAMES.TO.ADDRESSES 24 \CH.CACHE 19 LOCAL.CLEARINGHOUSE 6 LOCAL.CLEARINGHOUSE) () SHOW.CLEARINGHOUSEA0001 :D8 NIL hNIL (5 CLEARINGHOUSE.STRUCTURE.WINDOW) () SHOW.CLEARINGHOUSE :D8 (P 5 ORG P 0 SEXPR I 1 DONT.GRAPH I 0 ENTIRE.CLEARINGHOUSE?)  o@=0o 'dMoM KJh\J&LD0`5dY0IdONh_N&_OKJh\J&LXAHo Hgho `o dgg `(205 PUTWINDOWPROP 184 SHOWGRAPH 167 LAYOUTSEXPR 150 FILESLOAD 47 CH.LIST.DOMAINS 42 CONCAT 23 CH.LIST.ORGANIZATIONS) (210 CLEARINGHOUSE.STRUCTURE.WINDOW 200 SHOW.CLEARINGHOUSEA0001 195 CLOSEFN 189 CLEARINGHOUSE.STRUCTURE.WINDOW 172 CLEARINGHOUSE.STRUCTURE.WINDOW 156 HORIZONTAL 77 \CH.CACHE) ( 179 "Clearinghouse structure" 162 (HELVETICA 10 BOLD) 145 ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) 36 "*:" 18 "*" 7 "") CH.FINDSERVER :D8 (P 4 DOMAIN.INFO P 2 ORGANIZATION.INFO P 1 DOMAIN P 0 ORGANIZATION I 2 DONTPROBEFLG I 1 NOERRORFLG I 0 DOMAINPATTERN) @@l b@@HAB ZIo JJKh\B*AhTo@i \I LK[J`dIdHdoAHI @Ai (167 CH.FINDSERVER 159 \CH.LOCATE.SERVERS 107 CL::SIMPLE-STRING-EQUAL 97 ERROR 56 CL::SIMPLE-STRING-EQUAL 44 \CH.FIND.ORG.SERVER 14 PARSE.NSNAME) (130 |NSNAMETYPE#| 31 NSNAME 23 NSNAME 5 NSNAME) ( 147 "CHServers" 90 "Couldn't find Clearinghouse server for domain" 51 "*") \CH.FIND.ORG.SERVER :D8 (P 7 ORG P 3 KNOWNDOMAINS P 2 ALLSERVERS P 1 ORGINFO I 2 DONTPROBEFLG I 1 NOERRORFLG I 0 ORGANIZATION) `HhB)Aho@i Y@ IiHX@o r @`*d_J OOhddMLh^L&NJ `@J@JhddKh ibL`d@dodoA@ ib(223 \CH.LOCATE.SERVERS 187 GETCLEARINGHOUSE 168 \NCONC2 140 SORT.NSADDRESSES.BY.DISTANCE 100 \APPEND2 75 GETCLEARINGHOUSE 68 CL::SIMPLE-STRING-EQUAL 45 CL::SIMPLE-STRING-EQUAL 35 ERROR) (192 |NSNAMETYPE#| 173 \CH.CACHE 146 \CH.CACHE 86 \CH.CACHE 4 \CH.CACHE) ( 213 "CHServers" 204 "CHServers" 63 "CHServers" 28 "Couldn't find Clearinghouse server for organization") \CH.LOCATE.SERVERSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 INFO P 4 CH I 0 SI::*CLEANUP-FORMS* F 6 STREAM F 7 SI::*RESETFORMS* F 8 CHNAMES F 9 SERVERGROUP F 10 CHLIST) gVhhdWcWlV cdngdWQH I cVggLlg ]"gg MhJ KhZHXK&h(114 COURIER.READ.REP 92 COURIER.CALL 81 CH.GETAUTHENTICATOR 57 SORT.NSADDRESSES.BY.DISTANCE 27 CH.RETRIEVE.MEMBERS) (109 NETWORK.ADDRESS.LIST 104 CLEARINGHOUSE 86 NOERROR 73 RETRIEVE.ITEM 68 CLEARINGHOUSE 38 ERROR 4 \SPP.RESETCLOSE) () \CH.LOCATE.SERVERS :D8 (P 11 DOM P 10 CHDOMAINS P 9 PAIR P 7 RESETSTATE P 6 SI::*RESETFORMS* 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 12 LISPXHIST) PoDC @hBg X/W!g $I1 OhJgo_j iO _@l bdi gg@og (59 COURIER.CALL 48 CH.GETAUTHENTICATOR 23 \CH.FIND.ORG.SERVER 7 PARSE.NSNAME) (53 RETURNERRORS 37 LIST.DOMAINS 32 CLEARINGHOUSE 15 NSNAME) ( 43 (CLEARINGHOUSE . DOMAIN)) LOOKUP.NS.SERVER :D8 (P 4 ADDR P 2 ENTRY P 1 NAME&VALUE P 0 ADDRESSES I 2 FULLFLG I 1 TYPE I 0 NAME) @ b@`[hjA@AgZ@ JQiK@lg Yd<AIhIXZ``JdLjBJJ(67 CH.RETRIEVE.ITEM 43 EQUAL.CH.NAMES 5 PARSE.NSNAME) (118 NSADDRESS 103 *ASSUME-ZERO-NSSOCKETS* 97 NS.SERVER.NAMES.TO.ADDRESSES 91 NS.SERVER.NAMES.TO.ADDRESSES 62 NETWORK.ADDRESS.LIST 32 NETWORK.ADDRESS 15 NS.SERVER.NAMES.TO.ADDRESSES) () \CANONICAL.NSHOSTNAME :D8 (P 0 INFO I 0 HOST) *@hi @gi Hdi (39 MKATOM 34 NSNAME.TO.STRING 21 LOOKUP.NS.SERVER 7 LOOKUP.NS.SERVER) (15 FILESERVER) () CH.CANONICAL.NAME :D8 (P 0 PARSED I 0 NAME) @ g@ H H(26 CH.LOOKUP.OBJECT 19 STRPOS 5 PARSE.NSNAME) (13 *) () (PRETTYCOMPRINT CLEARINGHOUSECOMS) (RPAQQ CLEARINGHOUSECOMS ((* ; "Clearinghouse Protocol") (COURIERPROGRAMS CLEARINGHOUSE) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) ETHERRECORDS) (CONSTANTS (\CH.BROADCAST.SOCKET 20) ( \CH.NULL.PROPERTY -1)) (RECORDS CHBROADCAST DOMAINCACHE ORGCACHE) (TEMPLATES CH.PROPERTY) (GLOBALVARS LOCAL.CLEARINGHOUSE \CH.CACHE CH.NET.HINT \CH.MAINLOCK NS.SERVER.NAMES.TO.ADDRESSES CLEARINGHOUSE.STRUCTURE.WINDOW CH.PROPERTIES *ASSUME-ZERO-NSSOCKETS*) (OPTIMIZERS CH.PROPERTY) ( ADDVARS (CONSTANTFOLDFNS CH.PROPERTY))) (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"))) (P ( CL:PROCLAIM (QUOTE (CL:SPECIAL CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION)))) (ADDVARS ( \SYSTEMCACHEVARS LOCAL.CLEARINGHOUSE \CH.CACHE NS.SERVER.NAMES.TO.ADDRESSES) (CH.PROPERTIES (ALL 0) ( ALIAS 1) (ALIASES 2) (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) (SERVER 10024) (USERDATA 20000) (RS232CDATA 20001) ( IBM3270HOSTDATA 20002) (SIEMENS9750HOSTDATA 20003) (CANMAILTO 20005) (MAILGATEWAYROUTEDATA 20006) ( FOREIGNMAILSYSTEMNAME 20007) (RS232C.BACK 20102) (IBM3270.HOST.BACK 20103) (ASSOCIATED.WORKSTATION 30005) (FILESERVER 10))) (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.CREATE.ALIAS CH.DELETE.ALIAS CH.LIST.ALIASES CH.LIST.ALIASES.OF CH.LOOKUP.OBJECT CH.DELETE.PROPERTY) (FNS CH.RETRIEVE.MEMBERS CH.ISMEMBER CH.ADD.SELF CH.DELETE.SELF) (FNS CH.RETRIEVE.ITEM CH.ADD.ITEM.PROPERTY CH.CHANGE.ITEM) (FNS CH.LIST.DOMAINS) (* ;; "NOTE: the following functions were moved to the file AUTHENTICATION temporarily for benefit of Lyric users wanting a functional NSMAINTAIN: CH.LIST.PROPERTIES CH.LIST.ORGANIZATIONS CH.LIST.OBJECTS CH.DELETE.MEMBER CH.ADD.MEMBER CH.ADD.GROUP.PROPERTY" )) (COMS (* ; "Other entries") (FNS LOOKUP.NS.SERVER \CANONICAL.NSHOSTNAME CH.CANONICAL.NAME) ( INITVARS (*ASSUME-ZERO-NSSOCKETS* T))) (FILES AUTHENTICATION))) (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")) (CL:PROCLAIM (QUOTE (CL:SPECIAL CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION))) (ADDTOVAR \SYSTEMCACHEVARS LOCAL.CLEARINGHOUSE \CH.CACHE NS.SERVER.NAMES.TO.ADDRESSES) (ADDTOVAR CH.PROPERTIES (ALL 0) (ALIAS 1) (ALIASES 2) (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) (SERVER 10024) ( USERDATA 20000) (RS232CDATA 20001) (IBM3270HOSTDATA 20002) (SIEMENS9750HOSTDATA 20003) (CANMAILTO 20005) (MAILGATEWAYROUTEDATA 20006) (FOREIGNMAILSYSTEMNAME 20007) (RS232C.BACK 20102) ( IBM3270.HOST.BACK 20103) (ASSOCIATED.WORKSTATION 30005) (FILESERVER 10)) (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)) (RPAQ? *ASSUME-ZERO-NSSOCKETS* T) (FILESLOAD AUTHENTICATION) (PUTPROPS CLEARINGHOUSE COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1993)) NIL