(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Oct-2023 00:43:07" ("compiled on " {DSK}frank>il>medley>gmedley>library>PDFSTREAM.;2) " 8-Oct-2023 23:34:47" tcompl'd in "APPS 8-Oct-2023 ..." dated " 8-Oct-2023 23:34:52") (FILECREATED " 9-Oct-2023 00:42:25" {DSK}frank>il>medley>gmedley>library>PDFSTREAM.;2 14029 :CHANGES-TO (FNS SEE-PDF OPEN-PDF-STREAM PS-TO-PDF PDFCONVERTER) (VARS PDFSTREAMCOMS) :PREVIOUS-DATE " 1-Oct-2023 20:53:05" {DSK}frank>il>medley>gmedley>library>PDFSTREAM.;1) PDFFILEP :D8 (I 0 FILE) T@g ogg µ3@ ´+@j @ l%ð´@ lPð´@ lDð´@ lFð@j ¿(80 SETFILEPTR 47 SETFILEPTR 38 STREAMP 30 CL:MEMBER 10 UNPACKFILENAME.STRING) (25 STRING-EQUAL 20 :TEST 5 EXTENSION) ( 15 ("PDF")) PDF.HARDCOPYW :D8 (P 0 PSTTMP I 5 TITLE I 4 Landscape? I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 PDFFILE) ,ggg@ HABCDE @ (41 PS-TO-PDF 35 POSTSCRIPT.HARDCOPYW 20 PACKFILENAME) (14 BODY 9 TMPPS 4 EXTENSION) () PDF.TEXT :D8 (I 4 TABS I 3 HEADING I 2 FONTS I 1 PDFFILE I 0 FILE F 0 POSTSCRIPT.DEFAULT.PAGEREGION F 1 POSTSCRIPT.TEXTFILE.LANDSCAPE) '@AgBCDgPgQhðhðh (36 TEXTTOIMAGEFILE) (20 ROTATION 14 REGION 6 PDF) () PDF.TEDIT :D8 (P 0 TSTREAM I 1 PDFFILE I 0 FILE) "@ @Aihddg H (31 CLOSEF 25 TEDIT.FORMAT.HARDCOPY 5 OPENTEXTSTREAM) (19 PDF) () OPEN-PDF-STREAM :D8 (P 0 PSSTREAM I 1 OPTIONS I 0 FILE) y`ªo ¿@ið§@ µ o@ booo A Hggh Hg@ H(117 STREAMPROP 105 STREAMPROP 84 OPENPOSTSCRIPTSTREAM 78 CONCAT 67 RAND 57 IDATE 45 ERROR 32 OUTFILEP 21 ERROR 4 PDFCONVERTER) (111 PDFTARGETINFO 98 CLOSE-PDF-STREAM 93 AFTERCLOSE 9 PDF-CONVERTER-TEMPLATES) ( 72 ".ps" 62 "-" 52 "{UNIX}/tmp/medley-pdf-" 39 "PDF target file not found" 16 "A specified POSTSCRIPT-to-PDF converter cannot be found") CLOSE-PDF-STREAM :D8 (P 0 TARGETINFO I 0 PSSTREAM) -@gh @gh Hœ@ H @(40 RENAMEFILE 34 PS-TO-PDF 23 STREAMPROP 11 STREAMPROP) (17 PDFTARGETINFO 5 AFTERCLOSE) () PS-TO-PDF :D8 (P 1 COMPLETIONCODE P 0 ERRORFILE I 2 DONTDELETE I 1 PDFFILE I 0 PSFILE) @ bd ªo ¿`ªo ¿Aµ‚±Ûggg@ bggg@ g@ hi gA hi gH hi h` Y@ B¦@ ¿H H ²%Hg B¦H ¿jñ›oA ¿IjñšoA A ±ÿ8(281 TRUEFILENAME 274 ERROR 258 ERROR 243 DELFILE 235 GETFILEINFO 222 INFILEP 216 CLOSEF? 209 DELFILE 201 CLOSEF? 194 PROCESS-COMMAND 189 CONCATLIST 184 SUBLIS 173 PDFCONVERTER 163 SLASHIT 156 TRUEFILENAME 144 SLASHIT 137 TRUEFILENAME 125 SLASHIT 118 TRUEFILENAME 104 PACKFILENAME 81 PACKFILENAME 52 ERROR 35 PDFCONVERTER 29 ERROR 18 INFILEP 10 FULLNAME 5 TRUEFILENAME) (230 LENGTH 178 PDF-CONVERTER-TEMPLATES 150 ERRORFILE 131 PDFFILE 112 PSFILE 98 BODY 93 error 88 EXTENSION 75 BODY 70 pdf 65 EXTENSION 40 PDF-CONVERTER-TEMPLATES) ( 268 "Cannot create PDF file for " 252 "Cannot create PDF file for " 47 "A specified POSTSCRIPT-to-PDF converter cannot be found" 24 "NO PS FILE TO CONVERT") SEE-PDF :D8 (I 0 PDFFILE) g@gg (25 ShellOpen 20 PACKFILENAME) (15 PDF 10 EXTENSION 4 BODY) () PDFCONVERTER :D8 (P 1 TEMPLATE) B`µ"o µ`Hµ hY •Iµîi°ëHX°â(52 ShellWhich 21 MKATOM 16 UNIX-GETENV) (43 PDFCONVERTER 28 PDF-CONVERTER-TEMPLATES 4 PDFCONVERTER) ( 11 "MEDLEY-PDFCONVERTER") (PRETTYCOMPRINT PDFSTREAMCOMS) (RPAQQ PDFSTREAMCOMS ((FILES (SYSLOAD) POSTSCRIPTSTREAM) (COMS (* ; "Hook into hardcopy interface") ( ADDVARS (PRINTERTYPES ((PDF) (CANPRINT (PDF)) (STATUS TRUE) (PROPERTIES NILL) (SEND POSTSCRIPTSEND) ( BITMAPSCALE POSTSCRIPT.BITMAPSCALE) (BITMAPFILE (PDF.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PRINTFILETYPES (PDF (TEST PDFFILEP) (EXTENSION (PDF)) (CONVERSION (TEXT PDF.TEXT TEDIT PDF.TEDIT)))) (IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM) (FONTCREATE POSTSCRIPT.FONTCREATE) ( FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE) (CREATECHARSET \CREATECHARSET.PSC)))) (VARS ( DEFAULTPRINTERTYPE (QUOTE PDF))) (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT) (P ( FONTPROFILE.ADDDEVICE (QUOTE PDF) (QUOTE POSTSCRIPT)))) (* ;; "") (* ;; "Implementation of PDF streams") (INITVARS (PDFCONVERTER NIL)) (* ; "Mac with ghostscript?") (ALISTS ( PDF-CONVERTER-TEMPLATES ps2pdf pstopdf)) (GLOBALVARS PDFCONVERTER PDF-CONVERTER-TEMPLATES) (FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF) (FNS SEE-PDF) (FNS PDFCONVERTER))) (FILESLOAD (SYSLOAD) POSTSCRIPTSTREAM) (ADDTOVAR PRINTERTYPES ((PDF) (CANPRINT (PDF)) (STATUS TRUE) (PROPERTIES NILL) (SEND POSTSCRIPTSEND) ( BITMAPSCALE POSTSCRIPT.BITMAPSCALE) (BITMAPFILE (PDF.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (ADDTOVAR PRINTFILETYPES (PDF (TEST PDFFILEP) (EXTENSION (PDF)) (CONVERSION (TEXT PDF.TEXT TEDIT PDF.TEDIT)))) (ADDTOVAR IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM) (FONTCREATE POSTSCRIPT.FONTCREATE) ( FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE) (CREATECHARSET \CREATECHARSET.PSC))) (RPAQQ DEFAULTPRINTERTYPE PDF) (FONTPROFILE.ADDDEVICE (QUOTE PDF) (QUOTE POSTSCRIPT)) (RPAQ? PDFCONVERTER NIL) (ADDTOVAR PDF-CONVERTER-TEMPLATES (ps2pdf " " PSFILE " " PDFFILE " 2> " ERRORFILE) (pstopdf " " PSFILE " -o " PDFFILE " 2> " ERRORFILE)) NIL