/ Fresh Fish 8 / FreshFishVol8-CD1.bin / gnu / src / amiga / emacs-19.28-src.lha / emacs-19.28 / site-lisp / vm-pop.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 64 67 69 6c 62 65 72 |piled by| dgilber|
|00000020| 74 40 67 61 6d 69 67 61 | 2e 67 75 65 6c 70 68 6e |t@gamiga|.guelphn|
|00000030| 65 74 2e 64 77 65 6f 6d | 65 72 2e 6f 72 67 20 6f |et.dweom|er.org o|
|00000040| 6e 20 57 65 64 20 44 65 | 63 20 32 38 20 32 33 3a |n Wed De|c 28 23:|
|00000050| 32 34 3a 33 32 20 31 39 | 39 34 0a 3b 3b 3b 20 66 |24:32 19|94.;;; f|
|00000060| 72 6f 6d 20 66 69 6c 65 | 20 66 69 76 65 3a 43 57 |rom file| five:CW|
|00000070| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|00000080| 76 6d 2f 76 6d 2d 70 6f | 70 2e 65 6c 0a 3b 3b 3b |vm/vm-po|p.el.;;;|
|00000090| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|000000a0| 39 2e 32 35 2e 31 2e 0a | 3b 3b 3b 20 62 79 74 65 |9.25.1..|;;; byte|
|000000b0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000c0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000d0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000e0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000f0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000100| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000110| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000120| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000130| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000140| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000160| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000170| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000180| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000190| 20 22 31 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "19")))|.    (er|
|000001a0| 72 6f 72 20 22 60 66 69 | 76 65 3a 43 57 6f 72 6b |ror "`fi|ve:CWork|
|000001b0| 2f 65 6d 61 63 73 2d 31 | 39 2e 32 35 2f 76 6d 2f |/emacs-1|9.25/vm/|
|000001c0| 76 6d 2d 70 6f 70 2e 65 | 6c 27 20 77 61 73 20 63 |vm-pop.e|l' was c|
|000001d0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001e0| 73 20 31 39 22 29 29 0a | 0a 28 62 79 74 65 2d 63 |s 19")).|.(byte-c|
|000001f0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00000200| 88 c0 c5 c6 5c 22 88 c0 | c7 c8 5c 22 88 c0 c9 ca |....\"..|..\"....|
|00000210| 5c 22 88 c0 cb cc 5c 22 | 88 c0 cd ce 5c 22 88 c0 |\"....\"|....\"..|
|00000220| cf d0 5c 22 87 22 20 5b | 64 65 66 61 6c 69 61 73 |..\"." [|defalias|
|00000230| 20 76 6d 2d 70 6f 70 2d | 6d 6f 76 65 2d 6d 61 69 | vm-pop-|move-mai|
|00000240| 6c 20 23 5b 28 73 6f 75 | 72 63 65 20 64 65 73 74 |l #[(sou|rce dest|
|00000250| 69 6e 61 74 69 6f 6e 29 | 20 22 c0 09 c0 c2 c3 21 |ination)| ".....!|
|00000260| 85 0d 00 c0 c4 c5 8f c0 | 89 89 89 89 89 89 89 89 |........|........|
|00000270| 89 89 1e 06 1e 07 1e 08 | 1e 09 1e 5c 6e 1e 0b 1e |........|...\n...|
|00000280| 5c 66 1e 0d 1e 0e 1e 0f | 1e 10 1e 11 1e 12 1e 13 |\f......|........|
|00000290| 1e 14 d5 8e d6 d7 8d 2e | 10 87 22 20 5b 6e 69 6c |........|.." [nil|
|000002a0| 20 76 6d 2d 66 6f 6c 64 | 65 72 2d 74 79 70 65 20 | vm-fold|er-type |
|000002b0| 66 62 6f 75 6e 64 70 20 | 66 69 6e 64 2d 66 69 6c |fboundp |find-fil|
|000002c0| 65 2d 6e 61 6d 65 2d 68 | 61 6e 64 6c 65 72 20 28 |e-name-h|andler (|
|000002d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 c2 5c 22 |byte-cod|e "...\"|
|000002e0| 87 22 20 5b 66 69 6e 64 | 2d 66 69 6c 65 2d 6e 61 |." [find|-file-na|
|000002f0| 6d 65 2d 68 61 6e 64 6c | 65 72 20 73 6f 75 72 63 |me-handl|er sourc|
|00000300| 65 20 76 6d 2d 70 6f 70 | 2d 6d 6f 76 65 2d 6d 61 |e vm-pop|-move-ma|
|00000310| 69 6c 5d 20 33 29 20 28 | 28 77 72 6f 6e 67 2d 6e |il] 3) (|(wrong-n|
|00000320| 75 6d 62 65 72 2d 6f 66 | 2d 61 72 67 75 6d 65 6e |umber-of|-argumen|
|00000330| 74 73 20 28 66 69 6e 64 | 2d 66 69 6c 65 2d 6e 61 |ts (find|-file-na|
|00000340| 6d 65 2d 68 61 6e 64 6c | 65 72 20 73 6f 75 72 63 |me-handl|er sourc|
|00000350| 65 29 29 29 20 70 72 6f | 63 65 73 73 2d 62 75 66 |e))) pro|cess-buf|
|00000360| 66 65 72 20 73 6f 75 72 | 63 65 2d 6c 69 73 74 20 |fer sour|ce-list |
|00000370| 70 61 73 73 20 75 73 65 | 72 20 61 75 74 68 20 70 |pass use|r auth p|
|00000380| 6f 72 74 20 68 6f 73 74 | 20 6d 65 73 73 61 67 65 |ort host| message|
|00000390| 2d 63 6f 75 6e 74 20 6e | 20 74 69 6d 65 73 74 61 |-count n| timesta|
|000003a0| 6d 70 20 67 72 65 65 74 | 69 6e 67 20 68 61 6e 64 |mp greet|ing hand|
|000003b0| 6c 65 72 20 73 61 76 65 | 2d 70 61 73 73 77 6f 72 |ler save|-passwor|
|000003c0| 64 20 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 70 72 |d folder|-type pr|
|000003d0| 6f 63 65 73 73 20 28 28 | 62 79 74 65 2d 63 6f 64 |ocess ((|byte-cod|
|000003e0| 65 20 22 08 83 18 00 8a | c1 08 21 71 88 c2 08 c3 |e ".....|..!q....|
|000003f0| 5c 22 88 c4 08 21 88 c5 | 08 21 88 29 c1 87 22 20 |\"...!..|.!.).." |
|00000400| 5b 70 72 6f 63 65 73 73 | 20 70 72 6f 63 65 73 73 |[process| process|
|00000410| 2d 62 75 66 66 65 72 20 | 76 6d 2d 70 6f 70 2d 73 |-buffer |vm-pop-s|
|00000420| 65 6e 64 2d 63 6f 6d 6d | 61 6e 64 20 22 51 55 49 |end-comm|and "QUI|
|00000430| 54 22 20 76 6d 2d 70 6f | 70 2d 72 65 61 64 2d 72 |T" vm-po|p-read-r|
|00000440| 65 73 70 6f 6e 73 65 20 | 64 65 6c 65 74 65 2d 70 |esponse |delete-p|
|00000450| 72 6f 63 65 73 73 5d 20 | 33 29 29 20 64 6f 6e 65 |rocess] |3)) done|
|00000460| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 83 0d | (byte-c|ode "...|
|00000470| 00 c1 c2 08 c3 5c 66 0d | 23 5c 22 88 c6 5c 66 c7 |.....\f.|#\"..\f.|
|00000480| 5c 22 89 16 08 40 16 09 | 0e 08 41 40 16 5c 6e cb |\"...@..|..A@.\n.|
|00000490| 0e 08 38 16 5c 66 cd 0e | 08 38 16 0e cf 0e 08 38 |..8.\f..|.8.....8|
|000004a0| 16 10 0e 09 84 39 00 d1 | d2 5c 66 5c 22 88 0e 5c |.....9..|.\f\"..\|
|000004b0| 6e 84 43 00 d1 d3 5c 66 | 5c 22 88 d4 d5 0e 5c 6e |n.C...\f|\"....\n|
|000004c0| 5c 22 83 51 00 d6 0e 5c | 6e 21 16 5c 6e 0e 5c 66 |\".Q...\|n!.\n.\f|
|000004d0| 84 5b 00 d1 d7 5c 66 5c | 22 88 0e 0e 84 65 00 d1 |.[...\f\|"....e..|
|000004e0| d8 5c 66 5c 22 88 0e 10 | 84 6f 00 d1 d9 5c 66 5c |.\f\"...|.o...\f\|
|000004f0| 22 88 0e 10 da 9a 83 90 | 00 db 5c 66 0e 1c 5c 22 |".......|..\f..\"|
|00000500| 41 40 89 16 10 84 90 00 | dd de df e0 5c 66 21 5c |A@......|....\f!\|
|00000510| 22 21 16 10 e1 16 5c 22 | e3 de e4 0e 09 5c 22 21 |"!....\"|.....\"!|
|00000520| 16 25 8a 0e 25 71 88 e6 | 20 88 29 e7 e8 0e 25 0e |.%..%q..| .)...%.|
|00000530| 09 0e 5c 6e 24 89 16 29 | 84 b6 00 c1 c2 ea 5c 22 |..\n$..)|......\"|
|00000540| 88 eb 0e 29 ec 5c 22 88 | 8a 0e 25 71 88 ed ee 21 |...).\".|..%q...!|
|00000550| 88 65 16 2e 0e 2f 86 cf | 00 0e 30 16 31 f2 0e 29 |.e.../..|..0.1..)|
|00000560| e1 5c 22 89 16 33 84 e1 | 00 c1 c2 ea 5c 22 88 0e |.\"..3..|....\"..|
|00000570| 5c 66 f4 9a 83 17 01 f5 | 0e 29 de f6 0e 0e 5c 22 |\f......|.)....\"|
|00000580| 5c 22 88 f2 0e 29 21 84 | fe 00 c1 c2 ea 5c 22 88 |\"...)!.|.....\".|
|00000590| f5 0e 29 de f7 0e 10 5c | 22 5c 22 88 f2 0e 29 21 |..)....\|"\"...)!|
|000005a0| 84 94 01 c1 c2 ea 5c 22 | 88 82 94 01 0e 5c 66 f8 |......\"|.....\f.|
|000005b0| 9a 83 4d 01 f5 0e 29 de | f6 0e 0e 5c 22 5c 22 88 |..M...).|...\"\".|
|000005c0| f2 0e 29 21 84 34 01 c1 | c2 ea 5c 22 88 f5 0e 29 |..)!.4..|..\"...)|
|000005d0| de f9 0e 10 5c 22 5c 22 | 88 f2 0e 29 21 84 94 01 |....\"\"|...)!...|
|000005e0| c1 c2 ea 5c 22 88 82 94 | 01 0e 5c 66 fa 9a 83 8c |...\"...|..\f....|
|000005f0| 01 c6 0e 33 fb 5c 22 89 | 16 3c 40 89 16 3c 84 6e |...3.\".|.<@..<.n|
|00000600| 01 64 62 88 fd 63 88 c1 | c2 ea 5c 22 88 f5 0e 29 |.db..c..|..\"...)|
|00000610| de fe ff 0e 3c 0e 10 50 | 21 5c 22 5c 22 88 f2 0e |....<..P|!\"\"...|
|00000620| 29 21 84 94 01 c1 c2 ea | 5c 22 88 82 94 01 d1 81 |)!......|\"......|
|00000630| 40 00 0e 5c 66 5c 22 88 | 0e 5c 22 83 a2 01 5c 66 |@..\f\".|.\"...\f|
|00000640| 0e 10 44 0e 1c 42 16 1c | f5 0e 29 81 41 00 5c 22 |..D..B..|..).A.\"|
|00000650| 88 81 42 00 0e 29 21 89 | 16 43 83 bf 01 0e 43 81 |..B..)!.|.C....C.|
|00000660| 44 00 57 83 c4 01 c1 c2 | ea 5c 22 88 81 44 00 16 |D.W.....|.\"..D..|
|00000670| 45 81 44 00 0e 43 58 83 | 2c 02 f5 0e 29 de 81 46 |E.D..CX.|,...)..F|
|00000680| 00 0e 45 5c 22 5c 22 88 | f2 0e 29 21 84 f0 01 c1 |..E\"\".|..)!....|
|00000690| c2 0e 45 81 44 00 9a 3f | 5c 22 88 81 47 00 0e 29 |..E.D..?|\"..G..)|
|000006a0| 0d 5c 22 84 05 02 c1 c2 | 0e 45 81 44 00 9a 3f 5c |.\".....|.E.D..?\|
|000006b0| 22 88 f5 0e 29 de 81 48 | 00 0e 45 5c 22 5c 22 88 |"...)..H|..E\"\".|
|000006c0| f2 0e 29 21 84 23 02 c1 | c2 0e 45 81 44 00 9a 3f |..)!.#..|..E.D..?|
|000006d0| 5c 22 88 0e 45 54 89 16 | 45 82 cc 01 29 e1 87 22 |\"..ET..|E...).."|
|000006e0| 20 5b 68 61 6e 64 6c 65 | 72 20 74 68 72 6f 77 20 | [handle|r throw |
|000006f0| 64 6f 6e 65 20 76 6d 2d | 70 6f 70 2d 6d 6f 76 65 |done vm-|pop-move|
|00000700| 2d 6d 61 69 6c 20 73 6f | 75 72 63 65 20 64 65 73 |-mail so|urce des|
|00000710| 74 69 6e 61 74 69 6f 6e | 20 76 6d 2d 70 61 72 73 |tination| vm-pars|
|00000720| 65 20 22 5c 5c 28 5b 5e | 3a 5d 2b 5c 5c 29 3a 3f |e "\\([^|:]+\\):?|
|00000730| 22 20 73 6f 75 72 63 65 | 2d 6c 69 73 74 20 68 6f |" source|-list ho|
|00000740| 73 74 20 70 6f 72 74 20 | 32 20 61 75 74 68 20 33 |st port |2 auth 3|
|00000750| 20 75 73 65 72 20 34 20 | 70 61 73 73 20 65 72 72 | user 4 |pass err|
|00000760| 6f 72 20 22 4e 6f 20 68 | 6f 73 74 20 69 6e 20 50 |or "No h|ost in P|
|00000770| 4f 50 20 6d 61 69 6c 64 | 72 6f 70 20 73 70 65 63 |OP maild|rop spec|
|00000780| 69 66 69 63 61 74 69 6f | 6e 2c 20 5c 22 25 73 5c |ificatio|n, \"%s\|
|00000790| 22 22 20 22 4e 6f 20 70 | 6f 72 74 20 69 6e 20 50 |"" "No p|ort in P|
|000007a0| 4f 50 20 6d 61 69 6c 64 | 72 6f 70 20 73 70 65 63 |OP maild|rop spec|
|000007b0| 69 66 69 63 61 74 69 6f | 6e 2c 20 5c 22 25 73 5c |ificatio|n, \"%s\|
|000007c0| 22 22 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |"" strin|g-match |
|000007d0| 22 5e 5b 30 2d 39 5d 2b | 24 22 20 73 74 72 69 6e |"^[0-9]+|$" strin|
|000007e0| 67 2d 74 6f 2d 69 6e 74 | 20 22 4e 6f 20 61 75 74 |g-to-int| "No aut|
|000007f0| 68 65 6e 74 69 63 61 74 | 69 6f 6e 20 6d 65 74 68 |henticat|ion meth|
|00000800| 6f 64 20 69 6e 20 50 4f | 50 20 6d 61 69 6c 64 72 |od in PO|P maildr|
|00000810| 6f 70 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |op speci|fication|
|00000820| 2c 20 5c 22 25 73 5c 22 | 22 20 22 4e 6f 20 75 73 |, \"%s\"|" "No us|
|00000830| 65 72 20 69 6e 20 50 4f | 50 20 6d 61 69 6c 64 72 |er in PO|P maildr|
|00000840| 6f 70 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |op speci|fication|
|00000850| 2c 20 5c 22 25 73 5c 22 | 22 20 22 4e 6f 20 70 61 |, \"%s\"|" "No pa|
|00000860| 73 73 77 6f 72 64 20 69 | 6e 20 50 4f 50 20 6d 61 |ssword i|n POP ma|
|00000870| 69 6c 64 72 6f 70 20 73 | 70 65 63 69 66 69 63 61 |ildrop s|pecifica|
|00000880| 74 69 6f 6e 2c 20 5c 22 | 25 73 5c 22 22 20 22 2a |tion, \"|%s\"" "*|
|00000890| 22 20 61 73 73 6f 63 20 | 76 6d 2d 70 6f 70 2d 70 |" assoc |vm-pop-p|
|000008a0| 61 73 73 77 6f 72 64 73 | 20 76 6d 2d 72 65 61 64 |asswords| vm-read|
|000008b0| 2d 70 61 73 73 77 6f 72 | 64 20 66 6f 72 6d 61 74 |-passwor|d format|
|000008c0| 20 22 50 4f 50 20 70 61 | 73 73 77 6f 72 64 20 66 | "POP pa|ssword f|
|000008d0| 6f 72 20 25 73 3a 20 22 | 20 76 6d 2d 73 61 66 65 |or %s: "| vm-safe|
|000008e0| 2d 70 6f 70 64 72 6f 70 | 2d 73 74 72 69 6e 67 20 |-popdrop|-string |
|000008f0| 74 20 73 61 76 65 2d 70 | 61 73 73 77 6f 72 64 20 |t save-p|assword |
|00000900| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00000910| 65 20 22 74 72 61 63 65 | 20 6f 66 20 50 4f 50 20 |e "trace| of POP |
|00000920| 73 65 73 73 69 6f 6e 20 | 74 6f 20 25 73 22 20 70 |session |to %s" p|
|00000930| 72 6f 63 65 73 73 2d 62 | 75 66 66 65 72 20 65 72 |rocess-b|uffer er|
|00000940| 61 73 65 2d 62 75 66 66 | 65 72 20 6f 70 65 6e 2d |ase-buff|er open-|
|00000950| 6e 65 74 77 6f 72 6b 2d | 73 74 72 65 61 6d 20 22 |network-|stream "|
|00000960| 50 4f 50 22 20 70 72 6f | 63 65 73 73 20 6e 69 6c |POP" pro|cess nil|
|00000970| 20 73 65 74 2d 70 72 6f | 63 65 73 73 2d 66 69 6c | set-pro|cess-fil|
|00000980| 74 65 72 20 76 6d 2d 70 | 6f 70 2d 70 72 6f 63 65 |ter vm-p|op-proce|
|00000990| 73 73 2d 66 69 6c 74 65 | 72 20 6d 61 6b 65 2d 6c |ss-filte|r make-l|
|000009a0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 76 6d |ocal-var|iable vm|
|000009b0| 2d 70 6f 70 2d 72 65 61 | 64 2d 70 6f 69 6e 74 20 |-pop-rea|d-point |
|000009c0| 66 6f 6c 64 65 72 2d 74 | 79 70 65 20 76 6d 2d 64 |folder-t|ype vm-d|
|000009d0| 65 66 61 75 6c 74 2d 66 | 6f 6c 64 65 72 2d 74 79 |efault-f|older-ty|
|000009e0| 70 65 20 76 6d 2d 66 6f | 6c 64 65 72 2d 74 79 70 |pe vm-fo|lder-typ|
|000009f0| 65 20 76 6d 2d 70 6f 70 | 2d 72 65 61 64 2d 72 65 |e vm-pop|-read-re|
|00000a00| 73 70 6f 6e 73 65 20 67 | 72 65 65 74 69 6e 67 20 |sponse g|reeting |
|00000a10| 22 70 61 73 73 22 20 76 | 6d 2d 70 6f 70 2d 73 65 |"pass" v|m-pop-se|
|00000a20| 6e 64 2d 63 6f 6d 6d 61 | 6e 64 20 22 55 53 45 52 |nd-comma|nd "USER|
|00000a30| 20 25 73 22 20 22 50 41 | 53 53 20 25 73 22 20 22 | %s" "PA|SS %s" "|
|00000a40| 72 70 6f 70 22 20 22 52 | 50 4f 50 20 25 73 22 20 |rpop" "R|POP %s" |
|00000a50| 22 61 70 6f 70 22 20 22 | 5b 5e 3c 5d 2b 5c 5c 28 |"apop" "|[^<]+\\(|
|00000a60| 3c 5b 5e 3e 5d 2b 3e 5c | 5c 29 22 20 74 69 6d 65 |<[^>]+>\|\)" time|
|00000a70| 73 74 61 6d 70 20 22 3c | 3c 3c 20 6f 6f 6f 70 73 |stamp "<|<< ooops|
|00000a80| 2c 20 6e 6f 20 74 69 6d | 65 73 74 61 6d 70 20 66 |, no tim|estamp f|
|00000a90| 6f 75 6e 64 20 69 6e 20 | 67 72 65 65 74 69 6e 67 |ound in |greeting|
|00000aa0| 21 20 3e 3e 3e 5c 6e 22 | 20 22 41 50 4f 50 20 25 |! >>>\n"| "APOP %|
|00000ab0| 73 22 20 76 6d 2d 70 6f | 70 2d 6d 64 35 20 22 44 |s" vm-po|p-md5 "D|
|00000ac0| 6f 6e 27 74 20 6b 6e 6f | 77 20 68 6f 77 20 74 6f |on't kno|w how to|
|00000ad0| 20 61 75 74 68 65 6e 74 | 69 63 61 74 65 20 77 69 | authent|icate wi|
|00000ae0| 74 68 20 25 73 22 20 22 | 53 54 41 54 22 20 76 6d |th %s" "|STAT" vm|
|00000af0| 2d 70 6f 70 2d 72 65 61 | 64 2d 73 74 61 74 2d 72 |-pop-rea|d-stat-r|
|00000b00| 65 73 70 6f 6e 73 65 20 | 6d 65 73 73 61 67 65 2d |esponse |message-|
|00000b10| 63 6f 75 6e 74 20 31 20 | 6e 20 22 52 45 54 52 20 |count 1 |n "RETR |
|00000b20| 25 64 22 20 76 6d 2d 70 | 6f 70 2d 72 65 74 72 69 |%d" vm-p|op-retri|
|00000b30| 65 76 65 2d 74 6f 2d 63 | 72 61 73 68 62 6f 78 20 |eve-to-c|rashbox |
|00000b40| 22 44 45 4c 45 20 25 64 | 22 5d 20 38 29 5d 20 31 |"DELE %d|"] 8)] 1|
|00000b50| 35 5d 20 76 6d 2d 70 6f | 70 2d 70 72 6f 63 65 73 |5] vm-po|p-proces|
|00000b60| 73 2d 66 69 6c 74 65 72 | 20 23 5b 28 70 72 6f 63 |s-filter| #[(proc|
|00000b70| 65 73 73 20 6f 75 74 70 | 75 74 29 20 22 8a c0 09 |ess outp|ut) "...|
|00000b80| 21 71 88 64 62 88 5c 6e | 63 29 87 22 20 5b 70 72 |!q.db.\n|c)." [pr|
|00000b90| 6f 63 65 73 73 2d 62 75 | 66 66 65 72 20 70 72 6f |ocess-bu|ffer pro|
|00000ba0| 63 65 73 73 20 6f 75 74 | 70 75 74 5d 20 32 5d 20 |cess out|put] 2] |
|00000bb0| 76 6d 2d 70 6f 70 2d 73 | 65 6e 64 2d 63 6f 6d 6d |vm-pop-s|end-comm|
|00000bc0| 61 6e 64 20 23 5b 28 70 | 72 6f 63 65 73 73 20 63 |and #[(p|rocess c|
|00000bd0| 6f 6d 6d 61 6e 64 29 20 | 22 64 62 88 08 c1 b1 02 |ommand) |"db.....|
|00000be0| 88 60 12 c3 5c 66 08 5c | 22 88 c3 5c 66 c1 5c 22 |.`..\f.\|"..\f.\"|
|00000bf0| 87 22 20 5b 63 6f 6d 6d | 61 6e 64 20 22 0d 5c 6e |." [comm|and ".\n|
|00000c00| 22 20 76 6d 2d 70 6f 70 | 2d 72 65 61 64 2d 70 6f |" vm-pop|-read-po|
|00000c10| 69 6e 74 20 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |int proc|ess-send|
|00000c20| 2d 73 74 72 69 6e 67 20 | 70 72 6f 63 65 73 73 5d |-string |process]|
|00000c30| 20 33 5d 20 76 6d 2d 70 | 6f 70 2d 72 65 61 64 2d | 3] vm-p|op-read-|
|00000c40| 72 65 73 70 6f 6e 73 65 | 20 23 5b 28 70 72 6f 63 |response| #[(proc|
|00000c50| 65 73 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 72 65 |ess &opt|ional re|
|00000c60| 74 75 72 6e 2d 72 65 73 | 70 6f 6e 73 65 2d 73 74 |turn-res|ponse-st|
|00000c70| 72 69 6e 67 29 20 22 c0 | 89 19 1a 0b 62 88 c4 c5 |ring) ".|....b...|
|00000c80| c0 c6 23 84 1a 00 c7 0e | 08 21 88 0b 62 88 82 07 |..#.....|.!..b...|
|00000c90| 00 60 11 0b 62 88 c9 ca | 21 84 2b 00 09 13 c0 82 |.`..b...|!.+.....|
|00000ca0| 39 00 09 13 0e 0b 83 38 | 00 60 09 7b 82 39 00 c6 |9......8|.`.{.9..|
|00000cb0| 2a 87 22 20 5b 6e 69 6c | 20 6d 61 74 63 68 2d 65 |*." [nil| match-e|
|00000cc0| 6e 64 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |nd case-|fold-sea|
|00000cd0| 72 63 68 20 76 6d 2d 70 | 6f 70 2d 72 65 61 64 2d |rch vm-p|op-read-|
|00000ce0| 70 6f 69 6e 74 20 73 65 | 61 72 63 68 2d 66 6f 72 |point se|arch-for|
|00000cf0| 77 61 72 64 20 22 0d 5c | 6e 22 20 74 20 61 63 63 |ward ".\|n" t acc|
|00000d00| 65 70 74 2d 70 72 6f 63 | 65 73 73 2d 6f 75 74 70 |ept-proc|ess-outp|
|00000d10| 75 74 20 70 72 6f 63 65 | 73 73 20 6c 6f 6f 6b 69 |ut proce|ss looki|
|00000d20| 6e 67 2d 61 74 20 22 2b | 4f 4b 22 20 72 65 74 75 |ng-at "+|OK" retu|
|00000d30| 72 6e 2d 72 65 73 70 6f | 6e 73 65 2d 73 74 72 69 |rn-respo|nse-stri|
|00000d40| 6e 67 5d 20 34 5d 20 76 | 6d 2d 70 6f 70 2d 72 65 |ng] 4] v|m-pop-re|
|00000d50| 61 64 2d 73 74 61 74 2d | 72 65 73 70 6f 6e 73 65 |ad-stat-|response|
|00000d60| 20 23 5b 28 70 72 6f 63 | 65 73 73 29 20 22 c0 09 | #[(proc|ess) "..|
|00000d70| c2 5c 22 1b c4 c5 0b c6 | 5c 22 41 40 21 29 87 22 |.\".....|\"A@!)."|
|00000d80| 20 5b 76 6d 2d 70 6f 70 | 2d 72 65 61 64 2d 72 65 | [vm-pop|-read-re|
|00000d90| 73 70 6f 6e 73 65 20 70 | 72 6f 63 65 73 73 20 74 |sponse p|rocess t|
|00000da0| 20 72 65 73 70 6f 6e 73 | 65 20 73 74 72 69 6e 67 | respons|e string|
|00000db0| 2d 74 6f 2d 69 6e 74 20 | 76 6d 2d 70 61 72 73 65 |-to-int |vm-parse|
|00000dc0| 20 22 5c 5c 28 5b 5e 20 | 5d 2b 5c 5c 29 20 2a 22 | "\\([^ |]+\\) *"|
|00000dd0| 5d 20 34 5d 20 76 6d 2d | 70 6f 70 2d 72 65 74 72 |] 4] vm-|pop-retr|
|00000de0| 69 65 76 65 2d 74 6f 2d | 63 72 61 73 68 62 6f 78 |ieve-to-|crashbox|
|00000df0| 20 23 5b 28 70 72 6f 63 | 65 73 73 20 63 72 61 73 | #[(proc|ess cras|
|00000e00| 68 29 20 22 08 c1 1a 89 | 1b 62 88 c4 c5 c1 c6 23 |h) "....|.b.....#|
|00000e10| 84 1a 00 c7 0e 08 21 88 | 0b 62 88 82 07 00 c9 20 |......!.|.b..... |
|00000e20| 10 ca 94 62 88 c9 20 12 | cb 0b 5c 6e 5c 22 88 8c |...b.. .|..\n\"..|
|00000e30| 0b 5c 6e 7d 88 cc 20 29 | cd 3d 83 81 00 ce 0e 0f |.\n}.. )|.=......|
|00000e40| 0b 5c 6e 23 88 0b 62 88 | 0e 0f d0 3d 83 6f 00 d1 |.\n#..b.|...=.o..|
|00000e50| 0e 12 21 89 1e 13 3f 86 | 58 00 d4 0e 13 38 ca 9a |..!...?.|X....8..|
|00000e60| 29 83 6f 00 60 1e 15 d6 | c1 0e 0f 5c 22 88 0e 15 |).o.`...|...\"...|
|00000e70| 89 13 62 88 d7 20 88 29 | d8 20 63 88 d9 c1 0e 0f |..b.. .)|. c.....|
|00000e80| 5c 22 88 5c 6e 62 88 da | db 20 21 88 dc 0b 5c 6e |\".\nb..|. !...\n|
|00000e90| 0e 12 c6 ca 25 88 0b 5c | 6e 7c 88 2a c6 87 22 20 |....%..\|n|.*.." |
|00000ea0| 5b 76 6d 2d 70 6f 70 2d | 72 65 61 64 2d 70 6f 69 |[vm-pop-|read-poi|
|00000eb0| 6e 74 20 6e 69 6c 20 65 | 6e 64 20 73 74 61 72 74 |nt nil e|nd start|
|00000ec0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00000ed0| 72 64 20 22 5e 5c 5c 2e | 0d 5c 6e 22 20 74 20 61 |rd "^\\.|.\n" t a|
|00000ee0| 63 63 65 70 74 2d 70 72 | 6f 63 65 73 73 2d 6f 75 |ccept-pr|ocess-ou|
|00000ef0| 74 70 75 74 20 70 72 6f | 63 65 73 73 20 70 6f 69 |tput pro|cess poi|
|00000f00| 6e 74 2d 6d 61 72 6b 65 | 72 20 30 20 76 6d 2d 70 |nt-marke|r 0 vm-p|
|00000f10| 6f 70 2d 63 6c 65 61 6e | 75 70 2d 72 65 67 69 6f |op-clean|up-regio|
|00000f20| 6e 20 76 6d 2d 67 65 74 | 2d 66 6f 6c 64 65 72 2d |n vm-get|-folder-|
|00000f30| 74 79 70 65 20 75 6e 6b | 6e 6f 77 6e 20 76 6d 2d |type unk|nown vm-|
|00000f40| 6d 75 6e 67 65 2d 6d 65 | 73 73 61 67 65 2d 73 65 |munge-me|ssage-se|
|00000f50| 70 61 72 61 74 6f 72 73 | 20 76 6d 2d 66 6f 6c 64 |parators| vm-fold|
|00000f60| 65 72 2d 74 79 70 65 20 | 62 61 62 79 6c 20 66 69 |er-type |babyl fi|
|00000f70| 6c 65 2d 61 74 74 72 69 | 62 75 74 65 73 20 63 72 |le-attri|butes cr|
|00000f80| 61 73 68 20 61 74 74 72 | 73 20 37 20 6f 70 6f 69 |ash attr|s 7 opoi|
|00000f90| 6e 74 20 76 6d 2d 63 6f | 6e 76 65 72 74 2d 66 6f |nt vm-co|nvert-fo|
|00000fa0| 6c 64 65 72 2d 68 65 61 | 64 65 72 20 76 6d 2d 73 |lder-hea|der vm-s|
|00000fb0| 6b 69 70 2d 70 61 73 74 | 2d 66 6f 6c 64 65 72 2d |kip-past|-folder-|
|00000fc0| 68 65 61 64 65 72 20 76 | 6d 2d 6c 65 61 64 69 6e |header v|m-leadin|
|00000fd0| 67 2d 6d 65 73 73 61 67 | 65 2d 73 65 70 61 72 61 |g-messag|e-separa|
|00000fe0| 74 6f 72 20 76 6d 2d 63 | 6f 6e 76 65 72 74 2d 66 |tor vm-c|onvert-f|
|00000ff0| 6f 6c 64 65 72 2d 74 79 | 70 65 2d 68 65 61 64 65 |older-ty|pe-heade|
|00001000| 72 73 20 69 6e 73 65 72 | 74 2d 62 65 66 6f 72 65 |rs inser|t-before|
|00001010| 2d 6d 61 72 6b 65 72 73 | 20 76 6d 2d 74 72 61 69 |-markers| vm-trai|
|00001020| 6c 69 6e 67 2d 6d 65 73 | 73 61 67 65 2d 73 65 70 |ling-mes|sage-sep|
|00001030| 61 72 61 74 6f 72 20 77 | 72 69 74 65 2d 72 65 67 |arator w|rite-reg|
|00001040| 69 6f 6e 5d 20 37 5d 20 | 76 6d 2d 70 6f 70 2d 63 |ion] 7] |vm-pop-c|
|00001050| 6c 65 61 6e 75 70 2d 72 | 65 67 69 6f 6e 20 23 5b |leanup-r|egion #[|
|00001060| 28 73 74 61 72 74 20 65 | 6e 64 29 20 22 c0 20 09 |(start e|nd) ". .|
|00001070| c2 93 11 8a 0b 62 88 60 | 09 57 83 21 00 c4 c5 09 |.....b.`|.W.!....|
|00001080| c6 23 83 21 00 c7 c8 c6 | 89 23 88 82 5c 6e 00 0b |.#.!....|.#..\n..|
|00001090| 62 88 60 09 57 83 3e 00 | c9 ca 09 c6 23 83 3e 00 |b.`.W.>.|....#.>.|
|000010a0| c7 cb c6 89 23 88 c2 75 | 88 82 24 00 29 09 c2 89 |....#..u|..$.)...|
|000010b0| 93 87 22 20 5b 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |.." [mak|e-marker|
|000010c0| 20 65 6e 64 20 6e 69 6c | 20 73 74 61 72 74 20 73 | end nil| start s|
|000010d0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 0d |earch-fo|rward ".|
|000010e0| 5c 6e 22 20 74 20 72 65 | 70 6c 61 63 65 2d 6d 61 |\n" t re|place-ma|
|000010f0| 74 63 68 20 22 5c 6e 22 | 20 72 65 2d 73 65 61 72 |tch "\n"| re-sear|
|00001100| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5e 5c 5c 2e |ch-forwa|rd "^\\.|
|00001110| 22 20 22 22 5d 20 34 5d | 20 76 6d 2d 70 6f 70 2d |" ""] 4]| vm-pop-|
|00001120| 6d 64 35 20 23 5b 28 73 | 74 72 69 6e 67 29 20 22 |md5 #[(s|tring) "|
|00001130| c0 19 c2 8e 8a c3 c4 21 | 89 11 71 88 0d 63 88 c6 |.......!|..q..c..|
|00001140| 65 64 c7 c8 09 c0 c9 0e | 5c 6e 26 08 88 65 65 cb |ed......|\n&..ee.|
|00001150| 5c 5c 7b 2b 87 22 20 5b | 6e 69 6c 20 62 75 66 66 |\\{+." [|nil buff|
|00001160| 65 72 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |er ((byt|e-code "|
|00001170| 08 83 08 00 c1 08 21 88 | c1 87 22 20 5b 62 75 66 |......!.|.." [buf|
|00001180| 66 65 72 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |fer kill|-buffer]|
|00001190| 20 32 29 29 20 67 65 6e | 65 72 61 74 65 2d 6e 65 | 2)) gen|erate-ne|
|000011a0| 77 2d 62 75 66 66 65 72 | 20 22 2a 76 6d 2d 77 6f |w-buffer| "*vm-wo|
|000011b0| 72 6b 2a 22 20 73 74 72 | 69 6e 67 20 63 61 6c 6c |rk*" str|ing call|
|000011c0| 2d 70 72 6f 63 65 73 73 | 2d 72 65 67 69 6f 6e 20 |-process|-region |
|000011d0| 22 2f 62 69 6e 2f 73 68 | 22 20 74 20 22 2d 63 22 |"/bin/sh|" t "-c"|
|000011e0| 20 76 6d 2d 70 6f 70 2d | 6d 64 35 2d 70 72 6f 67 | vm-pop-|md5-prog|
|000011f0| 72 61 6d 20 33 32 5d 20 | 31 30 5d 5d 20 33 29 0a |ram 32] |10]] 3).|
+--------+-------------------------+-------------------------+--------+--------+