(FILECREATED "20-Sep-85 10:22:19" {ERIS}<LISPCORE>LIBRARY>TTYCHAT.;2
 2834   

      changes to:  (VARS TTYCHATCOMS)

      previous date: " 8-Sep-85 18:17:47" {ERIS}<LISPCORE>LIBRARY>TTYCHAT.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TTYCHATCOMS)

(RPAQQ TTYCHATCOMS
 ((* CHAT interface for the DLion/DayBreak TTY port)
		    (FNS TTYCHAT.HOST.FILTER TTYCHAT.OPEN)
		    (ADDVARS (CHAT.PROTOCOLTYPES (TTY . TTYCHAT.HOST.FILTER)))
		    (INITVARS (TTYCHAT.OPTION.MENU (create MENU ITEMS ← (QUOTE (("Set Line Parameters"
										  (
RS232CHAT.SET.PARAMETERS)
										  
								     "Modify TTY port parameters")))
							   TITLE ← "TTY Port Options")))
		    (GLOBALVARS TTYCHAT.OPTION.MENU)
		    (DECLARE: DONTCOPY (FILES (LOADCOMP FROM VALUEOF LISPUSERSDIRECTORIES)
					      CHATDECLS))
		    (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
			   DLTTY CHAT)))



(* CHAT interface for the DLion/DayBreak TTY port)


(DEFINEQ

(TTYCHAT.HOST.FILTER

  (LAMBDA (NAME)                                             (* ejs: "27-Aug-85 16:45")

    (
COND

      ((
FMEMB
 (
U-CASE
 NAME)
	      (
QUOTE
 (TTY PRINTER)))
	(
COND

	  ((
NULL
 \TTYFLG)
	    (
TTY.INIT
 TTY.DEFAULT.INIT.INFO)))
	(
LIST
 (
QUOTE
 TTY)
	      (
FUNCTION
 TTYCHAT.OPEN))))))

(TTYCHAT.OPEN

  (LAMBDA (HOST)                                             (* ejs: " 8-Sep-85 17:13")


          (* * Return a pair of SPP streams for a chat connection, or NIL. Add CHAT specific operations to the STREAM via 

	  STREAMPROP.)



    (
PROG
 (OUTSTREAM STREAM)
          (
SETQ
 STREAM (
OPENSTREAM
 (
QUOTE
 {TTY})
				   (
QUOTE
 BOTH)))
          (
SETQ
 OUTSTREAM STREAM)
          (
STREAMPROP
 STREAM (
QUOTE
 SETDISPLAYTYPE)
		      (
FUNCTION
 NILL))
          (
STREAMPROP
 STREAM (
QUOTE
 LOGINFO)
		      (
FUNCTION
 NILL))
          (
STREAMPROP
 STREAM (
QUOTE
 FLUSH&WAIT)
		      (
FUNCTION
 NILL))
          (
STREAMPROP
 STREAM (
QUOTE
 SENDSCREENPARAMS)
		      (
FUNCTION
 NILL))
          (
STREAMPROP
 STREAM (
QUOTE
 OPTIONMENU)
		      TTYCHAT.OPTION.MENU)
          (
RETURN
 (
CONS
 STREAM OUTSTREAM)))))
)

(ADDTOVAR CHAT.PROTOCOLTYPES
 (TTY . TTYCHAT.HOST.FILTER))

(RPAQ? TTYCHAT.OPTION.MENU
 (create MENU ITEMS ← (QUOTE (("Set Line Parameters" (
RS232CHAT.SET.PARAMETERS)
									       
								     "Modify TTY port parameters")))
				   TITLE ← "TTY Port Options"))
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS TTYCHAT.OPTION.MENU)
)
(DECLARE: DONTCOPY 
(FILESLOAD (LOADCOMP FROM VALUEOF LISPUSERSDIRECTORIES)
	   CHATDECLS)
)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
	   DLTTY CHAT)
(PUTPROPS TTYCHAT COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (987 2249 (TTYCHAT.HOST.FILTER 997 . 1342) (TTYCHAT.OPEN 1344 . 2247)))))
STOP