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

(FILECREATED "20-Nov-95 11:34:56" {DSK}<MEDLEY>LIBRARY/DOSPRINT.\;1
 2006   

      |changes| |to:|  (VARS DOSPRINTCOMS)

      |previous| |date:| "26-Jul-93 14:01:26" {DSK}<MEDLEY>LIBRARY/DOSPRINT.\;1)


; Copyright (c) 1995 by Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT DOSPRINTCOMS)

(RPAQQ DOSPRINTCOMS
 ((FNS DOSPRINT)
                         (INITVARS (|DosPrinterName| NIL))
                         (DECLARE\: EVAL@COMPILE DONTCOPY (GLOBALVARS |DosPrinterName|))
                         (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS
                                                                                        (NLAMA)
                                                                                        (NLAML)
                                                                                        (LAMA)))))
(DEFINEQ

(DOSPRINT

  (LAMBDA (HOST FILE PRINTOPTIONS)
                       (* \; "Edited 26-Jul-93 13:48 by ")

    (LET* ((PRINTER (OR HOST |DosPrinterName|))
           (COPIES (LISTGET PRINTOPTIONS '\#COPIES))
           (NAME (LISTGET PRINTOPTIONS 'DOCUMENT.NAME))
           (TYPE (PRINTERTYPE PRINTER)))
          (CL:WITH-OPEN-STREAM (|out| (OPENSTREAM PRINTER 'OUTPUT))
                 (CL:WITH-OPEN-STREAM (|in|
 (OPENSTREAM FILE 'INPUT))
                        (CL:FORMAT PROMPTWINDOW "Spooling output to DOS printer \"~A\"..." PRINTER)
                        (COPYCHARS |in| |out|)
                        (CL:FORMAT PROMPTWINDOW "Done."))))))
)

(RPAQ? |DosPrinterName|
 NIL)
(DECLARE\: EVAL@COMPILE DONTCOPY 
(DECLARE\: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS |DosPrinterName|)
)
)
(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(PUTPROPS DOSPRINT COPYRIGHT ("Xerox Corporation" 1995))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (958 1636 (DOSPRINT 970 . 1633)))))
STOP