16 lines
6.4 KiB
Plaintext
16 lines
6.4 KiB
Plaintext
1
|
||
|
||
LISP LIBRARY MODULES, MEDLEY RELEASE 2.X, UNIXPRINT
|
||
1
|
||
|
||
LISP LIBRARY MODULES, MEDLEY RELEASE 2.X, UNIXPRINT
|
||
UNIXPRINT
|
||
1
|
||
|
||
UNIXPRINT
|
||
1
|
||
|
||
|
||
UNIXPRINT
|
||
6
|
||
|
||
UnixPrint lets you arrange to have hardcopy sent directly to a PostScript printer via a UNIX print command. You can set your default printing host so that it happens automatically.
|
||
2
|
||
|
||
Installation
|
||
1
|
||
|
||
Load UNIXPRINT.DFASL. Customize UNIXPRINTCOMMAND.
|
||
Then set the two control variables appropriately, as described below:
|
||
DEFAULTPRINTINGHOST [Variable]
|
||
This is a list of printer names, described in the Interlisp Reference Manual (refer to the IRM for a general description). To add a PostScript printer to the list, add an entry in the form (POSTSCRIPT printername). To continue the example above, DEFAULTPRINTINGHOST should have a value like the following:
|
||
(SETQ DEFAULTPRINTINGHOST
|
||
'( ÿÿ ï$ÿ ÿÿ ï$ ( P O S T S C R I P T d a i s y ) ï$ ï$ ) )ÿ
|
||
UnixPrinterName [Variable]
|
||
ÿÿ A s t r i n g o r s y m b o l , t h e n a m e o f t h e U N I X p r i n t e r ÿ to which ÿÿ y o u w a n t o u t p u t s e n t . T h i s s h o u l d b e t h e n a m e t h a t y o u w o u l d g i v e i n t h e l p r c o m m a n d . F o r e x a m p l e , i f y o u n o r m a l l y p r i n t f i l e s b y e n t e r i n g :ÿ
|
||
lpr -Pdaisy . . .
|
||
then you should (SETQ UnixPrinterName "daisy"). If you do not normally specify a printer name, set UnixPrinterName to NIL.
|
||
2
|
||
|
||
Customization
|
||
1
|
||
|
||
You can get UNIXPRINT to use lp or lpr by modifying the function UnixPrintCommand. Your site may have a printing program other than lpr. For futher information about printing on your system, please refer to your system manual.
|
||
(UnixPrintCommand PRINTER COPIES NAME TMPNAME) [function]
|
||
Returns a string that is used by /bin/sh in the printing of the postscript code. The arguments are PRINTER, COPIES, NAME and TMPNAME. PRINTER is the name of the printer. COPIES is NIL or a fixp specifying how many copies to print . NAME is the string printed on the banner page of your hardcopy. TMPNAME is the name of the temporary file used to store the postscript code for your job.
|
||
A call to (UnixPrintCommand "daisy" 1 "Erik" "/tmp/foot") should return something like the string "/usr/ucb/lpr -Pdaisy -#1 -JErik -r -s /tmp/foot".
|
||
The source code of the function UnixPrintCommand is supplied with Medley. You are encuraged to write your own versions of this function depending on the site he or she uses. The function UnixPrintCommand is included in UNIXPRINT.DFASL. Sources and examples for different versions of UnixPrintCommand are included in the file UNIXPRINTCOMMAND.
|
||
|
||
[This page intentionally left blank] (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 349) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 723) NIL))) (PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL)))))
|
||
2 <00> Ìø ø 2 Ì Ìø ø 3 ø ø T 3 ø 2 ø T , Ì Ìø - Ì Ìø T - Ì Ìø T - ø äì T 2 0 0ø F ø ø PAGEHEADING VERSOHEAD F ø ø PAGEHEADING RECTOHEAD E ø ø PAGEHEADING FOOTINGV E ø ø PAGEHEADING FOOTINGR TERMINAL
|
||
TITAN
|
||
MODERN
|
||
TERMINAL
|
||
MODERN MODERN MODERN
|
||
|
||
HRULE.GETFN MODERN
|
||
|
||
5 HRULE.GETFN MODERN
|
||
5
|
||
HRULE.GETFN MODERN
|
||
|
||
|
||
|
||
HRULE.GETFN MODERN
|
||
|
||
HRULE.GETFN MODERN ¶ HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN 2 F 2 r " ) $ e — € 6 HRULE.GETFN MODERN HRULE.GETFN MODERN 5 ] ! Z 0 ) 2 » P - $
|
||
— ‰zº |