/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / gzip.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 67 7a |jade/3.2|/lisp/gz|
|00000030| 69 70 2e 6a 6c 0a 3b 3b | 3b 20 43 6f 6d 70 69 6c |ip.jl.;;|; Compil|
|00000040| 65 64 20 62 79 20 6a 73 | 68 40 6f 72 63 72 69 73 |ed by js|h@orcris|
|00000050| 74 20 6f 6e 20 53 75 6e | 20 4f 63 74 20 31 36 20 |t on Sun| Oct 16 |
|00000060| 32 30 3a 32 30 3a 34 36 | 20 31 39 39 34 0a 3b 3b |20:20:46| 1994.;;|
|00000070| 3b 20 4a 61 64 65 20 33 | 2e 32 0a 0a 28 70 72 6f |; Jade 3|.2..(pro|
|00000080| 76 69 64 65 20 28 71 75 | 6f 74 65 20 67 7a 69 70 |vide (qu|ote gzip|
|00000090| 29 29 0a 0a 28 64 65 66 | 75 6e 20 67 7a 69 70 2d |))..(def|un gzip-|
|000000a0| 75 6e 63 6f 6d 70 72 65 | 73 73 20 28 66 69 6c 65 |uncompre|ss (file|
|000000b0| 2d 6e 61 6d 65 29 20 28 | 6a 61 64 65 2d 62 79 74 |-name) (|jade-byt|
|000000c0| 65 2d 63 6f 64 65 20 22 | 44 10 49 b2 09 31 12 13 |e-code "|D.I..1..|
|000000d0| 14 1d 16 06 0b 4a 0a 48 | 16 07 19 49 16 08 16 09 |.....J.H|...I....|
|000000e0| 1d 0d 6b ff 00 25 16 0a | 16 0b 1d 2a 7d 45 22 20 |..k..%..|...*}E" |
|000000f0| 5b 6d 61 6b 65 2d 70 72 | 6f 63 65 73 73 20 70 72 |[make-pr|ocess pr|
|00000100| 6f 63 20 6d 65 73 73 61 | 67 65 20 63 6f 6e 63 61 |oc messa|ge conca|
|00000110| 74 20 22 55 6e 63 6f 6d | 70 72 65 73 73 69 6e 67 |t "Uncom|pressing|
|00000120| 20 60 22 20 66 69 6c 65 | 2d 6e 61 6d 65 20 22 27 | `" file|-name "'|
|00000130| 22 20 72 75 6e 2d 70 72 | 6f 63 65 73 73 20 22 67 |" run-pr|ocess "g|
|00000140| 75 6e 7a 69 70 22 20 22 | 2d 63 22 20 66 69 6c 65 |unzip" "|-c" file|
|00000150| 2d 65 72 72 6f 72 20 22 | 43 61 6e 27 74 20 67 75 |-error "|Can't gu|
|00000160| 6e 7a 69 70 20 66 69 6c | 65 22 5d 20 36 29 29 0a |nzip fil|e"] 6)).|
|00000170| 0a 28 64 65 66 75 6e 20 | 67 7a 69 70 2d 72 65 61 |.(defun |gzip-rea|
|00000180| 64 2d 66 69 6c 65 20 28 | 66 69 6c 65 2d 6e 61 6d |d-file (|file-nam|
|00000190| 65 20 62 75 66 66 65 72 | 29 20 28 6a 61 64 65 2d |e buffer|) (jade-|
|000001a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 11 1a 0a fe |byte-cod|e ".....|
|000001b0| 00 3b 44 13 08 34 1d b1 | 16 06 1a 09 48 16 07 1c |.;D..4..|....H...|
|000001c0| 09 48 1e 08 ff 00 27 16 | 09 16 0a 1a 16 0b 0b 46 |.H....'.|.......F|
|000001d0| 26 08 48 16 0c 1a 09 46 | 26 0d 48 16 0e 1d 1a 0a |&.H....F|&.H.....|
|000001e0| 47 b1 48 48 4a 45 22 20 | 5b 72 65 67 65 78 70 2d |G.HHJE" |[regexp-|
|000001f0| 6d 61 74 63 68 20 22 5c | 5c 2e 28 67 7a 7c 5a 29 |match "\|\.(gz|Z)|
|00000200| 24 22 20 66 69 6c 65 2d | 6e 61 6d 65 20 63 75 72 |$" file-|name cur|
|00000210| 73 6f 72 2d 70 6f 73 20 | 6f 6c 64 2d 70 6f 73 20 |sor-pos |old-pos |
|00000220| 62 75 66 66 65 72 20 67 | 7a 69 70 2d 75 6e 63 6f |buffer g|zip-unco|
|00000230| 6d 70 72 65 73 73 20 67 | 6f 74 6f 2d 63 68 61 72 |mpress g|oto-char|
|00000240| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 72 65 67 65 78 | mode-na|me regex|
|00000250| 70 2d 65 78 70 61 6e 64 | 20 22 5e 28 2e 2a 29 5c |p-expand| "^(.*)\|
|00000260| 5c 2e 28 67 7a 7c 5a 29 | 24 22 20 22 5c 5c 31 22 |\.(gz|Z)|$" "\\1"|
|00000270| 20 66 69 6c 65 2d 6d 6f | 64 74 69 6d 65 20 62 75 | file-mo|dtime bu|
|00000280| 66 66 65 72 2d 66 69 6c | 65 2d 6d 6f 64 74 69 6d |ffer-fil|e-modtim|
|00000290| 65 20 73 65 74 2d 62 75 | 66 66 65 72 2d 66 69 6c |e set-bu|ffer-fil|
|000002a0| 65 2d 6e 61 6d 65 5d 20 | 35 29 29 0a 0a 28 64 65 |e-name] |5))..(de|
|000002b0| 66 75 6e 20 67 7a 69 70 | 2d 69 6e 73 65 72 74 2d |fun gzip|-insert-|
|000002c0| 66 69 6c 65 20 28 66 69 | 6c 65 2d 6e 61 6d 65 29 |file (fi|le-name)|
|000002d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000002e0| 20 22 10 11 1a 0a fe 00 | 0a 13 1a 09 22 20 5b 72 | "......|...." [r|
|000002f0| 65 67 65 78 70 2d 6d 61 | 74 63 68 20 22 5c 5c 2e |egexp-ma|tch "\\.|
|00000300| 28 67 7a 7c 5a 29 24 22 | 20 66 69 6c 65 2d 6e 61 |(gz|Z)$"| file-na|
|00000310| 6d 65 20 67 7a 69 70 2d | 75 6e 63 6f 6d 70 72 65 |me gzip-|uncompre|
|00000320| 73 73 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |ss] 3)).|.(defun |
|00000330| 67 7a 69 70 2d 77 72 69 | 74 65 2d 66 69 6c 65 20 |gzip-wri|te-file |
|00000340| 28 66 69 6c 65 2d 6e 61 | 6d 65 20 62 75 66 66 65 |(file-na|me buffe|
|00000350| 72 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |r) (jade|-byte-co|
|00000360| 64 65 20 22 10 11 1a 0a | fe 00 8e 44 13 1a 09 fe |de "....|...D....|
|00000370| 00 11 14 1a 09 15 08 10 | 16 06 1a 0a fc 00 20 16 |........|...... .|
|00000380| 07 fb 00 5c 22 16 08 49 | 49 36 09 36 0a 36 0b 36 |...\"..I|I6.6.6.6|
|00000390| 0c 36 0d 16 0e 1a 09 48 | 16 0f 1e 0c 1e 10 0a fe |.6.....H|........|
|000003a0| 00 46 16 11 1a 16 12 0a | 46 26 0a fe 00 8d 16 13 |.F......|F&......|
|000003b0| 75 16 14 1e 0a 09 46 26 | 09 48 16 15 16 16 16 17 |u.....F&|.H......|
|000003c0| 1a 16 18 0b 4a 0a 48 16 | 19 1e 09 49 1e 0b 16 1a |....J.H.|...I....|
|000003d0| 1e 0c 0d 16 1b 63 fe 00 | 7e 16 1c 16 1d 1e 0c 1e |.....c..|~.......|
|000003e0| 0b 2b 7d 76 48 1e 0d fe | 00 8b 16 1e 1a 1e 0d 0a |.+}vH...|........|
|000003f0| 48 4a 45 22 20 5b 72 65 | 67 65 78 70 2d 6d 61 74 |HJE" [re|gexp-mat|
|00000400| 63 68 20 22 5c 5c 2e 28 | 67 7a 7c 5a 29 24 22 20 |ch "\\.(|gz|Z)$" |
|00000410| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 65 |file-nam|e file-e|
|00000420| 78 69 73 74 73 2d 70 20 | 66 69 6c 65 2d 6d 6f 64 |xists-p |file-mod|
|00000430| 65 73 20 74 6d 70 2d 66 | 69 6c 65 2d 6e 61 6d 65 |es tmp-f|ile-name|
|00000440| 20 22 5c 5c 2e 5a 24 22 | 20 22 63 6f 6d 70 72 65 | "\\.Z$"| "compre|
|00000450| 73 73 22 20 22 67 7a 69 | 70 22 20 70 72 6f 63 20 |ss" "gzi|p" proc |
|00000460| 64 73 74 2d 66 69 6c 65 | 20 63 6f 6d 70 72 65 73 |dst-file| compres|
|00000470| 73 6f 72 20 74 6d 70 2d | 6e 61 6d 65 20 6d 6f 64 |sor tmp-|name mod|
|00000480| 65 73 20 62 61 63 6b 75 | 70 2d 66 69 6c 65 20 77 |es backu|p-file w|
|00000490| 72 69 74 65 2d 62 75 66 | 66 65 72 20 62 75 66 66 |rite-buf|fer buff|
|000004a0| 65 72 20 6f 70 65 6e 20 | 22 77 62 22 20 28 6a 61 |er open |"wb" (ja|
|000004b0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 19 |de-byte-|code "..|
|000004c0| 09 48 12 1b 09 22 20 5b | 63 6c 6f 73 65 20 64 73 |.H..." [|close ds|
|000004d0| 74 2d 66 69 6c 65 20 64 | 65 6c 65 74 65 2d 66 69 |t-file d|elete-fi|
|000004e0| 6c 65 20 74 6d 70 2d 6e | 61 6d 65 5d 20 32 29 20 |le tmp-n|ame] 2) |
|000004f0| 6d 61 6b 65 2d 70 72 6f | 63 65 73 73 20 6d 65 73 |make-pro|cess mes|
|00000500| 73 61 67 65 20 63 6f 6e | 63 61 74 20 22 43 6f 6d |sage con|cat "Com|
|00000510| 70 72 65 73 73 69 6e 67 | 20 60 22 20 22 27 2e 2e |pressing| `" "'..|
|00000520| 2e 20 22 20 72 75 6e 2d | 70 72 6f 63 65 73 73 20 |. " run-|process |
|00000530| 22 2d 63 22 20 30 20 66 | 69 6c 65 2d 65 72 72 6f |"-c" 0 f|ile-erro|
|00000540| 72 20 22 43 61 6e 27 74 | 20 63 6f 6d 70 72 65 73 |r "Can't| compres|
|00000550| 73 20 66 69 6c 65 22 20 | 73 65 74 2d 66 69 6c 65 |s file" |set-file|
|00000560| 2d 6d 6f 64 65 73 5d 20 | 36 29 29 0a 0a 28 61 64 |-modes] |6))..(ad|
|00000570| 64 2d 68 6f 6f 6b 20 28 | 71 75 6f 74 65 20 72 65 |d-hook (|quote re|
|00000580| 61 64 2d 66 69 6c 65 2d | 68 6f 6f 6b 29 20 28 71 |ad-file-|hook) (q|
|00000590| 75 6f 74 65 20 67 7a 69 | 70 2d 72 65 61 64 2d 66 |uote gzi|p-read-f|
|000005a0| 69 6c 65 29 29 0a 0a 28 | 61 64 64 2d 68 6f 6f 6b |ile))..(|add-hook|
|000005b0| 20 28 71 75 6f 74 65 20 | 69 6e 73 65 72 74 2d 66 | (quote |insert-f|
|000005c0| 69 6c 65 2d 68 6f 6f 6b | 29 20 28 71 75 6f 74 65 |ile-hook|) (quote|
|000005d0| 20 67 7a 69 70 2d 69 6e | 73 65 72 74 2d 66 69 6c | gzip-in|sert-fil|
|000005e0| 65 29 29 0a 0a 28 61 64 | 64 2d 68 6f 6f 6b 20 28 |e))..(ad|d-hook (|
|000005f0| 71 75 6f 74 65 20 77 72 | 69 74 65 2d 66 69 6c 65 |quote wr|ite-file|
|00000600| 2d 68 6f 6f 6b 29 20 28 | 71 75 6f 74 65 20 67 7a |-hook) (|quote gz|
|00000610| 69 70 2d 77 72 69 74 65 | 2d 66 69 6c 65 29 29 0a |ip-write|-file)).|
+--------+-------------------------+-------------------------+--------+--------+