/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / ftp.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 66 74 70 2d 70 61 73 |.(defvar| ftp-pas|
|00000010| 73 77 6f 72 64 2d 61 6c | 69 73 74 20 6e 69 6c 20 |sword-al|ist nil |
|00000020| 22 5c 0a 53 65 63 75 72 | 69 74 79 20 73 75 63 6b |"\.Secur|ity suck|
|00000030| 73 22 29 0a 0a 28 64 65 | 66 75 6e 20 72 65 61 64 |s")..(de|fun read|
|00000040| 2d 66 74 70 2d 75 73 65 | 72 2d 70 61 73 73 77 6f |-ftp-use|r-passwo|
|00000050| 72 64 20 28 68 6f 73 74 | 20 75 73 65 72 20 6e 65 |rd (host| user ne|
|00000060| 77 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c6 |w) (byte|-code ".|
|00000070| 18 09 3f 85 20 00 0a 3c | 85 20 00 c7 0b 0a 5c 22 |..?. ..<|. ....\"|
|00000080| 41 89 10 85 20 00 0c 3f | 86 20 00 c8 0c 08 40 5c |A... ..?|. ....@\|
|00000090| 22 83 27 00 08 82 97 00 | 0c 86 52 00 0a 3c 85 36 |".'.....|..R..<.6|
|000000a0| 00 c7 0b 0a 5c 22 41 40 | 86 3b 00 c9 20 89 10 88 |....\"A@|.;.. ...|
|000000b0| ca cb cc 0b 08 23 21 89 | 14 88 cd 0c ce 5c 22 85 |.....#!.|.....\".|
|000000c0| 52 00 08 89 14 88 0c ca | cb cf 0c 0b 23 0a 3c 3f |R.......|....#.<?|
|000000d0| 83 64 00 ce 82 77 00 c7 | 0b 0a 5c 22 41 41 86 77 |.d...w..|..\"AA.w|
|000000e0| 00 0a 1d d0 d1 8d 29 86 | 77 00 ce 5c 22 42 89 10 |......).|w..\"B..|
|000000f0| 88 d2 ce 21 88 0a 3c 85 | 8b 00 c8 08 41 ce 5c 22 |...!..<.|....A.\"|
|00000100| 3f 85 95 00 0b 08 42 0a | 42 89 12 88 08 29 87 22 |?.....B.|B....)."|
|00000110| 20 5b 74 65 6d 20 6e 65 | 77 20 66 74 70 2d 70 61 | [tem ne|w ftp-pa|
|00000120| 73 73 77 6f 72 64 2d 61 | 6c 69 73 74 20 68 6f 73 |ssword-a|list hos|
|00000130| 74 20 75 73 65 72 20 6c | 20 6e 69 6c 20 61 73 73 |t user l| nil ass|
|00000140| 6f 63 20 73 74 72 69 6e | 67 3d 20 75 73 65 72 2d |oc strin|g= user-|
|00000150| 6c 6f 67 69 6e 2d 6e 61 | 6d 65 20 72 65 61 64 2d |login-na|me read-|
|00000160| 73 74 72 69 6e 67 20 66 | 6f 72 6d 61 74 20 22 55 |string f|ormat "U|
|00000170| 73 65 72 2d 6e 61 6d 65 | 20 66 6f 72 20 25 73 20 |ser-name| for %s |
|00000180| 28 64 65 66 61 75 6c 74 | 20 5c 22 25 73 5c 22 29 |(default| \"%s\")|
|00000190| 3a 20 22 20 65 71 75 61 | 6c 20 22 22 20 22 50 61 |: " equa|l "" "Pa|
|000001a0| 73 73 77 6f 72 64 20 66 | 6f 72 20 25 73 40 25 73 |ssword f|or %s@%s|
|000001b0| 3a 20 22 20 66 6f 6f 20 | 28 62 79 74 65 2d 63 6f |: " foo |(byte-co|
|000001c0| 64 65 20 22 08 85 20 00 | c3 08 40 41 40 09 5c 22 |de ".. .|..@A@.\"|
|000001d0| 83 18 00 c4 c5 08 40 41 | 41 5c 22 82 1c 00 08 41 |......@A|A\"....A|
|000001e0| 89 10 88 82 00 00 88 c2 | 87 22 20 5b 6c 20 75 73 |........|." [l us|
|000001f0| 65 72 20 6e 69 6c 20 73 | 74 72 69 6e 67 3d 20 74 |er nil s|tring= t|
|00000200| 68 72 6f 77 20 66 6f 6f | 5d 20 35 29 20 6d 65 73 |hrow foo|] 5) mes|
|00000210| 73 61 67 65 5d 20 31 34 | 29 29 0a 0a 28 64 65 66 |sage] 14|))..(def|
|00000220| 75 6e 20 66 74 70 2d 72 | 65 61 64 2d 66 69 6c 65 |un ftp-r|ead-file|
|00000230| 2d 6e 61 6d 65 20 28 70 | 72 6f 6d 70 74 29 20 28 |-name (p|rompt) (|
|00000240| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 18 c3 c4 08 |byte-cod|e ".....|
|00000250| 5c 22 3f 85 14 00 c5 09 | 08 5c 22 89 10 88 82 02 |\"?.....|.\".....|
|00000260| 00 88 08 c6 c7 21 c8 c7 | 21 4f 08 c6 c9 21 c8 c9 |.....!..|!O...!..|
|00000270| 21 4f 44 29 87 22 20 5b | 73 20 70 72 6f 6d 70 74 |!OD)." [|s prompt|
|00000280| 20 22 22 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 | "" stri|ng-match|
|00000290| 20 22 5c 5c 60 5b 20 09 | 5d 2a 5c 5c 28 5b 5e 20 | "\\`[ .|]*\\([^ |
|000002a0| 09 3a 5d 2b 5c 5c 29 5b | 20 09 5d 2a 3a 5c 5c 28 |.:]+\\)[| .]*:\\(|
|000002b0| 2e 2b 5c 5c 29 5c 5c 27 | 22 20 72 65 61 64 2d 73 |.+\\)\\'|" read-s|
|000002c0| 74 72 69 6e 67 20 6d 61 | 74 63 68 2d 62 65 67 69 |tring ma|tch-begi|
|000002d0| 6e 6e 69 6e 67 20 31 20 | 6d 61 74 63 68 2d 65 6e |nning 1 |match-en|
|000002e0| 64 20 32 5d 20 31 30 29 | 29 0a 0a 28 64 65 66 75 |d 2] 10)|)..(defu|
|000002f0| 6e 20 66 74 70 2d 66 69 | 6e 64 2d 66 69 6c 65 20 |n ftp-fi|nd-file |
|00000300| 28 68 6f 73 74 20 66 69 | 6c 65 20 26 6f 70 74 69 |(host fi|le &opti|
|00000310| 6f 6e 61 6c 20 75 73 65 | 72 20 70 61 73 73 77 6f |onal use|r passwo|
|00000320| 72 64 29 20 22 5c 0a 46 | 54 50 20 74 6f 20 48 4f |rd) "\.F|TP to HO|
|00000330| 53 54 20 74 6f 20 67 65 | 74 20 46 49 4c 45 2c 20 |ST to ge|t FILE, |
|00000340| 6c 6f 67 67 69 6e 67 20 | 69 6e 20 61 73 20 55 53 |logging |in as US|
|00000350| 45 52 20 77 69 74 68 20 | 70 61 73 73 77 6f 72 64 |ER with |password|
|00000360| 20 50 41 53 53 57 4f 52 | 44 2e 0a 49 6e 74 65 72 | PASSWOR|D..Inter|
|00000370| 61 63 74 69 76 65 6c 79 | 2c 20 48 4f 53 54 20 61 |actively|, HOST a|
|00000380| 6e 64 20 46 49 4c 45 20 | 61 72 65 20 73 70 65 63 |nd FILE |are spec|
|00000390| 69 66 69 65 64 20 62 79 | 20 72 65 61 64 69 6e 67 |ified by| reading|
|000003a0| 20 61 20 73 74 72 69 6e | 67 20 77 69 74 68 0a 20 | a strin|g with. |
|000003b0| 61 20 63 6f 6c 6f 6e 20 | 63 68 61 72 61 63 74 65 |a colon |characte|
|000003c0| 72 20 73 65 70 61 72 61 | 74 69 6e 67 20 74 68 65 |r separa|ting the|
|000003d0| 20 68 6f 73 74 20 66 72 | 6f 6d 20 74 68 65 20 66 | host fr|om the f|
|000003e0| 69 6c 65 6e 61 6d 65 2e | 0a 55 53 45 52 20 61 6e |ilename.|.USER an|
|000003f0| 64 20 50 41 53 53 57 4f | 52 44 20 61 72 65 20 64 |d PASSWO|RD are d|
|00000400| 65 66 61 75 6c 74 65 64 | 20 66 72 6f 6d 20 74 68 |efaulted| from th|
|00000410| 65 20 76 61 6c 75 65 73 | 20 75 73 65 64 20 77 68 |e values| used wh|
|00000420| 65 6e 0a 20 6c 61 73 74 | 20 66 74 70 69 6e 67 20 |en. last| ftping |
|00000430| 66 72 6f 6d 20 48 4f 53 | 54 20 28 75 6e 6c 65 73 |from HOS|T (unles|
|00000440| 73 20 70 61 73 73 77 6f | 72 64 2d 72 65 6d 65 6d |s passwo|rd-remem|
|00000450| 62 65 72 69 6e 67 20 69 | 73 20 64 69 73 61 62 6c |bering i|s disabl|
|00000460| 65 64 29 2e 0a 20 53 75 | 70 70 6c 79 20 61 20 70 |ed).. Su|pply a p|
|00000470| 61 73 73 77 6f 72 64 20 | 6f 66 20 74 68 65 20 73 |assword |of the s|
|00000480| 79 6d 62 6f 6c 20 60 74 | 27 20 74 6f 20 6f 76 65 |ymbol `t|' to ove|
|00000490| 72 72 69 64 65 20 74 68 | 69 73 20 64 65 66 61 75 |rride th|is defau|
|000004a0| 6c 74 0a 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |lt. (int|eractive|
|000004b0| 6c 79 2c 20 74 68 69 73 | 20 69 73 20 64 6f 6e 65 |ly, this| is done|
|000004c0| 20 62 79 20 67 69 76 69 | 6e 67 20 61 20 70 72 65 | by givi|ng a pre|
|000004d0| 66 69 78 20 61 72 67 29 | 22 20 28 69 6e 74 65 72 |fix arg)|" (inter|
|000004e0| 61 63 74 69 76 65 20 28 | 62 79 74 65 2d 63 6f 64 |active (|byte-cod|
|000004f0| 65 20 22 c2 c3 c4 21 c0 | 09 3f 3f 44 5c 22 87 22 |e "...!.|.??D\"."|
|00000500| 20 5b 6e 69 6c 20 63 75 | 72 72 65 6e 74 2d 70 72 | [nil cu|rrent-pr|
|00000510| 65 66 69 78 2d 61 72 67 | 20 61 70 70 65 6e 64 20 |efix-arg| append |
|00000520| 66 74 70 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |ftp-read|-file-na|
|00000530| 6d 65 20 22 46 54 50 20 | 67 65 74 20 68 6f 73 74 |me "FTP |get host|
|00000540| 3a 66 69 6c 65 3a 20 22 | 5d 20 35 29 29 20 28 62 |:file: "|] 5)) (b|
|00000550| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c7 0a 0b c4 |yte-code| "......|
|00000560| 0d 0e 06 25 87 22 20 5b | 6e 69 6c 20 63 75 72 72 |...%." [|nil curr|
|00000570| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 68 |ent-pref|ix-arg h|
|00000580| 6f 73 74 20 66 69 6c 65 | 20 74 20 75 73 65 72 20 |ost file| t user |
|00000590| 70 61 73 73 77 6f 72 64 | 20 66 74 70 2d 66 69 6e |password| ftp-fin|
|000005a0| 64 2d 66 69 6c 65 2d 6f | 72 2d 64 69 72 65 63 74 |d-file-o|r-direct|
|000005b0| 6f 72 79 5d 20 36 29 29 | 0a 0a 28 64 65 66 75 6e |ory] 6))|..(defun|
|000005c0| 20 66 74 70 2d 6c 69 73 | 74 2d 64 69 72 65 63 74 | ftp-lis|t-direct|
|000005d0| 6f 72 79 20 28 68 6f 73 | 74 20 66 69 6c 65 20 26 |ory (hos|t file &|
|000005e0| 6f 70 74 69 6f 6e 61 6c | 20 75 73 65 72 20 70 61 |optional| user pa|
|000005f0| 73 73 77 6f 72 64 29 20 | 22 5c 0a 46 54 50 20 74 |ssword) |"\.FTP t|
|00000600| 6f 20 48 4f 53 54 20 74 | 6f 20 6c 69 73 74 20 44 |o HOST t|o list D|
|00000610| 49 52 45 43 54 4f 52 59 | 2c 20 6c 6f 67 67 69 6e |IRECTORY|, loggin|
|00000620| 67 20 69 6e 20 61 73 20 | 55 53 45 52 20 77 69 74 |g in as |USER wit|
|00000630| 68 20 70 61 73 73 77 6f | 72 64 20 50 41 53 53 57 |h passwo|rd PASSW|
|00000640| 4f 52 44 2e 0a 49 6e 74 | 65 72 61 63 74 69 76 65 |ORD..Int|eractive|
|00000650| 6c 79 2c 20 48 4f 53 54 | 20 61 6e 64 20 46 49 4c |ly, HOST| and FIL|
|00000660| 45 20 61 72 65 20 73 70 | 65 63 69 66 69 65 64 20 |E are sp|ecified |
|00000670| 62 79 20 72 65 61 64 69 | 6e 67 20 61 20 73 74 72 |by readi|ng a str|
|00000680| 69 6e 67 20 77 69 74 68 | 0a 20 61 20 63 6f 6c 6f |ing with|. a colo|
|00000690| 6e 20 63 68 61 72 61 63 | 74 65 72 20 73 65 70 61 |n charac|ter sepa|
|000006a0| 72 61 74 69 6e 67 20 74 | 68 65 20 68 6f 73 74 20 |rating t|he host |
|000006b0| 66 72 6f 6d 20 74 68 65 | 20 66 69 6c 65 6e 61 6d |from the| filenam|
|000006c0| 65 2e 0a 55 53 45 52 20 | 61 6e 64 20 50 41 53 53 |e..USER |and PASS|
|000006d0| 57 4f 52 44 20 61 72 65 | 20 64 65 66 61 75 6c 74 |WORD are| default|
|000006e0| 65 64 20 66 72 6f 6d 20 | 74 68 65 20 76 61 6c 75 |ed from |the valu|
|000006f0| 65 73 20 75 73 65 64 20 | 77 68 65 6e 0a 20 6c 61 |es used |when. la|
|00000700| 73 74 20 66 74 70 69 6e | 67 20 66 72 6f 6d 20 48 |st ftpin|g from H|
|00000710| 4f 53 54 20 28 75 6e 6c | 65 73 73 20 70 61 73 73 |OST (unl|ess pass|
|00000720| 77 6f 72 64 2d 72 65 6d | 65 6d 62 65 72 69 6e 67 |word-rem|embering|
|00000730| 20 69 73 20 64 69 73 61 | 62 6c 65 64 29 2e 0a 20 | is disa|bled).. |
|00000740| 53 75 70 70 6c 79 20 61 | 20 70 61 73 73 77 6f 72 |Supply a| passwor|
|00000750| 64 20 6f 66 20 74 68 65 | 20 73 79 6d 62 6f 6c 20 |d of the| symbol |
|00000760| 60 74 27 20 74 6f 20 6f | 76 65 72 72 69 64 65 20 |`t' to o|verride |
|00000770| 74 68 69 73 20 64 65 66 | 61 75 6c 74 0a 20 28 69 |this def|ault. (i|
|00000780| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 2c 20 74 68 |nteracti|vely, th|
|00000790| 69 73 20 69 73 20 64 6f | 6e 65 20 62 79 20 67 69 |is is do|ne by gi|
|000007a0| 76 69 6e 67 20 61 20 70 | 72 65 66 69 78 20 61 72 |ving a p|refix ar|
|000007b0| 67 29 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |g)" (int|eractive|
|000007c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 c3 c4 | (byte-c|ode "...|
|000007d0| 21 c0 09 3f 3f 44 5c 22 | 87 22 20 5b 6e 69 6c 20 |!..??D\"|." [nil |
|000007e0| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|000007f0| 72 67 20 61 70 70 65 6e | 64 20 66 74 70 2d 72 65 |rg appen|d ftp-re|
|00000800| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 46 54 |ad-file-|name "FT|
|00000810| 50 20 67 65 74 20 68 6f | 73 74 3a 64 69 72 65 63 |P get ho|st:direc|
|00000820| 74 6f 72 79 3a 20 22 5d | 20 35 29 29 20 28 62 79 |tory: "]| 5)) (by|
|00000830| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c6 0a 0b c0 0c |te-code |".......|
|00000840| 0d 25 87 22 20 5b 6e 69 | 6c 20 63 75 72 72 65 6e |.%." [ni|l curren|
|00000850| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 68 6f 73 |t-prefix|-arg hos|
|00000860| 74 20 66 69 6c 65 20 75 | 73 65 72 20 70 61 73 73 |t file u|ser pass|
|00000870| 77 6f 72 64 20 66 74 70 | 2d 66 69 6e 64 2d 66 69 |word ftp|-find-fi|
|00000880| 6c 65 2d 6f 72 2d 64 69 | 72 65 63 74 6f 72 79 5d |le-or-di|rectory]|
|00000890| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 66 74 70 | 6))..(d|efun ftp|
|000008a0| 2d 66 69 6e 64 2d 66 69 | 6c 65 2d 6f 72 2d 64 69 |-find-fi|le-or-di|
|000008b0| 72 65 63 74 6f 72 79 20 | 28 68 6f 73 74 20 66 69 |rectory |(host fi|
|000008c0| 6c 65 20 66 69 6c 65 70 | 20 26 6f 70 74 69 6f 6e |le filep| &option|
|000008d0| 61 6c 20 75 73 65 72 20 | 70 61 73 73 77 6f 72 64 |al user |password|
|000008e0| 29 20 22 5c 0a 46 54 50 | 20 74 6f 20 48 4f 53 54 |) "\.FTP| to HOST|
|000008f0| 20 74 6f 20 67 65 74 20 | 46 49 4c 45 2e 20 20 54 | to get |FILE.  T|
|00000900| 68 69 72 64 20 61 72 67 | 20 69 73 20 74 20 66 6f |hird arg| is t fo|
|00000910| 72 20 66 69 6c 65 2c 20 | 6e 69 6c 20 66 6f 72 20 |r file, |nil for |
|00000920| 64 69 72 65 63 74 6f 72 | 79 2e 0a 4c 6f 67 20 69 |director|y..Log i|
|00000930| 6e 20 61 73 20 55 53 45 | 52 20 77 69 74 68 20 50 |n as USE|R with P|
|00000940| 41 53 53 57 4f 52 44 2e | 20 20 49 66 20 55 53 45 |ASSWORD.|  If USE|
|00000950| 52 20 69 73 20 6e 69 6c | 20 6f 72 20 50 41 53 53 |R is nil| or PASS|
|00000960| 57 4f 52 44 20 69 73 20 | 6e 69 6c 20 6f 72 20 74 |WORD is |nil or t|
|00000970| 2c 0a 77 65 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |,.we pro|mpt for |
|00000980| 74 68 65 20 75 73 65 72 | 20 6e 61 6d 65 20 61 6e |the user| name an|
|00000990| 64 20 70 61 73 73 77 6f | 72 64 2e 22 20 28 62 79 |d passwo|rd." (by|
|000009a0| 74 65 2d 63 6f 64 65 20 | 22 08 85 0c 00 09 85 0c |te-code |".......|
|000009b0| 00 09 c2 3d 3f 86 1e 00 | cc 0b 08 09 c2 3d 23 10 |...=?...|.....=#.|
|000009c0| 08 41 11 08 40 89 10 88 | cd ce cf 0d 83 2a 00 d0 |.A..@...|.....*..|
|000009d0| 82 2b 00 d1 0b 0e 06 24 | 21 1c 0c 71 88 d2 0b 0e |.+.....$|!..q....|
|000009e0| 06 5c 22 c9 1e 08 1e 07 | c9 1e 0a d3 8e d4 0e 07 |.\".....|........|
|000009f0| 0b 08 09 24 89 16 0a 83 | 56 00 d5 d6 21 82 59 00 |...$....|V...!.Y.|
|00000a00| d7 d8 21 29 29 88 d5 d9 | 0d 83 66 00 da 82 67 00 |..!))...|..f...g.|
|00000a10| db 0b 0e 06 24 88 dc 0e | 07 ce dd 0d 83 79 00 de |....$...|.....y..|
|00000a20| 82 7a 00 df 0e 06 23 e0 | e1 24 83 a2 00 e2 e3 21 |.z....#.|.$.....!|
|00000a30| 88 c9 1e 0b e4 65 60 5c | 22 29 88 d5 e5 0b 0e 06 |.....e`\|")......|
|00000a40| 23 88 e6 0e 07 e7 5c 22 | 88 0e 07 82 b9 00 e8 0c |#.....\"|........|
|00000a50| 21 88 c9 1e 0b e9 ea 21 | 29 88 eb 0e 07 21 88 d7 |!......!|)....!..|
|00000a60| ec 0b 0e 06 23 2a 29 87 | 22 20 5b 75 73 65 72 20 |....#*).|" [user |
|00000a70| 70 61 73 73 77 6f 72 64 | 20 74 20 68 6f 73 74 20 |password| t host |
|00000a80| 62 75 66 66 65 72 20 66 | 69 6c 65 70 20 66 69 6c |buffer f|ilep fil|
|00000a90| 65 20 70 72 6f 63 65 73 | 73 20 63 61 73 65 2d 66 |e proces|s case-f|
|00000aa0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 20 77 |old-sear|ch nil w|
|00000ab0| 69 6e 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |in buffe|r-read-o|
|00000ac0| 6e 6c 79 20 72 65 61 64 | 2d 66 74 70 2d 75 73 65 |nly read|-ftp-use|
|00000ad0| 72 2d 70 61 73 73 77 6f | 72 64 20 67 65 74 2d 62 |r-passwo|rd get-b|
|00000ae0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 66 6f 72 |uffer-cr|eate for|
|00000af0| 6d 61 74 20 22 2a 66 74 | 70 25 73 20 25 73 3a 25 |mat "*ft|p%s %s:%|
|00000b00| 73 2a 22 20 22 22 20 22 | 2d 64 69 72 65 63 74 6f |s*" "" "|-directo|
|00000b10| 72 79 22 20 66 74 70 2d | 73 65 74 75 70 2d 62 75 |ry" ftp-|setup-bu|
|00000b20| 66 66 65 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |ffer ((b|yte-code|
|00000b30| 20 22 08 86 07 00 c2 09 | 21 87 22 20 5b 77 69 6e | "......|!." [win|
|00000b40| 20 70 72 6f 63 65 73 73 | 20 64 65 6c 65 74 65 2d | process| delete-|
|00000b50| 70 72 6f 63 65 73 73 5d | 20 32 29 29 20 66 74 70 |process]| 2)) ftp|
|00000b60| 2d 6c 6f 67 69 6e 20 6d | 65 73 73 61 67 65 20 22 |-login m|essage "|
|00000b70| 4c 6f 67 67 65 64 20 69 | 6e 22 20 65 72 72 6f 72 |Logged i|n" error|
|00000b80| 20 22 46 74 70 20 6c 6f | 67 69 6e 20 6c 6f 73 74 | "Ftp lo|gin lost|
|00000b90| 22 20 22 4f 70 65 6e 69 | 6e 67 20 25 73 20 25 73 |" "Openi|ng %s %s|
|00000ba0| 3a 25 73 2e 2e 2e 22 20 | 22 66 69 6c 65 22 20 22 |:%s..." |"file" "|
|00000bb0| 64 69 72 65 63 74 6f 72 | 79 22 20 66 74 70 2d 63 |director|y" ftp-c|
|00000bc0| 6f 6d 6d 61 6e 64 20 22 | 25 73 20 5c 22 25 73 5c |ommand "|%s \"%s\|
|00000bd0| 22 20 2d 0a 71 75 69 74 | 0a 22 20 22 67 65 74 22 |" -.quit|." "get"|
|00000be0| 20 22 64 69 72 22 20 22 | 5c 5c 28 31 35 30 5c 5c | "dir" "|\\(150\\|
|00000bf0| 7c 31 32 35 5c 5c 29 2e | 2a 0a 22 20 22 32 30 30 ||125\\).|*." "200|
|00000c00| 2e 2a 0a 22 20 66 6f 72 | 77 61 72 64 2d 6c 69 6e |.*." for|ward-lin|
|00000c10| 65 20 31 20 64 65 6c 65 | 74 65 2d 72 65 67 69 6f |e 1 dele|te-regio|
|00000c20| 6e 20 22 52 65 74 72 69 | 65 76 69 6e 67 20 25 73 |n "Retri|eving %s|
|00000c30| 3a 25 73 20 69 6e 20 62 | 61 63 6b 67 72 6f 75 6e |:%s in b|ackgroun|
|00000c40| 64 2e 20 20 42 79 65 21 | 22 20 73 65 74 2d 70 72 |d.  Bye!|" set-pr|
|00000c50| 6f 63 65 73 73 2d 73 65 | 6e 74 69 6e 65 6c 20 66 |ocess-se|ntinel f|
|00000c60| 74 70 2d 61 73 79 6e 63 | 68 72 6f 6e 6f 75 73 2d |tp-async|hronous-|
|00000c70| 69 6e 70 75 74 2d 73 65 | 6e 74 69 6e 65 6c 20 73 |input-se|ntinel s|
|00000c80| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00000c90| 69 6e 73 65 72 74 2d 62 | 65 66 6f 72 65 2d 6d 61 |insert-b|efore-ma|
|00000ca0| 72 6b 65 72 73 20 22 3c | 3c 3c 46 74 70 20 6c 6f |rkers "<|<<Ftp lo|
|00000cb0| 73 74 3e 3e 3e 22 20 64 | 65 6c 65 74 65 2d 70 72 |st>>>" d|elete-pr|
|00000cc0| 6f 63 65 73 73 20 22 46 | 74 70 20 25 73 3a 25 73 |ocess "F|tp %s:%s|
|00000cd0| 20 6c 6f 73 74 22 5d 20 | 32 31 29 29 0a 0a 28 64 | lost"] |21))..(d|
|00000ce0| 65 66 75 6e 20 66 74 70 | 2d 77 72 69 74 65 2d 66 |efun ftp|-write-f|
|00000cf0| 69 6c 65 20 28 68 6f 73 | 74 20 66 69 6c 65 20 26 |ile (hos|t file &|
|00000d00| 6f 70 74 69 6f 6e 61 6c | 20 75 73 65 72 20 70 61 |optional| user pa|
|00000d10| 73 73 77 6f 72 64 29 20 | 22 5c 0a 46 54 50 20 74 |ssword) |"\.FTP t|
|00000d20| 6f 20 48 4f 53 54 20 74 | 6f 20 77 72 69 74 65 20 |o HOST t|o write |
|00000d30| 46 49 4c 45 2c 20 6c 6f | 67 67 69 6e 67 20 69 6e |FILE, lo|gging in|
|00000d40| 20 61 73 20 55 53 45 52 | 20 77 69 74 68 20 70 61 | as USER| with pa|
|00000d50| 73 73 77 6f 72 64 20 50 | 41 53 53 57 4f 52 44 2e |ssword P|ASSWORD.|
|00000d60| 0a 49 6e 74 65 72 61 63 | 74 69 76 65 6c 79 2c 20 |.Interac|tively, |
|00000d70| 48 4f 53 54 20 61 6e 64 | 20 46 49 4c 45 20 61 72 |HOST and| FILE ar|
|00000d80| 65 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 72 |e specif|ied by r|
|00000d90| 65 61 64 69 6e 67 20 61 | 20 73 74 72 69 6e 67 20 |eading a| string |
|00000da0| 77 69 74 68 20 63 6f 6c | 6f 6e 0a 73 65 70 61 72 |with col|on.separ|
|00000db0| 61 74 69 6e 67 20 74 68 | 65 20 68 6f 73 74 20 66 |ating th|e host f|
|00000dc0| 72 6f 6d 20 74 68 65 20 | 66 69 6c 65 6e 61 6d 65 |rom the |filename|
|00000dd0| 2e 0a 55 53 45 52 20 61 | 6e 64 20 50 41 53 53 57 |..USER a|nd PASSW|
|00000de0| 4f 52 44 20 61 72 65 20 | 64 65 66 61 75 6c 74 65 |ORD are |defaulte|
|00000df0| 64 20 66 72 6f 6d 20 74 | 68 65 20 76 61 6c 75 65 |d from t|he value|
|00000e00| 73 20 75 73 65 64 20 77 | 68 65 6e 0a 20 6c 61 73 |s used w|hen. las|
|00000e10| 74 20 66 74 70 69 6e 67 | 20 66 72 6f 6d 20 48 4f |t ftping| from HO|
|00000e20| 53 54 20 28 75 6e 6c 65 | 73 73 20 70 61 73 73 77 |ST (unle|ss passw|
|00000e30| 6f 72 64 2d 72 65 6d 65 | 6d 62 65 72 69 6e 67 20 |ord-reme|mbering |
|00000e40| 69 73 20 64 69 73 61 62 | 6c 65 64 29 2e 0a 20 53 |is disab|led).. S|
|00000e50| 75 70 70 6c 79 20 61 20 | 70 61 73 73 77 6f 72 64 |upply a |password|
|00000e60| 20 6f 66 20 74 68 65 20 | 73 79 6d 62 6f 6c 20 60 | of the |symbol `|
|00000e70| 74 27 20 74 6f 20 6f 76 | 65 72 72 69 64 65 20 74 |t' to ov|erride t|
|00000e80| 68 69 73 20 64 65 66 61 | 75 6c 74 0a 20 28 69 6e |his defa|ult. (in|
|00000e90| 74 65 72 61 63 74 69 76 | 65 6c 79 2c 20 74 68 69 |teractiv|ely, thi|
|00000ea0| 73 20 69 73 20 64 6f 6e | 65 20 62 79 20 67 69 76 |s is don|e by giv|
|00000eb0| 69 6e 67 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |ing a pr|efix arg|
|00000ec0| 29 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |)" (inte|ractive |
|00000ed0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 c3 c4 21 |(byte-co|de "...!|
|00000ee0| c0 09 3f 3f 44 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |..??D\".|" [nil c|
|00000ef0| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|00000f00| 67 20 61 70 70 65 6e 64 | 20 66 74 70 2d 72 65 61 |g append| ftp-rea|
|00000f10| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 46 54 50 |d-file-n|ame "FTP|
|00000f20| 20 77 72 69 74 65 20 68 | 6f 73 74 3a 66 69 6c 65 | write h|ost:file|
|00000f30| 3a 20 22 5d 20 35 29 29 | 20 28 62 79 74 65 2d 63 |: "] 5))| (byte-c|
|00000f40| 6f 64 65 20 22 c0 88 0a | 85 0e 00 0b 85 0e 00 0b |ode "...|........|
|00000f50| c4 3d 3f 86 20 00 ce 0d | 0a 0b c4 3d 23 12 0a 41 |.=?. ...|...=#..A|
|00000f60| 13 0a 40 89 12 88 cf d0 | d1 0d 0e 07 23 21 d2 d3 |..@.....|....#!..|
|00000f70| 21 1e 08 1e 06 d4 65 64 | 0e 08 23 88 0e 06 71 88 |!.....ed|..#...q.|
|00000f80| d5 c9 21 88 0e 08 89 16 | 09 88 d6 0d 0e 07 5c 22 |..!.....|......\"|
|00000f90| c0 1e 0b 1e 0a c0 1e 0c | d7 8e d8 0e 0a 0d 0a 0b |........|........|
|00000fa0| 24 89 16 0c 83 67 00 d9 | da 21 82 6a 00 db dc 21 |$....g..|.!.j...!|
|00000fb0| 29 29 88 d9 dd 0d 0e 07 | 23 88 de 0e 0a d0 df 0e |))......|#.......|
|00000fc0| 08 0e 07 23 e0 e1 24 83 | a3 00 e2 e3 21 88 c0 1e |...#..$.|....!...|
|00000fd0| 0d e4 65 60 5c 22 29 88 | d9 e5 0d 0e 07 23 88 e6 |..e`\").|.....#..|
|00000fe0| 0e 0a e7 5c 22 88 0e 0a | 82 bb 00 e8 0e 06 21 88 |...\"...|......!.|
|00000ff0| c0 1e 0d e9 ea 21 29 88 | eb 0e 0a 21 88 db ec 0d |.....!).|...!....|
|00001000| 0e 07 23 2a 2a 87 22 20 | 5b 6e 69 6c 20 63 75 72 |..#**." |[nil cur|
|00001010| 72 65 6e 74 2d 70 72 65 | 66 69 78 2d 61 72 67 20 |rent-pre|fix-arg |
|00001020| 75 73 65 72 20 70 61 73 | 73 77 6f 72 64 20 74 20 |user pas|sword t |
|00001030| 68 6f 73 74 20 62 75 66 | 66 65 72 20 66 69 6c 65 |host buf|fer file|
|00001040| 20 74 6d 70 20 66 74 70 | 2d 74 65 6d 70 2d 66 69 | tmp ftp|-temp-fi|
|00001050| 6c 65 2d 6e 61 6d 65 20 | 70 72 6f 63 65 73 73 20 |le-name |process |
|00001060| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001070| 20 77 69 6e 20 62 75 66 | 66 65 72 2d 72 65 61 64 | win buf|fer-read|
|00001080| 2d 6f 6e 6c 79 20 72 65 | 61 64 2d 66 74 70 2d 75 |-only re|ad-ftp-u|
|00001090| 73 65 72 2d 70 61 73 73 | 77 6f 72 64 20 67 65 74 |ser-pass|word get|
|000010a0| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 66 |-buffer-|create f|
|000010b0| 6f 72 6d 61 74 20 22 2a | 66 74 70 20 25 73 3a 25 |ormat "*|ftp %s:%|
|000010c0| 73 2a 22 20 6d 61 6b 65 | 2d 74 65 6d 70 2d 6e 61 |s*" make|-temp-na|
|000010d0| 6d 65 20 22 2f 74 6d 70 | 2f 65 6d 61 63 73 66 74 |me "/tmp|/emacsft|
|000010e0| 70 22 20 77 72 69 74 65 | 2d 72 65 67 69 6f 6e 20 |p" write|-region |
|000010f0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00001100| 62 6c 65 20 66 74 70 2d | 73 65 74 75 70 2d 62 75 |ble ftp-|setup-bu|
|00001110| 66 66 65 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |ffer ((b|yte-code|
|00001120| 20 22 08 86 07 00 c2 09 | 21 87 22 20 5b 77 69 6e | "......|!." [win|
|00001130| 20 70 72 6f 63 65 73 73 | 20 64 65 6c 65 74 65 2d | process| delete-|
|00001140| 70 72 6f 63 65 73 73 5d | 20 32 29 29 20 66 74 70 |process]| 2)) ftp|
|00001150| 2d 6c 6f 67 69 6e 20 6d | 65 73 73 61 67 65 20 22 |-login m|essage "|
|00001160| 4c 6f 67 67 65 64 20 69 | 6e 22 20 65 72 72 6f 72 |Logged i|n" error|
|00001170| 20 22 46 74 70 20 6c 6f | 67 69 6e 20 6c 6f 73 74 | "Ftp lo|gin lost|
|00001180| 22 20 22 4f 70 65 6e 69 | 6e 67 20 66 69 6c 65 20 |" "Openi|ng file |
|00001190| 25 73 3a 25 73 2e 2e 2e | 22 20 66 74 70 2d 63 6f |%s:%s...|" ftp-co|
|000011a0| 6d 6d 61 6e 64 20 22 73 | 65 6e 64 20 5c 22 25 73 |mmand "s|end \"%s|
|000011b0| 5c 22 20 5c 22 25 73 5c | 22 0a 71 75 69 74 0a 22 |\" \"%s\|".quit."|
|000011c0| 20 22 5c 5c 28 31 35 30 | 5c 5c 7c 31 32 35 5c 5c | "\\(150|\\|125\\|
|000011d0| 29 2e 2a 0a 22 20 22 32 | 30 30 2e 2a 0a 22 20 66 |).*." "2|00.*." f|
|000011e0| 6f 72 77 61 72 64 2d 6c | 69 6e 65 20 31 20 64 65 |orward-l|ine 1 de|
|000011f0| 6c 65 74 65 2d 72 65 67 | 69 6f 6e 20 22 53 61 76 |lete-reg|ion "Sav|
|00001200| 69 6e 67 20 25 73 3a 25 | 73 20 69 6e 20 62 61 63 |ing %s:%|s in bac|
|00001210| 6b 67 72 6f 75 6e 64 2e | 20 20 42 79 65 21 22 20 |kground.|  Bye!" |
|00001220| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 73 65 6e 74 |set-proc|ess-sent|
|00001230| 69 6e 65 6c 20 66 74 70 | 2d 61 73 79 6e 63 68 72 |inel ftp|-asynchr|
|00001240| 6f 6e 6f 75 73 2d 6f 75 | 74 70 75 74 2d 73 65 6e |onous-ou|tput-sen|
|00001250| 74 69 6e 65 6c 20 73 77 | 69 74 63 68 2d 74 6f 2d |tinel sw|itch-to-|
|00001260| 62 75 66 66 65 72 20 69 | 6e 73 65 72 74 2d 62 65 |buffer i|nsert-be|
|00001270| 66 6f 72 65 2d 6d 61 72 | 6b 65 72 73 20 22 3c 3c |fore-mar|kers "<<|
|00001280| 3c 46 74 70 20 6c 6f 73 | 74 3e 3e 3e 22 20 64 65 |<Ftp los|t>>>" de|
|00001290| 6c 65 74 65 2d 70 72 6f | 63 65 73 73 20 22 46 74 |lete-pro|cess "Ft|
|000012a0| 70 20 77 72 69 74 65 20 | 25 73 3a 25 73 20 6c 6f |p write |%s:%s lo|
|000012b0| 73 74 22 5d 20 32 34 29 | 29 0a 0a 28 64 65 66 75 |st"] 24)|)..(defu|
|000012c0| 6e 20 66 74 70 2d 73 65 | 74 75 70 2d 62 75 66 66 |n ftp-se|tup-buff|
|000012d0| 65 72 20 28 68 6f 73 74 | 20 66 69 6c 65 29 20 28 |er (host| file) (|
|000012e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c7 20 88 c8 70 |byte-cod|e ". ..p|
|000012f0| 21 85 31 00 c9 20 88 ca | cb cc cd c8 70 21 21 ce |!.1.. ..|....p!!.|
|00001300| 70 21 23 21 83 2e 00 c8 | 70 21 85 2b 00 cf c8 70 |p!#!....|p!.+...p|
|00001310| 21 21 88 82 1c 00 82 31 | 00 d0 d1 21 88 c1 89 10 |!!.....1|...!....|
|00001320| 88 d2 20 88 d3 c2 21 88 | 0b 89 12 88 d3 c4 21 88 |.. ...!.|......!.|
|00001330| 0d 89 14 88 c6 89 10 88 | d4 d5 70 d5 d6 d7 d8 26 |........|..p....&|
|00001340| 06 87 22 20 5b 62 75 66 | 66 65 72 2d 72 65 61 64 |.." [buf|fer-read|
|00001350| 2d 6f 6e 6c 79 20 6e 69 | 6c 20 66 74 70 2d 68 6f |-only ni|l ftp-ho|
|00001360| 73 74 20 68 6f 73 74 20 | 66 74 70 2d 66 69 6c 65 |st host |ftp-file|
|00001370| 20 66 69 6c 65 20 74 20 | 66 75 6e 64 61 6d 65 6e | file t |fundamen|
|00001380| 74 61 6c 2d 6d 6f 64 65 | 20 67 65 74 2d 62 75 66 |tal-mode| get-buf|
|00001390| 66 65 72 2d 70 72 6f 63 | 65 73 73 20 64 69 73 63 |fer-proc|ess disc|
|000013a0| 61 72 64 2d 69 6e 70 75 | 74 20 79 2d 6f 72 2d 6e |ard-inpu|t y-or-n|
|000013b0| 2d 70 20 66 6f 72 6d 61 | 74 20 22 4b 69 6c 6c 20 |-p forma|t "Kill |
|000013c0| 70 72 6f 63 65 73 73 20 | 5c 22 25 73 5c 22 20 69 |process |\"%s\" i|
|000013d0| 6e 20 25 73 3f 20 22 20 | 70 72 6f 63 65 73 73 2d |n %s? " |process-|
|000013e0| 6e 61 6d 65 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |name buf|fer-name|
|000013f0| 20 6b 69 6c 6c 2d 70 72 | 6f 63 65 73 73 20 65 72 | kill-pr|ocess er|
|00001400| 72 6f 72 20 22 46 6f 6f | 22 20 65 72 61 73 65 2d |ror "Foo|" erase-|
|00001410| 62 75 66 66 65 72 20 6d | 61 6b 65 2d 6c 6f 63 61 |buffer m|ake-loca|
|00001420| 6c 2d 76 61 72 69 61 62 | 6c 65 20 73 74 61 72 74 |l-variab|le start|
|00001430| 2d 70 72 6f 63 65 73 73 | 20 22 66 74 70 22 20 22 |-process| "ftp" "|
|00001440| 2d 69 22 20 22 2d 6e 22 | 20 22 2d 67 22 5d 20 32 |-i" "-n"| "-g"] 2|
|00001450| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 66 74 70 2d |2))..(de|fun ftp-|
|00001460| 6c 6f 67 69 6e 20 28 70 | 72 6f 63 65 73 73 20 68 |login (p|rocess h|
|00001470| 6f 73 74 20 75 73 65 72 | 20 70 61 73 73 77 6f 72 |ost user| passwor|
|00001480| 64 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c7 |d) (byte|-code ".|
|00001490| c8 08 09 23 88 c9 0a ca | cb 09 08 0b 24 cc cd 24 |...#....|....$..$|
|000014a0| 83 18 00 c4 82 32 00 ce | cf 0a 21 21 88 d0 0a 21 |.....2..|..!!...!|
|000014b0| 88 0d 3c 85 30 00 d1 d2 | 09 0d 5c 22 0d 5c 22 89 |..<.0...|..\".\".|
|000014c0| 15 88 c6 87 22 20 5b 75 | 73 65 72 20 68 6f 73 74 |...." [u|ser host|
|000014d0| 20 70 72 6f 63 65 73 73 | 20 70 61 73 73 77 6f 72 | process| passwor|
|000014e0| 64 20 74 20 66 74 70 2d | 70 61 73 73 77 6f 72 64 |d t ftp-|password|
|000014f0| 2d 61 6c 69 73 74 20 6e | 69 6c 20 6d 65 73 73 61 |-alist n|il messa|
|00001500| 67 65 20 22 46 54 50 20 | 6c 6f 67 67 69 6e 67 20 |ge "FTP |logging |
|00001510| 69 6e 20 61 73 20 25 73 | 40 25 73 2e 2e 2e 22 20 |in as %s|@%s..." |
|00001520| 66 74 70 2d 63 6f 6d 6d | 61 6e 64 20 66 6f 72 6d |ftp-comm|and form|
|00001530| 61 74 20 22 6f 70 65 6e | 20 25 73 0a 75 73 65 72 |at "open| %s.user|
|00001540| 20 25 73 20 25 73 0a 22 | 20 22 32 33 30 2e 2a 0a | %s %s."| "230.*.|
|00001550| 22 20 22 5c 5c 28 43 6f | 6e 6e 65 63 74 65 64 20 |" "\\(Co|nnected |
|00001560| 74 6f 20 5c 5c 7c 32 32 | 30 5c 5c 7c 33 33 31 5c |to \\|22|0\\|331\|
|00001570| 5c 29 2e 2a 0a 22 20 73 | 77 69 74 63 68 2d 74 6f |\).*." s|witch-to|
|00001580| 2d 62 75 66 66 65 72 20 | 70 72 6f 63 65 73 73 2d |-buffer |process-|
|00001590| 62 75 66 66 65 72 20 64 | 65 6c 65 74 65 2d 70 72 |buffer d|elete-pr|
|000015a0| 6f 63 65 73 73 20 64 65 | 6c 71 20 61 73 73 6f 63 |ocess de|lq assoc|
|000015b0| 5d 20 31 30 29 29 0a 0a | 28 64 65 66 75 6e 20 66 |] 10))..|(defun f|
|000015c0| 74 70 2d 63 6f 6d 6d 61 | 6e 64 20 28 70 72 6f 63 |tp-comma|nd (proc|
|000015d0| 65 73 73 20 63 6f 6d 6d | 61 6e 64 20 77 69 6e 20 |ess comm|and win |
|000015e0| 69 67 6e 6f 72 65 29 20 | 28 62 79 74 65 2d 63 6f |ignore) |(byte-co|
|000015f0| 64 65 20 22 c8 08 09 5c | 22 88 c9 c4 1b 1a ca 0a |de "...\|".......|
|00001600| 21 85 62 00 cb 0d 21 83 | 1e 00 64 62 88 c4 89 12 |!.b...!.|..db....|
|00001610| 82 5e 00 cb cc 21 83 2b | 00 cd ce 21 62 82 5e 00 |.^...!.+|...!b.^.|
|00001620| cb 0e 06 21 83 38 00 cf | c9 21 82 5e 00 cb d0 21 |...!.8..|.!.^...!|
|00001630| 83 44 00 cf c9 21 82 5e | 00 d1 d2 c7 c4 23 3f 83 |.D...!.^|.....#?.|
|00001640| 5b 00 60 89 12 88 c7 d3 | d4 8f 88 0a 62 82 5e 00 |[.`.....|....b.^.|
|00001650| c7 89 12 88 82 09 00 88 | 0a 2a 87 22 20 5b 70 72 |........|.*." [pr|
|00001660| 6f 63 65 73 73 20 63 6f | 6d 6d 61 6e 64 20 70 20 |ocess co|mmand p |
|00001670| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001680| 20 74 20 77 69 6e 20 69 | 67 6e 6f 72 65 20 6e 69 | t win i|gnore ni|
|00001690| 6c 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |l proces|s-send-s|
|000016a0| 74 72 69 6e 67 20 31 20 | 6e 75 6d 62 65 72 70 20 |tring 1 |numberp |
|000016b0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5e 66 74 70 |looking-|at "^ftp|
|000016c0| 3e 20 5c 5c 7c 5e 0a 22 | 20 6d 61 74 63 68 2d 65 |> \\|^."| match-e|
|000016d0| 6e 64 20 30 20 66 6f 72 | 77 61 72 64 2d 6c 69 6e |nd 0 for|ward-lin|
|000016e0| 65 20 22 5e 5b 5e 30 2d | 39 5d 22 20 73 65 61 72 |e "^[^0-|9]" sear|
|000016f0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 0a 22 20 28 |ch-forwa|rd "." (|
|00001700| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 21 87 22 |byte-cod|e "..!."|
|00001710| 20 5b 70 72 6f 63 65 73 | 73 20 61 63 63 65 70 74 | [proces|s accept|
|00001720| 2d 70 72 6f 63 65 73 73 | 2d 6f 75 74 70 75 74 5d |-process|-output]|
|00001730| 20 32 29 20 28 28 65 72 | 72 6f 72 20 28 62 79 74 | 2) ((er|ror (byt|
|00001740| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00001750| 5d 20 31 29 29 29 5d 20 | 31 34 29 29 0a 0a 28 64 |] 1)))] |14))..(d|
|00001760| 65 66 75 6e 20 66 74 70 | 2d 61 73 79 6e 63 68 72 |efun ftp|-asynchr|
|00001770| 6f 6e 6f 75 73 2d 69 6e | 70 75 74 2d 73 65 6e 74 |onous-in|put-sent|
|00001780| 69 6e 65 6c 20 28 70 72 | 6f 63 65 73 73 20 6d 73 |inel (pr|ocess ms|
|00001790| 67 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |g) (byte|-code ".|
|000017a0| 08 09 c2 c2 24 87 22 20 | 5b 70 72 6f 63 65 73 73 |....$." |[process|
|000017b0| 20 6d 73 67 20 74 20 66 | 74 70 2d 73 65 6e 74 69 | msg t f|tp-senti|
|000017c0| 6e 65 6c 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |nel] 5))|..(defun|
|000017d0| 20 66 74 70 2d 73 79 6e | 63 68 72 6f 6e 6f 75 73 | ftp-syn|chronous|
|000017e0| 2d 69 6e 70 75 74 2d 73 | 65 6e 74 69 6e 65 6c 20 |-input-s|entinel |
|000017f0| 28 70 72 6f 63 65 73 73 | 20 6d 73 67 29 20 28 62 |(process| msg) (b|
|00001800| 79 74 65 2d 63 6f 64 65 | 20 22 c4 08 09 c2 c3 24 |yte-code| ".....$|
|00001810| 87 22 20 5b 70 72 6f 63 | 65 73 73 20 6d 73 67 20 |." [proc|ess msg |
|00001820| 6e 69 6c 20 74 20 66 74 | 70 2d 73 65 6e 74 69 6e |nil t ft|p-sentin|
|00001830| 65 6c 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |el] 5)).|.(defun |
|00001840| 66 74 70 2d 61 73 79 6e | 63 68 72 6f 6e 6f 75 73 |ftp-asyn|chronous|
|00001850| 2d 6f 75 74 70 75 74 2d | 73 65 6e 74 69 6e 65 6c |-output-|sentinel|
|00001860| 20 28 70 72 6f 63 65 73 | 73 20 6d 73 67 29 20 28 | (proces|s msg) (|
|00001870| 62 79 74 65 2d 63 6f 64 | 65 20 22 c4 08 09 c2 c3 |byte-cod|e ".....|
|00001880| 24 87 22 20 5b 70 72 6f | 63 65 73 73 20 6d 73 67 |$." [pro|cess msg|
|00001890| 20 74 20 6e 69 6c 20 66 | 74 70 2d 73 65 6e 74 69 | t nil f|tp-senti|
|000018a0| 6e 65 6c 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |nel] 5))|..(defun|
|000018b0| 20 66 74 70 2d 73 79 6e | 63 68 72 6f 6e 6f 75 73 | ftp-syn|chronous|
|000018c0| 2d 6f 75 74 70 75 74 2d | 73 65 6e 74 69 6e 65 6c |-output-|sentinel|
|000018d0| 20 28 70 72 6f 63 65 73 | 73 20 6d 73 67 29 20 28 | (proces|s msg) (|
|000018e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 08 09 c2 c2 |byte-cod|e ".....|
|000018f0| 24 87 22 20 5b 70 72 6f | 63 65 73 73 20 6d 73 67 |$." [pro|cess msg|
|00001900| 20 6e 69 6c 20 66 74 70 | 2d 73 65 6e 74 69 6e 65 | nil ftp|-sentine|
|00001910| 6c 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 66 |l] 5))..|(defun f|
|00001920| 74 70 2d 73 65 6e 74 69 | 6e 65 6c 20 28 70 72 6f |tp-senti|nel (pro|
|00001930| 63 65 73 73 20 6d 73 67 | 20 61 73 79 6e 63 68 72 |cess msg| asynchr|
|00001940| 6f 6e 6f 75 73 20 69 6e | 70 75 74 29 20 28 62 79 |onous in|put) (by|
|00001950| 74 65 2d 63 6f 64 65 20 | 22 cd ce 08 21 21 3f 83 |te-code |"...!!?.|
|00001960| 10 00 cf 08 c1 5c 22 82 | 13 01 d0 08 21 d1 3d 85 |.....\".|....!.=.|
|00001970| 1d 00 d2 08 21 d3 55 83 | d0 00 8a ce 08 21 71 88 |....!.U.|.....!q.|
|00001980| c1 0c 83 2f 00 d4 82 30 | 00 d5 1b 1a 64 62 88 d6 |.../...0|....db..|
|00001990| d7 21 88 d8 0b 21 85 42 | 00 d6 d7 21 88 60 1d d9 |.!...!.B|...!.`..|
|000019a0| da 0c 83 4f 00 db 82 50 | 00 dc 0e 06 0e 07 24 dd |...O...P|......$.|
|000019b0| 0b c1 c8 23 83 6a 00 de | df e0 d3 21 e1 d3 21 5c |...#.j..|...!..!\|
|000019c0| 22 50 82 6b 00 e2 50 89 | 12 88 c1 1e 09 e3 0d 64 |"P.k..P.|.......d|
|000019d0| 5c 22 29 88 8a e4 e5 21 | 71 88 c1 1e 09 e6 0a e7 |\")....!|q.......|
|000019e0| 5c 22 29 29 88 e8 c1 21 | 29 88 0c 3f 83 9d 00 c1 |\"))...!|)..?....|
|000019f0| e9 ea 8f 88 eb 70 21 82 | bd 00 ec d9 ed 0e 06 0e |.....p!.|........|
|00001a00| 07 23 21 1e 0a cd 0e 0a | 21 eb 0e 0a 21 88 89 16 |.#!.....|!...!...|
|00001a10| 0a 88 ee 0e 0a 21 88 ef | 20 29 88 0e 0b 85 cb 00 |.....!..| )......|
|00001a20| f0 f1 0a 5c 22 88 f2 f3 | 21 2a 29 82 13 01 d0 08 |...\"...|!*).....|
|00001a30| 21 f4 3e 85 13 01 8a ce | 08 21 71 88 d9 f5 cd 70 |!.>.....|.!q....p|
|00001a40| 21 0a 23 89 12 88 c1 1e | 09 64 62 88 e6 e7 e7 0a |!.#.....|.db.....|
|00001a50| 23 29 88 f6 0e 0c 21 88 | e4 e5 21 71 88 c1 1e 09 |#)....!.|..!q....|
|00001a60| 64 62 88 0a 63 29 88 f7 | 20 85 12 01 f8 f1 0a 5c |db..c)..| ......\|
|00001a70| 22 29 87 22 20 5b 70 72 | 6f 63 65 73 73 20 6e 69 |")." [pr|ocess ni|
|00001a80| 6c 20 6d 73 67 20 72 20 | 69 6e 70 75 74 20 70 20 |l msg r |input p |
|00001a90| 66 74 70 2d 68 6f 73 74 | 20 66 74 70 2d 66 69 6c |ftp-host| ftp-fil|
|00001aa0| 65 20 74 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |e t buff|er-read-|
|00001ab0| 6f 6e 6c 79 20 6b 6c 75 | 64 67 65 20 61 73 79 6e |only klu|dge asyn|
|00001ac0| 63 68 72 6f 6e 6f 75 73 | 20 70 72 6f 63 20 62 75 |chronous| proc bu|
|00001ad0| 66 66 65 72 2d 6e 61 6d | 65 20 70 72 6f 63 65 73 |ffer-nam|e proces|
|00001ae0| 73 2d 62 75 66 66 65 72 | 20 73 65 74 2d 70 72 6f |s-buffer| set-pro|
|00001af0| 63 65 73 73 2d 62 75 66 | 66 65 72 20 70 72 6f 63 |cess-buf|fer proc|
|00001b00| 65 73 73 2d 73 74 61 74 | 75 73 20 65 78 69 74 20 |ess-stat|us exit |
|00001b10| 70 72 6f 63 65 73 73 2d | 65 78 69 74 2d 73 74 61 |process-|exit-sta|
|00001b20| 74 75 73 20 30 20 22 5b | 30 2d 39 5d 2b 20 62 79 |tus 0 "[|0-9]+ by|
|00001b30| 74 65 73 20 72 65 63 65 | 69 76 65 64 20 69 6e 20 |tes rece|ived in |
|00001b40| 5b 30 2d 39 5d 2b 5c 5c | 2e 5b 30 2d 39 5d 2b 20 |[0-9]+\\|.[0-9]+ |
|00001b50| 73 65 63 6f 6e 64 73 2e | 2a 24 22 20 22 5b 30 2d |seconds.|*$" "[0-|
|00001b60| 39 5d 2b 20 62 79 74 65 | 73 20 73 65 6e 74 20 69 |9]+ byte|s sent i|
|00001b70| 6e 20 5b 30 2d 39 5d 2b | 5c 5c 2e 5b 30 2d 39 5d |n [0-9]+|\\.[0-9]|
|00001b80| 2b 20 73 65 63 6f 6e 64 | 73 2e 2a 24 22 20 73 65 |+ second|s.*$" se|
|00001b90| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 32 |arch-bac|kward "2|
|00001ba0| 32 36 20 22 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |26 " loo|king-at |
|00001bb0| 66 6f 72 6d 61 74 20 22 | 66 74 70 20 25 73 20 25 |format "|ftp %s %|
|00001bc0| 73 3a 25 73 20 64 6f 6e | 65 22 20 22 72 65 61 64 |s:%s don|e" "read|
|00001bd0| 22 20 22 77 72 69 74 65 | 22 20 72 65 2d 73 65 61 |" "write|" re-sea|
|00001be0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 3a 20 22 |rch-forw|ard ": "|
|00001bf0| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00001c00| 67 20 6d 61 74 63 68 2d | 62 65 67 69 6e 6e 69 6e |g match-|beginnin|
|00001c10| 67 20 6d 61 74 63 68 2d | 65 6e 64 20 22 22 20 64 |g match-|end "" d|
|00001c20| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 67 65 74 |elete-re|gion get|
|00001c30| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00001c40| 2a 66 74 70 20 6c 6f 67 | 2a 22 20 69 6e 73 65 72 |*ftp log|*" inser|
|00001c50| 74 20 31 30 20 73 65 74 | 2d 62 75 66 66 65 72 2d |t 10 set|-buffer-|
|00001c60| 6d 6f 64 69 66 69 65 64 | 2d 70 20 28 62 79 74 65 |modified|-p (byte|
|00001c70| 2d 63 6f 64 65 20 22 c1 | c0 21 85 0d 00 08 85 0d |-code ".|.!......|
|00001c80| 00 c2 08 21 87 22 20 5b | 66 74 70 2d 74 65 6d 70 |...!." [|ftp-temp|
|00001c90| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 62 6f 75 6e 64 |-file-na|me bound|
|00001ca0| 70 20 64 65 6c 65 74 65 | 2d 66 69 6c 65 5d 20 33 |p delete|-file] 3|
|00001cb0| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|00001cc0| 63 6f 64 65 20 22 c0 87 | 22 20 5b 6e 69 6c 5d 20 |code "..|" [nil] |
|00001cd0| 31 29 29 29 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |1))) kil|l-buffer|
|00001ce0| 20 67 65 6e 65 72 61 74 | 65 2d 6e 65 77 2d 62 75 | generat|e-new-bu|
|00001cf0| 66 66 65 72 20 22 25 73 | 3a 25 73 20 28 66 74 70 |ffer "%s|:%s (ftp|
|00001d00| 29 22 20 72 65 6e 61 6d | 65 2d 62 75 66 66 65 72 |)" renam|e-buffer|
|00001d10| 20 66 74 70 2d 73 65 74 | 75 70 2d 77 72 69 74 65 | ftp-set|up-write|
|00001d20| 2d 66 69 6c 65 2d 68 6f | 6f 6b 73 20 6d 65 73 73 |-file-ho|oks mess|
|00001d30| 61 67 65 20 22 25 73 22 | 20 73 6c 65 65 70 2d 66 |age "%s"| sleep-f|
|00001d40| 6f 72 20 32 20 28 65 78 | 69 74 20 73 69 67 6e 61 |or 2 (ex|it signa|
|00001d50| 6c 29 20 22 46 74 70 20 | 64 69 65 64 20 28 62 75 |l) "Ftp |died (bu|
|00001d60| 66 66 65 72 20 25 73 29 | 3a 20 25 73 22 20 64 65 |ffer %s)|: %s" de|
|00001d70| 6c 65 74 65 2d 70 72 6f | 63 65 73 73 20 77 61 69 |lete-pro|cess wai|
|00001d80| 74 69 6e 67 2d 66 6f 72 | 2d 75 73 65 72 2d 69 6e |ting-for|-user-in|
|00001d90| 70 75 74 2d 70 20 65 72 | 72 6f 72 5d 20 33 38 29 |put-p er|ror] 38)|
|00001da0| 29 0a 0a 28 64 65 66 75 | 6e 20 66 74 70 2d 73 65 |)..(defu|n ftp-se|
|00001db0| 74 75 70 2d 77 72 69 74 | 65 2d 66 69 6c 65 2d 68 |tup-writ|e-file-h|
|00001dc0| 6f 6f 6b 73 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |ooks nil| (byte-c|
|00001dd0| 6f 64 65 20 22 09 18 c7 | c1 21 88 c8 09 c9 5c 22 |ode "...|.!....\"|
|00001de0| 89 11 29 88 c7 c2 21 88 | ca 89 12 88 cb 89 13 88 |..)...!.|........|
|00001df0| 0b cc cd 70 21 21 50 89 | 14 88 c6 89 15 87 22 20 |...p!!P.|......" |
|00001e00| 5b 68 6f 6f 6b 73 20 77 | 72 69 74 65 2d 66 69 6c |[hooks w|rite-fil|
|00001e10| 65 2d 68 6f 6f 6b 73 20 | 72 65 76 65 72 74 2d 62 |e-hooks |revert-b|
|00001e20| 75 66 66 65 72 2d 66 75 | 6e 63 74 69 6f 6e 20 64 |uffer-fu|nction d|
|00001e30| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00001e40| 20 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d | buffer-|file-nam|
|00001e50| 65 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |e buffer|-read-on|
|00001e60| 6c 79 20 6e 69 6c 20 6d | 61 6b 65 2d 6c 6f 63 61 |ly nil m|ake-loca|
|00001e70| 6c 2d 76 61 72 69 61 62 | 6c 65 20 61 70 70 65 6e |l-variab|le appen|
|00001e80| 64 20 28 66 74 70 2d 77 | 72 69 74 65 2d 66 69 6c |d (ftp-w|rite-fil|
|00001e90| 65 2d 68 6f 6f 6b 29 20 | 66 74 70 2d 72 65 76 65 |e-hook) |ftp-reve|
|00001ea0| 72 74 2d 62 75 66 66 65 | 72 20 22 2f 74 6d 70 2f |rt-buffe|r "/tmp/|
|00001eb0| 22 20 6d 61 6b 65 2d 74 | 65 6d 70 2d 6e 61 6d 65 |" make-t|emp-name|
|00001ec0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 5d 20 37 29 | buffer-|name] 7)|
|00001ed0| 29 0a 0a 28 64 65 66 75 | 6e 20 66 74 70 2d 77 72 |)..(defu|n ftp-wr|
|00001ee0| 69 74 65 2d 66 69 6c 65 | 2d 68 6f 6f 6b 20 6e 69 |ite-file|-hook ni|
|00001ef0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 70 c6 |l (byte-|code "p.|
|00001f00| 0a 0b 5c 22 19 18 c7 09 | c8 5c 22 88 c9 ca 0a 0b |..\"....|.\".....|
|00001f10| 23 88 cb 09 21 cc 3d 85 | 5c 22 00 c4 cd ce 8f 88 |#...!.=.|\"......|
|00001f20| 82 12 00 88 cb 09 21 cf | 3d 85 3b 00 d0 09 21 d1 |......!.|=.;...!.|
|00001f30| 55 85 3b 00 8a 08 71 88 | d2 c4 21 29 2a 88 c9 d3 |U.;...q.|..!)*...|
|00001f40| 21 88 c5 87 22 20 5b 62 | 75 66 66 65 72 20 70 72 |!..." [b|uffer pr|
|00001f50| 6f 63 65 73 73 20 66 74 | 70 2d 68 6f 73 74 20 66 |ocess ft|p-host f|
|00001f60| 74 70 2d 66 69 6c 65 20 | 6e 69 6c 20 74 20 66 74 |tp-file |nil t ft|
|00001f70| 70 2d 77 72 69 74 65 2d | 66 69 6c 65 20 73 65 74 |p-write-|file set|
|00001f80| 2d 70 72 6f 63 65 73 73 | 2d 73 65 6e 74 69 6e 65 |-process|-sentine|
|00001f90| 6c 20 66 74 70 2d 73 79 | 6e 63 68 72 6f 6e 6f 75 |l ftp-sy|nchronou|
|00001fa0| 73 2d 6f 75 74 70 75 74 | 2d 73 65 6e 74 69 6e 65 |s-output|-sentine|
|00001fb0| 6c 20 6d 65 73 73 61 67 | 65 20 22 46 54 50 20 77 |l messag|e "FTP w|
|00001fc0| 72 69 74 69 6e 67 20 25 | 73 3a 25 73 2e 2e 2e 22 |riting %|s:%s..."|
|00001fd0| 20 70 72 6f 63 65 73 73 | 2d 73 74 61 74 75 73 20 | process|-status |
|00001fe0| 72 75 6e 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |run (byt|e-code "|
|00001ff0| c1 08 21 87 22 20 5b 70 | 72 6f 63 65 73 73 20 61 |..!." [p|rocess a|
|00002000| 63 63 65 70 74 2d 70 72 | 6f 63 65 73 73 2d 6f 75 |ccept-pr|ocess-ou|
|00002010| 74 70 75 74 5d 20 32 29 | 20 28 28 65 72 72 6f 72 |tput] 2)| ((error|
|00002020| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 87 22 | (byte-c|ode ".."|
|00002030| 20 5b 6e 69 6c 5d 20 31 | 29 29 29 20 65 78 69 74 | [nil] 1|))) exit|
|00002040| 20 70 72 6f 63 65 73 73 | 2d 65 78 69 74 2d 73 74 | process|-exit-st|
|00002050| 61 74 75 73 20 30 20 73 | 65 74 2d 62 75 66 66 65 |atus 0 s|et-buffe|
|00002060| 72 2d 6d 6f 64 69 66 69 | 65 64 2d 70 20 22 57 72 |r-modifi|ed-p "Wr|
|00002070| 69 74 74 65 6e 22 5d 20 | 39 29 29 0a 0a 28 64 65 |itten"] |9))..(de|
|00002080| 66 75 6e 20 66 74 70 2d | 72 65 76 65 72 74 2d 62 |fun ftp-|revert-b|
|00002090| 75 66 66 65 72 20 28 26 | 72 65 73 74 20 69 67 6e |uffer (&|rest ign|
|000020a0| 6f 72 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ore) (by|te-code |
|000020b0| 22 c4 09 0a 5c 22 18 c5 | 08 c6 5c 22 88 c7 c8 09 |"...\"..|..\"....|
|000020c0| 0a 23 88 c9 08 21 ca 3d | 85 20 00 c3 cb cc 8f 88 |.#...!.=|. ......|
|000020d0| 82 10 00 88 c9 08 21 cd | 3d 85 34 00 ce 08 21 cf |......!.|=.4...!.|
|000020e0| 55 85 34 00 d0 c3 21 88 | c7 d1 21 29 87 22 20 5b |U.4...!.|..!)." [|
|000020f0| 70 72 6f 63 65 73 73 20 | 66 74 70 2d 68 6f 73 74 |process |ftp-host|
|00002100| 20 66 74 70 2d 66 69 6c | 65 20 6e 69 6c 20 66 74 | ftp-fil|e nil ft|
|00002110| 70 2d 66 69 6e 64 2d 66 | 69 6c 65 20 73 65 74 2d |p-find-f|ile set-|
|00002120| 70 72 6f 63 65 73 73 2d | 73 65 6e 74 69 6e 65 6c |process-|sentinel|
|00002130| 20 66 74 70 2d 73 79 6e | 63 68 72 6f 6e 6f 75 73 | ftp-syn|chronous|
|00002140| 2d 69 6e 70 75 74 2d 73 | 65 6e 74 69 6e 65 6c 20 |-input-s|entinel |
|00002150| 6d 65 73 73 61 67 65 20 | 22 46 54 50 20 72 65 76 |message |"FTP rev|
|00002160| 65 72 74 69 6e 67 20 25 | 73 3a 25 73 22 20 70 72 |erting %|s:%s" pr|
|00002170| 6f 63 65 73 73 2d 73 74 | 61 74 75 73 20 72 75 6e |ocess-st|atus run|
|00002180| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|00002190| 87 22 20 5b 70 72 6f 63 | 65 73 73 20 61 63 63 65 |." [proc|ess acce|
|000021a0| 70 74 2d 70 72 6f 63 65 | 73 73 2d 6f 75 74 70 75 |pt-proce|ss-outpu|
|000021b0| 74 5d 20 32 29 20 28 28 | 65 72 72 6f 72 20 28 62 |t] 2) ((|error (b|
|000021c0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 87 22 20 5b 6e |yte-code| ".." [n|
|000021d0| 69 6c 5d 20 31 29 29 29 | 20 65 78 69 74 20 70 72 |il] 1)))| exit pr|
|000021e0| 6f 63 65 73 73 2d 65 78 | 69 74 2d 73 74 61 74 75 |ocess-ex|it-statu|
|000021f0| 73 20 30 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |s 0 set-|buffer-m|
|00002200| 6f 64 69 66 69 65 64 2d | 70 20 22 52 65 76 65 72 |odified-|p "Rever|
|00002210| 74 65 64 22 5d 20 39 29 | 29 0a                   |ted"] 9)|).      |
+--------+-------------------------+-------------------------+--------+--------+