(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "13-Jun-90 01:04:08" {DSK}<usr>local>lde>lispcore>library>TTYCHAT.;2
 2460   

      changes to%:  (VARS TTYCHATCOMS)

      previous date%: "20-Nov-86 18:15:36" {DSK}<usr>local>lde>lispcore>library>TTYCHAT.;1)


(* ; "
Copyright (c) 1985, 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT TTYCHATCOMS)

(RPAQQ TTYCHATCOMS

       (

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


        (FNS TTYCHAT.HOST.FILTER TTYCHAT.OPEN)
        (ADDVARS (NETWORKOSTYPES (TTY))
               (CHAT.PROTOCOLTYPES (TTY . TTYCHAT.HOST.FILTER)))
        (DECLARE%: DONTCOPY (FILES (LOADCOMP)
                                   CHATDECLS))
        (FILES DLTTY RS232CHAT 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)
               '(TTY PRINTER))
        (COND
           ((NULL \TTYFLG)
            (TTY.INIT TTY.DEFAULT.INIT.INFO)))
        (LIST 'TTY (FUNCTION TTYCHAT.OPEN))))))

(TTYCHAT.OPEN

  [LAMBDA (HOST)
                                             (* lmm "20-Nov-86 18:14")

                                                             (* ;;; "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 '{TTY} 'BOTH))
          [TTY.SET.PARAMETERS '((CTS . T)
                                (DSR . T]
          (SETQ OUTSTREAM STREAM)
          (STREAMPROP STREAM 'SETDISPLAYTYPE (FUNCTION NILL))
          (STREAMPROP STREAM 'LOGINFO (FUNCTION NILL))
          (STREAMPROP STREAM 'FLUSH&WAIT (FUNCTION NILL))
          (STREAMPROP STREAM 'SENDSCREENPARAMS (FUNCTION NILL))
          [STREAMPROP STREAM 'OPTIONS '(("Set Line Parameters" 'RS232CHAT.SET.PARAMETERS 
                                               "Modify TTY port parameters"]
          (RETURN (CONS STREAM OUTSTREAM])
)

(ADDTOVAR NETWORKOSTYPES
 (TTY))

(ADDTOVAR CHAT.PROTOCOLTYPES
 (TTY . TTYCHAT.HOST.FILTER))
(DECLARE%: DONTCOPY 

(FILESLOAD (LOADCOMP)
       CHATDECLS)
)

(FILESLOAD DLTTY RS232CHAT CHAT)
(PUTPROPS TTYCHAT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1990))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (871 2165 (TTYCHAT.HOST.FILTER 881 . 1208) (TTYCHAT.OPEN 1210 . 2163)))))
STOP