(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