home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 13.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 35 3a 31 | 32 20 31 39 39 35 0a 3b | 14:15:1|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 6a |/lisp/pa|ckages/j|
|00000090| 6b 61 2d 63 6f 6d 70 72 | 2e 65 6c 0a 3b 3b 3b 20 |ka-compr|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 64 65 66 76 61 72 20 6a | 6b 61 2d 63 6f 6d 70 72 |defvar j|ka-compr|
|00000200| 2d 73 68 65 6c 6c 20 22 | 73 68 22 20 22 5c 0a 2a |-shell "|sh" "\.*|
|00000210| 53 68 65 6c 6c 20 74 6f | 20 62 65 20 75 73 65 64 |Shell to| be used|
|00000220| 20 66 6f 72 20 63 61 6c | 6c 69 6e 67 20 63 6f 6d | for cal|ling com|
|00000230| 70 72 65 73 73 69 6f 6e | 20 70 72 6f 67 72 61 6d |pression| program|
|00000240| 73 2e 0a 54 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |s..The v|alue of |
|00000250| 74 68 69 73 20 76 61 72 | 69 61 62 6c 65 20 6f 6e |this var|iable on|
|00000260| 6c 79 20 6d 61 74 74 65 | 72 73 20 69 66 20 79 6f |ly matte|rs if yo|
|00000270| 75 20 77 61 6e 74 20 74 | 6f 20 64 69 73 63 61 72 |u want t|o discar|
|00000280| 64 20 74 68 65 0a 73 74 | 64 65 72 72 20 6f 66 20 |d the.st|derr of |
|00000290| 61 20 63 6f 6d 70 72 65 | 73 73 69 6f 6e 2f 64 65 |a compre|ssion/de|
|000002a0| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 20 70 72 6f 67 |compress|ion prog|
|000002b0| 72 61 6d 20 28 73 65 65 | 20 74 68 65 20 64 6f 63 |ram (see| the doc|
|000002c0| 75 6d 65 6e 74 61 74 69 | 6f 6e 0a 66 6f 72 20 60 |umentati|on.for `|
|000002d0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 63 6f 6d 70 72 65 |jka-comp|r-compre|
|000002e0| 73 73 69 6f 6e 2d 69 6e | 66 6f 2d 6c 69 73 74 27 |ssion-in|fo-list'|
|000002f0| 29 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |).").(by|te-code |
|00000300| 22 c0 c1 21 ac 82 c2 11 | c0 87 22 20 5b 62 6f 75 |"..!....|.." [bou|
|00000310| 6e 64 70 20 6a 6b 61 2d | 63 6f 6d 70 72 2d 75 73 |ndp jka-|compr-us|
|00000320| 65 2d 73 68 65 6c 6c 20 | 74 5d 20 32 29 0a 28 64 |e-shell |t] 2).(d|
|00000330| 65 66 76 61 72 20 6a 6b | 61 2d 63 6f 6d 70 72 2d |efvar jk|a-compr-|
|00000340| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 2d 69 6e 66 6f |compress|ion-info|
|00000350| 2d 6c 69 73 74 20 27 28 | 5b 22 5c 5c 2e 5a 5c 5c |-list '(|["\\.Z\\|
|00000360| 28 7e 5c 5c 7c 5c 5c 2e | 7e 5b 30 2d 39 5d 2b 7e |(~\\|\\.|~[0-9]+~|
|00000370| 5c 5c 29 3f 5c 5c 27 22 | 20 22 63 6f 6d 70 72 65 |\\)?\\'"| "compre|
|00000380| 73 73 69 6e 67 22 20 22 | 63 6f 6d 70 72 65 73 73 |ssing" "|compress|
|00000390| 22 20 28 22 2d 63 22 29 | 20 22 75 6e 63 6f 6d 70 |" ("-c")| "uncomp|
|000003a0| 72 65 73 73 69 6e 67 22 | 20 22 75 6e 63 6f 6d 70 |ressing"| "uncomp|
|000003b0| 72 65 73 73 22 20 28 22 | 2d 63 22 29 20 6e 69 6c |ress" ("|-c") nil|
|000003c0| 20 74 5d 20 5b 22 5c 5c | 2e 74 67 7a 5c 5c 27 22 | t] ["\\|.tgz\\'"|
|000003d0| 20 22 7a 69 70 70 69 6e | 67 22 20 22 67 7a 69 70 | "zippin|g" "gzip|
|000003e0| 22 20 28 22 2d 63 22 20 | 22 2d 71 22 29 20 22 75 |" ("-c" |"-q") "u|
|000003f0| 6e 7a 69 70 70 69 6e 67 | 22 20 22 67 7a 69 70 22 |nzipping|" "gzip"|
|00000400| 20 28 22 2d 63 22 20 22 | 2d 71 22 20 22 2d 64 22 | ("-c" "|-q" "-d"|
|00000410| 29 20 74 20 6e 69 6c 5d | 20 5b 22 5c 5c 2e 67 7a |) t nil]| ["\\.gz|
|00000420| 5c 5c 28 7e 5c 5c 7c 5c | 5c 2e 7e 5b 30 2d 39 5d |\\(~\\|\|\.~[0-9]|
|00000430| 2b 7e 5c 5c 29 3f 5c 5c | 27 22 20 22 7a 69 70 70 |+~\\)?\\|'" "zipp|
|00000440| 69 6e 67 22 20 22 67 7a | 69 70 22 20 28 22 2d 63 |ing" "gz|ip" ("-c|
|00000450| 22 20 22 2d 71 22 29 20 | 22 75 6e 7a 69 70 70 69 |" "-q") |"unzippi|
|00000460| 6e 67 22 20 22 67 7a 69 | 70 22 20 28 22 2d 63 22 |ng" "gzi|p" ("-c"|
|00000470| 20 22 2d 71 22 20 22 2d | 64 22 29 20 74 20 74 5d | "-q" "-|d") t t]|
|00000480| 29 20 22 5c 0a 4c 69 73 | 74 20 6f 66 20 76 65 63 |) "\.Lis|t of vec|
|00000490| 74 6f 72 73 20 74 68 61 | 74 20 64 65 73 63 72 69 |tors tha|t descri|
|000004a0| 62 65 20 61 76 61 69 6c | 61 62 6c 65 20 63 6f 6d |be avail|able com|
|000004b0| 70 72 65 73 73 69 6f 6e | 20 74 65 63 68 6e 69 71 |pression| techniq|
|000004c0| 75 65 73 2e 0a 45 61 63 | 68 20 65 6c 65 6d 65 6e |ues..Eac|h elemen|
|000004d0| 74 2c 20 77 68 69 63 68 | 20 64 65 73 63 72 69 62 |t, which| describ|
|000004e0| 65 73 20 61 20 63 6f 6d | 70 72 65 73 73 69 6f 6e |es a com|pression|
|000004f0| 20 74 65 63 68 6e 69 71 | 75 65 2c 20 69 73 20 61 | techniq|ue, is a|
|00000500| 20 76 65 63 74 6f 72 20 | 6f 66 0a 74 68 65 20 66 | vector |of.the f|
|00000510| 6f 72 6d 20 5b 52 45 47 | 45 58 50 20 43 4f 4d 50 |orm [REG|EXP COMP|
|00000520| 52 45 53 53 2d 4d 53 47 | 20 43 4f 4d 50 52 45 53 |RESS-MSG| COMPRES|
|00000530| 53 2d 50 52 4f 47 52 41 | 4d 20 43 4f 4d 50 52 45 |S-PROGRA|M COMPRE|
|00000540| 53 53 2d 41 52 47 53 0a | 55 4e 43 4f 4d 50 52 45 |SS-ARGS.|UNCOMPRE|
|00000550| 53 53 2d 4d 53 47 20 55 | 4e 43 4f 4d 50 52 45 53 |SS-MSG U|NCOMPRES|
|00000560| 53 2d 50 52 4f 47 52 41 | 4d 20 55 4e 43 4f 4d 50 |S-PROGRA|M UNCOMP|
|00000570| 52 45 53 53 2d 41 52 47 | 53 0a 41 50 50 45 4e 44 |RESS-ARG|S.APPEND|
|00000580| 2d 46 4c 41 47 20 45 58 | 54 45 4e 53 49 4f 4e 5d |-FLAG EX|TENSION]|
|00000590| 2c 20 77 68 65 72 65 3a | 0a 0a 20 20 20 72 65 67 |, where:|.. reg|
|000005a0| 65 78 70 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |exp | |
|000005b0| 20 20 20 69 73 20 61 20 | 72 65 67 65 78 70 20 74 | is a |regexp t|
|000005c0| 68 61 74 20 6d 61 74 63 | 68 65 73 20 66 69 6c 65 |hat matc|hes file|
|000005d0| 6e 61 6d 65 73 20 74 68 | 61 74 20 61 72 65 0a 20 |names th|at are. |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005f0| 20 20 20 20 20 20 20 20 | 63 6f 6d 70 72 65 73 73 | |compress|
|00000600| 65 64 20 77 69 74 68 20 | 74 68 69 73 20 66 6f 72 |ed with |this for|
|00000610| 6d 61 74 0a 0a 20 20 20 | 63 6f 6d 70 72 65 73 73 |mat.. |compress|
|00000620| 2d 6d 73 67 20 20 20 20 | 20 20 20 20 20 20 69 73 |-msg | is|
|00000630| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 74 6f 20 | the mes|sage to |
|00000640| 69 73 73 75 65 20 74 6f | 20 74 68 65 20 75 73 65 |issue to| the use|
|00000650| 72 20 77 68 65 6e 20 64 | 6f 69 6e 67 20 74 68 69 |r when d|oing thi|
|00000660| 73 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s. | |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 74 79 70 65 20 | | type |
|00000680| 6f 66 20 63 6f 6d 70 72 | 65 73 73 69 6f 6e 20 28 |of compr|ession (|
|00000690| 6e 69 6c 20 6d 65 61 6e | 73 20 6e 6f 20 6d 65 73 |nil mean|s no mes|
|000006a0| 73 61 67 65 29 0a 0a 20 | 20 20 63 6f 6d 70 72 65 |sage).. | compre|
|000006b0| 73 73 2d 70 72 6f 67 72 | 61 6d 20 20 20 20 20 20 |ss-progr|am |
|000006c0| 69 73 20 61 20 70 72 6f | 67 72 61 6d 20 74 68 61 |is a pro|gram tha|
|000006d0| 74 20 70 65 72 66 6f 72 | 6d 73 20 74 68 69 73 20 |t perfor|ms this |
|000006e0| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 0a 0a 20 20 20 |compress|ion.. |
|000006f0| 63 6f 6d 70 72 65 73 73 | 2d 61 72 67 73 20 20 20 |compress|-args |
|00000700| 20 20 20 20 20 20 69 73 | 20 61 20 6c 69 73 74 20 | is| a list |
|00000710| 6f 66 20 61 72 67 73 20 | 74 6f 20 70 61 73 73 20 |of args |to pass |
|00000720| 74 6f 20 74 68 65 20 63 | 6f 6d 70 72 65 73 73 20 |to the c|ompress |
|00000730| 70 72 6f 67 72 61 6d 0a | 0a 20 20 20 75 6e 63 6f |program.|. unco|
|00000740| 6d 70 72 65 73 73 2d 6d | 73 67 20 20 20 20 20 20 |mpress-m|sg |
|00000750| 20 20 69 73 20 74 68 65 | 20 6d 65 73 73 61 67 65 | is the| message|
|00000760| 20 74 6f 20 69 73 73 75 | 65 20 74 6f 20 74 68 65 | to issu|e to the|
|00000770| 20 75 73 65 72 20 77 68 | 65 6e 20 64 6f 69 6e 67 | user wh|en doing|
|00000780| 20 74 68 69 73 0a 20 20 | 20 20 20 20 20 20 20 20 | this. | |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 74 | | t|
|000007a0| 79 70 65 20 6f 66 20 75 | 6e 63 6f 6d 70 72 65 73 |ype of u|ncompres|
|000007b0| 73 69 6f 6e 20 28 6e 69 | 6c 20 6d 65 61 6e 73 20 |sion (ni|l means |
|000007c0| 6e 6f 20 6d 65 73 73 61 | 67 65 29 0a 0a 20 20 20 |no messa|ge).. |
|000007d0| 75 6e 63 6f 6d 70 72 65 | 73 73 2d 70 72 6f 67 72 |uncompre|ss-progr|
|000007e0| 61 6d 20 20 20 20 69 73 | 20 61 20 70 72 6f 67 72 |am is| a progr|
|000007f0| 61 6d 20 74 68 61 74 20 | 70 65 72 66 6f 72 6d 73 |am that |performs|
|00000800| 20 74 68 69 73 20 63 6f | 6d 70 72 65 73 73 69 6f | this co|mpressio|
|00000810| 6e 0a 0a 20 20 20 75 6e | 63 6f 6d 70 72 65 73 73 |n.. un|compress|
|00000820| 2d 61 72 67 73 20 20 20 | 20 20 20 20 69 73 20 61 |-args | is a|
|00000830| 20 6c 69 73 74 20 6f 66 | 20 61 72 67 73 20 74 6f | list of| args to|
|00000840| 20 70 61 73 73 20 74 6f | 20 74 68 65 20 75 6e 63 | pass to| the unc|
|00000850| 6f 6d 70 72 65 73 73 20 | 70 72 6f 67 72 61 6d 0a |ompress |program.|
|00000860| 0a 20 20 20 61 70 70 65 | 6e 64 2d 66 6c 61 67 20 |. appe|nd-flag |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 69 73 20 6e 6f 6e | | is non|
|00000880| 2d 6e 69 6c 20 69 66 20 | 74 68 69 73 20 63 6f 6d |-nil if |this com|
|00000890| 70 72 65 73 73 69 6f 6e | 20 74 65 63 68 6e 69 71 |pression| techniq|
|000008a0| 75 65 20 63 61 6e 20 62 | 65 0a 20 20 20 20 20 20 |ue can b|e. |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008c0| 20 20 20 61 70 70 65 6e | 64 65 64 0a 0a 20 20 20 | appen|ded.. |
|000008d0| 61 75 74 6f 2d 6d 6f 64 | 65 20 66 6c 61 67 20 20 |auto-mod|e flag |
|000008e0| 20 20 20 20 20 20 6e 6f | 6e 2d 6e 69 6c 20 6d 65 | no|n-nil me|
|000008f0| 61 6e 73 20 73 74 72 69 | 70 20 74 68 65 20 72 65 |ans stri|p the re|
|00000900| 67 65 78 70 20 66 72 6f | 6d 20 66 69 6c 65 20 6e |gexp fro|m file n|
|00000910| 61 6d 65 73 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ames. | |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 62 65 | | be|
|00000930| 66 6f 72 65 20 61 74 74 | 65 6d 70 74 69 6e 67 20 |fore att|empting |
|00000940| 74 6f 20 73 65 74 20 74 | 68 65 20 6d 6f 64 65 2e |to set t|he mode.|
|00000950| 0a 0a 42 65 63 61 75 73 | 65 20 6f 66 20 74 68 65 |..Becaus|e of the|
|00000960| 20 77 61 79 20 60 63 61 | 6c 6c 2d 70 72 6f 63 65 | way `ca|ll-proce|
|00000970| 73 73 27 20 69 73 20 64 | 65 66 69 6e 65 64 2c 20 |ss' is d|efined, |
|00000980| 64 69 73 63 61 72 64 69 | 6e 67 20 74 68 65 20 73 |discardi|ng the s|
|00000990| 74 64 65 72 72 20 6f 75 | 74 70 75 74 20 6f 66 0a |tderr ou|tput of.|
|000009a0| 61 20 70 72 6f 67 72 61 | 6d 20 61 64 64 73 20 74 |a progra|m adds t|
|000009b0| 68 65 20 6f 76 65 72 68 | 65 61 64 20 6f 66 20 73 |he overh|ead of s|
|000009c0| 74 61 72 74 69 6e 67 20 | 61 20 73 68 65 6c 6c 20 |tarting |a shell |
|000009d0| 65 61 63 68 20 74 69 6d | 65 20 74 68 65 20 70 72 |each tim|e the pr|
|000009e0| 6f 67 72 61 6d 20 69 73 | 0a 69 6e 76 6f 6b 65 64 |ogram is|.invoked|
|000009f0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 6a 6b 61 2d |.").(def|var jka-|
|00000a00| 63 6f 6d 70 72 2d 6d 6f | 64 65 2d 61 6c 69 73 74 |compr-mo|de-alist|
|00000a10| 2d 61 64 64 69 74 69 6f | 6e 73 20 28 62 79 74 65 |-additio|ns (byte|
|00000a20| 2d 63 6f 64 65 20 22 c0 | c1 42 43 87 22 20 5b 22 |-code ".|.BC." ["|
|00000a30| 5c 5c 2e 74 67 7a 5c 5c | 27 22 20 74 61 72 2d 6d |\\.tgz\\|'" tar-m|
|00000a40| 6f 64 65 5d 20 32 29 20 | 22 5c 0a 41 20 6c 69 73 |ode] 2) |"\.A lis|
|00000a50| 74 20 6f 66 20 70 61 69 | 72 73 20 74 6f 20 61 64 |t of pai|rs to ad|
|00000a60| 64 20 74 6f 20 61 75 74 | 6f 2d 6d 6f 64 65 2d 61 |d to aut|o-mode-a|
|00000a70| 6c 69 73 74 20 77 68 65 | 6e 20 6a 6b 61 2d 63 6f |list whe|n jka-co|
|00000a80| 6d 70 72 20 69 73 20 69 | 6e 73 74 61 6c 6c 65 64 |mpr is i|nstalled|
|00000a90| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 6a 6b 61 2d |.").(def|var jka-|
|00000aa0| 63 6f 6d 70 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |compr-fi|le-name-|
|00000ab0| 68 61 6e 64 6c 65 72 2d | 65 6e 74 72 79 20 6e 69 |handler-|entry ni|
|00000ac0| 6c 20 22 5c 0a 54 68 65 | 20 65 6e 74 72 79 20 69 |l "\.The| entry i|
|00000ad0| 6e 20 60 66 69 6c 65 2d | 6e 61 6d 65 2d 68 61 6e |n `file-|name-han|
|00000ae0| 64 6c 65 72 2d 61 6c 69 | 73 74 27 20 75 73 65 64 |dler-ali|st' used|
|00000af0| 20 62 79 20 74 68 65 20 | 6a 6b 61 2d 63 6f 6d 70 | by the |jka-comp|
|00000b00| 72 20 49 2f 4f 20 66 75 | 6e 63 74 69 6f 6e 73 2e |r I/O fu|nctions.|
|00000b10| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|00000b20| c1 4d 88 c2 c3 4d 88 c4 | c5 4d 88 c6 c7 4d 88 c8 |.M...M..|.M...M..|
|00000b30| c9 4d 88 ca cb 4d 88 cc | cd 4d 88 ce cf 4d 88 d0 |.M...M..|.M...M..|
|00000b40| d1 4d 87 22 20 5b 6a 6b | 61 2d 63 6f 6d 70 72 2d |.M." [jk|a-compr-|
|00000b50| 69 6e 66 6f 2d 72 65 67 | 65 78 70 20 23 5b 28 69 |info-reg|exp #[(i|
|00000b60| 6e 66 6f 29 20 22 08 c1 | 48 87 22 20 5b 69 6e 66 |nfo) "..|H." [inf|
|00000b70| 6f 20 30 5d 20 32 5d 20 | 6a 6b 61 2d 63 6f 6d 70 |o 0] 2] |jka-comp|
|00000b80| 72 2d 69 6e 66 6f 2d 63 | 6f 6d 70 72 65 73 73 2d |r-info-c|ompress-|
|00000b90| 6d 65 73 73 61 67 65 20 | 23 5b 28 69 6e 66 6f 29 |message |#[(info)|
|00000ba0| 20 22 08 c1 48 87 22 20 | 5b 69 6e 66 6f 20 31 5d | "..H." |[info 1]|
|00000bb0| 20 32 5d 20 6a 6b 61 2d | 63 6f 6d 70 72 2d 69 6e | 2] jka-|compr-in|
|00000bc0| 66 6f 2d 63 6f 6d 70 72 | 65 73 73 2d 70 72 6f 67 |fo-compr|ess-prog|
|00000bd0| 72 61 6d 20 23 5b 28 69 | 6e 66 6f 29 20 22 08 c1 |ram #[(i|nfo) "..|
|00000be0| 48 87 22 20 5b 69 6e 66 | 6f 20 32 5d 20 32 5d 20 |H." [inf|o 2] 2] |
|00000bf0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 69 6e 66 6f 2d 63 |jka-comp|r-info-c|
|00000c00| 6f 6d 70 72 65 73 73 2d | 61 72 67 73 20 23 5b 28 |ompress-|args #[(|
|00000c10| 69 6e 66 6f 29 20 22 08 | c1 48 87 22 20 5b 69 6e |info) ".|.H." [in|
|00000c20| 66 6f 20 33 5d 20 32 5d | 20 6a 6b 61 2d 63 6f 6d |fo 3] 2]| jka-com|
|00000c30| 70 72 2d 69 6e 66 6f 2d | 75 6e 63 6f 6d 70 72 65 |pr-info-|uncompre|
|00000c40| 73 73 2d 6d 65 73 73 61 | 67 65 20 23 5b 28 69 6e |ss-messa|ge #[(in|
|00000c50| 66 6f 29 20 22 08 c1 48 | 87 22 20 5b 69 6e 66 6f |fo) "..H|." [info|
|00000c60| 20 34 5d 20 32 5d 20 6a | 6b 61 2d 63 6f 6d 70 72 | 4] 2] j|ka-compr|
|00000c70| 2d 69 6e 66 6f 2d 75 6e | 63 6f 6d 70 72 65 73 73 |-info-un|compress|
|00000c80| 2d 70 72 6f 67 72 61 6d | 20 23 5b 28 69 6e 66 6f |-program| #[(info|
|00000c90| 29 20 22 08 c1 48 87 22 | 20 5b 69 6e 66 6f 20 35 |) "..H."| [info 5|
|00000ca0| 5d 20 32 5d 20 6a 6b 61 | 2d 63 6f 6d 70 72 2d 69 |] 2] jka|-compr-i|
|00000cb0| 6e 66 6f 2d 75 6e 63 6f | 6d 70 72 65 73 73 2d 61 |nfo-unco|mpress-a|
|00000cc0| 72 67 73 20 23 5b 28 69 | 6e 66 6f 29 20 22 08 c1 |rgs #[(i|nfo) "..|
|00000cd0| 48 87 22 20 5b 69 6e 66 | 6f 20 36 5d 20 32 5d 20 |H." [inf|o 6] 2] |
|00000ce0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 69 6e 66 6f 2d 63 |jka-comp|r-info-c|
|00000cf0| 61 6e 2d 61 70 70 65 6e | 64 20 23 5b 28 69 6e 66 |an-appen|d #[(inf|
|00000d00| 6f 29 20 22 08 c1 48 87 | 22 20 5b 69 6e 66 6f 20 |o) "..H.|" [info |
|00000d10| 37 5d 20 32 5d 20 6a 6b | 61 2d 63 6f 6d 70 72 2d |7] 2] jk|a-compr-|
|00000d20| 69 6e 66 6f 2d 73 74 72 | 69 70 2d 65 78 74 65 6e |info-str|ip-exten|
|00000d30| 73 69 6f 6e 20 23 5b 28 | 69 6e 66 6f 29 20 22 08 |sion #[(|info) ".|
|00000d40| c1 48 87 22 20 5b 69 6e | 66 6f 20 38 5d 20 32 5d |.H." [in|fo 8] 2]|
|00000d50| 5d 20 32 29 0a 28 66 73 | 65 74 20 27 6a 6b 61 2d |] 2).(fs|et 'jka-|
|00000d60| 63 6f 6d 70 72 2d 67 65 | 74 2d 63 6f 6d 70 72 65 |compr-ge|t-compre|
|00000d70| 73 73 69 6f 6e 2d 69 6e | 66 6f 20 23 5b 28 66 69 |ssion-in|fo #[(fi|
|00000d80| 6c 65 6e 61 6d 65 29 20 | 22 c0 c1 8d 87 22 20 5b |lename) |"...." [|
|00000d90| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 2d 69 6e 66 6f |compress|ion-info|
|00000da0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 19 c2 | (byte-c|ode "...|
|00000db0| c3 0c 5c 22 88 29 c0 87 | 22 20 5b 6e 69 6c 20 63 |..\".)..|" [nil c|
|00000dc0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00000dd0| 6d 61 70 63 61 72 20 23 | 5b 28 78 29 20 22 c0 c1 |mapcar #|[(x) "..|
|00000de0| 5c 6e 21 0b 5c 22 ad 84 | c4 c5 5c 6e 5c 22 87 22 |\n!.\"..|..\n\"."|
|00000df0| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 6a | [string|-match j|
|00000e00| 6b 61 2d 63 6f 6d 70 72 | 2d 69 6e 66 6f 2d 72 65 |ka-compr|-info-re|
|00000e10| 67 65 78 70 20 78 20 66 | 69 6c 65 6e 61 6d 65 20 |gexp x f|ilename |
|00000e20| 74 68 72 6f 77 20 63 6f | 6d 70 72 65 73 73 69 6f |throw co|mpressio|
|00000e30| 6e 2d 69 6e 66 6f 5d 20 | 33 5d 20 6a 6b 61 2d 63 |n-info] |3] jka-c|
|00000e40| 6f 6d 70 72 2d 63 6f 6d | 70 72 65 73 73 69 6f 6e |ompr-com|pression|
|00000e50| 2d 69 6e 66 6f 2d 6c 69 | 73 74 5d 20 33 29 5d 20 |-info-li|st] 3)] |
|00000e60| 32 20 22 5c 0a 52 65 74 | 75 72 6e 20 69 6e 66 6f |2 "\.Ret|urn info|
|00000e70| 72 6d 61 74 69 6f 6e 20 | 61 62 6f 75 74 20 74 68 |rmation |about th|
|00000e80| 65 20 63 6f 6d 70 72 65 | 73 73 69 6f 6e 20 73 63 |e compre|ssion sc|
|00000e90| 68 65 6d 65 20 6f 66 20 | 46 49 4c 45 4e 41 4d 45 |heme of |FILENAME|
|00000ea0| 2e 0a 54 68 65 20 64 65 | 74 65 72 6d 69 6e 61 74 |..The de|terminat|
|00000eb0| 69 6f 6e 20 61 73 20 74 | 6f 20 77 68 69 63 68 20 |ion as t|o which |
|00000ec0| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 20 73 63 68 65 |compress|ion sche|
|00000ed0| 6d 65 2c 20 69 66 20 61 | 6e 79 2c 20 74 6f 20 75 |me, if a|ny, to u|
|00000ee0| 73 65 20 69 73 0a 62 61 | 73 65 64 20 6f 6e 20 74 |se is.ba|sed on t|
|00000ef0| 68 65 20 66 69 6c 65 6e | 61 6d 65 20 69 74 73 65 |he filen|ame itse|
|00000f00| 6c 66 20 61 6e 64 20 60 | 6a 6b 61 2d 63 6f 6d 70 |lf and `|jka-comp|
|00000f10| 72 2d 63 6f 6d 70 72 65 | 73 73 69 6f 6e 2d 69 6e |r-compre|ssion-in|
|00000f20| 66 6f 2d 6c 69 73 74 27 | 2e 22 5d 29 0a 28 62 79 |fo-list'|."]).(by|
|00000f30| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 23 88 c4 |te-code |"....#..|
|00000f40| c5 21 ac 82 c6 15 c7 c8 | 4d 88 c4 c9 21 ac 83 ca |.!......|M...!...|
|00000f50| 16 09 c4 cb 21 ac 83 cc | 16 0b c0 87 22 20 5b 70 |....!...|...." [p|
|00000f60| 75 74 20 63 6f 6d 70 72 | 65 73 73 69 6f 6e 2d 65 |ut compr|ession-e|
|00000f70| 72 72 6f 72 20 65 72 72 | 6f 72 2d 63 6f 6e 64 69 |rror err|or-condi|
|00000f80| 74 69 6f 6e 73 20 28 63 | 6f 6d 70 72 65 73 73 69 |tions (c|ompressi|
|00000f90| 6f 6e 2d 65 72 72 6f 72 | 20 66 69 6c 65 2d 65 72 |on-error| file-er|
|00000fa0| 72 6f 72 20 65 72 72 6f | 72 29 20 62 6f 75 6e 64 |ror erro|r) bound|
|00000fb0| 70 20 6a 6b 61 2d 63 6f | 6d 70 72 2d 61 63 63 65 |p jka-co|mpr-acce|
|00000fc0| 70 74 61 62 6c 65 2d 72 | 65 74 76 61 6c 2d 6c 69 |ptable-r|etval-li|
|00000fd0| 73 74 20 28 30 20 32 20 | 31 34 31 29 20 6a 6b 61 |st (0 2 |141) jka|
|00000fe0| 2d 63 6f 6d 70 72 2d 65 | 72 72 6f 72 20 23 5b 28 |-compr-e|rror #[(|
|00000ff0| 70 72 6f 67 20 61 72 67 | 73 20 69 6e 66 69 6c 65 |prog arg|s infile|
|00001000| 20 6d 65 73 73 61 67 65 | 20 26 6f 70 74 69 6f 6e | message| &option|
|00001010| 61 6c 20 65 72 72 66 69 | 6c 65 29 20 22 c0 c1 21 |al errfi|le) "..!|
|00001020| 70 1a 89 1b 71 88 7e 88 | c4 20 88 c5 c6 0e 07 c8 |p...q.~.|. ......|
|00001030| c9 0e 5c 6e cb 23 0e 0c | 24 63 88 0e 0d ab 85 ce |..\n.#..|$c......|
|00001040| 0e 0d 21 88 5c 6e 71 88 | cf 0b 21 88 2a d0 d1 d2 |..!.\nq.|..!.*...|
|00001050| c5 d3 0e 14 5c 22 0e 0c | 45 5c 22 87 22 20 5b 67 |....\"..|E\"." [g|
|00001060| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00001070| 20 22 20 2a 6a 6b 61 2d | 63 6f 6d 70 72 2d 65 72 | " *jka-|compr-er|
|00001080| 72 6f 72 2a 22 20 63 75 | 72 62 75 66 20 65 72 72 |ror*" cu|rbuf err|
|00001090| 62 75 66 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |buf eras|e-buffer|
|000010a0| 20 66 6f 72 6d 61 74 20 | 22 45 72 72 6f 72 20 77 | format |"Error w|
|000010b0| 68 69 6c 65 20 65 78 65 | 63 75 74 69 6e 67 20 5c |hile exe|cuting \|
|000010c0| 22 25 73 20 25 73 20 3c | 20 25 73 5c 22 5c 6e 5c |"%s %s <| %s\"\n\|
|000010d0| 6e 22 20 70 72 6f 67 20 | 6d 61 70 63 6f 6e 63 61 |n" prog |mapconca|
|000010e0| 74 20 69 64 65 6e 74 69 | 74 79 20 61 72 67 73 20 |t identi|ty args |
|000010f0| 22 20 22 20 69 6e 66 69 | 6c 65 20 65 72 72 66 69 |" " infi|le errfi|
|00001100| 6c 65 20 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 |le inser|t-file-c|
|00001110| 6f 6e 74 65 6e 74 73 20 | 64 69 73 70 6c 61 79 2d |ontents |display-|
|00001120| 62 75 66 66 65 72 20 73 | 69 67 6e 61 6c 20 63 6f |buffer s|ignal co|
|00001130| 6d 70 72 65 73 73 69 6f | 6e 2d 65 72 72 6f 72 20 |mpressio|n-error |
|00001140| 22 4f 70 65 6e 69 6e 67 | 20 69 6e 70 75 74 20 66 |"Opening| input f|
|00001150| 69 6c 65 22 20 22 65 72 | 72 6f 72 20 25 73 22 20 |ile" "er|ror %s" |
|00001160| 6d 65 73 73 61 67 65 5d | 20 38 5d 20 6a 6b 61 2d |message]| 8] jka-|
|00001170| 63 6f 6d 70 72 2d 64 64 | 2d 70 72 6f 67 72 61 6d |compr-dd|-program|
|00001180| 20 22 2f 62 69 6e 2f 64 | 64 22 20 6a 6b 61 2d 63 | "/bin/d|d" jka-c|
|00001190| 6f 6d 70 72 2d 64 64 2d | 62 6c 6f 63 6b 73 69 7a |ompr-dd-|blocksiz|
|000011a0| 65 20 32 35 36 5d 20 34 | 29 0a 28 66 73 65 74 20 |e 256] 4|).(fset |
|000011b0| 27 6a 6b 61 2d 63 6f 6d | 70 72 2d 70 61 72 74 69 |'jka-com|pr-parti|
|000011c0| 61 6c 2d 75 6e 63 6f 6d | 70 72 65 73 73 20 23 5b |al-uncom|press #[|
|000011d0| 28 70 72 6f 67 20 6d 65 | 73 73 61 67 65 20 61 72 |(prog me|ssage ar|
|000011e0| 67 73 20 69 6e 66 69 6c | 65 20 62 65 67 20 6c 65 |gs infil|e beg le|
|000011f0| 6e 29 20 22 08 09 a5 1a | 08 5c 6e 09 5f 5a 1b 0c |n) "....|.\n._Z..|
|00001200| ad 86 0c 0b 5c 5c 09 a5 | 54 1d 60 1e 06 c7 20 1e |....\\..|T.`... .|
|00001210| 08 c9 ca 0e 0b cc cd 0e | 0e cf 23 0e 08 0e 10 09 |........|..#.....|
|00001220| 5c 6e 0d ab 86 d1 0d 54 | 50 aa 81 d2 26 08 1e 13 |\n.....T|P...&...|
|00001230| d4 8e d5 0e 16 0e 17 d8 | d9 da 0e 13 26 06 0e 1b |........|....&...|
|00001240| 3e ac 8d dc 0e 0b 0e 0e | 0e 17 0e 1d 0e 08 25 88 |>.......|......%.|
|00001250| 29 0c ab 93 0e 06 0b 0c | 5c 5c 5c 5c 60 57 ab 89 |).......|\\\\`W..|
|00001260| 0e 06 0b 0c 5c 5c 5c 5c | 60 7c 88 0e 06 89 0b 5c |....\\\\|`|.....\|
|00001270| 5c 7c 2e 06 87 22 20 5b | 62 65 67 20 6a 6b 61 2d |\|..." [|beg jka-|
|00001280| 63 6f 6d 70 72 2d 64 64 | 2d 62 6c 6f 63 6b 73 69 |compr-dd|-blocksi|
|00001290| 7a 65 20 73 6b 69 70 20 | 70 72 65 66 69 78 20 6c |ze skip |prefix l|
|000012a0| 65 6e 20 63 6f 75 6e 74 | 20 73 74 61 72 74 20 6a |en count| start j|
|000012b0| 6b 61 2d 63 6f 6d 70 72 | 2d 6d 61 6b 65 2d 74 65 |ka-compr|-make-te|
|000012c0| 6d 70 2d 6e 61 6d 65 20 | 65 72 72 2d 66 69 6c 65 |mp-name |err-file|
|000012d0| 20 66 6f 72 6d 61 74 20 | 22 25 73 20 25 73 20 32 | format |"%s %s 2|
|000012e0| 3e 20 25 73 20 7c 20 25 | 73 20 62 73 3d 25 64 20 |> %s | %|s bs=%d |
|000012f0| 73 6b 69 70 3d 25 64 20 | 25 73 20 32 3e 20 2f 64 |skip=%d |%s 2> /d|
|00001300| 65 76 2f 6e 75 6c 6c 22 | 20 70 72 6f 67 20 6d 61 |ev/null"| prog ma|
|00001310| 70 63 6f 6e 63 61 74 20 | 69 64 65 6e 74 69 74 79 |pconcat |identity|
|00001320| 20 61 72 67 73 20 22 20 | 22 20 6a 6b 61 2d 63 6f | args " |" jka-co|
|00001330| 6d 70 72 2d 64 64 2d 70 | 72 6f 67 72 61 6d 20 22 |mpr-dd-p|rogram "|
|00001340| 63 6f 75 6e 74 3d 22 20 | 22 22 20 72 75 6e 2d 73 |count=" |"" run-s|
|00001350| 74 72 69 6e 67 20 28 28 | 6a 6b 61 2d 63 6f 6d 70 |tring ((|jka-comp|
|00001360| 72 2d 64 65 6c 65 74 65 | 2d 74 65 6d 70 2d 66 69 |r-delete|-temp-fi|
|00001370| 6c 65 20 65 72 72 2d 66 | 69 6c 65 29 29 20 63 61 |le err-f|ile)) ca|
|00001380| 6c 6c 2d 70 72 6f 63 65 | 73 73 20 6a 6b 61 2d 63 |ll-proce|ss jka-c|
|00001390| 6f 6d 70 72 2d 73 68 65 | 6c 6c 20 69 6e 66 69 6c |ompr-she|ll infil|
|000013a0| 65 20 74 20 6e 69 6c 20 | 22 2d 63 22 20 6a 6b 61 |e t nil |"-c" jka|
|000013b0| 2d 63 6f 6d 70 72 2d 61 | 63 63 65 70 74 61 62 6c |-compr-a|cceptabl|
|000013c0| 65 2d 72 65 74 76 61 6c | 2d 6c 69 73 74 20 6a 6b |e-retval|-list jk|
|000013d0| 61 2d 63 6f 6d 70 72 2d | 65 72 72 6f 72 20 6d 65 |a-compr-|error me|
|000013e0| 73 73 61 67 65 5d 20 31 | 30 20 22 5c 0a 43 61 6c |ssage] 1|0 "\.Cal|
|000013f0| 6c 20 70 72 6f 67 72 61 | 6d 20 50 52 4f 47 20 77 |l progra|m PROG w|
|00001400| 69 74 68 20 41 52 47 53 | 20 61 72 67 73 20 74 61 |ith ARGS| args ta|
|00001410| 6b 69 6e 67 20 69 6e 70 | 75 74 20 66 72 6f 6d 20 |king inp|ut from |
|00001420| 49 4e 46 49 4c 45 2e 0a | 46 6f 75 72 74 68 20 61 |INFILE..|Fourth a|
|00001430| 6e 64 20 66 69 66 74 68 | 20 61 72 67 73 2c 20 42 |nd fifth| args, B|
|00001440| 45 47 20 61 6e 64 20 4c | 45 4e 2c 20 73 70 65 63 |EG and L|EN, spec|
|00001450| 69 66 79 20 77 68 69 63 | 68 20 70 61 72 74 20 6f |ify whic|h part o|
|00001460| 66 20 74 68 65 20 6f 75 | 74 70 75 74 0a 74 6f 20 |f the ou|tput.to |
|00001470| 6b 65 65 70 3a 20 4c 45 | 4e 20 63 68 61 72 73 20 |keep: LE|N chars |
|00001480| 73 74 61 72 74 69 6e 67 | 20 42 45 47 20 63 68 61 |starting| BEG cha|
|00001490| 72 73 20 66 72 6f 6d 20 | 74 68 65 20 62 65 67 69 |rs from |the begi|
|000014a0| 6e 6e 69 6e 67 2e 22 5d | 29 0a 28 66 73 65 74 20 |nning."]|).(fset |
|000014b0| 27 6a 6b 61 2d 63 6f 6d | 70 72 2d 63 61 6c 6c 2d |'jka-com|pr-call-|
|000014c0| 70 72 6f 63 65 73 73 20 | 23 5b 28 70 72 6f 67 20 |process |#[(prog |
|000014d0| 6d 65 73 73 61 67 65 20 | 69 6e 66 69 6c 65 20 6f |message |infile o|
|000014e0| 75 74 70 75 74 20 74 65 | 6d 70 20 61 72 67 73 29 |utput te|mp args)|
|000014f0| 20 22 08 ab bf c1 20 1a | c3 8e c4 0d 0e 06 0e 07 | ".... .|........|
|00001500| 3b 3f ad 82 0e 07 c8 c9 | ca cb 0e 0c cd ce 0e 0f |;?......|........|
|00001510| d0 23 5c 6e 0e 07 3b ab | 86 d1 0e 07 50 aa 81 d2 |.#\n..;.|....P...|
|00001520| 25 26 06 0e 13 3e ae 8b | d4 0e 0c 0e 0f 0e 06 0e |%&...>..|........|
|00001530| 15 5c 6e 25 2a 87 d6 d7 | c4 0e 0c 0e 06 0e 07 3b |.\n%*...|.......;|
|00001540| ab 84 0e 18 aa 82 0e 07 | c8 0e 0f 26 06 21 ac 8b |........|...&.!..|
|00001550| d4 0e 0c 0e 0f 0e 06 0e | 15 24 88 0e 07 3b ad 95 |........|.$...;..|
|00001560| 70 1e 19 0e 18 71 88 da | 65 64 0e 07 23 88 db 20 |p....q..|ed..#.. |
|00001570| 88 0e 19 71 29 87 22 20 | 5b 6a 6b 61 2d 63 6f 6d |...q)." |[jka-com|
|00001580| 70 72 2d 75 73 65 2d 73 | 68 65 6c 6c 20 6a 6b 61 |pr-use-s|hell jka|
|00001590| 2d 63 6f 6d 70 72 2d 6d | 61 6b 65 2d 74 65 6d 70 |-compr-m|ake-temp|
|000015a0| 2d 6e 61 6d 65 20 65 72 | 72 2d 66 69 6c 65 20 28 |-name er|r-file (|
|000015b0| 28 6a 6b 61 2d 63 6f 6d | 70 72 2d 64 65 6c 65 74 |(jka-com|pr-delet|
|000015c0| 65 2d 74 65 6d 70 2d 66 | 69 6c 65 20 65 72 72 2d |e-temp-f|ile err-|
|000015d0| 66 69 6c 65 29 29 20 63 | 61 6c 6c 2d 70 72 6f 63 |file)) c|all-proc|
|000015e0| 65 73 73 20 6a 6b 61 2d | 63 6f 6d 70 72 2d 73 68 |ess jka-|compr-sh|
|000015f0| 65 6c 6c 20 69 6e 66 69 | 6c 65 20 6f 75 74 70 75 |ell infi|le outpu|
|00001600| 74 20 6e 69 6c 20 22 2d | 63 22 20 66 6f 72 6d 61 |t nil "-|c" forma|
|00001610| 74 20 22 25 73 20 25 73 | 20 32 3e 20 25 73 20 25 |t "%s %s| 2> %s %|
|00001620| 73 22 20 70 72 6f 67 20 | 6d 61 70 63 6f 6e 63 61 |s" prog |mapconca|
|00001630| 74 20 69 64 65 6e 74 69 | 74 79 20 61 72 67 73 20 |t identi|ty args |
|00001640| 22 20 22 20 22 3e 20 22 | 20 22 22 20 6a 6b 61 2d |" " "> "| "" jka-|
|00001650| 63 6f 6d 70 72 2d 61 63 | 63 65 70 74 61 62 6c 65 |compr-ac|ceptable|
|00001660| 2d 72 65 74 76 61 6c 2d | 6c 69 73 74 20 6a 6b 61 |-retval-|list jka|
|00001670| 2d 63 6f 6d 70 72 2d 65 | 72 72 6f 72 20 6d 65 73 |-compr-e|rror mes|
|00001680| 73 61 67 65 20 7a 65 72 | 6f 70 20 61 70 70 6c 79 |sage zer|op apply|
|00001690| 20 74 65 6d 70 20 63 62 | 75 66 20 77 72 69 74 65 | temp cb|uf write|
|000016a0| 2d 72 65 67 69 6f 6e 20 | 65 72 61 73 65 2d 62 75 |-region |erase-bu|
|000016b0| 66 66 65 72 5d 20 31 33 | 5d 29 0a 28 64 65 66 76 |ffer] 13|]).(defv|
|000016c0| 61 72 20 6a 6b 61 2d 63 | 6f 6d 70 72 2d 74 65 6d |ar jka-c|ompr-tem|
|000016d0| 70 2d 6e 61 6d 65 2d 74 | 65 6d 70 6c 61 74 65 20 |p-name-t|emplate |
|000016e0| 22 2f 74 6d 70 2f 6a 6b | 61 2d 63 6f 6d 22 20 22 |"/tmp/jk|a-com" "|
|000016f0| 5c 0a 50 72 65 66 69 78 | 20 61 64 64 65 64 20 74 |\.Prefix| added t|
|00001700| 6f 20 61 6c 6c 20 74 65 | 6d 70 20 66 69 6c 65 73 |o all te|mp files|
|00001710| 20 63 72 65 61 74 65 64 | 20 62 79 20 6a 6b 61 2d | created| by jka-|
|00001720| 63 6f 6d 70 72 2e 0a 54 | 68 65 72 65 20 73 68 6f |compr..T|here sho|
|00001730| 75 6c 64 20 62 65 20 6e | 6f 20 6d 6f 72 65 20 74 |uld be n|o more t|
|00001740| 68 61 6e 20 73 65 76 65 | 6e 20 63 68 61 72 61 63 |han seve|n charac|
|00001750| 74 65 72 73 20 61 66 74 | 65 72 20 74 68 65 20 66 |ters aft|er the f|
|00001760| 69 6e 61 6c 20 60 2f 27 | 22 29 0a 28 62 79 74 65 |inal `/'|").(byte|
|00001770| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 85 c2 c3 c4 5c |-code ".|.!.....\|
|00001780| 22 11 c4 87 22 20 5b 62 | 6f 75 6e 64 70 20 6a 6b |"..." [b|oundp jk|
|00001790| 61 2d 63 6f 6d 70 72 2d | 74 65 6d 70 2d 6e 61 6d |a-compr-|temp-nam|
|000017a0| 65 2d 74 61 62 6c 65 20 | 6d 61 6b 65 2d 76 65 63 |e-table |make-vec|
|000017b0| 74 6f 72 20 33 31 20 6e | 69 6c 5d 20 33 29 0a 28 |tor 31 n|il] 3).(|
|000017c0| 66 73 65 74 20 27 6a 6b | 61 2d 63 6f 6d 70 72 2d |fset 'jk|a-compr-|
|000017d0| 6d 61 6b 65 2d 74 65 6d | 70 2d 6e 61 6d 65 20 23 |make-tem|p-name #|
|000017e0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 6c 6f 63 61 |[(&optio|nal loca|
|000017f0| 6c 2d 63 6f 70 79 29 20 | 22 c0 19 c0 1a 0b c4 50 |l-copy) |"......P|
|00001800| 89 1d 47 53 1e 06 c7 1e | 08 c9 1e 5c 6e c9 1e 0b |..GS....|...\n...|
|00001810| 0e 08 ab d0 0d 0e 06 09 | 49 88 cc 0d 21 cd 50 16 |........|I...!.P.|
|00001820| 5c 6e ce 0e 5c 6e 0e 0f | 5c 22 89 16 0b d0 4e ac |\n..\n..|\"....N.|
|00001830| 86 d1 0e 5c 6e 21 ab a1 | 09 54 89 11 d2 56 ab 54 |...\n!..|.T...V.T|
|00001840| 5c 6e 54 12 c0 11 5c 6e | d2 56 ab 86 d3 d4 21 88 |\nT...\n|.V....!.|
|00001850| aa 44 0d 0e 06 53 5c 6e | 49 88 aa 3b d5 0e 0b d0 |.D...S\n|I..;....|
|00001860| 0e 16 3f 23 88 c9 89 16 | 08 ac 30 0e 5c 6e 2e 07 |..?#....|..0.\n..|
|00001870| 87 22 20 5b 39 37 20 6c | 61 73 74 63 68 61 72 20 |." [97 l|astchar |
|00001880| 70 72 65 76 63 68 61 72 | 20 6a 6b 61 2d 63 6f 6d |prevchar| jka-com|
|00001890| 70 72 2d 74 65 6d 70 2d | 6e 61 6d 65 2d 74 65 6d |pr-temp-|name-tem|
|000018a0| 70 6c 61 74 65 20 22 61 | 61 22 20 74 65 6d 70 6c |plate "a|a" templ|
|000018b0| 61 74 65 20 6c 61 73 74 | 70 6f 73 20 74 20 6e 6f |ate last|pos t no|
|000018c0| 74 2d 64 6f 6e 65 20 6e | 69 6c 20 66 69 6c 65 20 |t-done n|il file |
|000018d0| 65 6e 74 72 79 20 6d 61 | 6b 65 2d 74 65 6d 70 2d |entry ma|ke-temp-|
|000018e0| 6e 61 6d 65 20 22 23 22 | 20 69 6e 74 65 72 6e 20 |name "#"| intern |
|000018f0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 74 65 6d 70 2d 6e |jka-comp|r-temp-n|
|00001900| 61 6d 65 2d 74 61 62 6c | 65 20 61 63 74 69 76 65 |ame-tabl|e active|
|00001910| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 31 | file-ex|ists-p 1|
|00001920| 32 32 20 65 72 72 6f 72 | 20 22 43 61 6e 27 74 20 |22 error| "Can't |
|00001930| 61 6c 6c 6f 63 61 74 65 | 20 74 65 6d 70 20 66 69 |allocate| temp fi|
|00001940| 6c 65 2e 22 20 70 75 74 | 20 6c 6f 63 61 6c 2d 63 |le." put| local-c|
|00001950| 6f 70 79 5d 20 35 20 22 | 5c 0a 54 68 69 73 20 72 |opy] 5 "|\.This r|
|00001960| 6f 75 74 69 6e 65 20 77 | 69 6c 6c 20 72 65 74 75 |outine w|ill retu|
|00001970| 72 6e 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 61 |rn the n|ame of a|
|00001980| 20 6e 65 77 20 66 69 6c | 65 2e 22 5d 29 0a 28 62 | new fil|e."]).(b|
|00001990| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|000019a0| 4d 88 c4 c5 4d 88 c6 c7 | 4d 87 22 20 5b 6a 6b 61 |M...M...|M." [jka|
|000019b0| 2d 63 6f 6d 70 72 2d 64 | 65 6c 65 74 65 2d 74 65 |-compr-d|elete-te|
|000019c0| 6d 70 2d 66 69 6c 65 20 | 23 5b 28 74 65 6d 70 29 |mp-file |#[(temp)|
|000019d0| 20 22 c0 c1 5c 6e 0b 5c | 22 c4 c5 23 88 c5 c6 c7 | "..\n.\|"..#....|
|000019e0| 8f 87 22 20 5b 70 75 74 | 20 69 6e 74 65 72 6e 20 |.." [put| intern |
|000019f0| 74 65 6d 70 20 6a 6b 61 | 2d 63 6f 6d 70 72 2d 74 |temp jka|-compr-t|
|00001a00| 65 6d 70 2d 6e 61 6d 65 | 2d 74 61 62 6c 65 20 61 |emp-name|-table a|
|00001a10| 63 74 69 76 65 20 6e 69 | 6c 20 28 64 65 6c 65 74 |ctive ni|l (delet|
|00001a20| 65 2d 66 69 6c 65 20 74 | 65 6d 70 29 20 28 28 65 |e-file t|emp) ((e|
|00001a30| 72 72 6f 72 29 29 5d 20 | 34 5d 20 6a 6b 61 2d 63 |rror))] |4] jka-c|
|00001a40| 6f 6d 70 72 2d 77 72 69 | 74 65 2d 72 65 67 69 6f |ompr-wri|te-regio|
|00001a50| 6e 20 23 5b 28 73 74 61 | 72 74 20 65 6e 64 20 66 |n #[(sta|rt end f|
|00001a60| 69 6c 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 61 70 |ile &opt|ional ap|
|00001a70| 70 65 6e 64 20 76 69 73 | 69 74 29 20 22 c0 09 21 |pend vis|it) "..!|
|00001a80| 1a 0b 3b ab 85 c0 0b 21 | aa 81 5c 6e 1c c5 0c 21 |..;....!|..\n...!|
|00001a90| 89 1e 06 83 12 01 c7 0e | 06 21 c8 0e 06 21 c9 0e |........|.!...!..|
|00001aa0| 06 21 ca 0e 06 21 cb 0e | 06 21 cc 0e 06 21 cd 0e |.!...!..|.!...!..|
|00001ab0| 06 21 ce 0c 21 cf 89 89 | 1e 10 1e 11 1e 12 1e 13 |.!..!...|........|
|00001ac0| 1e 14 1e 15 1e 16 1e 17 | 1e 18 1e 19 1e 1a 70 16 |........|......p.|
|00001ad0| 11 db dc 21 89 16 10 71 | 88 7e 88 dd 20 88 0e 11 |...!...q|.~.. ...|
|00001ae0| 71 88 0e 1e ab 9a 0e 1a | ac 96 df 5c 6e 21 ab 91 |q.......|...\n!..|
|00001af0| e0 5c 6e 21 89 1e 21 ae | 81 5c 6e 89 1e 5c 22 16 |.\n!..!.|.\n..\".|
|00001b00| 12 2a aa 84 e3 20 16 12 | 0e 18 ab 88 e4 e5 0e 18 |.*... ..|........|
|00001b10| 0e 13 23 88 e6 e7 0e 28 | 0e 29 0e 12 ea eb af 05 |..#....(|.)......|
|00001b20| 5c 22 88 ec 0e 19 0e 18 | ed 0e 13 51 0e 12 0e 10 |\"......|...Q....|
|00001b30| cf 0e 15 26 06 88 0e 10 | 71 88 e6 e7 65 64 5c 6e |...&....|q...ed\n|
|00001b40| 0e 1e ad 82 0e 1a eb af | 05 5c 22 88 dd 20 88 0e |........|.\".. ..|
|00001b50| 11 71 88 ee 0e 12 21 88 | 0e 18 ab 88 e4 ef 0e 18 |.q....!.|........|
|00001b60| 0e 13 23 88 0b ea 3d ab | 88 5c 6e 16 30 f1 20 88 |..#...=.|.\n.0. .|
|00001b70| aa 8e 0b 3b ab 8a 0b 16 | 30 5c 6e 1e 30 f1 20 88 |...;....|0\n.0. .|
|00001b80| 29 0b ea 3d ac 89 0b cf | 3d ac 84 0b 3b ab 85 e4 |)..=....|=...;...|
|00001b90| f2 0c 5c 22 88 2e 0b cf | aa 8d e6 e7 0e 28 0e 29 |..\"....|.....(.)|
|00001ba0| 5c 6e 0e 1e 0b af 05 5c | 22 2b 87 22 20 5b 65 78 |\n.....\|"+." [ex|
|00001bb0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |pand-fil|e-name f|
|00001bc0| 69 6c 65 20 66 69 6c 65 | 6e 61 6d 65 20 76 69 73 |ile file|name vis|
|00001bd0| 69 74 20 76 69 73 69 74 | 2d 66 69 6c 65 20 6a 6b |it visit|-file jk|
|00001be0| 61 2d 63 6f 6d 70 72 2d | 67 65 74 2d 63 6f 6d 70 |a-compr-|get-comp|
|00001bf0| 72 65 73 73 69 6f 6e 2d | 69 6e 66 6f 20 69 6e 66 |ression-|info inf|
|00001c00| 6f 20 6a 6b 61 2d 63 6f | 6d 70 72 2d 69 6e 66 6f |o jka-co|mpr-info|
|00001c10| 2d 63 61 6e 2d 61 70 70 | 65 6e 64 20 6a 6b 61 2d |-can-app|end jka-|
|00001c20| 63 6f 6d 70 72 2d 69 6e | 66 6f 2d 63 6f 6d 70 72 |compr-in|fo-compr|
|00001c30| 65 73 73 2d 70 72 6f 67 | 72 61 6d 20 6a 6b 61 2d |ess-prog|ram jka-|
|00001c40| 63 6f 6d 70 72 2d 69 6e | 66 6f 2d 63 6f 6d 70 72 |compr-in|fo-compr|
|00001c50| 65 73 73 2d 6d 65 73 73 | 61 67 65 20 6a 6b 61 2d |ess-mess|age jka-|
|00001c60| 63 6f 6d 70 72 2d 69 6e | 66 6f 2d 75 6e 63 6f 6d |compr-in|fo-uncom|
|00001c70| 70 72 65 73 73 2d 70 72 | 6f 67 72 61 6d 20 6a 6b |press-pr|ogram jk|
|00001c80| 61 2d 63 6f 6d 70 72 2d | 69 6e 66 6f 2d 75 6e 63 |a-compr-|info-unc|
|00001c90| 6f 6d 70 72 65 73 73 2d | 6d 65 73 73 61 67 65 20 |ompress-|message |
|00001ca0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 69 6e 66 6f 2d 63 |jka-comp|r-info-c|
|00001cb0| 6f 6d 70 72 65 73 73 2d | 61 72 67 73 20 6a 6b 61 |ompress-|args jka|
|00001cc0| 2d 63 6f 6d 70 72 2d 69 | 6e 66 6f 2d 75 6e 63 6f |-compr-i|nfo-unco|
|00001cd0| 6d 70 72 65 73 73 2d 61 | 72 67 73 20 66 69 6c 65 |mpress-a|rgs file|
|00001ce0| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|00001cf0| 72 79 20 6e 69 6c 20 74 | 65 6d 70 2d 62 75 66 66 |ry nil t|emp-buff|
|00001d00| 65 72 20 63 62 75 66 20 | 74 65 6d 70 2d 66 69 6c |er cbuf |temp-fil|
|00001d10| 65 20 62 61 73 65 2d 6e | 61 6d 65 20 75 6e 63 6f |e base-n|ame unco|
|00001d20| 6d 70 72 65 73 73 2d 61 | 72 67 73 20 63 6f 6d 70 |mpress-a|rgs comp|
|00001d30| 72 65 73 73 2d 61 72 67 | 73 20 75 6e 63 6f 6d 70 |ress-arg|s uncomp|
|00001d40| 72 65 73 73 2d 6d 65 73 | 73 61 67 65 20 75 6e 63 |ress-mes|sage unc|
|00001d50| 6f 6d 70 72 65 73 73 2d | 70 72 6f 67 72 61 6d 20 |ompress-|program |
|00001d60| 63 6f 6d 70 72 65 73 73 | 2d 6d 65 73 73 61 67 65 |compress|-message|
|00001d70| 20 63 6f 6d 70 72 65 73 | 73 2d 70 72 6f 67 72 61 | compres|s-progra|
|00001d80| 6d 20 63 61 6e 2d 61 70 | 70 65 6e 64 20 67 65 74 |m can-ap|pend get|
|00001d90| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00001da0| 20 2a 6a 6b 61 2d 63 6f | 6d 70 72 2d 77 72 2d 74 | *jka-co|mpr-wr-t|
|00001db0| 65 6d 70 2a 22 20 65 72 | 61 73 65 2d 62 75 66 66 |emp*" er|ase-buff|
|00001dc0| 65 72 20 61 70 70 65 6e | 64 20 66 69 6c 65 2d 65 |er appen|d file-e|
|00001dd0| 78 69 73 74 73 2d 70 20 | 66 69 6c 65 2d 6c 6f 63 |xists-p |file-loc|
|00001de0| 61 6c 2d 63 6f 70 79 20 | 6c 6f 63 61 6c 2d 63 6f |al-copy |local-co|
|00001df0| 70 79 20 6c 6f 63 61 6c | 2d 66 69 6c 65 20 6a 6b |py local|-file jk|
|00001e00| 61 2d 63 6f 6d 70 72 2d | 6d 61 6b 65 2d 74 65 6d |a-compr-|make-tem|
|00001e10| 70 2d 6e 61 6d 65 20 6d | 65 73 73 61 67 65 20 22 |p-name m|essage "|
|00001e20| 25 73 20 25 73 2e 2e 2e | 22 20 6a 6b 61 2d 63 6f |%s %s...|" jka-co|
|00001e30| 6d 70 72 2d 72 75 6e 2d | 72 65 61 6c 2d 68 61 6e |mpr-run-|real-han|
|00001e40| 64 6c 65 72 20 77 72 69 | 74 65 2d 72 65 67 69 6f |dler wri|te-regio|
|00001e50| 6e 20 73 74 61 72 74 20 | 65 6e 64 20 74 20 64 6f |n start |end t do|
|00001e60| 6e 74 20 6a 6b 61 2d 63 | 6f 6d 70 72 2d 63 61 6c |nt jka-c|ompr-cal|
|00001e70| 6c 2d 70 72 6f 63 65 73 | 73 20 22 20 22 20 6a 6b |l-proces|s " " jk|
|00001e80| 61 2d 63 6f 6d 70 72 2d | 64 65 6c 65 74 65 2d 74 |a-compr-|delete-t|
|00001e90| 65 6d 70 2d 66 69 6c 65 | 20 22 25 73 20 25 73 2e |emp-file| "%s %s.|
|00001ea0| 2e 2e 64 6f 6e 65 22 20 | 62 75 66 66 65 72 2d 66 |..done" |buffer-f|
|00001eb0| 69 6c 65 2d 6e 61 6d 65 | 20 73 65 74 2d 76 69 73 |ile-name| set-vis|
|00001ec0| 69 74 65 64 2d 66 69 6c | 65 2d 6d 6f 64 74 69 6d |ited-fil|e-modtim|
|00001ed0| 65 20 22 57 72 6f 74 65 | 20 25 73 22 5d 20 31 32 |e "Wrote| %s"] 12|
|00001ee0| 5d 20 6a 6b 61 2d 63 6f | 6d 70 72 2d 69 6e 73 65 |] jka-co|mpr-inse|
|00001ef0| 72 74 2d 66 69 6c 65 2d | 63 6f 6e 74 65 6e 74 73 |rt-file-|contents|
|00001f00| 20 23 5b 28 66 69 6c 65 | 20 26 6f 70 74 69 6f 6e | #[(file| &option|
|00001f10| 61 6c 20 76 69 73 69 74 | 20 62 65 67 20 65 6e 64 |al visit| beg end|
|00001f20| 20 72 65 70 6c 61 63 65 | 29 20 22 c0 20 88 09 ac | replace|) ". ...|
|00001f30| 83 5c 6e ab 87 0b ab 84 | c4 c5 21 88 c6 0e 07 21 |.\n.....|..!....!|
|00001f40| 1e 08 c9 0e 08 21 89 1e | 5c 6e 83 d2 00 cb 0e 5c |.....!..|\n.....\|
|00001f50| 6e 21 cc 0e 5c 6e 21 cd | 0e 5c 6e 21 ce 0e 08 21 |n!..\n!.|.\n!...!|
|00001f60| cf d0 d1 0e 08 43 5c 22 | cf 89 89 1e 12 1e 13 1e |.....C\"|........|
|00001f70| 14 1e 15 1e 16 1e 17 1e | 18 1e 19 1e 1a 0e 15 ae |........|........|
|00001f80| 82 0e 08 16 14 0b ab 84 | 0e 08 16 1b dc 8e 0e 1a |........|........|
|00001f90| ab 88 dd de 0e 1a 0e 17 | 23 88 df e0 e1 8f 88 29 |........|#......)|
|00001fa0| 0b ab 8a e2 20 88 0e 08 | 16 1b e3 20 88 0e 1a ab |.... ...|... ....|
|00001fb0| 88 dd e4 0e 1a 0e 17 23 | 88 0b ab 8e 0e 16 ab 8a |.......#|........|
|00001fc0| e5 e6 e7 e8 0e 16 38 42 | 5c 22 88 0e 29 0e 13 1e |......8B|\"..)...|
|00001fd0| 2a 89 1e 2b ab a4 0e 2b | 40 0e 13 21 89 16 2a ab |*..+...+|@..!..*.|
|00001fe0| 91 0e 2a a8 ac 88 e5 ec | ed 0e 2a 44 5c 22 88 0e |..*.....|..*D\"..|
|00001ff0| 2a 16 13 0e 2b 41 89 16 | 2b ac 5c 5c 2a 0e 08 0e |*...+A..|+.\\*...|
|00002000| 13 2e 09 44 aa 8c d0 ee | 0e 07 0b 09 5c 6e 0e 2f |...D....|....\n./|
|00002010| af 05 5c 22 2a 87 22 20 | 5b 62 61 72 66 2d 69 66 |..\"*." |[barf-if|
|00002020| 2d 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c |-buffer-|read-onl|
|00002030| 79 20 62 65 67 20 65 6e | 64 20 76 69 73 69 74 20 |y beg en|d visit |
|00002040| 65 72 72 6f 72 20 22 41 | 74 74 65 6d 70 74 20 74 |error "A|ttempt t|
|00002050| 6f 20 76 69 73 69 74 20 | 6c 65 73 73 20 74 68 61 |o visit |less tha|
|00002060| 6e 20 61 6e 20 65 6e 74 | 69 72 65 20 66 69 6c 65 |n an ent|ire file|
|00002070| 22 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |" expand|-file-na|
|00002080| 6d 65 20 66 69 6c 65 20 | 66 69 6c 65 6e 61 6d 65 |me file |filename|
|00002090| 20 6a 6b 61 2d 63 6f 6d | 70 72 2d 67 65 74 2d 63 | jka-com|pr-get-c|
|000020a0| 6f 6d 70 72 65 73 73 69 | 6f 6e 2d 69 6e 66 6f 20 |ompressi|on-info |
|000020b0| 69 6e 66 6f 20 6a 6b 61 | 2d 63 6f 6d 70 72 2d 69 |info jka|-compr-i|
|000020c0| 6e 66 6f 2d 75 6e 63 6f | 6d 70 72 65 73 73 2d 6d |nfo-unco|mpress-m|
|000020d0| 65 73 73 61 67 65 20 6a | 6b 61 2d 63 6f 6d 70 72 |essage j|ka-compr|
|000020e0| 2d 69 6e 66 6f 2d 75 6e | 63 6f 6d 70 72 65 73 73 |-info-un|compress|
|000020f0| 2d 70 72 6f 67 72 61 6d | 20 6a 6b 61 2d 63 6f 6d |-program| jka-com|
|00002100| 70 72 2d 69 6e 66 6f 2d | 75 6e 63 6f 6d 70 72 65 |pr-info-|uncompre|
|00002110| 73 73 2d 61 72 67 73 20 | 66 69 6c 65 2d 6e 61 6d |ss-args |file-nam|
|00002120| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 6e |e-nondir|ectory n|
|00002130| 69 6c 20 6a 6b 61 2d 63 | 6f 6d 70 72 2d 72 75 6e |il jka-c|ompr-run|
|00002140| 2d 72 65 61 6c 2d 68 61 | 6e 64 6c 65 72 20 66 69 |-real-ha|ndler fi|
|00002150| 6c 65 2d 6c 6f 63 61 6c | 2d 63 6f 70 79 20 73 74 |le-local|-copy st|
|00002160| 61 72 74 20 73 69 7a 65 | 20 6c 6f 63 61 6c 2d 66 |art size| local-f|
|00002170| 69 6c 65 20 6c 6f 63 61 | 6c 2d 63 6f 70 79 20 6e |ile loca|l-copy n|
|00002180| 6f 74 66 6f 75 6e 64 20 | 62 61 73 65 2d 6e 61 6d |otfound |base-nam|
|00002190| 65 20 75 6e 63 6f 6d 70 | 72 65 73 73 2d 61 72 67 |e uncomp|ress-arg|
|000021a0| 73 20 75 6e 63 6f 6d 70 | 72 65 73 73 2d 70 72 6f |s uncomp|ress-pro|
|000021b0| 67 72 61 6d 20 75 6e 63 | 6f 6d 70 72 65 73 73 2d |gram unc|ompress-|
|000021c0| 6d 65 73 73 61 67 65 20 | 62 75 66 66 65 72 2d 66 |message |buffer-f|
|000021d0| 69 6c 65 2d 6e 61 6d 65 | 20 28 28 62 79 74 65 2d |ile-name| ((byte-|
|000021e0| 63 6f 64 65 20 22 08 ab | 89 c1 08 21 ab 84 c2 08 |code "..|...!....|
|000021f0| 21 88 c1 87 22 20 5b 6c | 6f 63 61 6c 2d 63 6f 70 |!..." [l|ocal-cop|
|00002200| 79 20 66 69 6c 65 2d 65 | 78 69 73 74 73 2d 70 20 |y file-e|xists-p |
|00002210| 64 65 6c 65 74 65 2d 66 | 69 6c 65 5d 20 32 29 29 |delete-f|ile] 2))|
|00002220| 20 6d 65 73 73 61 67 65 | 20 22 25 73 20 25 73 2e | message| "%s %s.|
|00002230| 2e 2e 22 20 65 72 72 6f | 72 2d 63 6f 64 65 20 28 |.." erro|r-code (|
|00002240| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ab 83 65 62 |byte-cod|e "...eb|
|00002250| 88 60 11 5c 6e ac 83 0b | ab a1 c4 0d 0e 06 c7 0e |.`.\n...|........|
|00002260| 08 51 0e 09 0e 5c 6e 5c | 6e ae 81 cb 5c 6e ab 88 |.Q...\n\|n...\n..|
|00002270| 0b ab 85 0b 5c 6e 5a aa | 81 0b 26 06 88 aa 91 cc |....\nZ.|..&.....|
|00002280| 0d 0e 06 c7 0e 08 51 0e | 5c 6e cd ce 0e 09 26 06 |......Q.|\n....&.|
|00002290| 88 60 09 5a 16 0f 08 ab | 92 60 89 1e 10 0e 0f 5c |.`.Z....|.`.....\|
|000022a0| 5c 1e 11 0e 10 0e 11 64 | 5e 7c 88 2a 09 62 87 22 |\......d|^|.*.b."|
|000022b0| 20 5b 72 65 70 6c 61 63 | 65 20 73 74 61 72 74 20 | [replac|e start |
|000022c0| 62 65 67 20 65 6e 64 20 | 6a 6b 61 2d 63 6f 6d 70 |beg end |jka-comp|
|000022d0| 72 2d 70 61 72 74 69 61 | 6c 2d 75 6e 63 6f 6d 70 |r-partia|l-uncomp|
|000022e0| 72 65 73 73 20 75 6e 63 | 6f 6d 70 72 65 73 73 2d |ress unc|ompress-|
|000022f0| 70 72 6f 67 72 61 6d 20 | 75 6e 63 6f 6d 70 72 65 |program |uncompre|
|00002300| 73 73 2d 6d 65 73 73 61 | 67 65 20 22 20 22 20 62 |ss-messa|ge " " b|
|00002310| 61 73 65 2d 6e 61 6d 65 | 20 75 6e 63 6f 6d 70 72 |ase-name| uncompr|
|00002320| 65 73 73 2d 61 72 67 73 | 20 6c 6f 63 61 6c 2d 66 |ess-args| local-f|
|00002330| 69 6c 65 20 30 20 6a 6b | 61 2d 63 6f 6d 70 72 2d |ile 0 jk|a-compr-|
|00002340| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 74 20 6e |call-pro|cess t n|
|00002350| 69 6c 20 73 69 7a 65 20 | 64 65 6c 2d 62 65 67 20 |il size |del-beg |
|00002360| 64 65 6c 2d 65 6e 64 5d | 20 39 29 20 28 28 65 72 |del-end]| 9) ((er|
|00002370| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00002380| 08 40 c1 3d ab 99 c2 08 | 38 0b 3d ab 92 0c ab 84 |.@.=....|8.=.....|
|00002390| 08 15 aa 92 c6 c1 c7 08 | 41 41 42 5c 22 88 aa 87 |........|AAB\"...|
|000023a0| c6 08 40 08 41 5c 22 88 | c1 87 22 20 5b 65 72 72 |..@.A\".|.." [err|
|000023b0| 6f 72 2d 63 6f 64 65 20 | 66 69 6c 65 2d 65 72 72 |or-code |file-err|
|000023c0| 6f 72 20 33 20 6c 6f 63 | 61 6c 2d 66 69 6c 65 20 |or 3 loc|al-file |
|000023d0| 76 69 73 69 74 20 6e 6f | 74 66 6f 75 6e 64 20 73 |visit no|tfound s|
|000023e0| 69 67 6e 61 6c 20 22 4f | 70 65 6e 69 6e 67 20 69 |ignal "O|pening i|
|000023f0| 6e 70 75 74 20 66 69 6c | 65 22 5d 20 34 29 29 29 |nput fil|e"] 4)))|
|00002400| 20 75 6e 6c 6f 63 6b 2d | 62 75 66 66 65 72 20 73 | unlock-|buffer s|
|00002410| 65 74 2d 76 69 73 69 74 | 65 64 2d 66 69 6c 65 2d |et-visit|ed-file-|
|00002420| 6d 6f 64 74 69 6d 65 20 | 22 25 73 20 25 73 2e 2e |modtime |"%s %s..|
|00002430| 2e 64 6f 6e 65 22 20 73 | 69 67 6e 61 6c 20 66 69 |.done" s|ignal fi|
|00002440| 6c 65 2d 65 72 72 6f 72 | 20 22 4f 70 65 6e 69 6e |le-error| "Openin|
|00002450| 67 20 69 6e 70 75 74 20 | 66 69 6c 65 22 20 32 20 |g input |file" 2 |
|00002460| 61 66 74 65 72 2d 69 6e | 73 65 72 74 2d 66 69 6c |after-in|sert-fil|
|00002470| 65 2d 66 75 6e 63 74 69 | 6f 6e 73 20 69 6e 73 76 |e-functi|ons insv|
|00002480| 61 6c 20 70 20 77 72 6f | 6e 67 2d 74 79 70 65 2d |al p wro|ng-type-|
|00002490| 61 72 67 75 6d 65 6e 74 | 20 69 6e 74 65 67 65 72 |argument| integer|
|000024a0| 70 20 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f |p insert|-file-co|
|000024b0| 6e 74 65 6e 74 73 20 72 | 65 70 6c 61 63 65 5d 20 |ntents r|eplace] |
|000024c0| 31 30 5d 20 6a 6b 61 2d | 63 6f 6d 70 72 2d 66 69 |10] jka-|compr-fi|
|000024d0| 6c 65 2d 6c 6f 63 61 6c | 2d 63 6f 70 79 20 23 5b |le-local|-copy #[|
|000024e0| 28 66 69 6c 65 29 20 22 | c0 09 21 1a c3 5c 6e 21 |(file) "|..!..\n!|
|000024f0| 89 1c ab f5 c5 0c 21 c6 | 0c 21 c7 0c 21 c8 5c 6e |......!.|.!..!.\n|
|00002500| 21 c9 ca 5c 6e 43 5c 22 | cb cc 21 cd ce 21 cf 70 |!..\nC\"|..!..!.p|
|00002510| cf 1e 10 1e 11 1e 12 1e | 13 1e 14 1e 15 1e 16 1e |........|........|
|00002520| 17 1e 18 1e 19 0e 15 ae | 81 5c 6e 16 10 da 8e 0e |........|.\n.....|
|00002530| 19 ab 88 db dc 0e 19 0e | 16 23 88 0e 13 71 88 dd |........|.#...q..|
|00002540| 0e 18 0e 19 de 0e 16 51 | 0e 10 cc cf 0e 17 26 06 |.......Q|......&.|
|00002550| 88 0e 19 ab 88 db df 0e | 19 0e 16 23 88 e0 65 64 |........|...#..ed|
|00002560| 0e 14 cf e1 25 88 29 0e | 14 2e 5c 6e aa 85 c9 ca |....%.).|..\n....|
|00002570| 5c 6e 43 5c 22 2a 87 22 | 20 5b 65 78 70 61 6e 64 |\nC\"*."| [expand|
|00002580| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 20 |-file-na|me file |
|00002590| 66 69 6c 65 6e 61 6d 65 | 20 6a 6b 61 2d 63 6f 6d |filename| jka-com|
|000025a0| 70 72 2d 67 65 74 2d 63 | 6f 6d 70 72 65 73 73 69 |pr-get-c|ompressi|
|000025b0| 6f 6e 2d 69 6e 66 6f 20 | 69 6e 66 6f 20 6a 6b 61 |on-info |info jka|
|000025c0| 2d 63 6f 6d 70 72 2d 69 | 6e 66 6f 2d 75 6e 63 6f |-compr-i|nfo-unco|
|000025d0| 6d 70 72 65 73 73 2d 6d | 65 73 73 61 67 65 20 6a |mpress-m|essage j|
|000025e0| 6b 61 2d 63 6f 6d 70 72 | 2d 69 6e 66 6f 2d 75 6e |ka-compr|-info-un|
|000025f0| 63 6f 6d 70 72 65 73 73 | 2d 70 72 6f 67 72 61 6d |compress|-program|
|00002600| 20 6a 6b 61 2d 63 6f 6d | 70 72 2d 69 6e 66 6f 2d | jka-com|pr-info-|
|00002610| 75 6e 63 6f 6d 70 72 65 | 73 73 2d 61 72 67 73 20 |uncompre|ss-args |
|00002620| 66 69 6c 65 2d 6e 61 6d | 65 2d 6e 6f 6e 64 69 72 |file-nam|e-nondir|
|00002630| 65 63 74 6f 72 79 20 6a | 6b 61 2d 63 6f 6d 70 72 |ectory j|ka-compr|
|00002640| 2d 72 75 6e 2d 72 65 61 | 6c 2d 68 61 6e 64 6c 65 |-run-rea|l-handle|
|00002650| 72 20 66 69 6c 65 2d 6c | 6f 63 61 6c 2d 63 6f 70 |r file-l|ocal-cop|
|00002660| 79 20 6a 6b 61 2d 63 6f | 6d 70 72 2d 6d 61 6b 65 |y jka-co|mpr-make|
|00002670| 2d 74 65 6d 70 2d 6e 61 | 6d 65 20 74 20 67 65 74 |-temp-na|me t get|
|00002680| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00002690| 20 2a 6a 6b 61 2d 63 6f | 6d 70 72 2d 66 6c 63 2d | *jka-co|mpr-flc-|
|000026a0| 74 65 6d 70 2a 22 20 6e | 69 6c 20 6c 6f 63 61 6c |temp*" n|il local|
|000026b0| 2d 66 69 6c 65 20 63 62 | 75 66 20 6e 6f 74 66 6f |-file cb|uf notfo|
|000026c0| 75 6e 64 20 74 65 6d 70 | 2d 62 75 66 66 65 72 20 |und temp|-buffer |
|000026d0| 74 65 6d 70 2d 66 69 6c | 65 20 6c 6f 63 61 6c 2d |temp-fil|e local-|
|000026e0| 63 6f 70 79 20 62 61 73 | 65 2d 6e 61 6d 65 20 75 |copy bas|e-name u|
|000026f0| 6e 63 6f 6d 70 72 65 73 | 73 2d 61 72 67 73 20 75 |ncompres|s-args u|
|00002700| 6e 63 6f 6d 70 72 65 73 | 73 2d 70 72 6f 67 72 61 |ncompres|s-progra|
|00002710| 6d 20 75 6e 63 6f 6d 70 | 72 65 73 73 2d 6d 65 73 |m uncomp|ress-mes|
|00002720| 73 61 67 65 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |sage ((b|yte-code|
|00002730| 20 22 08 ab 89 c1 08 21 | ab 84 c2 08 21 88 0b 71 | ".....!|....!..q|
|00002740| 88 c4 0d 21 87 22 20 5b | 6c 6f 63 61 6c 2d 63 6f |...!." [|local-co|
|00002750| 70 79 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |py file-|exists-p|
|00002760| 20 64 65 6c 65 74 65 2d | 66 69 6c 65 20 63 62 75 | delete-|file cbu|
|00002770| 66 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 20 74 65 |f kill-b|uffer te|
|00002780| 6d 70 2d 62 75 66 66 65 | 72 5d 20 32 29 29 20 6d |mp-buffe|r] 2)) m|
|00002790| 65 73 73 61 67 65 20 22 | 25 73 20 25 73 2e 2e 2e |essage "|%s %s...|
|000027a0| 22 20 6a 6b 61 2d 63 6f | 6d 70 72 2d 63 61 6c 6c |" jka-co|mpr-call|
|000027b0| 2d 70 72 6f 63 65 73 73 | 20 22 20 22 20 22 25 73 |-process| " " "%s|
|000027c0| 20 25 73 2e 2e 2e 64 6f | 6e 65 22 20 77 72 69 74 | %s...do|ne" writ|
|000027d0| 65 2d 72 65 67 69 6f 6e | 20 64 6f 6e 74 5d 20 31 |e-region| dont] 1|
|000027e0| 31 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 6a 6b |1]] 2).(|fset 'jk|
|000027f0| 61 2d 63 6f 6d 70 72 2d | 6c 6f 61 64 20 23 5b 28 |a-compr-|load #[(|
|00002800| 66 69 6c 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |file &op|tional n|
|00002810| 6f 65 72 72 6f 72 20 6e | 6f 6d 65 73 73 61 67 65 |oerror n|omessage|
|00002820| 20 6e 6f 73 75 66 66 69 | 78 29 20 22 c0 09 21 89 | nosuffi|x) "..!.|
|00002830| 1a ae 81 09 1b c4 8e c5 | 89 1e 06 1e 07 0e 08 ac |........|........|
|00002840| 85 c9 ca 09 5c 22 88 cb | 0b 0e 0c cd 89 24 88 0e |....\"..|.....$..|
|00002850| 08 ac 85 c9 ce 09 5c 22 | 88 2d cd 87 22 20 5b 6a |......\"|.-.." [j|
|00002860| 6b 61 2d 63 6f 6d 70 72 | 2d 66 69 6c 65 2d 6c 6f |ka-compr|-file-lo|
|00002870| 63 61 6c 2d 63 6f 70 79 | 20 66 69 6c 65 20 6c 6f |cal-copy| file lo|
|00002880| 63 61 6c 2d 63 6f 70 79 | 20 6c 6f 61 64 2d 66 69 |cal-copy| load-fi|
|00002890| 6c 65 20 28 28 6a 6b 61 | 2d 63 6f 6d 70 72 2d 64 |le ((jka|-compr-d|
|000028a0| 65 6c 65 74 65 2d 74 65 | 6d 70 2d 66 69 6c 65 20 |elete-te|mp-file |
|000028b0| 6c 6f 63 61 6c 2d 63 6f | 70 79 29 29 20 6e 69 6c |local-co|py)) nil|
|000028c0| 20 69 6e 68 69 62 69 74 | 2d 66 69 6c 65 2d 6e 61 | inhibit|-file-na|
|000028d0| 6d 65 2d 68 61 6e 64 6c | 65 72 73 20 69 6e 68 69 |me-handl|ers inhi|
|000028e0| 62 69 74 2d 66 69 6c 65 | 2d 6e 61 6d 65 2d 6f 70 |bit-file|-name-op|
|000028f0| 65 72 61 74 69 6f 6e 20 | 6e 6f 6d 65 73 73 61 67 |eration |nomessag|
|00002900| 65 20 6d 65 73 73 61 67 | 65 20 22 4c 6f 61 64 69 |e messag|e "Loadi|
|00002910| 6e 67 20 25 73 2e 2e 2e | 22 20 6c 6f 61 64 20 6e |ng %s...|" load n|
|00002920| 6f 65 72 72 6f 72 20 74 | 20 22 4c 6f 61 64 69 6e |oerror t| "Loadin|
|00002930| 67 20 25 73 2e 2e 2e 64 | 6f 6e 65 2e 22 5d 20 36 |g %s...d|one."] 6|
|00002940| 20 22 5c 0a 44 6f 63 75 | 6d 65 6e 74 65 64 20 61 | "\.Docu|mented a|
|00002950| 73 20 6f 72 69 67 69 6e | 61 6c 2e 22 5d 29 0a 28 |s origin|al."]).(|
|00002960| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 23 |byte-cod|e "....#|
|00002970| 88 c0 c4 c2 c5 23 88 c0 | c6 c2 c7 23 88 c0 c8 c2 |.....#..|...#....|
|00002980| c9 23 88 ca cb 4d 88 cc | cd 4d 87 22 20 5b 70 75 |.#...M..|.M." [pu|
|00002990| 74 20 77 72 69 74 65 2d | 72 65 67 69 6f 6e 20 6a |t write-|region j|
|000029a0| 6b 61 2d 63 6f 6d 70 72 | 20 6a 6b 61 2d 63 6f 6d |ka-compr| jka-com|
|000029b0| 70 72 2d 77 72 69 74 65 | 2d 72 65 67 69 6f 6e 20 |pr-write|-region |
|000029c0| 69 6e 73 65 72 74 2d 66 | 69 6c 65 2d 63 6f 6e 74 |insert-f|ile-cont|
|000029d0| 65 6e 74 73 20 6a 6b 61 | 2d 63 6f 6d 70 72 2d 69 |ents jka|-compr-i|
|000029e0| 6e 73 65 72 74 2d 66 69 | 6c 65 2d 63 6f 6e 74 65 |nsert-fi|le-conte|
|000029f0| 6e 74 73 20 66 69 6c 65 | 2d 6c 6f 63 61 6c 2d 63 |nts file|-local-c|
|00002a00| 6f 70 79 20 6a 6b 61 2d | 63 6f 6d 70 72 2d 66 69 |opy jka-|compr-fi|
|00002a10| 6c 65 2d 6c 6f 63 61 6c | 2d 63 6f 70 79 20 6c 6f |le-local|-copy lo|
|00002a20| 61 64 20 6a 6b 61 2d 63 | 6f 6d 70 72 2d 6c 6f 61 |ad jka-c|ompr-loa|
|00002a30| 64 20 6a 6b 61 2d 63 6f | 6d 70 72 2d 68 61 6e 64 |d jka-co|mpr-hand|
|00002a40| 6c 65 72 20 23 5b 28 6f | 70 65 72 61 74 69 6f 6e |ler #[(o|peration|
|00002a50| 20 26 72 65 73 74 20 61 | 72 67 73 29 20 22 c0 20 | &rest a|rgs) ". |
|00002a60| 19 c2 8e 0b c4 4e 89 1d | ab 87 c6 0d 0e 07 5c 22 |.....N..|......\"|
|00002a70| aa 85 c8 0b 0e 07 5c 22 | 2b 87 22 20 5b 6d 61 74 |......\"|+." [mat|
|00002a80| 63 68 2d 64 61 74 61 20 | 5f 6d 61 74 63 68 5f 64 |ch-data |_match_d|
|00002a90| 61 74 61 5f 20 28 28 73 | 74 6f 72 65 2d 6d 61 74 |ata_ ((s|tore-mat|
|00002aa0| 63 68 2d 64 61 74 61 20 | 5f 6d 61 74 63 68 5f 64 |ch-data |_match_d|
|00002ab0| 61 74 61 5f 29 29 20 6f | 70 65 72 61 74 69 6f 6e |ata_)) o|peration|
|00002ac0| 20 6a 6b 61 2d 63 6f 6d | 70 72 20 6a 6b 61 2d 6f | jka-com|pr jka-o|
|00002ad0| 70 20 61 70 70 6c 79 20 | 61 72 67 73 20 6a 6b 61 |p apply |args jka|
|00002ae0| 2d 63 6f 6d 70 72 2d 72 | 75 6e 2d 72 65 61 6c 2d |-compr-r|un-real-|
|00002af0| 68 61 6e 64 6c 65 72 5d | 20 34 5d 20 6a 6b 61 2d |handler]| 4] jka-|
|00002b00| 63 6f 6d 70 72 2d 72 75 | 6e 2d 72 65 61 6c 2d 68 |compr-ru|n-real-h|
|00002b10| 61 6e 64 6c 65 72 20 23 | 5b 28 6f 70 65 72 61 74 |andler #|[(operat|
|00002b20| 69 6f 6e 20 61 72 67 73 | 29 20 22 c0 09 5c 6e 3d |ion args|) "..\n=|
|00002b30| ad 81 0b 42 5c 6e 19 1b | c4 5c 6e 0d 5c 22 2a 87 |...B\n..|.\n.\"*.|
|00002b40| 22 20 5b 6a 6b 61 2d 63 | 6f 6d 70 72 2d 68 61 6e |" [jka-c|ompr-han|
|00002b50| 64 6c 65 72 20 69 6e 68 | 69 62 69 74 2d 66 69 6c |dler inh|ibit-fil|
|00002b60| 65 2d 6e 61 6d 65 2d 6f | 70 65 72 61 74 69 6f 6e |e-name-o|peration|
|00002b70| 20 6f 70 65 72 61 74 69 | 6f 6e 20 69 6e 68 69 62 | operati|on inhib|
|00002b80| 69 74 2d 66 69 6c 65 2d | 6e 61 6d 65 2d 68 61 6e |it-file-|name-han|
|00002b90| 64 6c 65 72 73 20 61 70 | 70 6c 79 20 61 72 67 73 |dlers ap|ply args|
|00002ba0| 5d 20 33 5d 5d 20 34 29 | 0a 28 66 73 65 74 20 27 |] 3]] 4)|.(fset '|
|00002bb0| 74 6f 67 67 6c 65 2d 61 | 75 74 6f 2d 63 6f 6d 70 |toggle-a|uto-comp|
|00002bc0| 72 65 73 73 69 6f 6e 20 | 23 5b 28 61 72 67 29 20 |ression |#[(arg) |
|00002bd0| 22 c0 20 19 5c 6e ac 84 | 09 3f aa 90 5c 6e c3 3d |". .\n..|.?..\n.=|
|00002be0| ae 8b 5c 6e 3c ae 87 5c | 6e a8 ad 83 5c 6e c4 56 |..\n<..\|n...\n.V|
|00002bf0| 89 1d ab 83 09 ac 91 0d | ac 83 09 ab 8b 0d ab 85 |........|........|
|00002c00| c6 20 88 aa 83 c7 20 88 | 74 ab 8d 0d ab 86 c8 c9 |. .... .|t.......|
|00002c10| 21 88 aa 84 c8 ca 21 88 | 0d 2a 87 22 20 5b 6a 6b |!.....!.|.*." [jk|
|00002c20| 61 2d 63 6f 6d 70 72 2d | 69 6e 73 74 61 6c 6c 65 |a-compr-|installe|
|00002c30| 64 2d 70 20 69 6e 73 74 | 61 6c 6c 65 64 20 61 72 |d-p inst|alled ar|
|00002c40| 67 20 74 20 30 20 66 6c | 61 67 20 6a 6b 61 2d 63 |g t 0 fl|ag jka-c|
|00002c50| 6f 6d 70 72 2d 69 6e 73 | 74 61 6c 6c 20 6a 6b 61 |ompr-ins|tall jka|
|00002c60| 2d 63 6f 6d 70 72 2d 75 | 6e 69 6e 73 74 61 6c 6c |-compr-u|ninstall|
|00002c70| 20 6d 65 73 73 61 67 65 | 20 22 41 75 74 6f 6d 61 | message| "Automa|
|00002c80| 74 69 63 20 66 69 6c 65 | 20 28 64 65 29 63 6f 6d |tic file| (de)com|
|00002c90| 70 72 65 73 73 69 6f 6e | 20 69 73 20 6e 6f 77 20 |pression| is now |
|00002ca0| 4f 4e 2e 22 20 22 41 75 | 74 6f 6d 61 74 69 63 20 |ON." "Au|tomatic |
|00002cb0| 66 69 6c 65 20 28 64 65 | 29 63 6f 6d 70 72 65 73 |file (de|)compres|
|00002cc0| 73 69 6f 6e 20 69 73 20 | 6e 6f 77 20 4f 46 46 2e |sion is |now OFF.|
|00002cd0| 22 5d 20 33 20 22 5c 0a | 54 6f 67 67 6c 65 20 61 |"] 3 "\.|Toggle a|
|00002ce0| 75 74 6f 6d 61 74 69 63 | 20 66 69 6c 65 20 63 6f |utomatic| file co|
|00002cf0| 6d 70 72 65 73 73 69 6f | 6e 20 61 6e 64 20 64 65 |mpressio|n and de|
|00002d00| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 2e 0a 57 69 74 |compress|ion..Wit|
|00002d10| 68 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |h prefix| argumen|
|00002d20| 74 20 41 52 47 2c 20 74 | 75 72 6e 20 61 75 74 6f |t ARG, t|urn auto|
|00002d30| 20 63 6f 6d 70 72 65 73 | 73 69 6f 6e 20 6f 6e 20 | compres|sion on |
|00002d40| 69 66 20 70 6f 73 69 74 | 69 76 65 2c 20 65 6c 73 |if posit|ive, els|
|00002d50| 65 20 6f 66 66 2e 0a 52 | 65 74 75 72 6e 73 20 74 |e off..R|eturns t|
|00002d60| 68 65 20 6e 65 77 20 73 | 74 61 74 75 73 20 6f 66 |he new s|tatus of|
|00002d70| 20 61 75 74 6f 20 63 6f | 6d 70 72 65 73 73 69 6f | auto co|mpressio|
|00002d80| 6e 20 28 6e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |n (non-n|il means|
|00002d90| 20 6f 6e 29 2e 22 20 22 | 50 22 5d 29 0a 28 66 73 | on)." "|P"]).(fs|
|00002da0| 65 74 20 27 6a 6b 61 2d | 63 6f 6d 70 72 2d 62 75 |et 'jka-|compr-bu|
|00002db0| 69 6c 64 2d 66 69 6c 65 | 2d 72 65 67 65 78 70 20 |ild-file|-regexp |
|00002dc0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 0b c4 23 c5 51 87 |#[nil ".|....#.Q.|
|00002dd0| 22 20 5b 22 5c 5c 28 22 | 20 6d 61 70 63 6f 6e 63 |" ["\\("| mapconc|
|00002de0| 61 74 20 6a 6b 61 2d 63 | 6f 6d 70 72 2d 69 6e 66 |at jka-c|ompr-inf|
|00002df0| 6f 2d 72 65 67 65 78 70 | 20 6a 6b 61 2d 63 6f 6d |o-regexp| jka-com|
|00002e00| 70 72 2d 63 6f 6d 70 72 | 65 73 73 69 6f 6e 2d 69 |pr-compr|ession-i|
|00002e10| 6e 66 6f 2d 6c 69 73 74 | 20 22 5c 5c 29 5c 5c 7c |nfo-list| "\\)\\||
|00002e20| 5c 5c 28 22 20 22 5c 5c | 29 22 5d 20 35 5d 29 0a |\\(" "\\|)"] 5]).|
|00002e30| 28 66 73 65 74 20 27 6a | 6b 61 2d 63 6f 6d 70 72 |(fset 'j|ka-compr|
|00002e40| 2d 69 6e 73 74 61 6c 6c | 20 23 5b 6e 69 6c 20 22 |-install| #[nil "|
|00002e50| c0 20 c1 42 89 12 0b 42 | 13 c4 c5 0e 06 5c 22 88 |. .B...B|.....\".|
|00002e60| c7 0e 08 0e 09 5c 22 89 | 16 08 87 22 20 5b 6a 6b |.....\".|..." [jk|
|00002e70| 61 2d 63 6f 6d 70 72 2d | 62 75 69 6c 64 2d 66 69 |a-compr-|build-fi|
|00002e80| 6c 65 2d 72 65 67 65 78 | 70 20 6a 6b 61 2d 63 6f |le-regex|p jka-co|
|00002e90| 6d 70 72 2d 68 61 6e 64 | 6c 65 72 20 6a 6b 61 2d |mpr-hand|ler jka-|
|00002ea0| 63 6f 6d 70 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |compr-fi|le-name-|
|00002eb0| 68 61 6e 64 6c 65 72 2d | 65 6e 74 72 79 20 66 69 |handler-|entry fi|
|00002ec0| 6c 65 2d 6e 61 6d 65 2d | 68 61 6e 64 6c 65 72 2d |le-name-|handler-|
|00002ed0| 61 6c 69 73 74 20 6d 61 | 70 63 61 72 20 23 5b 28 |alist ma|pcar #[(|
|00002ee0| 78 29 20 22 c0 09 21 ad | 9a c2 09 21 c3 c4 45 0d |x) "..!.|...!..E.|
|00002ef0| 42 89 15 ad 8e c6 c7 21 | ad 89 c2 09 21 0e 07 42 |B......!|....!..B|
|00002f00| 89 16 07 87 22 20 5b 6a | 6b 61 2d 63 6f 6d 70 72 |...." [j|ka-compr|
|00002f10| 2d 69 6e 66 6f 2d 73 74 | 72 69 70 2d 65 78 74 65 |-info-st|rip-exte|
|00002f20| 6e 73 69 6f 6e 20 78 20 | 6a 6b 61 2d 63 6f 6d 70 |nsion x |jka-comp|
|00002f30| 72 2d 69 6e 66 6f 2d 72 | 65 67 65 78 70 20 6e 69 |r-info-r|egexp ni|
|00002f40| 6c 20 6a 6b 61 2d 63 6f | 6d 70 72 20 61 75 74 6f |l jka-co|mpr auto|
|00002f50| 2d 6d 6f 64 65 2d 61 6c | 69 73 74 20 62 6f 75 6e |-mode-al|ist boun|
|00002f60| 64 70 20 69 6e 68 69 62 | 69 74 2d 66 69 72 73 74 |dp inhib|it-first|
|00002f70| 2d 6c 69 6e 65 2d 6d 6f | 64 65 73 2d 73 75 66 66 |-line-mo|des-suff|
|00002f80| 69 78 65 73 5d 20 33 5d | 20 6a 6b 61 2d 63 6f 6d |ixes] 3]| jka-com|
|00002f90| 70 72 2d 63 6f 6d 70 72 | 65 73 73 69 6f 6e 2d 69 |pr-compr|ession-i|
|00002fa0| 6e 66 6f 2d 6c 69 73 74 | 20 61 70 70 65 6e 64 20 |nfo-list| append |
|00002fb0| 61 75 74 6f 2d 6d 6f 64 | 65 2d 61 6c 69 73 74 20 |auto-mod|e-alist |
|00002fc0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 6d 6f 64 65 2d 61 |jka-comp|r-mode-a|
|00002fd0| 6c 69 73 74 2d 61 64 64 | 69 74 69 6f 6e 73 5d 20 |list-add|itions] |
|00002fe0| 34 20 22 5c 0a 49 6e 73 | 74 61 6c 6c 20 6a 6b 61 |4 "\.Ins|tall jka|
|00002ff0| 2d 63 6f 6d 70 72 2e 0a | 54 68 69 73 20 61 64 64 |-compr..|This add|
|00003000| 73 20 65 6e 74 72 69 65 | 73 20 74 6f 20 60 66 69 |s entrie|s to `fi|
|00003010| 6c 65 2d 6e 61 6d 65 2d | 68 61 6e 64 6c 65 72 2d |le-name-|handler-|
|00003020| 61 6c 69 73 74 27 20 61 | 6e 64 20 60 61 75 74 6f |alist' a|nd `auto|
|00003030| 2d 6d 6f 64 65 2d 61 6c | 69 73 74 27 0a 61 6e 64 |-mode-al|ist'.and|
|00003040| 20 60 69 6e 68 69 62 69 | 74 2d 66 69 72 73 74 2d | `inhibi|t-first-|
|00003050| 6c 69 6e 65 2d 6d 6f 64 | 65 73 2d 73 75 66 66 69 |line-mod|es-suffi|
|00003060| 78 65 73 27 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |xes'."])|.(fset '|
|00003070| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 75 6e 69 6e 73 74 |jka-comp|r-uninst|
|00003080| 61 6c 6c 20 23 5b 6e 69 | 6c 20 22 c0 c1 5c 6e 5c |all #[ni|l "..\n\|
|00003090| 22 88 c3 0c 42 89 1d 1e | 06 0e 06 41 ab 9a 0e 06 |"...B...|...A....|
|000030a0| 41 40 41 c7 3d ab 89 0e | 06 89 41 41 a1 88 aa 69 |A@A.=...|..AA...i|
|000030b0| 0e 06 41 89 16 06 aa 63 | 0d 41 14 2a c3 0e 08 42 |..A....c|.A.*...B|
|000030c0| 89 1e 09 1e 06 c3 1e 5c | 6e 0e 06 41 ab ab 0e 06 |.......\|n..A....|
|000030d0| 41 40 89 16 5c 6e 0e 0b | 9d ac 8e 0e 5c 6e 41 3a |A@..\n..|....\nA:|
|000030e0| ab 91 cc 0e 5c 6e 38 cd | 3d ab 89 0e 06 89 41 41 |....\n8.|=.....AA|
|000030f0| a1 88 aa 58 0e 06 41 89 | 16 06 aa 52 0e 09 41 89 |...X..A.|...R..A.|
|00003100| 16 08 2b 87 22 20 5b 6d | 61 70 63 61 72 20 23 5b |..+." [m|apcar #[|
|00003110| 28 78 29 20 22 c0 09 21 | ad 8d c2 c3 21 ad 88 c4 |(x) "..!|....!...|
|00003120| c5 09 21 0b 5c 22 89 13 | 87 22 20 5b 6a 6b 61 2d |..!.\"..|." [jka-|
|00003130| 63 6f 6d 70 72 2d 69 6e | 66 6f 2d 73 74 72 69 70 |compr-in|fo-strip|
|00003140| 2d 65 78 74 65 6e 73 69 | 6f 6e 20 78 20 62 6f 75 |-extensi|on x bou|
|00003150| 6e 64 70 20 69 6e 68 69 | 62 69 74 2d 66 69 72 73 |ndp inhi|bit-firs|
|00003160| 74 2d 6c 69 6e 65 2d 6d | 6f 64 65 73 2d 73 75 66 |t-line-m|odes-suf|
|00003170| 66 69 78 65 73 20 64 65 | 6c 65 74 65 20 6a 6b 61 |fixes de|lete jka|
|00003180| 2d 63 6f 6d 70 72 2d 69 | 6e 66 6f 2d 72 65 67 65 |-compr-i|nfo-rege|
|00003190| 78 70 5d 20 33 5d 20 6a | 6b 61 2d 63 6f 6d 70 72 |xp] 3] j|ka-compr|
|000031a0| 2d 63 6f 6d 70 72 65 73 | 73 69 6f 6e 2d 69 6e 66 |-compres|sion-inf|
|000031b0| 6f 2d 6c 69 73 74 20 6e | 69 6c 20 66 69 6c 65 2d |o-list n|il file-|
|000031c0| 6e 61 6d 65 2d 68 61 6e | 64 6c 65 72 2d 61 6c 69 |name-han|dler-ali|
|000031d0| 73 74 20 66 6e 68 61 20 | 6c 61 73 74 20 6a 6b 61 |st fnha |last jka|
|000031e0| 2d 63 6f 6d 70 72 2d 68 | 61 6e 64 6c 65 72 20 61 |-compr-h|andler a|
|000031f0| 75 74 6f 2d 6d 6f 64 65 | 2d 61 6c 69 73 74 20 61 |uto-mode|-alist a|
|00003200| 6d 61 20 65 6e 74 72 79 | 20 6a 6b 61 2d 63 6f 6d |ma entry| jka-com|
|00003210| 70 72 2d 6d 6f 64 65 2d | 61 6c 69 73 74 2d 61 64 |pr-mode-|alist-ad|
|00003220| 64 69 74 69 6f 6e 73 20 | 32 20 6a 6b 61 2d 63 6f |ditions |2 jka-co|
|00003230| 6d 70 72 5d 20 34 20 22 | 5c 0a 55 6e 69 6e 73 74 |mpr] 4 "|\.Uninst|
|00003240| 61 6c 6c 20 6a 6b 61 2d | 63 6f 6d 70 72 2e 0a 54 |all jka-|compr..T|
|00003250| 68 69 73 20 72 65 6d 6f | 76 65 73 20 74 68 65 20 |his remo|ves the |
|00003260| 65 6e 74 72 69 65 73 20 | 69 6e 20 60 66 69 6c 65 |entries |in `file|
|00003270| 2d 6e 61 6d 65 2d 68 61 | 6e 64 6c 65 72 2d 61 6c |-name-ha|ndler-al|
|00003280| 69 73 74 27 20 61 6e 64 | 20 60 61 75 74 6f 2d 6d |ist' and| `auto-m|
|00003290| 6f 64 65 2d 61 6c 69 73 | 74 27 0a 61 6e 64 20 60 |ode-alis|t'.and `|
|000032a0| 69 6e 68 69 62 69 74 2d | 66 69 72 73 74 2d 6c 69 |inhibit-|first-li|
|000032b0| 6e 65 2d 6d 6f 64 65 73 | 2d 73 75 66 66 69 78 65 |ne-modes|-suffixe|
|000032c0| 73 27 20 74 68 61 74 20 | 77 65 72 65 20 61 64 64 |s' that |were add|
|000032d0| 65 64 0a 62 79 20 60 6a | 6b 61 2d 63 6f 6d 70 72 |ed.by `j|ka-compr|
|000032e0| 2d 69 6e 73 74 61 6c 6c | 65 64 27 2e 22 5d 29 0a |-install|ed'."]).|
|000032f0| 28 66 73 65 74 20 27 6a | 6b 61 2d 63 6f 6d 70 72 |(fset 'j|ka-compr|
|00003300| 2d 69 6e 73 74 61 6c 6c | 65 64 2d 70 20 23 5b 6e |-install|ed-p #[n|
|00003310| 69 6c 20 22 08 c1 1a 89 | 1b ab 93 5c 6e ac 90 0b |il "....|...\n...|
|00003320| 40 41 c4 3d ab 83 0b 40 | 12 0b 41 89 13 ac 6d 5c |@A.=...@|..A...m\|
|00003330| 6e 2a 87 22 20 5b 66 69 | 6c 65 2d 6e 61 6d 65 2d |n*." [fi|le-name-|
|00003340| 68 61 6e 64 6c 65 72 2d | 61 6c 69 73 74 20 6e 69 |handler-|alist ni|
|00003350| 6c 20 69 6e 73 74 61 6c | 6c 65 64 20 66 6e 68 61 |l instal|led fnha|
|00003360| 20 6a 6b 61 2d 63 6f 6d | 70 72 2d 68 61 6e 64 6c | jka-com|pr-handl|
|00003370| 65 72 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |er] 3 "\|.Return |
|00003380| 6e 6f 6e 2d 6e 69 6c 20 | 69 66 20 6a 6b 61 2d 63 |non-nil |if jka-c|
|00003390| 6f 6d 70 72 20 69 73 20 | 69 6e 73 74 61 6c 6c 65 |ompr is |installe|
|000033a0| 64 2e 0a 54 68 65 20 72 | 65 74 75 72 6e 20 76 61 |d..The r|eturn va|
|000033b0| 6c 75 65 20 69 73 20 74 | 68 65 20 65 6e 74 72 79 |lue is t|he entry|
|000033c0| 20 69 6e 20 60 66 69 6c | 65 2d 6e 61 6d 65 2d 68 | in `fil|e-name-h|
|000033d0| 61 6e 64 6c 65 72 2d 61 | 6c 69 73 74 27 20 66 6f |andler-a|list' fo|
|000033e0| 72 20 6a 6b 61 2d 63 6f | 6d 70 72 2e 22 5d 29 0a |r jka-co|mpr."]).|
|000033f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 ab 83 |(byte-co|de ". ..|
|00003400| c1 20 88 c2 20 88 c3 c4 | 21 87 22 20 5b 6a 6b 61 |. .. ...|!." [jka|
|00003410| 2d 63 6f 6d 70 72 2d 69 | 6e 73 74 61 6c 6c 65 64 |-compr-i|nstalled|
|00003420| 2d 70 20 6a 6b 61 2d 63 | 6f 6d 70 72 2d 75 6e 69 |-p jka-c|ompr-uni|
|00003430| 6e 73 74 61 6c 6c 20 6a | 6b 61 2d 63 6f 6d 70 72 |nstall j|ka-compr|
|00003440| 2d 69 6e 73 74 61 6c 6c | 20 70 72 6f 76 69 64 65 |-install| provide|
|00003450| 20 6a 6b 61 2d 63 6f 6d | 70 72 5d 20 32 29 0a | jka-com|pr] 2). |
+--------+-------------------------+-------------------------+--------+--------+
