PS-TTY

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

(FILECREATED " 2-Aug-89 13:43:41" {DSK}<LISPFILES>PS>PS-TTY.;10
 2608   

      changes to%:  (PROPS (PS-TTY MAKEFILE-ENVIRONMENT))
                    (VARS PS-TTYCOMS)

      previous date%: " 6-Sep-88 17:09:36" {DSK}<LISPFILES>PS>PS-TTY.;9)


(* "
Copyright (c) 1988, 1989 by Beckman Instruments, Inc.  All rights reserved.
")

(PRETTYCOMPRINT PS-TTYCOMS)

(RPAQQ PS-TTYCOMS
 ((FILES POSTSCRIPTSTREAM (SYSLOAD FROM LISPUSERS)
                              DLTTY)
                       (INITVARS (PS-TTY-BAUD 4800)
                              (PS-TTY-DATABITS 8)
                              (PS-TTY-PARITY 'NONE)
                              (PS-TTY-STOPBITS 1)
                              (PS-TTY-FLOWCONTROL 'XOnXOff))
                       (FNS PS-TTY-AFTERLOGOUT PS-TTY-INIT)
                       (ADDVARS (DEFAULTPRINTINGHOST PS-TTY)
                              (AROUNDEXITFNS PS-TTY-AFTERLOGOUT))
                       (P (PS-TTY-INIT))
                       (PROP (MAKEFILE-ENVIRONMENT PRINTERTYPE SPOOLFILE)
                             PS-TTY)))

(FILESLOAD POSTSCRIPTSTREAM (SYSLOAD FROM LISPUSERS)
       DLTTY)

(RPAQ? PS-TTY-BAUD
 4800)

(RPAQ? PS-TTY-DATABITS
 8)

(RPAQ? PS-TTY-PARITY
 'NONE)

(RPAQ? PS-TTY-STOPBITS
 1)

(RPAQ? PS-TTY-FLOWCONTROL
 'XOnXOff)
(DEFINEQ

(PS-TTY-AFTERLOGOUT

  [LAMBDA (EVENT)
                                     (* ; "Edited 19-Apr-88 13:25 by Matt Heffron")


    (if
 (EQ EVENT 'AFTERLOGOUT)
        then
 (TTY.INIT PS-TTY-BAUD PS-TTY-DATABITS PS-TTY-PARITY PS-TTY-STOPBITS PS-TTY-FLOWCONTROL])

(PS-TTY-INIT

  [LAMBDA NIL
                                         (* ; "Edited 19-Apr-88 13:24 by Matt Heffron")


    [PUTPROP 'PS-TTY 'SPOOLOPTIONS `((BaudRate ,PS-TTY-BAUD)
                                     (BitsPerSerialChar ,PS-TTY-DATABITS)
                                     (Parity ,PS-TTY-PARITY)
                                     (NoOfStopBits ,PS-TTY-STOPBITS)
                                     (FlowControl ,PS-TTY-FLOWCONTROL]
    (PS-TTY-AFTERLOGOUT
 'AFTERLOGOUT)                        (* ; "Fake it")


    NIL])
)

(ADDTOVAR DEFAULTPRINTINGHOST
 PS-TTY)

(ADDTOVAR AROUNDEXITFNS
 PS-TTY-AFTERLOGOUT)

(PS-TTY-INIT
)

(PUTPROPS PS-TTY MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP"))

(PUTPROPS PS-TTY PRINTERTYPE
 POSTSCRIPT)

(PUTPROPS PS-TTY SPOOLFILE
 "{TTY}FOO.PS")
(PUTPROPS PS-TTY COPYRIGHT ("Beckman Instruments, Inc" 1988 1989))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1377 2224 (PS-TTY-AFTERLOGOUT 1387 . 1662) (PS-TTY-INIT 1664 . 2222)))))
STOP