/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / e1858src.lha / emacs-18.58 / lisp / lpr.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 6c 70 72 2d 63 6f 6d |.(defvar| lpr-com|
|00000010| 6d 61 6e 64 20 28 69 66 | 20 28 65 71 20 73 79 73 |mand (if| (eq sys|
|00000020| 74 65 6d 2d 74 79 70 65 | 20 28 71 75 6f 74 65 20 |tem-type| (quote |
|00000030| 75 73 67 2d 75 6e 69 78 | 2d 76 29 29 20 22 6c 70 |usg-unix|-v)) "lp|
|00000040| 22 20 22 6c 70 72 22 29 | 20 22 5c 0a 53 68 65 6c |" "lpr")| "\.Shel|
|00000050| 6c 20 63 6f 6d 6d 61 6e | 64 20 66 6f 72 20 70 72 |l comman|d for pr|
|00000060| 69 6e 74 69 6e 67 20 61 | 20 66 69 6c 65 22 29 0a |inting a| file").|
|00000070| 0a 28 64 65 66 75 6e 20 | 6c 70 72 2d 62 75 66 66 |.(defun |lpr-buff|
|00000080| 65 72 20 6e 69 6c 20 22 | 5c 0a 50 72 69 6e 74 20 |er nil "|\.Print |
|00000090| 62 75 66 66 65 72 20 63 | 6f 6e 74 65 6e 74 73 20 |buffer c|ontents |
|000000a0| 61 73 20 77 69 74 68 20 | 55 6e 69 78 20 63 6f 6d |as with |Unix com|
|000000b0| 6d 61 6e 64 20 60 6c 70 | 72 27 2e 0a 60 6c 70 72 |mand `lp|r'..`lpr|
|000000c0| 2d 73 77 69 74 63 68 65 | 73 27 20 69 73 20 61 20 |-switche|s' is a |
|000000d0| 6c 69 73 74 20 6f 66 20 | 65 78 74 72 61 20 73 77 |list of |extra sw|
|000000e0| 69 74 63 68 65 73 20 28 | 73 74 72 69 6e 67 73 29 |itches (|strings)|
|000000f0| 20 74 6f 20 70 61 73 73 | 20 74 6f 20 6c 70 72 2e | to pass| to lpr.|
|00000100| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |" (inter|active) |
|00000110| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 65 |(byte-co|de "...e|
|00000120| 64 08 23 87 22 20 5b 6c | 70 72 2d 73 77 69 74 63 |d.#." [l|pr-switc|
|00000130| 68 65 73 20 6e 69 6c 20 | 70 72 69 6e 74 2d 72 65 |hes nil |print-re|
|00000140| 67 69 6f 6e 2d 31 5d 20 | 34 29 29 0a 0a 28 64 65 |gion-1] |4))..(de|
|00000150| 66 75 6e 20 70 72 69 6e | 74 2d 62 75 66 66 65 72 |fun prin|t-buffer|
|00000160| 20 6e 69 6c 20 22 5c 0a | 50 72 69 6e 74 20 62 75 | nil "\.|Print bu|
|00000170| 66 66 65 72 20 63 6f 6e | 74 65 6e 74 73 20 61 73 |ffer con|tents as|
|00000180| 20 77 69 74 68 20 55 6e | 69 78 20 63 6f 6d 6d 61 | with Un|ix comma|
|00000190| 6e 64 20 60 6c 70 72 20 | 2d 70 27 2e 0a 60 6c 70 |nd `lpr |-p'..`lp|
|000001a0| 72 2d 73 77 69 74 63 68 | 65 73 27 20 69 73 20 61 |r-switch|es' is a|
|000001b0| 20 6c 69 73 74 20 6f 66 | 20 65 78 74 72 61 20 73 | list of| extra s|
|000001c0| 77 69 74 63 68 65 73 20 | 28 73 74 72 69 6e 67 73 |witches |(strings|
|000001d0| 29 20 74 6f 20 70 61 73 | 73 20 74 6f 20 6c 70 72 |) to pas|s to lpr|
|000001e0| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |." (inte|ractive)|
|000001f0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 c2 | (byte-c|ode "...|
|00000200| 65 64 c3 08 42 23 87 22 | 20 5b 6c 70 72 2d 73 77 |ed..B#."| [lpr-sw|
|00000210| 69 74 63 68 65 73 20 6e | 69 6c 20 70 72 69 6e 74 |itches n|il print|
|00000220| 2d 72 65 67 69 6f 6e 2d | 31 20 22 2d 70 22 5d 20 |-region-|1 "-p"] |
|00000230| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 6c 70 72 2d |5))..(de|fun lpr-|
|00000240| 72 65 67 69 6f 6e 20 28 | 73 74 61 72 74 20 65 6e |region (|start en|
|00000250| 64 29 20 22 5c 0a 50 72 | 69 6e 74 20 72 65 67 69 |d) "\.Pr|int regi|
|00000260| 6f 6e 20 63 6f 6e 74 65 | 6e 74 73 20 61 73 20 77 |on conte|nts as w|
|00000270| 69 74 68 20 55 6e 69 78 | 20 63 6f 6d 6d 61 6e 64 |ith Unix| command|
|00000280| 20 60 6c 70 72 27 2e 0a | 60 6c 70 72 2d 73 77 69 | `lpr'..|`lpr-swi|
|00000290| 74 63 68 65 73 27 20 69 | 73 20 61 20 6c 69 73 74 |tches' i|s a list|
|000002a0| 20 6f 66 20 65 78 74 72 | 61 20 73 77 69 74 63 68 | of extr|a switch|
|000002b0| 65 73 20 28 73 74 72 69 | 6e 67 73 29 20 74 6f 20 |es (stri|ngs) to |
|000002c0| 70 61 73 73 20 74 6f 20 | 6c 70 72 2e 22 20 28 69 |pass to |lpr." (i|
|000002d0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 72 22 29 20 |nteracti|ve "r") |
|000002e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 88 c4 08 |(byte-co|de "....|
|000002f0| 09 0a 23 87 22 20 5b 73 | 74 61 72 74 20 65 6e 64 |..#." [s|tart end|
|00000300| 20 6c 70 72 2d 73 77 69 | 74 63 68 65 73 20 6e 69 | lpr-swi|tches ni|
|00000310| 6c 20 70 72 69 6e 74 2d | 72 65 67 69 6f 6e 2d 31 |l print-|region-1|
|00000320| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 4))..(|defun pr|
|00000330| 69 6e 74 2d 72 65 67 69 | 6f 6e 20 28 73 74 61 72 |int-regi|on (star|
|00000340| 74 20 65 6e 64 29 20 22 | 5c 0a 50 72 69 6e 74 20 |t end) "|\.Print |
|00000350| 72 65 67 69 6f 6e 20 63 | 6f 6e 74 65 6e 74 73 20 |region c|ontents |
|00000360| 61 73 20 77 69 74 68 20 | 55 6e 69 78 20 63 6f 6d |as with |Unix com|
|00000370| 6d 61 6e 64 20 60 6c 70 | 72 20 2d 70 27 2e 0a 60 |mand `lp|r -p'..`|
|00000380| 6c 70 72 2d 73 77 69 74 | 63 68 65 73 27 20 69 73 |lpr-swit|ches' is|
|00000390| 20 61 20 6c 69 73 74 20 | 6f 66 20 65 78 74 72 61 | a list |of extra|
|000003a0| 20 73 77 69 74 63 68 65 | 73 20 28 73 74 72 69 6e | switche|s (strin|
|000003b0| 67 73 29 20 74 6f 20 70 | 61 73 73 20 74 6f 20 6c |gs) to p|ass to l|
|000003c0| 70 72 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |pr." (in|teractiv|
|000003d0| 65 20 22 72 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "r") (|byte-cod|
|000003e0| 65 20 22 c3 88 c4 08 09 | c5 0a 42 23 87 22 20 5b |e ".....|..B#." [|
|000003f0| 73 74 61 72 74 20 65 6e | 64 20 6c 70 72 2d 73 77 |start en|d lpr-sw|
|00000400| 69 74 63 68 65 73 20 6e | 69 6c 20 70 72 69 6e 74 |itches n|il print|
|00000410| 2d 72 65 67 69 6f 6e 2d | 31 20 22 2d 70 22 5d 20 |-region-|1 "-p"] |
|00000420| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 70 72 69 6e |5))..(de|fun prin|
|00000430| 74 2d 72 65 67 69 6f 6e | 2d 31 20 28 73 74 61 72 |t-region|-1 (star|
|00000440| 74 20 65 6e 64 20 73 77 | 69 74 63 68 65 73 29 20 |t end sw|itches) |
|00000450| 28 62 79 74 65 2d 63 6f | 64 65 20 22 ca 20 cb 50 |(byte-co|de ". .P|
|00000460| 0a 19 18 8a cc cd 21 88 | ce 0a cf 5c 22 85 35 00 |......!.|...\".5.|
|00000470| 70 1b d0 d1 21 71 88 d2 | 20 88 d3 20 88 d4 0b 0c |p...!q..| .. ....|
|00000480| 0d 23 88 09 89 12 88 d5 | 65 64 5c 22 88 65 14 64 |.#......|ed\".e.d|
|00000490| 89 15 29 88 d6 d7 d8 d9 | 0c 0d 0e 06 c7 c7 c7 26 |..).....|.......&|
|000004a0| 06 d8 0e 08 da 3d 85 50 | 00 db 08 dc 08 46 0e 09 |.....=.P|.....F..|
|000004b0| 5c 22 5c 22 5c 22 88 cc | dd 21 29 2a 87 22 20 5b |\"\"\"..|.!)*." [|
|000004c0| 6e 61 6d 65 20 77 69 64 | 74 68 20 74 61 62 2d 77 |name wid|th tab-w|
|000004d0| 69 64 74 68 20 6f 6c 64 | 62 75 66 20 73 74 61 72 |idth old|buf star|
|000004e0| 74 20 65 6e 64 20 6c 70 | 72 2d 63 6f 6d 6d 61 6e |t end lp|r-comman|
|000004f0| 64 20 6e 69 6c 20 73 79 | 73 74 65 6d 2d 74 79 70 |d nil sy|stem-typ|
|00000500| 65 20 73 77 69 74 63 68 | 65 73 20 62 75 66 66 65 |e switch|es buffe|
|00000510| 72 2d 6e 61 6d 65 20 22 | 20 45 6d 61 63 73 20 62 |r-name "| Emacs b|
|00000520| 75 66 66 65 72 22 20 6d | 65 73 73 61 67 65 20 22 |uffer" m|essage "|
|00000530| 53 70 6f 6f 6c 69 6e 67 | 2e 2e 2e 22 20 2f 3d 20 |Spooling|..." /= |
|00000540| 38 20 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 |8 get-bu|ffer-cre|
|00000550| 61 74 65 20 22 20 2a 73 | 70 6f 6f 6c 20 74 65 6d |ate " *s|pool tem|
|00000560| 70 2a 22 20 77 69 64 65 | 6e 20 65 72 61 73 65 2d |p*" wide|n erase-|
|00000570| 62 75 66 66 65 72 20 69 | 6e 73 65 72 74 2d 62 75 |buffer i|nsert-bu|
|00000580| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 75 |ffer-sub|string u|
|00000590| 6e 74 61 62 69 66 79 20 | 61 70 70 6c 79 20 63 61 |ntabify |apply ca|
|000005a0| 6c 6c 2d 70 72 6f 63 65 | 73 73 2d 72 65 67 69 6f |ll-proce|ss-regio|
|000005b0| 6e 20 6e 63 6f 6e 63 20 | 6c 69 73 74 20 62 65 72 |n nconc |list ber|
|000005c0| 6b 65 6c 65 79 2d 75 6e | 69 78 20 22 2d 4a 22 20 |keley-un|ix "-J" |
|000005d0| 22 2d 54 22 20 22 53 70 | 6f 6f 6c 69 6e 67 2e 2e |"-T" "Sp|ooling..|
|000005e0| 2e 64 6f 6e 65 22 5d 20 | 31 38 29 29 0a          |.done"] |18)).   |
+--------+-------------------------+-------------------------+--------+--------+