home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-10-16 | 7.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 100%
| gt2
| Kopftext: ';;; Source file'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 70 72 |jade/3.2|/lisp/pr|
|00000030| 6f 6d 70 74 2e 6a 6c 0a | 3b 3b 3b 20 43 6f 6d 70 |ompt.jl.|;;; Comp|
|00000040| 69 6c 65 64 20 62 79 20 | 6a 73 68 40 6f 72 63 72 |iled by |jsh@orcr|
|00000050| 69 73 74 20 6f 6e 20 53 | 75 6e 20 4f 63 74 20 31 |ist on S|un Oct 1|
|00000060| 36 20 32 30 3a 32 30 3a | 35 33 20 31 39 39 34 0a |6 20:20:|53 1994.|
|00000070| 3b 3b 3b 20 4a 61 64 65 | 20 33 2e 32 0a 0a 28 64 |;;; Jade| 3.2..(d|
|00000080| 65 66 76 61 72 20 70 72 | 6f 6d 70 74 2d 6b 65 79 |efvar pr|ompt-key|
|00000090| 6d 61 70 20 28 6d 61 6b | 65 2d 6b 65 79 6c 69 73 |map (mak|e-keylis|
|000000a0| 74 29 29 0a 0a 28 64 65 | 66 76 61 72 20 70 72 6f |t))..(de|fvar pro|
|000000b0| 6d 70 74 2d 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |mpt-buff|er-list |
|000000c0| 28 71 75 6f 74 65 20 6e | 69 6c 29 20 37 37 32 32 |(quote n|il) 7722|
|000000d0| 33 29 0a 0a 28 62 69 6e | 64 2d 6b 65 79 73 20 70 |3)..(bin|d-keys p|
|000000e0| 72 6f 6d 70 74 2d 6b 65 | 79 6d 61 70 20 22 54 41 |rompt-ke|ymap "TA|
|000000f0| 42 22 20 28 71 75 6f 74 | 65 20 70 72 6f 6d 70 74 |B" (quot|e prompt|
|00000100| 2d 63 6f 6d 70 6c 65 74 | 65 2d 77 6f 72 64 29 20 |-complet|e-word) |
|00000110| 22 52 45 54 22 20 28 71 | 75 6f 74 65 20 70 72 6f |"RET" (q|uote pro|
|00000120| 6d 70 74 2d 65 6e 74 65 | 72 2d 6c 69 6e 65 29 20 |mpt-ente|r-line) |
|00000130| 22 4c 4d 42 2d 43 4c 49 | 43 4b 32 22 20 28 71 75 |"LMB-CLI|CK2" (qu|
|00000140| 6f 74 65 20 70 72 6f 6d | 70 74 2d 73 65 6c 65 63 |ote prom|pt-selec|
|00000150| 74 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 29 20 22 52 |t-comple|tion) "R|
|00000160| 4d 42 2d 43 4c 49 43 4b | 31 22 20 28 71 75 6f 74 |MB-CLICK|1" (quot|
|00000170| 65 20 70 72 6f 6d 70 74 | 2d 63 6f 6d 70 6c 65 74 |e prompt|-complet|
|00000180| 65 2d 77 6f 72 64 29 20 | 22 4d 65 74 61 2d 3f 22 |e-word) |"Meta-?"|
|00000190| 20 28 71 75 6f 74 65 20 | 70 72 6f 6d 70 74 2d 70 | (quote |prompt-p|
|000001a0| 72 69 6e 74 2d 77 6f 72 | 64 2d 63 6f 6d 70 6c 65 |rint-wor|d-comple|
|000001b0| 74 69 6f 6e 73 29 20 22 | 43 74 72 6c 2d 67 22 20 |tions) "|Ctrl-g" |
|000001c0| 28 71 75 6f 74 65 20 70 | 72 6f 6d 70 74 2d 63 61 |(quote p|rompt-ca|
|000001d0| 6e 63 65 6c 29 29 0a 0a | 28 64 65 66 76 61 72 20 |ncel))..|(defvar |
|000001e0| 70 72 6f 6d 70 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |prompt-c|ompletio|
|000001f0| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 6e 69 6c 20 37 |n-functi|on nil 7|
|00000200| 37 32 37 31 29 0a 0a 28 | 64 65 66 76 61 72 20 70 |7271)..(|defvar p|
|00000210| 72 6f 6d 70 74 2d 76 61 | 6c 69 64 61 74 65 2d 66 |rompt-va|lidate-f|
|00000220| 75 6e 63 74 69 6f 6e 20 | 6e 69 6c 20 37 37 33 37 |unction |nil 7737|
|00000230| 38 29 0a 0a 28 64 65 66 | 63 6f 6e 73 74 20 70 72 |8)..(def|const pr|
|00000240| 6f 6d 70 74 2d 64 65 66 | 2d 72 65 67 65 78 70 73 |ompt-def|-regexps|
|00000250| 20 5b 22 2e 22 20 22 5e | 7c 24 22 5d 20 37 37 36 | ["." "^||$"] 776|
|00000260| 38 35 29 0a 0a 28 64 65 | 66 76 61 72 20 70 72 6f |85)..(de|fvar pro|
|00000270| 6d 70 74 2d 77 6f 72 64 | 2d 72 65 67 65 78 70 73 |mpt-word|-regexps|
|00000280| 20 70 72 6f 6d 70 74 2d | 64 65 66 2d 72 65 67 65 | prompt-|def-rege|
|00000290| 78 70 73 20 37 37 37 32 | 34 29 0a 0a 28 64 65 66 |xps 7772|4)..(def|
|000002a0| 76 61 72 20 70 72 6f 6d | 70 74 2d 6c 69 73 74 20 |var prom|pt-list |
|000002b0| 6e 69 6c 20 37 37 38 31 | 33 29 0a 0a 28 64 65 66 |nil 7781|3)..(def|
|000002c0| 76 61 72 20 70 72 6f 6d | 70 74 2d 73 79 6d 62 6f |var prom|pt-symbo|
|000002d0| 6c 2d 70 72 65 64 69 63 | 61 74 65 20 6e 69 6c 20 |l-predic|ate nil |
|000002e0| 37 37 39 31 37 29 0a 0a | 28 64 65 66 76 61 72 20 |77917)..|(defvar |
|000002f0| 61 6d 69 67 61 2d 75 73 | 65 2d 66 69 6c 65 2d 72 |amiga-us|e-file-r|
|00000300| 65 71 2d 70 20 74 20 37 | 37 39 36 30 29 0a 0a 28 |eq-p t 7|7960)..(|
|00000310| 64 65 66 76 61 72 20 70 | 72 6f 6d 70 74 2d 62 75 |defvar p|rompt-bu|
|00000320| 66 66 65 72 20 6e 69 6c | 20 37 38 30 35 38 29 0a |ffer nil| 78058).|
|00000330| 0a 28 64 65 66 76 61 72 | 20 70 72 6f 6d 70 74 2d |.(defvar| prompt-|
|00000340| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 2d 70 6f 73 20 |completi|ons-pos |
|00000350| 6e 69 6c 20 37 38 30 39 | 36 29 0a 0a 28 64 65 66 |nil 7809|6)..(def|
|00000360| 75 6e 20 70 72 6f 6d 70 | 74 32 20 28 26 6f 70 74 |un promp|t2 (&opt|
|00000370| 69 6f 6e 61 6c 20 74 69 | 74 6c 65 20 73 74 61 72 |ional ti|tle star|
|00000380| 74 29 20 37 38 31 35 37 | 20 28 6a 61 64 65 2d 62 |t) 78157| (jade-b|
|00000390| 79 74 65 2d 63 6f 64 65 | 20 22 44 49 30 49 31 49 |yte-code| "DI0I1I|
|000003a0| 32 49 33 1c fc 00 17 1c | 4c 20 1c 4d 46 24 fb 00 |2I3.....|L .MF$..|
|000003b0| 1d 15 16 06 09 46 20 48 | 18 1e 07 4b 46 26 07 48 |.....F H|...KF&.H|
|000003c0| 16 08 18 4a 0a 48 18 b1 | 1e 09 16 0a 53 26 0b 1e |...J.H..|....S&..|
|000003d0| 09 16 0c 53 46 26 0d 48 | 1e 0e 71 fc 00 4c 16 0f |...SF&.H|..q..L..|
|000003e0| 1e 0e 09 fb 00 51 16 0f | 16 10 09 48 1e 11 71 fc |.....Q..|...H..q.|
|000003f0| 00 64 16 12 49 b2 16 13 | 1e 11 0b fb 00 69 16 0f |.d..I...|.....i..|
|00000400| 16 14 09 48 16 0f 16 15 | 09 48 16 16 08 46 5c 22 |...H....|.H...F\"|
|00000410| 48 16 17 16 18 16 19 16 | 1a 09 09 09 48 16 1b 26 |H.......|....H..&|
|00000420| 1c 49 26 1d 16 1e 16 1f | 73 23 18 1e 07 8b 46 26 |.I&.....|s#....F&|
|00000430| 07 47 b1 48 48 16 20 18 | 09 48 18 1c 4b 46 24 48 |.G.HH. .|.H..KF$H|
|00000440| 1b 45 22 20 5b 70 72 6f | 6d 70 74 2d 62 75 66 66 |.E" [pro|mpt-buff|
|00000450| 65 72 20 70 72 6f 6d 70 | 74 2d 6c 69 6e 65 2d 70 |er promp|t-line-p|
|00000460| 6f 73 20 70 72 6f 6d 70 | 74 2d 63 6f 6d 70 6c 65 |os promp|t-comple|
|00000470| 74 69 6f 6e 73 2d 70 6f | 73 20 72 65 73 75 6c 74 |tions-po|s result|
|00000480| 20 70 72 6f 6d 70 74 2d | 62 75 66 66 65 72 2d 6c | prompt-|buffer-l|
|00000490| 69 73 74 20 6d 61 6b 65 | 2d 62 75 66 66 65 72 20 |ist make|-buffer |
|000004a0| 22 2a 70 72 6f 6d 70 74 | 2a 22 20 62 75 66 66 65 |"*prompt|*" buffe|
|000004b0| 72 2d 6c 69 73 74 20 73 | 65 74 2d 62 75 66 66 65 |r-list s|et-buffe|
|000004c0| 72 2d 73 70 65 63 69 61 | 6c 20 70 72 6f 6d 70 74 |r-specia|l prompt|
|000004d0| 2d 77 6f 72 64 2d 72 65 | 67 65 78 70 73 20 30 20 |-word-re|gexps 0 |
|000004e0| 77 6f 72 64 2d 72 65 67 | 65 78 70 20 31 20 77 6f |word-reg|exp 1 wo|
|000004f0| 72 64 2d 6e 6f 74 2d 72 | 65 67 65 78 70 20 74 69 |rd-not-r|egexp ti|
|00000500| 74 6c 65 20 69 6e 73 65 | 72 74 20 22 45 6e 74 65 |tle inse|rt "Ente|
|00000510| 72 20 73 74 72 69 6e 67 | 3a 22 20 73 74 61 72 74 |r string|:" start|
|00000520| 20 66 6f 72 6d 61 74 20 | 22 0a 0a 25 73 0a 0a 22 | format |"..%s.."|
|00000530| 20 22 0a 0a 0a 0a 22 20 | 22 3a 3a 43 6f 6d 70 6c | "...." |"::Compl|
|00000540| 65 74 69 6f 6e 73 3a 3a | 0a 22 20 63 75 72 73 6f |etions::|." curso|
|00000550| 72 2d 70 6f 73 20 67 6f | 74 6f 2d 63 68 61 72 20 |r-pos go|to-char |
|00000560| 6c 69 6e 65 2d 65 6e 64 | 20 70 72 65 76 2d 6c 69 |line-end| prev-li|
|00000570| 6e 65 20 33 20 28 70 72 | 6f 6d 70 74 2d 6b 65 79 |ne 3 (pr|ompt-key|
|00000580| 6d 61 70 20 67 6c 6f 62 | 61 6c 2d 6b 65 79 6d 61 |map glob|al-keyma|
|00000590| 70 29 20 6b 65 79 6d 61 | 70 2d 70 61 74 68 20 62 |p) keyma|p-path b|
|000005a0| 75 66 66 65 72 2d 75 6e | 64 6f 2d 6c 69 73 74 20 |uffer-un|do-list |
|000005b0| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|000005c0| 22 10 08 22 20 5b 72 65 | 63 75 72 73 69 76 65 2d |".." [re|cursive-|
|000005d0| 65 64 69 74 5d 20 31 29 | 20 28 71 75 6f 74 65 20 |edit] 1)| (quote |
|000005e0| 70 72 6f 6d 70 74 29 20 | 63 6c 65 61 72 2d 62 75 |prompt) |clear-bu|
|000005f0| 66 66 65 72 5d 20 35 29 | 29 0a 0a 28 64 65 66 75 |ffer] 5)|)..(defu|
|00000600| 6e 20 70 72 6f 6d 70 74 | 2d 65 6e 74 65 72 2d 6c |n prompt|-enter-l|
|00000610| 69 6e 65 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 77 |ine (&op|tional w|
|00000620| 68 6f 6c 65 2d 6c 69 6e | 65 29 20 28 69 6e 74 65 |hole-lin|e) (inte|
|00000630| 72 61 63 74 69 76 65 29 | 20 28 6a 61 64 65 2d 62 |ractive)| (jade-b|
|00000640| 79 74 65 2d 63 6f 64 65 | 20 22 44 10 08 19 64 fe |yte-code| "D...d.|
|00000650| 00 09 1a fc 00 11 13 08 | fb 00 13 10 08 34 15 16 |........|.....4..|
|00000660| 06 08 1c 0a 36 07 1e 08 | 5d ff 00 42 44 16 09 1e |....6...|]..BD...|
|00000670| 08 1e 07 0a 36 0a 1e 0a | fe 00 36 1e 0a 4a 61 5d |....6...|..6..Ja]|
|00000680| fe 00 3e 1e 0a 46 26 07 | 48 1e 0a 45 fc 00 4d 16 |..>..F&.|H..E..M.|
|00000690| 0b 1e 07 74 fb 00 50 16 | 0c 08 45 22 20 5b 63 75 |...t..P.|..E" [cu|
|000006a0| 72 73 6f 72 2d 70 6f 73 | 20 70 72 6f 6d 70 74 2d |rsor-pos| prompt-|
|000006b0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 2d 70 6f 73 20 |completi|ons-pos |
|000006c0| 77 68 6f 6c 65 2d 6c 69 | 6e 65 20 6c 69 6e 65 2d |whole-li|ne line-|
|000006d0| 65 6e 64 20 70 6f 73 20 | 63 6f 70 79 2d 61 72 65 |end pos |copy-are|
|000006e0| 61 20 6c 69 6e 65 2d 73 | 74 61 72 74 20 6c 69 6e |a line-s|tart lin|
|000006f0| 65 20 70 72 6f 6d 70 74 | 2d 76 61 6c 69 64 61 74 |e prompt|-validat|
|00000700| 65 2d 66 75 6e 63 74 69 | 6f 6e 20 66 75 6e 63 61 |e-functi|on funca|
|00000710| 6c 6c 20 72 65 73 20 70 | 72 6f 6d 70 74 20 62 65 |ll res p|rompt be|
|00000720| 65 70 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |ep] 3)).|.(defun |
|00000730| 70 72 6f 6d 70 74 2d 73 | 65 6c 65 63 74 2d 63 6f |prompt-s|elect-co|
|00000740| 6d 70 6c 65 74 69 6f 6e | 20 6e 69 6c 20 28 69 6e |mpletion| nil (in|
|00000750| 74 65 72 61 63 74 69 76 | 65 29 20 28 6a 61 64 65 |teractiv|e) (jade|
|00000760| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 10 11 08 09 |-byte-co|de "....|
|00000770| 48 12 4a 09 22 20 5b 67 | 6f 74 6f 2d 63 68 61 72 |H.J." [g|oto-char|
|00000780| 20 6d 6f 75 73 65 2d 70 | 6f 73 20 70 72 6f 6d 70 | mouse-p|os promp|
|00000790| 74 2d 65 6e 74 65 72 2d | 6c 69 6e 65 5d 20 32 29 |t-enter-|line] 2)|
|000007a0| 29 0a 0a 28 64 65 66 75 | 6e 20 70 72 6f 6d 70 74 |)..(defu|n prompt|
|000007b0| 2d 63 6f 6d 70 6c 65 74 | 65 2d 77 6f 72 64 20 6e |-complet|e-word n|
|000007c0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|000007d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000007e0| 20 22 18 5d fc 00 0d 11 | 12 09 48 13 fb 00 b8 44 | ".]....|..H....D|
|000007f0| 14 15 08 09 ff 00 18 16 | 06 08 36 07 16 08 1e 07 |........|..6.....|
|00000800| 16 09 08 0a 36 0a 16 0b | 18 1e 0a 0a 36 0c 1e 0c |....6...|....6...|
|00000810| 54 36 0d 49 36 0e 1e 0d | 13 62 fc 00 4b 16 0f 1e |T6.I6...|.b..K...|
|00000820| 10 16 11 08 0a 48 11 16 | 12 09 fb 00 b4 1e 0d 16 |.....H..|........|
|00000830| 13 62 fc 00 71 16 14 16 | 15 1e 0a 1e 0c 4c 1e 07 |.b..q...|.....L..|
|00000840| 0b 09 48 16 0f 1e 10 16 | 11 08 0a 48 11 16 16 09 |..H.....|...H....|
|00000850| fb 00 b4 4a fc 00 b3 16 | 17 1e 0c 09 48 16 18 1e |...J....|....H...|
|00000860| 0c 4c 1e 0a 0a 5d fe 00 | 95 16 0f 1e 07 16 09 08 |.L...]..|........|
|00000870| 0a 48 16 19 46 26 0a 48 | 16 14 16 15 1e 0a 16 1a |.H..F&.H|........|
|00000880| 1e 0a 1e 0c 0a 1e 07 0b | 09 48 16 1b 4a 16 1c 1e |........|.H..J...|
|00000890| 0d 0b fb 00 b4 49 48 1e | 0d 45 22 20 5b 70 72 6f |.....IH.|.E" [pro|
|000008a0| 6d 70 74 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 66 |mpt-comp|letion-f|
|000008b0| 75 6e 63 74 69 6f 6e 20 | 6d 65 73 73 61 67 65 20 |unction |message |
|000008c0| 22 4e 6f 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 69 |"No comp|letion i|
|000008d0| 6e 20 74 68 69 73 20 70 | 72 6f 6d 70 74 21 22 20 |n this p|rompt!" |
|000008e0| 30 20 77 6f 72 64 2d 73 | 74 61 72 74 20 6c 65 66 |0 word-s|tart lef|
|000008f0| 74 2d 63 68 61 72 20 6c | 69 6e 65 2d 73 74 61 72 |t-char l|ine-star|
|00000900| 74 20 77 6f 72 64 2d 70 | 6f 73 20 63 6f 70 79 2d |t word-p|os copy-|
|00000910| 61 72 65 61 20 63 75 72 | 73 6f 72 2d 70 6f 73 20 |area cur|sor-pos |
|00000920| 77 6f 72 64 20 66 75 6e | 63 61 6c 6c 20 63 6f 6d |word fun|call com|
|00000930| 70 2d 6c 69 73 74 20 6e | 75 6d 2d 66 6f 75 6e 64 |p-list n|um-found|
|00000940| 20 62 75 66 66 65 72 2d | 72 65 63 6f 72 64 2d 75 | buffer-|record-u|
|00000950| 6e 64 6f 20 64 65 6c 65 | 74 65 2d 61 72 65 61 20 |ndo dele|te-area |
|00000960| 70 72 6f 6d 70 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |prompt-c|ompletio|
|00000970| 6e 73 2d 70 6f 73 20 62 | 75 66 66 65 72 2d 65 6e |ns-pos b|uffer-en|
|00000980| 64 20 22 4e 6f 20 63 6f | 6d 70 6c 65 74 69 6f 6e |d "No co|mpletion|
|00000990| 73 2e 22 20 31 20 67 6f | 74 6f 2d 63 68 61 72 20 |s." 1 go|to-char |
|000009a0| 72 65 70 6c 61 63 65 2d | 73 74 72 69 6e 67 20 22 |replace-|string "|
|000009b0| 55 6e 69 71 75 65 20 63 | 6f 6d 70 6c 65 74 69 6f |Unique c|ompletio|
|000009c0| 6e 2e 22 20 70 72 6f 6d | 70 74 2d 70 72 69 6e 74 |n." prom|pt-print|
|000009d0| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 73 74 72 |-complet|ions str|
|000009e0| 69 6e 67 2d 68 65 61 64 | 2d 65 71 20 22 22 20 6d |ing-head|-eq "" m|
|000009f0| 61 6b 65 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 73 |ake-comp|letion-s|
|00000a00| 74 72 69 6e 67 20 66 6f | 72 6d 61 74 20 22 25 64 |tring fo|rmat "%d|
|00000a10| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 2e 22 5d 20 | complet|ions."] |
|00000a20| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 70 72 6f 6d |6))..(de|fun prom|
|00000a30| 70 74 2d 70 72 69 6e 74 | 2d 63 6f 6d 70 6c 65 74 |pt-print|-complet|
|00000a40| 69 6f 6e 73 20 28 63 6f | 6d 70 2d 6c 69 73 74 29 |ions (co|mp-list)|
|00000a50| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000a60| 20 22 44 10 19 09 32 49 | 33 14 1a 15 08 0a 48 16 | "D...2I|3.....H.|
|00000a70| 06 16 07 1a 0a 48 1e 08 | 6e fe 00 31 16 09 49 b2 |.....H..|n..1..I.|
|00000a80| 1a 4b 16 0a 1e 08 4c 0b | 48 1e 08 4d 46 26 08 48 |.K....L.|H..MF&.H|
|00000a90| fb 00 14 45 22 20 5b 63 | 6f 70 79 2d 70 6f 73 20 |...E" [c|opy-pos |
|00000aa0| 70 72 6f 6d 70 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |prompt-c|ompletio|
|00000ab0| 6e 73 2d 70 6f 73 20 69 | 70 6f 73 20 62 75 66 66 |ns-pos i|pos buff|
|00000ac0| 65 72 2d 72 65 63 6f 72 | 64 2d 75 6e 64 6f 20 64 |er-recor|d-undo d|
|00000ad0| 65 6c 65 74 65 2d 61 72 | 65 61 20 62 75 66 66 65 |elete-ar|ea buffe|
|00000ae0| 72 2d 65 6e 64 20 69 6e | 73 65 72 74 20 22 0a 22 |r-end in|sert "."|
|00000af0| 20 63 6f 6d 70 2d 6c 69 | 73 74 20 66 6f 72 6d 61 | comp-li|st forma|
|00000b00| 74 20 22 25 73 0a 22 5d | 20 34 29 29 0a 0a 28 64 |t "%s."]| 4))..(d|
|00000b10| 65 66 75 6e 20 70 72 6f | 6d 70 74 2d 70 72 69 6e |efun pro|mpt-prin|
|00000b20| 74 2d 77 6f 72 64 2d 63 | 6f 6d 70 6c 65 74 69 6f |t-word-c|ompletio|
|00000b30| 6e 73 20 6e 69 6c 20 28 | 69 6e 74 65 72 61 63 74 |ns nil (|interact|
|00000b40| 69 76 65 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |ive) (ja|de-byte-|
|00000b50| 63 6f 64 65 20 22 10 11 | 1a 13 14 15 08 09 ff 00 |code "..|........|
|00000b60| 0e 16 06 08 16 07 08 0a | 0a 09 22 20 5b 70 72 6f |........|.." [pro|
|00000b70| 6d 70 74 2d 70 72 69 6e | 74 2d 63 6f 6d 70 6c 65 |mpt-prin|t-comple|
|00000b80| 74 69 6f 6e 73 20 66 75 | 6e 63 61 6c 6c 20 70 72 |tions fu|ncall pr|
|00000b90| 6f 6d 70 74 2d 63 6f 6d | 70 2d 66 75 6e 63 20 63 |ompt-com|p-func c|
|00000ba0| 6f 70 79 2d 61 72 65 61 | 20 77 6f 72 64 2d 73 74 |opy-area| word-st|
|00000bb0| 61 72 74 20 6c 65 66 74 | 2d 63 68 61 72 20 6c 69 |art left|-char li|
|00000bc0| 6e 65 2d 73 74 61 72 74 | 20 63 75 72 73 6f 72 2d |ne-start| cursor-|
|00000bd0| 70 6f 73 5d 20 36 29 29 | 0a 0a 28 64 65 66 75 6e |pos] 6))|..(defun|
|00000be0| 20 70 72 6f 6d 70 74 2d | 63 61 6e 63 65 6c 20 6e | prompt-|cancel n|
|00000bf0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|00000c00| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000c10| 20 22 10 11 09 48 12 49 | 74 22 20 5b 6d 65 73 73 | "...H.I|t" [mess|
|00000c20| 61 67 65 20 22 51 75 69 | 74 21 22 20 70 72 6f 6d |age "Qui|t!" prom|
|00000c30| 70 74 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |pt] 2)).|.(defun |
|00000c40| 70 72 6f 6d 70 74 2d 63 | 6f 6d 70 6c 65 74 65 2d |prompt-c|omplete-|
|00000c50| 73 79 6d 62 6f 6c 20 28 | 77 6f 72 64 29 20 28 6a |symbol (|word) (j|
|00000c60| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00000c70| 11 12 13 1c 0a 1d 0a 86 | 22 20 5b 73 79 6d 62 6f |........|" [symbo|
|00000c80| 6c 2d 6e 61 6d 65 20 61 | 70 72 6f 70 6f 73 20 63 |l-name a|propos c|
|00000c90| 6f 6e 63 61 74 20 39 34 | 20 77 6f 72 64 20 70 72 |oncat 94| word pr|
|00000ca0| 6f 6d 70 74 2d 73 79 6d | 62 6f 6c 2d 70 72 65 64 |ompt-sym|bol-pred|
|00000cb0| 69 63 61 74 65 5d 20 35 | 29 29 0a 0a 28 64 65 66 |icate] 5|))..(def|
|00000cc0| 75 6e 20 70 72 6f 6d 70 | 74 2d 76 61 6c 69 64 61 |un promp|t-valida|
|00000cd0| 74 65 2d 73 79 6d 62 6f | 6c 20 28 6e 61 6d 65 29 |te-symbo|l (name)|
|00000ce0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000cf0| 20 22 10 19 09 fe 00 11 | 1a 5d ff 00 11 13 1a 10 | "......|.]......|
|00000d00| 19 09 0a 22 20 5b 66 69 | 6e 64 2d 73 79 6d 62 6f |..." [fi|nd-symbo|
|00000d10| 6c 20 6e 61 6d 65 20 70 | 72 6f 6d 70 74 2d 73 79 |l name p|rompt-sy|
|00000d20| 6d 62 6f 6c 2d 70 72 65 | 64 69 63 61 74 65 20 66 |mbol-pre|dicate f|
|00000d30| 75 6e 63 61 6c 6c 5d 20 | 34 29 29 0a 0a 28 64 65 |uncall] |4))..(de|
|00000d40| 66 75 6e 20 70 72 6f 6d | 70 74 2d 63 6f 6d 70 6c |fun prom|pt-compl|
|00000d50| 65 74 65 2d 62 75 66 66 | 65 72 20 28 77 6f 72 64 |ete-buff|er (word|
|00000d60| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000d70| 65 20 22 10 11 1a 86 8d | 22 20 5b 28 6c 61 6d 62 |e ".....|" [(lamb|
|00000d80| 64 61 20 28 62 29 20 28 | 6a 61 64 65 2d 62 79 74 |da (b) (|jade-byt|
|00000d90| 65 2d 63 6f 64 65 20 22 | 10 19 1a 0a 22 20 5b 73 |e-code "|...." [s|
|00000da0| 74 72 69 6e 67 2d 68 65 | 61 64 2d 65 71 20 62 20 |tring-he|ad-eq b |
|00000db0| 77 6f 72 64 5d 20 33 29 | 29 20 62 75 66 66 65 72 |word] 3)|) buffer|
|00000dc0| 2d 6e 61 6d 65 20 62 75 | 66 66 65 72 2d 6c 69 73 |-name bu|ffer-lis|
|00000dd0| 74 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 70 |t] 3))..|(defun p|
|00000de0| 72 6f 6d 70 74 2d 76 61 | 6c 69 64 61 74 65 2d 62 |rompt-va|lidate-b|
|00000df0| 75 66 66 65 72 20 28 6e | 61 6d 65 29 20 28 6a 61 |uffer (n|ame) (ja|
|00000e00| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 18 11 |de-byte-|code "..|
|00000e10| 60 fc 00 0a 4a fb 00 0d | 12 18 09 22 20 5b 6e 61 |`...J...|..." [na|
|00000e20| 6d 65 20 22 22 20 67 65 | 74 2d 62 75 66 66 65 72 |me "" ge|t-buffer|
|00000e30| 5d 20 32 29 29 0a 0a 28 | 64 65 66 76 61 72 20 70 |] 2))..(|defvar p|
|00000e40| 72 6f 6d 70 74 2d 66 69 | 6c 65 2d 65 78 63 6c 75 |rompt-fi|le-exclu|
|00000e50| 64 65 20 28 71 75 6f 74 | 65 20 22 5c 5c 2e 28 6f |de (quot|e "\\.(o|
|00000e60| 7c 6a 6c 63 7c 78 29 24 | 7c 7e 24 7c 5e 23 2e 2a ||jlc|x)$||~$|^#.*|
|00000e70| 23 24 22 29 20 37 38 33 | 37 30 29 0a 0a 28 6a 61 |#$") 783|70)..(ja|
|00000e80| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 08 |de-byte-|code "..|
|00000e90| fe 00 0b 11 1a 13 0a 46 | 5c 22 22 20 5b 61 6d 69 |.......F|\"" [ami|
|00000ea0| 67 61 2d 70 20 63 6f 6e | 63 61 74 20 70 72 6f 6d |ga-p con|cat prom|
|00000eb0| 70 74 2d 66 69 6c 65 2d | 65 78 63 6c 75 64 65 20 |pt-file-|exclude |
|00000ec0| 22 7c 5c 5c 2e 69 6e 66 | 6f 24 22 5d 20 33 29 0a |"|\\.inf|o$"] 3).|
|00000ed0| 0a 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 |.(jade-b|yte-code|
|00000ee0| 20 22 10 08 fe 00 0b 11 | 1a 13 0a 46 5c 22 22 20 | "......|...F\"" |
|00000ef0| 5b 75 6e 69 78 2d 70 20 | 63 6f 6e 63 61 74 20 70 |[unix-p |concat p|
|00000f00| 72 6f 6d 70 74 2d 66 69 | 6c 65 2d 65 78 63 6c 75 |rompt-fi|le-exclu|
|00000f10| 64 65 20 22 7c 5e 5c 5c | 2e 28 5c 5c 2e 7c 29 24 |de "|^\\|.(\\.|)$|
|00000f20| 22 5d 20 33 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |"] 3)..(|defun pr|
|00000f30| 6f 6d 70 74 2d 63 6f 6d | 70 6c 65 74 65 2d 66 69 |ompt-com|plete-fi|
|00000f40| 6c 65 6e 61 6d 65 20 28 | 77 6f 72 64 29 20 28 6a |lename (|word) (j|
|00000f50| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00000f60| 19 09 46 21 48 44 12 19 | 09 33 14 19 09 35 16 06 |..F!HD..|.3...5..|
|00000f70| 1b 09 36 07 16 08 16 09 | 1e 07 8c 86 45 22 20 5b |..6.....|....E" [|
|00000f80| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00000f90| 20 77 6f 72 64 20 66 69 | 6c 65 2d 6e 61 6d 65 2d | word fi|le-name-|
|00000fa0| 64 69 72 65 63 74 6f 72 | 79 20 70 61 74 68 20 66 |director|y path f|
|00000fb0| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00000fc0| 63 74 6f 72 79 20 66 69 | 6c 65 20 64 69 72 65 63 |ctory fi|le direc|
|00000fd0| 74 6f 72 79 2d 66 69 6c | 65 73 20 66 69 6c 65 73 |tory-fil|es files|
|00000fe0| 20 28 6c 61 6d 62 64 61 | 20 28 78 20 26 61 75 78 | (lambda| (x &aux|
|00000ff0| 20 79 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 | y) (jad|e-byte-c|
|00001000| 6f 64 65 20 22 10 11 1a | 1b 0a 46 24 09 fe 00 11 |ode "...|..F$....|
|00001010| 11 1c 15 0a 46 24 48 1c | 22 20 5b 66 69 6c 65 2d |....F$H.|" [file-|
|00001020| 64 69 72 65 63 74 6f 72 | 79 2d 70 20 63 6f 6e 63 |director|y-p conc|
|00001030| 61 74 20 70 61 74 68 20 | 78 20 79 20 34 37 5d 20 |at path |x y 47] |
|00001040| 34 29 29 20 28 6c 61 6d | 62 64 61 20 28 66 29 20 |4)) (lam|bda (f) |
|00001050| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|00001060| 22 10 19 1a 0a 5d ff 00 | 0c 13 1c 19 0a 22 20 5b |"....]..|....." [|
|00001070| 73 74 72 69 6e 67 2d 68 | 65 61 64 2d 65 71 20 66 |string-h|ead-eq f|
|00001080| 20 66 69 6c 65 20 72 65 | 67 65 78 70 2d 6d 61 74 | file re|gexp-mat|
|00001090| 63 68 20 70 72 6f 6d 70 | 74 2d 66 69 6c 65 2d 65 |ch promp|t-file-e|
|000010a0| 78 63 6c 75 64 65 5d 20 | 33 29 29 5d 20 33 29 29 |xclude] |3))] 3))|
|000010b0| 0a 0a 28 64 65 66 75 6e | 20 70 72 6f 6d 70 74 2d |..(defun| prompt-|
|000010c0| 76 61 6c 69 64 61 74 65 | 2d 66 69 6c 65 6e 61 6d |validate|-filenam|
|000010d0| 65 20 28 6e 61 6d 65 29 | 20 28 6a 61 64 65 2d 62 |e (name)| (jade-b|
|000010e0| 79 74 65 2d 63 6f 64 65 | 20 22 10 19 09 22 20 5b |yte-code| "..." [|
|000010f0| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 6e 61 |file-exi|sts-p na|
|00001100| 6d 65 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |me] 2)).|.(defun |
|00001110| 70 72 6f 6d 70 74 2d 63 | 6f 6d 70 6c 65 74 65 2d |prompt-c|omplete-|
|00001120| 64 69 72 65 63 74 6f 72 | 79 20 28 77 6f 72 64 29 |director|y (word)|
|00001130| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00001140| 20 22 10 19 09 46 21 48 | 44 12 19 09 13 19 09 34 | "...F!H|D......4|
|00001150| 35 16 06 16 07 16 08 16 | 09 1d 09 8c 86 8b 45 22 |5.......|......E"|
|00001160| 20 5b 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 | [expand|-file-na|
|00001170| 6d 65 20 77 6f 72 64 20 | 66 69 6c 65 2d 6e 61 6d |me word |file-nam|
|00001180| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 66 69 6c 65 |e-direct|ory file|
|00001190| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|000011a0| 72 79 20 66 69 6c 65 20 | 70 61 74 68 20 6e 69 6c |ry file |path nil|
|000011b0| 20 28 6c 61 6d 62 64 61 | 20 28 78 29 20 28 6a 61 | (lambda| (x) (ja|
|000011c0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 11 |de-byte-|code "..|
|000011d0| 1a 1b 0a 09 fe 00 0e 11 | 1a 1b 14 0b 22 20 5b 66 |........|...." [f|
|000011e0| 69 6c 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 70 20 |ile-dire|ctory-p |
|000011f0| 63 6f 6e 63 61 74 20 70 | 61 74 68 20 78 20 34 37 |concat p|ath x 47|
|00001200| 5d 20 34 29 29 20 28 6c | 61 6d 62 64 61 20 28 66 |] 4)) (l|ambda (f|
|00001210| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00001220| 65 20 22 10 19 1a 0a 5d | 22 20 5b 73 74 72 69 6e |e "....]|" [strin|
|00001230| 67 2d 68 65 61 64 2d 65 | 71 20 66 20 66 69 6c 65 |g-head-e|q f file|
|00001240| 5d 20 33 29 29 20 64 69 | 72 65 63 74 6f 72 79 2d |] 3)) di|rectory-|
|00001250| 66 69 6c 65 73 5d 20 35 | 29 29 0a 0a 28 64 65 66 |files] 5|))..(def|
|00001260| 75 6e 20 70 72 6f 6d 70 | 74 2d 76 61 6c 69 64 61 |un promp|t-valida|
|00001270| 74 65 2d 64 69 72 65 63 | 74 6f 72 79 20 28 6e 61 |te-direc|tory (na|
|00001280| 6d 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |me) (jad|e-byte-c|
|00001290| 6f 64 65 20 22 10 19 09 | 22 20 5b 66 69 6c 65 2d |ode "...|" [file-|
|000012a0| 64 69 72 65 63 74 6f 72 | 79 2d 70 20 6e 61 6d 65 |director|y-p name|
|000012b0| 5d 20 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 2))..(|defun pr|
|000012c0| 6f 6d 70 74 2d 63 6f 6d | 70 6c 65 74 65 2d 66 72 |ompt-com|plete-fr|
|000012d0| 6f 6d 2d 6c 69 73 74 20 | 28 77 6f 72 64 29 20 28 |om-list |(word) (|
|000012e0| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|000012f0| 44 18 49 31 32 1a fe 00 | 20 13 1a 4c 1c 0a fe 00 |D.I12...| ..L....|
|00001300| 17 1a 4c 19 4b 46 21 48 | 1a 4d 46 5c 22 48 fb 00 |..L.KF!H|.MF\"H..|
|00001310| 05 48 19 45 22 20 5b 70 | 72 6f 6d 70 74 2d 6c 69 |.H.E" [p|rompt-li|
|00001320| 73 74 20 64 73 74 20 73 | 72 63 20 73 74 72 69 6e |st dst s|rc strin|
|00001330| 67 2d 68 65 61 64 2d 65 | 71 20 77 6f 72 64 5d 20 |g-head-e|q word] |
|00001340| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 70 72 6f 6d |3))..(de|fun prom|
|00001350| 70 74 2d 76 61 6c 69 64 | 61 74 65 2d 66 72 6f 6d |pt-valid|ate-from|
|00001360| 2d 6c 69 73 74 20 28 6e | 61 6d 65 29 20 28 6a 61 |-list (n|ame) (ja|
|00001370| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 18 19 |de-byte-|code "..|
|00001380| 88 fe 00 07 4a 22 20 5b | 6e 61 6d 65 20 70 72 6f |....J" [|name pro|
|00001390| 6d 70 74 2d 6c 69 73 74 | 5d 20 32 29 29 0a 0a 28 |mpt-list|] 2))..(|
|000013a0| 64 65 66 75 6e 20 70 72 | 6f 6d 70 74 2d 66 6f 72 |defun pr|ompt-for|
|000013b0| 2d 66 69 6c 65 20 28 26 | 6f 70 74 69 6f 6e 61 6c |-file (&|optional|
|000013c0| 20 70 72 6f 6d 70 74 20 | 65 78 69 73 74 69 6e 67 | prompt |existing|
|000013d0| 20 73 74 61 72 74 29 20 | 37 38 34 35 38 20 28 6a | start) |78458 (j|
|000013e0| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 18 |ade-byte|-code ".|
|000013f0| 71 ff 00 08 11 46 20 48 | 1a 71 ff 00 14 13 14 08 |q....F H|.q......|
|00001400| 09 46 5c 22 48 15 08 fe | 00 1c 1e 06 fc 00 67 1e |.F\"H...|......g.|
|00001410| 07 fc 00 5f 44 49 36 08 | 1e 08 6c fe 00 58 16 09 |..._DI6.|..l..X..|
|00001420| 18 1a 0a 46 26 08 ff 00 | 3b 49 7e 48 16 0a 1e 08 |...F&...|;I~H....|
|00001430| 09 ff 00 54 16 0b 08 48 | 16 0c 16 0d 16 0e 0a 48 |...T...H|.......H|
|00001440| 49 46 26 08 48 fb 00 28 | 48 1e 08 45 fb 00 64 16 |IF&.H..(|H..E..d.|
|00001450| 09 18 1a 0a fb 00 8f 44 | 16 0f 36 10 1e 07 fc 00 |.......D|..6.....|
|00001460| 76 16 11 fb 00 77 49 36 | 12 16 13 36 14 16 15 18 |v....wI6|...6....|
|00001470| 1a 0a 36 16 1e 16 fe 00 | 8e 16 17 1e 16 09 45 22 |..6.....|......E"|
|00001480| 20 5b 70 72 6f 6d 70 74 | 20 22 45 6e 74 65 72 20 | [prompt| "Enter |
|00001490| 66 69 6c 65 6e 61 6d 65 | 3a 22 20 73 74 61 72 74 |filename|:" start|
|000014a0| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|000014b0| 74 6f 72 79 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |tory buf|fer-file|
|000014c0| 2d 6e 61 6d 65 20 61 6d | 69 67 61 2d 70 20 61 6d |-name am|iga-p am|
|000014d0| 69 67 61 2d 75 73 65 2d | 66 69 6c 65 2d 72 65 71 |iga-use-|file-req|
|000014e0| 2d 70 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |-p exist|ing file|
|000014f0| 20 66 69 6c 65 2d 72 65 | 71 20 66 69 6c 65 2d 65 | file-re|q file-e|
|00001500| 78 69 73 74 73 2d 70 20 | 62 65 65 70 20 72 65 71 |xists-p |beep req|
|00001510| 20 22 54 68 61 74 20 66 | 69 6c 65 20 64 6f 65 73 | "That f|ile does|
|00001520| 6e 27 74 20 65 78 69 73 | 74 21 22 20 22 43 6f 6e |n't exis|t!" "Con|
|00001530| 74 69 6e 75 65 22 20 70 | 72 6f 6d 70 74 2d 63 6f |tinue" p|rompt-co|
|00001540| 6d 70 6c 65 74 65 2d 66 | 69 6c 65 6e 61 6d 65 20 |mplete-f|ilename |
|00001550| 70 72 6f 6d 70 74 2d 63 | 6f 6d 70 6c 65 74 69 6f |prompt-c|ompletio|
|00001560| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 70 72 6f 6d 70 |n-functi|on promp|
|00001570| 74 2d 76 61 6c 69 64 61 | 74 65 2d 66 69 6c 65 6e |t-valida|te-filen|
|00001580| 61 6d 65 20 70 72 6f 6d | 70 74 2d 76 61 6c 69 64 |ame prom|pt-valid|
|00001590| 61 74 65 2d 66 75 6e 63 | 74 69 6f 6e 20 5b 22 2e |ate-func|tion [".|
|000015a0| 22 20 22 5e 7c 24 22 5d | 20 70 72 6f 6d 70 74 2d |" "^|$"]| prompt-|
|000015b0| 77 6f 72 64 2d 72 65 67 | 65 78 70 73 20 70 72 6f |word-reg|exps pro|
|000015c0| 6d 70 74 32 20 73 74 72 | 20 65 78 70 61 6e 64 2d |mpt2 str| expand-|
|000015d0| 66 69 6c 65 2d 6e 61 6d | 65 5d 20 33 29 29 0a 0a |file-nam|e] 3))..|
|000015e0| 28 64 65 66 75 6e 20 70 | 72 6f 6d 70 74 2d 66 6f |(defun p|rompt-fo|
|000015f0| 72 2d 64 69 72 65 63 74 | 6f 72 79 20 28 26 6f 70 |r-direct|ory (&op|
|00001600| 74 69 6f 6e 61 6c 20 70 | 72 6f 6d 70 74 20 65 78 |tional p|rompt ex|
|00001610| 69 73 74 69 6e 67 20 73 | 74 61 72 74 29 20 37 38 |isting s|tart) 78|
|00001620| 35 34 34 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |544 (jad|e-byte-c|
|00001630| 6f 64 65 20 22 18 71 ff | 00 08 11 46 20 48 1a 71 |ode ".q.|...F H.q|
|00001640| ff 00 14 13 14 08 09 46 | 5c 22 48 44 15 36 06 1e |.......F|\"HD.6..|
|00001650| 07 fc 00 23 16 08 fb 00 | 24 49 36 09 16 0a 36 0b |...#....|$I6...6.|
|00001660| 16 0c 18 1a 0a 36 0d 1e | 0d fe 00 3b 16 0e 1e 0d |.....6..|...;....|
|00001670| 09 45 22 20 5b 70 72 6f | 6d 70 74 20 22 45 6e 74 |.E" [pro|mpt "Ent|
|00001680| 65 72 20 66 69 6c 65 6e | 61 6d 65 3a 22 20 73 74 |er filen|ame:" st|
|00001690| 61 72 74 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |art file|-name-di|
|000016a0| 72 65 63 74 6f 72 79 20 | 62 75 66 66 65 72 2d 66 |rectory |buffer-f|
|000016b0| 69 6c 65 2d 6e 61 6d 65 | 20 70 72 6f 6d 70 74 2d |ile-name| prompt-|
|000016c0| 63 6f 6d 70 6c 65 74 65 | 2d 64 69 72 65 63 74 6f |complete|-directo|
|000016d0| 72 79 20 70 72 6f 6d 70 | 74 2d 63 6f 6d 70 6c 65 |ry promp|t-comple|
|000016e0| 74 69 6f 6e 2d 66 75 6e | 63 74 69 6f 6e 20 65 78 |tion-fun|ction ex|
|000016f0| 69 73 74 69 6e 67 20 70 | 72 6f 6d 70 74 2d 76 61 |isting p|rompt-va|
|00001700| 6c 69 64 61 74 65 2d 64 | 69 72 65 63 74 6f 72 79 |lidate-d|irectory|
|00001710| 20 70 72 6f 6d 70 74 2d | 76 61 6c 69 64 61 74 65 | prompt-|validate|
|00001720| 2d 66 75 6e 63 74 69 6f | 6e 20 5b 22 2e 22 20 22 |-functio|n ["." "|
|00001730| 5e 7c 24 22 5d 20 70 72 | 6f 6d 70 74 2d 77 6f 72 |^|$"] pr|ompt-wor|
|00001740| 64 2d 72 65 67 65 78 70 | 73 20 70 72 6f 6d 70 74 |d-regexp|s prompt|
|00001750| 32 20 73 74 72 20 65 78 | 70 61 6e 64 2d 66 69 6c |2 str ex|pand-fil|
|00001760| 65 2d 6e 61 6d 65 5d 20 | 33 29 29 0a 0a 28 64 65 |e-name] |3))..(de|
|00001770| 66 75 6e 20 70 72 6f 6d | 70 74 2d 66 6f 72 2d 62 |fun prom|pt-for-b|
|00001780| 75 66 66 65 72 20 28 26 | 6f 70 74 69 6f 6e 61 6c |uffer (&|optional|
|00001790| 20 70 72 6f 6d 70 74 20 | 65 78 69 73 74 69 6e 67 | prompt |existing|
|000017a0| 20 64 65 66 61 75 6c 74 | 29 20 37 38 36 33 35 20 | default|) 78635 |
|000017b0| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|000017c0| 22 18 71 ff 00 08 11 46 | 20 48 44 12 33 1c fc 00 |".q....F| HD.3...|
|000017d0| 14 15 fb 00 15 49 36 06 | 16 07 36 08 16 09 18 09 |.....I6.|..6.....|
|000017e0| 36 0a 1e 0a 16 0b 60 fc | 00 33 1e 0c ff 00 30 49 |6.....`.|.3....0I|
|000017f0| b2 fb 00 45 16 0d 1e 0a | 09 ff 00 45 1c 5d fe 00 |...E....|...E.]..|
|00001800| 45 16 0e 1e 0a 09 45 22 | 20 5b 70 72 6f 6d 70 74 |E.....E"| [prompt|
|00001810| 20 22 45 6e 74 65 72 20 | 62 75 66 66 65 72 20 6e | "Enter |buffer n|
|00001820| 61 6d 65 3a 22 20 70 72 | 6f 6d 70 74 2d 63 6f 6d |ame:" pr|ompt-com|
|00001830| 70 6c 65 74 65 2d 62 75 | 66 66 65 72 20 70 72 6f |plete-bu|ffer pro|
|00001840| 6d 70 74 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 66 |mpt-comp|letion-f|
|00001850| 75 6e 63 74 69 6f 6e 20 | 65 78 69 73 74 69 6e 67 |unction |existing|
|00001860| 20 70 72 6f 6d 70 74 2d | 76 61 6c 69 64 61 74 65 | prompt-|validate|
|00001870| 2d 62 75 66 66 65 72 20 | 70 72 6f 6d 70 74 2d 76 |-buffer |prompt-v|
|00001880| 61 6c 69 64 61 74 65 2d | 66 75 6e 63 74 69 6f 6e |alidate-|function|
|00001890| 20 5b 22 2e 22 20 22 5e | 7c 24 22 5d 20 70 72 6f | ["." "^||$"] pro|
|000018a0| 6d 70 74 2d 77 6f 72 64 | 2d 72 65 67 65 78 70 73 |mpt-word|-regexps|
|000018b0| 20 70 72 6f 6d 70 74 32 | 20 62 75 66 20 22 22 20 | prompt2| buf "" |
|000018c0| 64 65 66 61 75 6c 74 20 | 67 65 74 2d 62 75 66 66 |default |get-buff|
|000018d0| 65 72 20 6f 70 65 6e 2d | 62 75 66 66 65 72 5d 20 |er open-|buffer] |
|000018e0| 32 29 29 0a 0a 28 64 65 | 66 76 61 72 20 73 79 6d |2))..(de|fvar sym|
|000018f0| 62 6f 6c 2d 77 6f 72 64 | 2d 72 65 67 65 78 70 73 |bol-word|-regexps|
|00001900| 20 5b 22 5b 5e 5d 5b 28 | 29 3f 27 5c 22 23 3b 20 | ["[^][(|)?'\"#; |
|00001910| 5d 22 20 22 5b 5d 5b 28 | 29 3f 27 5c 22 23 3b 20 |]" "[][(|)?'\"#; |
|00001920| 5d 7c 24 22 5d 29 0a 0a | 28 64 65 66 75 6e 20 70 |]|$"])..|(defun p|
|00001930| 72 6f 6d 70 74 2d 66 6f | 72 2d 73 79 6d 62 6f 6c |rompt-fo|r-symbol|
|00001940| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 70 72 6f 6d | (&optio|nal prom|
|00001950| 70 74 20 70 72 6f 6d 70 | 74 2d 73 79 6d 62 6f 6c |pt promp|t-symbol|
|00001960| 2d 70 72 65 64 69 63 61 | 74 65 29 20 37 38 38 39 |-predica|te) 7889|
|00001970| 36 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |6 (jade-|byte-cod|
|00001980| 65 20 22 18 71 ff 00 08 | 11 46 20 48 44 12 13 1c |e ".q...|.F HD...|
|00001990| 35 36 06 36 07 16 08 16 | 09 18 09 09 45 22 20 5b |56.6....|....E" [|
|000019a0| 70 72 6f 6d 70 74 20 22 | 45 6e 74 65 72 20 6e 61 |prompt "|Enter na|
|000019b0| 6d 65 20 6f 66 20 73 79 | 6d 62 6f 6c 3a 22 20 70 |me of sy|mbol:" p|
|000019c0| 72 6f 6d 70 74 2d 63 6f | 6d 70 6c 65 74 65 2d 73 |rompt-co|mplete-s|
|000019d0| 79 6d 62 6f 6c 20 70 72 | 6f 6d 70 74 2d 76 61 6c |ymbol pr|ompt-val|
|000019e0| 69 64 61 74 65 2d 73 79 | 6d 62 6f 6c 20 73 79 6d |idate-sy|mbol sym|
|000019f0| 62 6f 6c 2d 77 6f 72 64 | 2d 72 65 67 65 78 70 73 |bol-word|-regexps|
|00001a00| 20 70 72 6f 6d 70 74 2d | 77 6f 72 64 2d 72 65 67 | prompt-|word-reg|
|00001a10| 65 78 70 73 20 70 72 6f | 6d 70 74 2d 76 61 6c 69 |exps pro|mpt-vali|
|00001a20| 64 61 74 65 2d 66 75 6e | 63 74 69 6f 6e 20 70 72 |date-fun|ction pr|
|00001a30| 6f 6d 70 74 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ompt-com|pletion-|
|00001a40| 66 75 6e 63 74 69 6f 6e | 20 69 6e 74 65 72 6e 20 |function| intern |
|00001a50| 70 72 6f 6d 70 74 32 5d | 20 33 29 29 0a 0a 28 64 |prompt2]| 3))..(d|
|00001a60| 65 66 75 6e 20 70 72 6f | 6d 70 74 2d 66 6f 72 2d |efun pro|mpt-for-|
|00001a70| 6c 69 73 70 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |lisp (&o|ptional |
|00001a80| 70 72 6f 6d 70 74 29 20 | 37 38 39 39 34 20 28 6a |prompt) |78994 (j|
|00001a90| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 18 |ade-byte|-code ".|
|00001aa0| 71 ff 00 08 11 46 20 48 | 44 12 49 1b 49 34 35 36 |q....F H|D.I.I456|
|00001ab0| 06 36 07 16 08 16 09 18 | 09 09 45 22 20 5b 70 72 |.6......|..E" [pr|
|00001ac0| 6f 6d 70 74 20 22 45 6e | 74 65 72 20 61 20 4c 69 |ompt "En|ter a Li|
|00001ad0| 73 70 20 6f 62 6a 65 63 | 74 3a 22 20 70 72 6f 6d |sp objec|t:" prom|
|00001ae0| 70 74 2d 63 6f 6d 70 6c | 65 74 65 2d 73 79 6d 62 |pt-compl|ete-symb|
|00001af0| 6f 6c 20 73 79 6d 62 6f | 6c 2d 77 6f 72 64 2d 72 |ol symbo|l-word-r|
|00001b00| 65 67 65 78 70 73 20 70 | 72 6f 6d 70 74 2d 73 79 |egexps p|rompt-sy|
|00001b10| 6d 62 6f 6c 2d 70 72 65 | 64 69 63 61 74 65 20 70 |mbol-pre|dicate p|
|00001b20| 72 6f 6d 70 74 2d 77 6f | 72 64 2d 72 65 67 65 78 |rompt-wo|rd-regex|
|00001b30| 70 73 20 70 72 6f 6d 70 | 74 2d 76 61 6c 69 64 61 |ps promp|t-valida|
|00001b40| 74 65 2d 66 75 6e 63 74 | 69 6f 6e 20 70 72 6f 6d |te-funct|ion prom|
|00001b50| 70 74 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 66 75 |pt-compl|etion-fu|
|00001b60| 6e 63 74 69 6f 6e 20 72 | 65 61 64 2d 66 72 6f 6d |nction r|ead-from|
|00001b70| 2d 73 74 72 69 6e 67 20 | 70 72 6f 6d 70 74 32 5d |-string |prompt2]|
|00001b80| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 70 72 6f | 4))..(d|efun pro|
|00001b90| 6d 70 74 2d 66 6f 72 2d | 66 75 6e 63 74 69 6f 6e |mpt-for-|function|
|00001ba0| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 70 72 6f 6d | (&optio|nal prom|
|00001bb0| 70 74 29 20 37 39 30 32 | 30 20 28 6a 61 64 65 2d |pt) 7902|0 (jade-|
|00001bc0| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 19 ff 00 06 |byte-cod|e ".....|
|00001bd0| 12 13 0a 22 20 5b 70 72 | 6f 6d 70 74 2d 66 6f 72 |..." [pr|ompt-for|
|00001be0| 2d 73 79 6d 62 6f 6c 20 | 70 72 6f 6d 70 74 20 22 |-symbol |prompt "|
|00001bf0| 45 6e 74 65 72 20 6e 61 | 6d 65 20 6f 66 20 66 75 |Enter na|me of fu|
|00001c00| 6e 63 74 69 6f 6e 3a 22 | 20 66 62 6f 75 6e 64 70 |nction:"| fboundp|
|00001c10| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 3))..(|defun pr|
|00001c20| 6f 6d 70 74 2d 66 6f 72 | 2d 76 61 72 69 61 62 6c |ompt-for|-variabl|
|00001c30| 65 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 70 72 6f |e (&opti|onal pro|
|00001c40| 6d 70 74 29 20 37 39 30 | 34 33 20 28 6a 61 64 65 |mpt) 790|43 (jade|
|00001c50| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 10 19 ff 00 |-byte-co|de "....|
|00001c60| 06 12 13 0a 22 20 5b 70 | 72 6f 6d 70 74 2d 66 6f |...." [p|rompt-fo|
|00001c70| 72 2d 73 79 6d 62 6f 6c | 20 70 72 6f 6d 70 74 20 |r-symbol| prompt |
|00001c80| 22 45 6e 74 65 72 20 6e | 61 6d 65 20 6f 66 20 76 |"Enter n|ame of v|
|00001c90| 61 72 69 61 62 6c 65 3a | 22 20 62 6f 75 6e 64 70 |ariable:|" boundp|
|00001ca0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 3))..(|defun pr|
|00001cb0| 6f 6d 70 74 2d 66 6f 72 | 2d 63 6f 6d 6d 61 6e 64 |ompt-for|-command|
|00001cc0| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 70 72 6f 6d | (&optio|nal prom|
|00001cd0| 70 74 29 20 37 39 30 36 | 36 20 28 6a 61 64 65 2d |pt) 7906|6 (jade-|
|00001ce0| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 19 ff 00 06 |byte-cod|e ".....|
|00001cf0| 12 13 0a 22 20 5b 70 72 | 6f 6d 70 74 2d 66 6f 72 |..." [pr|ompt-for|
|00001d00| 2d 73 79 6d 62 6f 6c 20 | 70 72 6f 6d 70 74 20 22 |-symbol |prompt "|
|00001d10| 45 6e 74 65 72 20 6e 61 | 6d 65 20 6f 66 20 63 6f |Enter na|me of co|
|00001d20| 6d 6d 61 6e 64 3a 22 20 | 63 6f 6d 6d 61 6e 64 70 |mmand:" |commandp|
|00001d30| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 3))..(|defun pr|
|00001d40| 6f 6d 70 74 2d 66 72 6f | 6d 2d 6c 69 73 74 20 28 |ompt-fro|m-list (|
|00001d50| 70 72 6f 6d 70 74 2d 6c | 69 73 74 20 70 72 6f 6d |prompt-l|ist prom|
|00001d60| 70 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 61 |pt &opti|onal sta|
|00001d70| 72 74 29 20 37 39 30 38 | 38 20 28 6a 61 64 65 2d |rt) 7908|8 (jade-|
|00001d80| 62 79 74 65 2d 63 6f 64 | 65 20 22 44 10 11 12 33 |byte-cod|e "D...3|
|00001d90| 34 35 16 06 1e 07 1e 08 | 0a 45 22 20 5b 70 72 6f |45......|.E" [pro|
|00001da0| 6d 70 74 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 72 6f |mpt-comp|lete-fro|
|00001db0| 6d 2d 6c 69 73 74 20 70 | 72 6f 6d 70 74 2d 76 61 |m-list p|rompt-va|
|00001dc0| 6c 69 64 61 74 65 2d 66 | 72 6f 6d 2d 6c 69 73 74 |lidate-f|rom-list|
|00001dd0| 20 5b 22 2e 22 20 22 5e | 7c 24 22 5d 20 70 72 6f | ["." "^||$"] pro|
|00001de0| 6d 70 74 2d 77 6f 72 64 | 2d 72 65 67 65 78 70 73 |mpt-word|-regexps|
|00001df0| 20 70 72 6f 6d 70 74 2d | 76 61 6c 69 64 61 74 65 | prompt-|validate|
|00001e00| 2d 66 75 6e 63 74 69 6f | 6e 20 70 72 6f 6d 70 74 |-functio|n prompt|
|00001e10| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 66 75 6e 63 |-complet|ion-func|
|00001e20| 74 69 6f 6e 20 70 72 6f | 6d 70 74 32 20 70 72 6f |tion pro|mpt2 pro|
|00001e30| 6d 70 74 20 73 74 61 72 | 74 5d 20 33 29 29 0a 0a |mpt star|t] 3))..|
|00001e40| 28 64 65 66 75 6e 20 70 | 72 6f 6d 70 74 2d 66 6f |(defun p|rompt-fo|
|00001e50| 72 2d 73 74 72 69 6e 67 | 20 28 26 6f 70 74 69 6f |r-string| (&optio|
|00001e60| 6e 61 6c 20 70 72 6f 6d | 70 74 20 73 74 61 72 74 |nal prom|pt start|
|00001e70| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00001e80| 65 20 22 10 18 ff 00 0a | 11 ff 00 0a 1a 09 22 20 |e ".....|......" |
|00001e90| 5b 70 72 6f 6d 70 74 20 | 22 45 6e 74 65 72 20 73 |[prompt |"Enter s|
|00001ea0| 74 72 69 6e 67 3a 20 22 | 20 73 74 61 72 74 5d 20 |tring: "| start] |
|00001eb0| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 70 72 6f 6d |2))..(de|fun prom|
|00001ec0| 70 74 2d 66 6f 72 2d 6e | 75 6d 62 65 72 20 28 26 |pt-for-n|umber (&|
|00001ed0| 6f 70 74 69 6f 6e 61 6c | 20 70 72 6f 6d 70 74 29 |optional| prompt)|
|00001ee0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00001ef0| 20 22 44 49 30 18 70 5d | fe 00 18 11 12 1a ff 00 | "DI0.p]|........|
|00001f00| 10 13 09 09 46 20 48 fb | 00 03 48 18 45 22 20 5b |....F H.|..H.E" [|
|00001f10| 6e 75 6d 20 72 65 61 64 | 2d 66 72 6f 6d 2d 73 74 |num read|-from-st|
|00001f20| 72 69 6e 67 20 70 72 6f | 6d 70 74 20 22 45 6e 74 |ring pro|mpt "Ent|
|00001f30| 65 72 20 6e 75 6d 62 65 | 72 3a 20 22 5d 20 33 29 |er numbe|r: "] 3)|
|00001f40| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
