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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 6b 65 |jade/3.2|/lisp/ke|
|00000030| 79 6d 61 70 2e 6a 6c 0a | 3b 3b 3b 20 43 6f 6d 70 |ymap.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 | 34 37 20 31 39 39 34 0a |6 20:20:|47 1994.|
|00000070| 3b 3b 3b 20 4a 61 64 65 | 20 33 2e 32 0a 0a 28 70 |;;; Jade| 3.2..(p|
|00000080| 72 6f 76 69 64 65 20 28 | 71 75 6f 74 65 20 6b 65 |rovide (|quote ke|
|00000090| 79 6d 61 70 29 29 0a 0a | 28 64 65 66 75 6e 20 70 |ymap))..|(defun p|
|000000a0| 72 69 6e 74 2d 6b 65 79 | 6d 61 70 20 28 26 6f 70 |rint-key|map (&op|
|000000b0| 74 69 6f 6e 61 6c 20 6b | 65 79 6d 61 70 2d 6c 69 |tional k|eymap-li|
|000000c0| 73 74 20 62 75 66 66 65 | 72 29 20 37 33 33 33 32 |st buffe|r) 73332|
|000000d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000000e0| 20 22 18 ff 00 07 19 46 | 20 48 1a ff 00 10 49 b2 | ".....F| H....I.|
|000000f0| 46 5c 22 48 13 14 09 48 | 15 16 06 09 48 13 16 07 |F\"H...H|....H...|
|00000100| 09 48 15 16 06 09 48 13 | 16 08 09 48 44 49 36 09 |.H....H.|...HDI6.|
|00000110| 18 fe 00 d3 44 18 4c 49 | 36 0a 36 0b 18 4d 46 20 |....D.LI|6.6..MF |
|00000120| 48 16 0c 1e 0b 09 5d fe | 00 4a 1e 0b 6e fe 00 58 |H.....].|.J..n..X|
|00000130| 1e 0b 4d 26 0a 1e 0b 4c | 46 26 0b 48 1e 0b 1e 09 |..M&...L|F&.H....|
|00000140| 89 ff 00 ce 1e 0b 1e 09 | 4b 46 26 09 48 1e 0b 79 |........|KF&.H..y|
|00000150| fe 00 87 16 0d 49 b2 16 | 0e 1e 0b 0b 48 1a b1 16 |.....I..|....H...|
|00000160| 0f 1e 0b 09 47 b1 48 46 | 26 0b 48 16 0c 1e 0b 09 |....G.HF|&.H.....|
|00000170| fe 00 c9 1e 0b 72 fc 00 | bb 44 1e 0b 54 36 10 1e |.....r..|.D..T6..|
|00000180| 10 16 11 65 fe 00 b7 16 | 12 1e 0b 1e 10 53 09 48 |...e....|.....S.H|
|00000190| 1e 10 69 46 26 10 48 fb | 00 9c 45 fb 00 c9 4a fc |..iF&.H.|..E...J.|
|000001a0| 00 c8 16 12 1e 0b 4d 09 | fb 00 c9 49 48 13 16 13 |......M.|...IH...|
|000001b0| 09 45 48 fb 00 2d 45 22 | 20 5b 6b 65 79 6d 61 70 |.EH..-E"| [keymap|
|000001c0| 2d 6c 69 73 74 20 6b 65 | 79 6d 61 70 2d 70 61 74 |-list ke|ymap-pat|
|000001d0| 68 20 62 75 66 66 65 72 | 20 69 6e 73 65 72 74 20 |h buffer| insert |
|000001e0| 22 0a 4b 65 79 2f 45 76 | 65 6e 74 22 20 69 6e 64 |".Key/Ev|ent" ind|
|000001f0| 65 6e 74 2d 74 6f 20 32 | 34 20 22 42 69 6e 64 69 |ent-to 2|4 "Bindi|
|00000200| 6e 67 0a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 22 20 22 2d |ng.-----|----" "-|
|00000210| 2d 2d 2d 2d 2d 2d 0a 0a | 22 20 64 6f 6e 65 2d 6c |------..|" done-l|
|00000220| 69 73 74 20 6b 6d 2d 70 | 72 65 66 69 78 2d 73 74 |ist km-p|refix-st|
|00000230| 72 69 6e 67 20 6b 65 79 | 6d 61 70 20 6b 65 79 6d |ring key|map keym|
|00000240| 61 70 70 20 66 6f 72 6d | 61 74 20 22 20 2d 2d 20 |app form|at " -- |
|00000250| 25 73 3a 0a 22 20 73 79 | 6d 62 6f 6c 2d 76 61 6c |%s:." sy|mbol-val|
|00000260| 75 65 20 69 20 30 20 6b | 6d 2d 70 72 69 6e 74 2d |ue i 0 k|m-print-|
|00000270| 6c 69 73 74 20 22 0a 22 | 5d 20 34 29 29 0a 0a 28 |list "."|] 4))..(|
|00000280| 64 65 66 75 6e 20 6b 6d | 2d 70 72 69 6e 74 2d 6c |defun km|-print-l|
|00000290| 69 73 74 20 28 6b 65 79 | 6d 61 70 29 20 28 6a 61 |ist (key|map) (ja|
|000002a0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 44 49 |de-byte-|code "DI|
|000002b0| 49 49 30 31 32 1b fe 00 | 83 1b 4c 5c 22 1a 14 53 |II012...|..L\"..S|
|000002c0| 21 15 1a 16 06 53 1a 16 | 07 53 4b 09 46 20 48 19 |!....S..|.SK.F H.|
|000002d0| 4c 16 08 61 fe 00 2f 16 | 07 19 50 16 09 61 fe 00 |L..a../.|..P..a..|
|000002e0| 56 44 16 0a 1e 0b 1e 0b | fe 00 3e 16 0c 18 0b 36 |VD......|..>....6|
|000002f0| 0d 16 0e 14 19 50 55 86 | 36 0f 16 10 1e 11 1e 0f |.....PU.|6.......|
|00000300| 0a 46 26 11 45 48 16 12 | 16 0a 1e 0b 1e 0b fe 00 |.F&.EH..|........|
|00000310| 64 16 0c 18 0b 09 48 16 | 13 16 14 09 48 16 15 19 |d.....H.|....H...|
|00000320| 49 b2 0a 48 16 12 16 16 | 09 48 1b 4d 46 23 48 fb |I..H....|.H.MF#H.|
|00000330| 00 07 45 22 20 5b 65 76 | 65 6e 74 2d 73 74 72 20 |..E" [ev|ent-str |
|00000340| 63 6d 64 20 6b 65 79 20 | 6b 65 79 6d 61 70 20 32 |cmd key |keymap 2|
|00000350| 20 65 76 65 6e 74 2d 6e | 61 6d 65 20 30 20 31 20 | event-n|ame 0 1 |
|00000360| 73 65 74 71 20 6e 65 78 | 74 2d 6b 65 79 6d 61 70 |setq nex|t-keymap|
|00000370| 2d 70 61 74 68 20 63 6f | 6e 63 61 74 20 6b 6d 2d |-path co|ncat km-|
|00000380| 70 72 65 66 69 78 2d 73 | 74 72 69 6e 67 20 33 32 |prefix-s|tring 32|
|00000390| 20 6e 65 77 2d 73 74 72 | 20 28 6c 61 6d 62 64 61 | new-str| (lambda|
|000003a0| 20 28 6b 6d 29 20 28 6a | 61 64 65 2d 62 79 74 65 | (km) (j|ade-byte|
|000003b0| 2d 63 6f 64 65 20 22 18 | 19 4b 22 20 5b 6b 6d 20 |-code ".|.K" [km |
|000003c0| 6e 65 77 2d 73 74 72 5d | 20 32 29 29 20 6e 65 77 |new-str]| 2)) new|
|000003d0| 2d 6c 69 73 74 20 61 70 | 70 65 6e 64 20 6b 65 79 |-list ap|pend key|
|000003e0| 6d 61 70 2d 6c 69 73 74 | 20 69 6e 73 65 72 74 20 |map-list| insert |
|000003f0| 69 6e 64 65 6e 74 2d 74 | 6f 20 32 34 20 70 72 69 |indent-t|o 24 pri|
|00000400| 6e 31 20 22 0a 22 5d 20 | 35 29 29 0a 0a 28 64 65 |n1 "."] |5))..(de|
|00000410| 66 75 6e 20 6b 6d 2d 72 | 65 61 64 2d 65 76 65 6e |fun km-r|ead-even|
|00000420| 74 2d 66 75 6e 20 6e 69 | 6c 20 28 6a 61 64 65 2d |t-fun ni|l (jade-|
|00000430| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 11 08 74 22 |byte-cod|e "...t"|
|00000440| 20 5b 72 65 61 64 2d 65 | 76 65 6e 74 20 63 75 72 | [read-e|vent cur|
|00000450| 72 65 6e 74 2d 65 76 65 | 6e 74 5d 20 32 29 29 0a |rent-eve|nt] 2)).|
|00000460| 0a 28 64 65 66 75 6e 20 | 72 65 61 64 2d 65 76 65 |.(defun |read-eve|
|00000470| 6e 74 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 74 69 |nt (&opt|ional ti|
|00000480| 74 6c 65 29 20 37 33 34 | 30 31 20 28 6a 61 64 65 |tle) 734|01 (jade|
|00000490| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 44 49 b2 18 |-byte-co|de "DI..|
|000004a0| 19 32 33 34 49 20 49 21 | 4a 46 25 48 16 06 16 07 |.234I I!|JF%H....|
|000004b0| 16 08 0a 48 16 09 75 16 | 0a 16 0b 73 76 45 22 20 |...H..u.|...svE" |
|000004c0| 5b 6b 65 79 6d 61 70 2d | 70 61 74 68 20 6e 65 78 |[keymap-|path nex|
|000004d0| 74 2d 6b 65 79 6d 61 70 | 2d 70 61 74 68 20 6f 6c |t-keymap|-path ol|
|000004e0| 64 2d 6e 6b 70 20 6f 6c | 64 2d 6b 70 20 62 75 66 |d-nkp ol|d-kp buf|
|000004f0| 66 65 72 20 73 74 61 74 | 75 73 2d 6c 69 6e 65 2d |fer stat|us-line-|
|00000500| 63 75 72 73 6f 72 20 61 | 64 64 2d 68 6f 6f 6b 20 |cursor a|dd-hook |
|00000510| 75 6e 62 6f 75 6e 64 2d | 6b 65 79 2d 68 6f 6f 6b |unbound-|key-hook|
|00000520| 20 6b 6d 2d 72 65 61 64 | 2d 65 76 65 6e 74 2d 66 | km-read|-event-f|
|00000530| 75 6e 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |un (jade|-byte-co|
|00000540| 64 65 20 22 18 b1 11 12 | 13 0a 48 1c 25 1e 06 26 |de "....|..H.%..&|
|00000550| 07 49 46 26 08 47 b1 48 | 22 20 5b 62 75 66 66 65 |.IF&.G.H|" [buffe|
|00000560| 72 20 72 65 6d 6f 76 65 | 2d 68 6f 6f 6b 20 75 6e |r remove|-hook un|
|00000570| 62 6f 75 6e 64 2d 6b 65 | 79 2d 68 6f 6f 6b 20 6b |bound-ke|y-hook k|
|00000580| 6d 2d 72 65 61 64 2d 65 | 76 65 6e 74 2d 66 75 6e |m-read-e|vent-fun|
|00000590| 20 6f 6c 64 2d 6b 70 20 | 6b 65 79 6d 61 70 2d 70 | old-kp |keymap-p|
|000005a0| 61 74 68 20 6f 6c 64 2d | 6e 6b 70 20 6e 65 78 74 |ath old-|nkp next|
|000005b0| 2d 6b 65 79 6d 61 70 2d | 70 61 74 68 20 73 74 61 |-keymap-|path sta|
|000005c0| 74 75 73 2d 6c 69 6e 65 | 2d 63 75 72 73 6f 72 5d |tus-line|-cursor]|
|000005d0| 20 34 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 | 4) (jad|e-byte-c|
|000005e0| 6f 64 65 20 22 10 19 ff | 00 06 12 09 48 13 08 22 |ode "...|....H.."|
|000005f0| 20 5b 6d 65 73 73 61 67 | 65 20 74 69 74 6c 65 20 | [messag|e title |
|00000600| 22 54 79 70 65 20 61 20 | 6b 65 79 3a 22 20 72 65 |"Type a |key:" re|
|00000610| 63 75 72 73 69 76 65 2d | 65 64 69 74 5d 20 32 29 |cursive-|edit] 2)|
|00000620| 20 28 71 75 6f 74 65 20 | 72 65 61 64 2d 65 76 65 | (quote |read-eve|
|00000630| 6e 74 29 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |nt)] 3))|..(defun|
|00000640| 20 64 65 73 63 72 69 62 | 65 2d 6b 65 79 20 6e 69 | describ|e-key ni|
|00000650| 6c 20 37 33 34 39 36 20 | 28 69 6e 74 65 72 61 63 |l 73496 |(interac|
|00000660| 74 69 76 65 29 20 28 6a | 61 64 65 2d 62 79 74 65 |tive) (j|ade-byte|
|00000670| 2d 63 6f 64 65 20 22 44 | 49 49 49 49 30 31 32 33 |-code "D|IIII0123|
|00000680| 18 5d fe 00 90 14 15 16 | 06 1b 0a 09 5c 22 15 1b |.]......|....\"..|
|00000690| 1b fe 00 1e 16 07 16 08 | 1a 09 0b 46 23 48 16 09 |........|...F#H..|
|000006a0| 1a 4a 0a 46 21 fc 00 7d | 19 4c 16 0a 61 fe 00 3f |.J.F!..}|.L..a..?|
|000006b0| 16 0b 19 50 16 0c 61 fc | 00 49 16 0d 19 09 fb 00 |...P..a.|.I......|
|000006c0| 7a 16 0e 16 0f 09 48 16 | 10 08 48 16 11 49 b2 16 |z.....H.|..H..I..|
|000006d0| 12 1b 19 0c 48 19 90 fe | 00 72 16 11 49 b2 16 13 |....H...|.r..I...|
|000006e0| 16 14 19 09 ff 00 71 16 | 15 0b 48 16 16 08 48 4a |......q.|..H...HJ|
|000006f0| 46 20 fb 00 8c 16 17 15 | 1b 16 18 0a 09 48 4a 20 |F ......|.....HJ |
|00000700| 49 46 26 0c 48 fb 00 09 | 45 22 20 5b 64 6f 6e 65 |IF&.H...|E" [done|
|00000710| 20 63 6f 6d 6d 61 6e 64 | 20 65 76 65 6e 74 20 6e | command| event n|
|00000720| 61 6d 65 73 20 72 65 61 | 64 2d 65 76 65 6e 74 20 |ames rea|d-event |
|00000730| 63 6f 6e 63 61 74 20 22 | 45 6e 74 65 72 20 61 20 |concat "|Enter a |
|00000740| 6b 65 79 20 73 65 71 75 | 65 6e 63 65 3a 20 22 20 |key sequ|ence: " |
|00000750| 33 32 20 65 76 65 6e 74 | 2d 6e 61 6d 65 20 6c 6f |32 event|-name lo|
|00000760| 6f 6b 75 70 2d 65 76 65 | 6e 74 2d 62 69 6e 64 69 |okup-eve|nt-bindi|
|00000770| 6e 67 20 73 65 74 71 20 | 31 20 6e 65 78 74 2d 6b |ng setq |1 next-k|
|00000780| 65 79 6d 61 70 2d 70 61 | 74 68 20 63 61 6c 6c 2d |eymap-pa|th call-|
|00000790| 63 6f 6d 6d 61 6e 64 20 | 72 65 71 75 69 72 65 20 |command |require |
|000007a0| 68 65 6c 70 20 68 65 6c | 70 2d 73 65 74 75 70 20 |help hel|p-setup |
|000007b0| 66 6f 72 6d 61 74 20 22 | 0a 25 73 20 2d 3e 20 25 |format "|.%s -> %|
|000007c0| 53 0a 22 20 22 0a 25 73 | 0a 22 20 64 6f 63 75 6d |S." ".%s|." docum|
|000007d0| 65 6e 74 61 74 69 6f 6e | 20 22 22 20 67 6f 74 6f |entation| "" goto|
|000007e0| 2d 62 75 66 66 65 72 2d | 73 74 61 72 74 20 6d 65 |-buffer-|start me|
|000007f0| 73 73 61 67 65 20 22 20 | 69 73 20 75 6e 62 6f 75 |ssage " |is unbou|
|00000800| 6e 64 2e 20 22 5d 20 35 | 29 29 0a                |nd. "] 5|)).     |
+--------+-------------------------+-------------------------+--------+--------+