(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "18-Jul-94 10:13:24" ("compiled on " {DSK}export>lispcore>library>NSCHAT.;1) " 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..." dated " 2-Jun-94 10:52:50") (FILECREATED "12-Sep-91 18:26:50" |{PELE:MV:ENVOS}LIBRARY>NSCHAT.;3| 33673 changes to%: (FNS NSCHAT.SERVICES NSCHAT.OPEN) previous date%: "12-Jun-90 10:26:34" |{PELE:MV:ENVOS}LIBRARY>NSCHAT.;2|) NSCHAT.3270.HOST :D8 (I 0 IBM.VIRTUAL.HOST) @go (15 CH.RETRIEVE.ITEM) (5 IBM3270.HOST.BACK) ( 10 (GAP . IBM3270HostBack)) NSCHAT.ATTENTIONFN :D8 (I 1 ATTNBYTE I 0 STREAM F 0 XIPTRACEFLG) WAdl𒿰Ml@g 6P`-` o` oA` i(83 PRINTNUM 66 PRIN1 50 TERPRI 29 NOTIFY.EVENT 24 STREAMPROP) (78 PROMPTWINDOW 61 PROMPTWINDOW 45 PROMPTWINDOW 38 NSWIZARDFLG 19 MediumUpEvent) ( 72 (FIX 1 8) 56 "Attention byte: ") NSCHAT.ERRORHANDLER :D8 (I 1 ERRCODE I 0 STREAM) gAdg@ dg@ @d g@o m@ @oAo @ @ (100 \EOF.ACTION 91 ADD.CHAT.MESSAGE 86 CONCAT 67 SPP.OPENP 58 ADD.CHAT.MESSAGE 39 NSCHAT.ATTENTIONFN 31 SPP.CLEARATTENTION 15 SPP.CLEAREOM) (45 END 22 ATTENTION 6 EOM) ( 81 "]" 75 "[SPP error " 53 "[Connection closed by remote host]") NSCHAT.HOST.FILTER :D8 (I 1 EXPLICIT I 0 NAME F 0 \NSFLG) .P+Ao@ @hi bd gh(35 MKATOM 25 LOOKUP.NS.SERVER 15 STRPOS) (40 NSCHAT.OPEN) ( 9 ":") NSCHAT.OPENA0003 :D8 (L (2 MOUSE 1 MENU 0 ITEM)) @NIL NIL () NSCHAT.OPEN :D8 (P 12 A0209 P 11 A0208 P 7 FAILURE P 6 HANDLE P 5 STREAM P 4 OUTSTREAM P 3 SERVICE P 2 PORT P 1 SERVICE.OPTIONS P 0 MediumUpEvent I 0 HOST)   @K Yd3@iIk X` o` I` o` @` ` IP`dIdodgdg dgjdndh_dO [Md[ QId3@oI K @kO Z ohigho ]gH Ml K M@KlO^NgNdgdg[` @` o` Ih__h` ]_KOOiOֿNlm _M ` o` @` o` Oo` hMgg Mgg Mgg Mgg MgM M Hn: KlLl ML(666 SPP.SENDATTENTION 652 AWAIT.EVENT 642 SPPOUTPUTSTREAM 635 STREAMPROP 630 SPP.INPUT.EVENT 617 STREAMPROP 600 STREAMPROP 583 STREAMPROP 566 STREAMPROP 548 PRIN1 528 PRIN1 512 PRIN1 500 PRIN1 484 TERPRI 473 CLOSEF? 464 SUBSTRING 425 PRIN1 402 PRIN1 386 PRIN1 374 TERPRI 307 SPP.DSTYPE 298 STREAMPROP 281 COURIER.OPEN 251 LOOKUP.NS.SERVER 231 CONCAT 210 CLOSEF? 196 CLRPROMPT 191 MENU 112 TERPRI 101 PRIN1 89 PRIN1 73 PRIN1 59 PRIN1 43 TERPRI 31 EQLENGTH 14 NSCHAT.SERVICES 4 CREATE.EVENT) (624 READPEVENT 612 NILL 607 SENDSCREENPARAMS 595 NILL 590 FLUSH&WAIT 578 NILL 573 LOGINFO 561 NILL 556 SETDISPLAYTYPE 543 PROMPTWINDOW 523 PROMPTWINDOW 507 PROMPTWINDOW 495 PROMPTWINDOW 479 PROMPTWINDOW 420 PROMPTWINDOW 397 PROMPTWINDOW 381 PROMPTWINDOW 369 PROMPTWINDOW 360 serviceNotFound 352 REJECT 338 ERROR 292 MediumUpEvent 269 NSCHAT 163 DEFAULTMENUHELDFN 154 CLRPROMPT 145 NSCHAT.OPENA0003 124 |MENUTYPE#| 107 PROMPTWINDOW 96 PROMPTWINDOW 84 PROMPTWINDOW 68 PROMPTWINDOW 54 PROMPTWINDOW 38 PROMPTWINDOW) ( 538 "No Response" 518 " because: " 490 "Could not chat to " 392 " does not support " 275 (EOM.ON.FORCEOUT T ERRORHANDLER NSCHAT.ERRORHANDLER ATTENTIONFN NSCHAT.ATTENTIONFN) 259 "Name not found" 225 "Clearinghouse not responding - " 136 "Specific NS Service?" 79 " on " 49 "Connecting to ") NSCHAT.OPEN.3270 :D8 (P 1 CONTROLLER P 0 AUTHENTICATOR I 1 IBM3270.VIRTUAL.HOST I 0 STREAM) i Ago I@dggoIdg8gA oI o ohhLg6gA oI o ohhoI n:HHg (215 COURIER.CALL 196 ERROR 170 CONCAT 160 OCTALSTRING 141 PARSE.NSNAME 109 CONCAT 99 OCTALSTRING 80 PARSE.NSNAME 21 CH.RETRIEVE.ITEM 5 CH.GETAUTHENTICATOR) (209 RETURNERRORS 146 NSNAME 135 polledBSCTerminal 127 bsc 85 NSNAME 74 sdlcTerminal 65 sdlc 50 Create 45 GAP 11 IBM3270HOSTDATA) ( 187 "Unknown 3270 controller link type" 175 (5) 165 "B" 153 "#" 114 (1) 104 "B" 92 "#" 55 (ibm3270Host) 16 (GAP . IBM3270HostData)) NSCHAT.OPEN.DIALOUTA0001A0002 :D8 (I 0 CSTREAM F 0 RESETSTATE) P@ (8 CLOSEF) NIL () NSCHAT.OPEN.DIALOUTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 RS232CDATA F 1 PHONENUMBER F 2 STREAM F 3 SI::*RESETFORMS* F 4 AUTHENTICATOR) 8gRhhdScPgcRgggPPPldPhhQbggggPgPohhgdQgPhhhhoOggggPhhhgdhgPhhhhon:TTg (309 COURIER.CALL 36 CHAT.CHOOSE.PHONE.NUMBER) (303 RETURNERRORS 265 reserveNeeded 258 preemptInactive 232 asynchronous 227 full 222 directConn 217 rs232c 186 reserveNeeded 179 preemptInactive 153 auto 136 asynchronous 131 full 126 dialConn 121 rs232c 55 tty 50 Create 45 GAP 29 none 4 NSCHAT.OPEN.DIALOUTA0001A0002) ( 289 ((teletype)) 210 ((teletype)) 164 (1)) NSCHAT.OPEN.DIALOUT :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 PHONENUMBER P 1 AUTHENTICATOR P 0 RS232CDATA I 1 HOST I 0 STREAM F 6 LISPXHIST) yAgo i H?` A` o` ` @ V!g $(114 SI::RESETUNWIND 109 \MVLIST 104 NSCHAT.OPEN.DIALOUTA0001 89 ERROR! 84 CLOSEF 78 TERPRI 67 PRIN1 51 PRIN1 39 TERPRI 23 CH.GETAUTHENTICATOR 15 CH.RETRIEVE.ITEM) (99 SI::RESETUNWIND 73 PROMPTWINDOW 62 PROMPTWINDOW 46 PROMPTWINDOW 34 PROMPTWINDOW 5 RS232CDATA) ( 57 " does not appear support dialout service" 10 (GAP . RS232CData)) NSCHAT.OPEN.TTYHOST :D8 (P 0 AUTHENTICATOR I 2 SERVICE I 1 HOST I 0 STREAM) >@ggogBhhon:HHg (59 COURIER.CALL 4 CH.GETAUTHENTICATOR) (53 RETURNERRORS 28 service 18 Create 13 GAP) ( 39 ((teletype)) 23 (ttyHost (seven even two 100 (none 0 0)))) NSCHAT.SERVICES :D8 (P 8 S P 4 PROPERTIES P 0 SERVICES I 1 ALLFLG I 0 HOST) o!AVH@ BLd3@gL KTMA)` @` o` ` o` 0HP_hIdO_N$Oh^K[IhIIJLJiO&dNMh_M&O(120 PRIN1 104 TERPRI 93 PRIN1 77 PRIN1 65 TERPRI 39 RETFROM 17 CH.LIST.PROPERTIES) (115 PROMPTWINDOW 99 PROMPTWINDOW 88 PROMPTWINDOW 72 PROMPTWINDOW 60 PROMPTWINDOW 33 NSCHAT.SERVICES) ( 110 "Please choose a service from the menu." 83 " does not have any registered NSCHAT services." 4 (((10000 10001 10021 10006 10009 10002 10004 10017 10024) "Remote System Administration" (1 CL:IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a server executive") (10005 "Remote System Executive" (2 CL:IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a remote exec on another workstation") (10008 "Interactive Terminal Service" (3 CL:IDENTITY NSCHAT.OPEN.TTYHOST) "Connect to a terminal-based mail reader") (20001 "RS232 Dialout" (DIALOUT CL:IDENTITY NSCHAT.OPEN.DIALOUT) "Connect to a dialout facility") (10010 "IBM3270 Emulation Service" (IBM3270 NSCHAT.3270.HOST NSCHAT.OPEN.3270) "Connect to an IBM3270 Emulator Port"))) SPP.INPUT.EVENT :D8 (I 0 STREAM) *@ g@>o@ (39 ERROR 5 \GETACCESS) (25 SPPCON 18 STREAM 10 INPUT) ( 33 "FILE NOT OPEN") (PRETTYCOMPRINT NSCHATCOMS) (RPAQQ NSCHATCOMS ((COURIERPROGRAMS GAP) (FNS NSCHAT.3270.HOST NSCHAT.ATTENTIONFN NSCHAT.ERRORHANDLER NSCHAT.HOST.FILTER NSCHAT.OPEN NSCHAT.OPEN.3270 NSCHAT.OPEN.DIALOUT NSCHAT.OPEN.TTYHOST NSCHAT.SERVICES SPP.INPUT.EVENT) (INITVARS (NSCHAT.OPTIONS.MENU)) (DECLARE%: EVAL@COMPILE DONTCOPY ( FILES (SOURCE) SPPDECLS) (RECORDS NSCHAT.SERVICE) (CONSTANTS (\NS.WKS.Courier 5) ( GAP.RemoteSystemAdministration 1) (GAP.RemoteSystemExecutive 2) (GAP.InteractiveTerminalService 3)) ( GLOBALVARS NSCHAT.OPTIONS.MENU)) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ;; "Tell Chat we exist.") (ADDVARS (CHAT.PROTOCOLTYPES (NS . NSCHAT.HOST.FILTER)) (CHAT.PROTOCOL.ABBREVS (X . NS)))))) (COURIERPROGRAM GAP (3 3) TYPES ((WaitTime CARDINAL) (CharLength (ENUMERATION (five 0) (six 1) (seven 2) (eight 3))) (Parity (ENUMERATION (none 0) (odd 1) (even 2) (one 3) (zero 4))) (StopBits ( ENUMERATION (one 0) (two 1))) (FlowControl (RECORD (type (ENUMERATION (none 0) (xOnXOff 1))) (xOn UNSPECIFIED) (xOff UNSPECIFIED))) (SessionHandle (ARRAY 2 UNSPECIFIED)) (SessionParameterObject ( CHOICE (xerox800 0 NIL) (xerox850 1 UNSPECIFIED) (xerox860 2 UNSPECIFIED) (system6 3 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (cmcll 4 (RECORD (sendBlockSize CARDINAL) ( receiveBlockSize CARDINAL))) (ibm2770 5 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm2770Host 6 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm6670 7 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm6670Host 8 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3270 9 NIL) (ibm3270Host 10 NIL) (OldTtyHost 11 (RECORD (charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL))) (OldTty 12 (RECORD ( charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL))) (other 13 NIL) ( unknown 14 NIL) (ibm2780 15 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) ( ibm2780Host 16 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3780 17 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3780Host 18 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (siemens9750 19 NIL) (siemens9750Host 20 NIL) (ttyHost 21 (RECORD ( charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL) (flowControl FlowControl))) (tty 22 (RECORD (charLength CharLength) (parity Parity) (stopBits StopBits) ( frameTimeout CARDINAL) (flowControl FlowControl))))) (TransportObject (CHOICE (rs232c 0 (RECORD ( CommParams CommParamObject) (preemptOthers ReserveType) (preemptMe ReserveType) (phoneNumber STRING) ( line (CHOICE (alreadyReserved 0 (RECORD (resource Resource))) (reserveNeeded 1 (RECORD (lineNumber CARDINAL))))))) (bsc 1 (RECORD (localTerminalID STRING) (localSecurityID STRING) (lineControl LineControl) (authenticateProc UNSPECIFIED))) (teletype 2 NIL) (polledBSCController 3 (RECORD ( hostControllerName STRING) (controllerAddress ControllerAddress) (portsOnController CARDINAL))) ( sdlcController 4 (RECORD (hostControllerName STRING) (controllerAddress ControllerAddress) ( portsOnController CARDINAL))) (polledBSCTerminal 5 (RECORD (hostControllerName STRING) ( terminalAddress TerminalAddress))) (sdlcTerminal 6 (RECORD (hostControllerName STRING) ( terminalAddress TerminalAddress))) (service 7 (RECORD (id LONGCARDINAL))) (unused 8 NIL) ( polledBSCPrinter 9 (RECORD (hostControllerName STRING) (printerAddress TerminalAddress))) (sdlcPrinter 10 (RECORD (hostControllerName STRING) (printerAddress TerminalAddress))))) (Sequence.TransportObject (SEQUENCE TransportObject)) (BidReply (ENUMERATION (wack 0) (nack 1) (default 2))) (ExtendedBoolean ( ENUMERATION (true 0) (false 1) (default 2))) (DeviceType (ENUMERATION (undefined 0) (terminal 1) ( printer 2))) (AccessDetail (CHOICE (directConn 0 (RECORD (duplex (ENUMERATION (full 0) (half 1))) ( lineType LineType) (lineSpeed LineSpeed))) (dialConn 1 (RECORD (duplex (ENUMERATION (full 0) (half 1)) ) (lineType LineType) (lineSpeed LineSpeed) (dialMode (ENUMERATION (manual 0) (auto 1))) (dialerNumber CARDINAL) (retryCount CARDINAL))))) (CommParamObject (RECORD (accessDetail AccessDetail))) (LineType (ENUMERATION (bitSynchronous 0) (byteSynchronous 1) (asynchronous 2) (autoRecognition 3))) (LineSpeed (ENUMERATION (bps50 0) (bps75 1) (bps110 2) (bps135p5 3) (bps150 4) (bps300 5) (bps600 6) (bps1200 7) (bps2400 8) (bps3600 9) (bps4800 10) (bps7200 11) (bps9600 12) (bps19200 13) (bps28800 14) (bps38400 15) (bps48000 16) (bps56000 17) (bps57600 18))) (LineControl (ENUMERATION (primary 0) (secondary 1))) (ControllerAddress CARDINAL) (TerminalAddress CARDINAL) (credentials (AUTHENTICATION . CREDENTIALS)) ( verifier (AUTHENTICATION . VERIFIER)) (Duplexity (ENUMERATION (full 0) (half 1))) (PortClientType ( ENUMERATION (unassigned 0) (outOfService 1) (its 2) (irs 3) (gws 4) (ibm3270Host 5) (ttyEmulation 6) ( rbs 7) (fax 8) (mailGateway 9) (phototypesetter 10))) (PortDialerType (ENUMERATION (none 0) (vadic 1) (hayes 2) (ventel 3) (rs366 4))) (PortEchoingLocation (ENUMERATION (application 0) (ciu 1) (terminal 2 ))) (ReserveType (ENUMERATION (preemptNever 0) (preemptAlways 1) (preemptInactive 2))) (RS232CData ( RECORD (cIUPort BOOLEAN) (owningClientType PortClientType) (preemptionAllowed BOOLEAN) (lineNumber CARDINAL) (dialerNumber CARDINAL) (duplexity Duplexity) (dialingHardware PortDialerType) (charLength CharLength) (echoing PortEchoingLocation) (flowControl FlowControl) (lineSpeed LineSpeed) (parity Parity) (stopBits StopBits) (portActsAsDCE BOOLEAN) (accessControl NSNAME) (validLineSpeeds (SEQUENCE LineSpeed)))) (RS232CBack (RECORD (owningCIU STRING) (owningECS STRING) (owningClient STRING) ( portNumber CARDINAL))) (IBMDeviceType (ENUMERATION (unused 0) (model1 1) (model2 2) (model3 3) (model4 4) (model5 5) (printer 6) (other 7))) (IBM3270Languages (ENUMERATION (USenglish 0) (Austrian 1) ( AustrianAlt 2) (German 3) (GermanAlt 4) (Belgian 5) (Brazilian 6) (CanadianFrench 7) (Danish 8) ( DanishAlt 9) (Norwegian 10) (NorwegianAlt 11) (Finnish 12) (FinnishAlt 13) (Swedish 14) (SwedishAlt 15 ) (French 16) (International 17) (Italian 18) (JapaneseEnglish 19) (JapaneseKana 20) (Portuguese 21) ( Spanish 22) (SpanishAlt 23) (SpanishSpeaking 24) (UKenglish 25) (unused1 26) (unused2 27) (unused3 28) (unused4 29) (unused5 30) (unused6 31))) (ControllerLinkType (ENUMERATION (sdlc 0) (bsc 1))) ( IBM3270Device (RECORD (model IBMDeviceType) (accessControl NSNAME))) (IBM3270Controller (RECORD ( controllerAddress CARDINAL) (portsOnController CARDINAL) (linkType ControllerLinkType) (language IBM3270Languages) (devices (SEQUENCE IBM3270Device)))) (IBM3270HostData (SEQUENCE IBM3270Controller)) (IBM3270HostBack (RECORD (path NSNAME)))) PROCEDURES ((Reset 0) (Create 2 (SessionParameterObject Sequence.TransportObject WaitTime credentials verifier) RETURNS (SessionHandle) REPORTS ( badAddressFormat controllerAlreadyExists controllerDoesNotExist dialingHardwareProblem illegalTransport inconsistentParams mediumConnectFailed noCommunicationHardware noDialingHardware terminalAddressInUse terminalAddressInvalid tooManyGateStreams transmissionMediumUnavailable serviceTooBusy userNotAuthenticated userNotAuthorized serviceNotFound registeredTwice transmissionMediumHardwareProblem transmissionMediumUnavailable transmissionMediumNotReady noAnswerOrBusy noRouteToGAPService gapServiceNotResponding courierProtocolMismatch gapVersionMismatch) )) ERRORS ((unimplemented 0) (noCommunicationHardware 1) (illegalTransport 2) (mediumConnectFailed 3) (badAddressFormat 4) (noDialingHardware 5) (dialingHardwareProblem 6) (transmissionMediumUnavailable 7 ) (inconsistentParams 8) (tooManyGateStreams 9) (bugInGAPCode 10) (gapNotExported 11) ( gapCommunicationError 12) (controllerAlreadyExists 13) (controllerDoesNotExist 14) ( terminalAddressInUse 15) (terminalAddressInvalid 16) (serviceTooBusy 17) (userNotAuthenticated 18) ( userNotAuthorized 19) (serviceNotFound 20) (registeredTwice 21) (transmissionMediumHardwareProblem 22) (transmissionMediumUnavailable 23) (transmissionMediumNotReady 24) (noAnswerOrBusy 25) ( noRouteToGAPService 26) (gapServiceNotResponding 27) (courierProtocolMismatch 28) (gapVersionMismatch 29))) (RPAQ? NSCHAT.OPTIONS.MENU) (ADDTOVAR CHAT.PROTOCOLTYPES (NS . NSCHAT.HOST.FILTER)) (ADDTOVAR CHAT.PROTOCOL.ABBREVS (X . NS)) (PUTPROPS NSCHAT COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1989 1990 1991)) NIL