/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / text-mode.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 74 65 |jade/3.2|/lisp/te|
|00000030| 78 74 2d 6d 6f 64 65 2e | 6a 6c 0a 3b 3b 3b 20 43 |xt-mode.|jl.;;; C|
|00000040| 6f 6d 70 69 6c 65 64 20 | 62 79 20 6a 73 68 40 6f |ompiled |by jsh@o|
|00000050| 72 63 72 69 73 74 20 6f | 6e 20 53 75 6e 20 4f 63 |rcrist o|n Sun Oc|
|00000060| 74 20 31 36 20 32 30 3a | 32 30 3a 35 30 20 31 39 |t 16 20:|20:50 19|
|00000070| 39 34 0a 3b 3b 3b 20 4a | 61 64 65 20 33 2e 32 0a |94.;;; J|ade 3.2.|
|00000080| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000090| 20 74 65 78 74 2d 6d 6f | 64 65 29 29 0a 0a 28 64 | text-mo|de))..(d|
|000000a0| 65 66 76 61 72 20 66 69 | 6c 6c 2d 63 6f 6c 75 6d |efvar fi|ll-colum|
|000000b0| 6e 20 37 31 29 0a 0a 28 | 64 65 66 76 61 72 20 74 |n 71)..(|defvar t|
|000000c0| 65 78 74 2d 6d 6f 64 65 | 2d 6b 65 79 6d 61 70 20 |ext-mode|-keymap |
|000000d0| 28 6d 61 6b 65 2d 6b 65 | 79 6c 69 73 74 29 29 0a |(make-ke|ylist)).|
|000000e0| 0a 28 62 69 6e 64 2d 6b | 65 79 73 20 74 65 78 74 |.(bind-k|eys text|
|000000f0| 2d 6d 6f 64 65 2d 6b 65 | 79 6d 61 70 20 22 4d 65 |-mode-ke|ymap "Me|
|00000100| 74 61 2d 73 22 20 28 71 | 75 6f 74 65 20 63 65 6e |ta-s" (q|uote cen|
|00000110| 74 65 72 2d 6c 69 6e 65 | 29 20 22 4d 65 74 61 2d |ter-line|) "Meta-|
|00000120| 53 22 20 28 71 75 6f 74 | 65 20 63 65 6e 74 65 72 |S" (quot|e center|
|00000130| 2d 70 61 72 61 67 72 61 | 70 68 29 29 0a 0a 28 64 |-paragra|ph))..(d|
|00000140| 65 66 76 61 72 20 74 65 | 78 74 2d 6d 6f 64 65 2d |efvar te|xt-mode-|
|00000150| 69 6e 64 65 6e 74 2d 6b | 65 79 6d 61 70 20 28 6d |indent-k|eymap (m|
|00000160| 61 6b 65 2d 6b 65 79 6c | 69 73 74 29 29 0a 0a 28 |ake-keyl|ist))..(|
|00000170| 62 69 6e 64 2d 6b 65 79 | 73 20 74 65 78 74 2d 6d |bind-key|s text-m|
|00000180| 6f 64 65 2d 69 6e 64 65 | 6e 74 2d 6b 65 79 6d 61 |ode-inde|nt-keyma|
|00000190| 70 20 22 54 41 42 22 20 | 28 71 75 6f 74 65 20 74 |p "TAB" |(quote t|
|000001a0| 65 78 74 2d 6d 6f 64 65 | 2d 69 6e 64 65 6e 74 2d |ext-mode|-indent-|
|000001b0| 74 61 62 29 29 0a 0a 28 | 64 65 66 75 6e 20 74 65 |tab))..(|defun te|
|000001c0| 78 74 2d 6d 6f 64 65 2d | 69 6e 69 74 20 6e 69 6c |xt-mode-|init nil|
|000001d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000001e0| 20 22 10 21 12 23 14 46 | 25 22 20 5b 74 65 78 74 | ".!.#.F|%" [text|
|000001f0| 2d 6d 6f 64 65 2d 6b 69 | 6c 6c 20 6d 61 6a 6f 72 |-mode-ki|ll major|
|00000200| 2d 6d 6f 64 65 2d 6b 69 | 6c 6c 20 22 5b 61 2d 7a |-mode-ki|ll "[a-z|
|00000210| 41 2d 5a 30 2d 39 5f 2d | 5d 22 20 77 6f 72 64 2d |A-Z0-9_-|]" word-|
|00000220| 72 65 67 65 78 70 20 22 | 5b 5e 61 2d 7a 41 2d 5a |regexp "|[^a-zA-Z|
|00000230| 30 2d 39 5f 2d 5d 7c 24 | 22 20 77 6f 72 64 2d 6e |0-9_-]|$|" word-n|
|00000240| 6f 74 2d 72 65 67 65 78 | 70 5d 20 32 29 29 0a 0a |ot-regex|p] 2))..|
|00000250| 28 64 65 66 75 6e 20 74 | 65 78 74 2d 6d 6f 64 65 |(defun t|ext-mode|
|00000260| 20 6e 69 6c 20 37 34 35 | 32 39 20 28 69 6e 74 65 | nil 745|29 (inte|
|00000270| 72 61 63 74 69 76 65 29 | 20 28 6a 61 64 65 2d 62 |ractive)| (jade-b|
|00000280| 79 74 65 2d 63 6f 64 65 | 20 22 18 fe 00 09 11 18 |yte-code| "......|
|00000290| 49 b2 0a 48 12 23 14 25 | 16 06 1e 07 4b 46 26 07 |I..H.#.%|....KF&.|
|000002a0| 48 16 08 08 48 16 09 16 | 0a 09 22 20 5b 6d 61 6a |H...H...|.." [maj|
|000002b0| 6f 72 2d 6d 6f 64 65 2d | 6b 69 6c 6c 20 66 75 6e |or-mode-|kill fun|
|000002c0| 63 61 6c 6c 20 22 54 65 | 78 74 22 20 6d 6f 64 65 |call "Te|xt" mode|
|000002d0| 2d 6e 61 6d 65 20 74 65 | 78 74 2d 6d 6f 64 65 20 |-name te|xt-mode |
|000002e0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 74 65 78 74 2d |major-mo|de text-|
|000002f0| 6d 6f 64 65 2d 6b 65 79 | 6d 61 70 20 6b 65 79 6d |mode-key|map keym|
|00000300| 61 70 2d 70 61 74 68 20 | 74 65 78 74 2d 6d 6f 64 |ap-path |text-mod|
|00000310| 65 2d 69 6e 69 74 20 65 | 76 61 6c 2d 68 6f 6f 6b |e-init e|val-hook|
|00000320| 20 74 65 78 74 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d | text-mo|de-hook]|
|00000330| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 69 6e 64 | 3))..(d|efun ind|
|00000340| 65 6e 74 65 64 2d 74 65 | 78 74 2d 6d 6f 64 65 20 |ented-te|xt-mode |
|00000350| 6e 69 6c 20 37 34 35 36 | 33 20 28 69 6e 74 65 72 |nil 7456|3 (inter|
|00000360| 61 63 74 69 76 65 29 20 | 28 6a 61 64 65 2d 62 79 |active) |(jade-by|
|00000370| 74 65 2d 63 6f 64 65 20 | 22 18 fe 00 09 11 18 49 |te-code |"......I|
|00000380| b2 0a 48 12 23 14 25 16 | 06 16 07 1e 08 4b 4b 46 |..H.#.%.|.....KKF|
|00000390| 26 08 48 16 09 08 48 16 | 0a 16 0b 09 48 16 0a 16 |&.H...H.|....H...|
|000003a0| 0c 09 22 20 5b 6d 61 6a | 6f 72 2d 6d 6f 64 65 2d |.." [maj|or-mode-|
|000003b0| 6b 69 6c 6c 20 66 75 6e | 63 61 6c 6c 20 22 49 6e |kill fun|call "In|
|000003c0| 64 65 6e 74 65 64 20 54 | 65 78 74 22 20 6d 6f 64 |dented T|ext" mod|
|000003d0| 65 2d 6e 61 6d 65 20 69 | 6e 64 65 6e 74 65 64 2d |e-name i|ndented-|
|000003e0| 74 65 78 74 2d 6d 6f 64 | 65 20 6d 61 6a 6f 72 2d |text-mod|e major-|
|000003f0| 6d 6f 64 65 20 74 65 78 | 74 2d 6d 6f 64 65 2d 69 |mode tex|t-mode-i|
|00000400| 6e 64 65 6e 74 2d 6b 65 | 79 6d 61 70 20 74 65 78 |ndent-ke|ymap tex|
|00000410| 74 2d 6d 6f 64 65 2d 6b | 65 79 6d 61 70 20 6b 65 |t-mode-k|eymap ke|
|00000420| 79 6d 61 70 2d 70 61 74 | 68 20 74 65 78 74 2d 6d |ymap-pat|h text-m|
|00000430| 6f 64 65 2d 69 6e 69 74 | 20 65 76 61 6c 2d 68 6f |ode-init| eval-ho|
|00000440| 6f 6b 20 74 65 78 74 2d | 6d 6f 64 65 2d 68 6f 6f |ok text-|mode-hoo|
|00000450| 6b 20 69 6e 64 65 6e 74 | 65 64 2d 74 65 78 74 2d |k indent|ed-text-|
|00000460| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 33 29 29 0a 0a |mode-hoo|k] 3))..|
|00000470| 28 64 65 66 75 6e 20 74 | 65 78 74 2d 6d 6f 64 65 |(defun t|ext-mode|
|00000480| 2d 6b 69 6c 6c 20 6e 69 | 6c 20 28 6a 61 64 65 2d |-kill ni|l (jade-|
|00000490| 62 79 74 65 2d 63 6f 64 | 65 20 22 49 20 11 12 1b |byte-cod|e "I ...|
|000004a0| 8b 8b 23 49 24 49 46 25 | 48 4a 22 20 5b 6d 6f 64 |..#I$IF%|HJ" [mod|
|000004b0| 65 2d 6e 61 6d 65 20 74 | 65 78 74 2d 6d 6f 64 65 |e-name t|ext-mode|
|000004c0| 2d 6b 65 79 6d 61 70 20 | 74 65 78 74 2d 6d 6f 64 |-keymap |text-mod|
|000004d0| 65 2d 69 6e 64 65 6e 74 | 2d 6b 65 79 6d 61 70 20 |e-indent|-keymap |
|000004e0| 6b 65 79 6d 61 70 2d 70 | 61 74 68 20 6d 61 6a 6f |keymap-p|ath majo|
|000004f0| 72 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |r-mode m|ajor-mod|
|00000500| 65 2d 6b 69 6c 6c 5d 20 | 33 29 29 0a 0a 28 64 65 |e-kill] |3))..(de|
|00000510| 66 75 6e 20 74 65 78 74 | 2d 6d 6f 64 65 2d 69 6e |fun text|-mode-in|
|00000520| 64 65 6e 74 2d 74 61 62 | 20 6e 69 6c 20 28 69 6e |dent-tab| nil (in|
|00000530| 74 65 72 61 63 74 69 76 | 65 29 20 28 6a 61 64 65 |teractiv|e) (jade|
|00000540| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 44 10 11 12 |-byte-co|de "D...|
|00000550| 13 09 0a 34 1c 6c ff 00 | 17 15 16 06 08 09 16 07 |...4.l..|........|
|00000560| 1c 09 64 fc 00 5c 22 16 | 08 16 09 09 fb 00 80 44 |..d..\".|.......D|
|00000570| 16 0a 16 06 08 09 36 0b | 16 0c 1e 0b 16 0d 1c 09 |......6.|........|
|00000580| 0a 48 16 0e 1e 0b 09 46 | 24 48 16 0f 16 10 1c 0a |.H.....F|$H......|
|00000590| 48 16 11 08 16 12 1c 09 | 60 fc 00 57 16 08 16 09 |H.......|`..W....|
|000005a0| 09 fb 00 7f 16 0a 16 11 | 08 09 46 24 48 16 0c 1c |........|..F$H...|
|000005b0| 16 0d 16 06 08 09 0a 48 | 16 13 1c 09 fc 00 79 16 |.......H|......y.|
|000005c0| 14 1c 09 fb 00 7f 16 15 | 15 1c 09 09 45 45 22 20 |........|....EE" |
|000005d0| 5b 66 69 6e 64 2d 70 72 | 65 76 2d 72 65 67 65 78 |[find-pr|ev-regex|
|000005e0| 70 20 22 5e 2e 2b 24 22 | 20 70 72 65 76 2d 6c 69 |p "^.+$"| prev-li|
|000005f0| 6e 65 20 31 20 70 6f 73 | 20 70 6f 73 2d 63 6f 6c |ne 1 pos| pos-col|
|00000600| 20 63 75 72 73 6f 72 2d | 70 6f 73 20 6c 69 6e 65 | cursor-|pos line|
|00000610| 2d 6c 65 6e 67 74 68 20 | 69 6e 73 65 72 74 20 22 |-length |insert "|
|00000620| 09 22 20 63 68 61 72 2d | 74 6f 2d 67 6c 79 70 68 |." char-|to-glyph|
|00000630| 2d 70 6f 73 20 67 63 75 | 72 73 20 73 65 74 2d 70 |-pos gcu|rs set-p|
|00000640| 6f 73 2d 6c 69 6e 65 20 | 70 6f 73 2d 6c 69 6e 65 |os-line |pos-line|
|00000650| 20 67 6c 79 70 68 2d 74 | 6f 2d 63 68 61 72 2d 70 | glyph-t|o-char-p|
|00000660| 6f 73 20 66 69 6e 64 2d | 6e 65 78 74 2d 72 65 67 |os find-|next-reg|
|00000670| 65 78 70 20 22 5b 09 20 | 5d 2b 7c 24 22 20 6d 61 |exp "[. |]+|$" ma|
|00000680| 74 63 68 2d 65 6e 64 20 | 6c 69 6e 65 2d 65 6e 64 |tch-end |line-end|
|00000690| 20 65 6d 70 74 79 2d 6c | 69 6e 65 2d 70 20 73 65 | empty-l|ine-p se|
|000006a0| 74 2d 69 6e 64 65 6e 74 | 2d 70 6f 73 20 69 6e 64 |t-indent|-pos ind|
|000006b0| 65 6e 74 2d 74 6f 5d 20 | 34 29 29 0a 0a 28 64 65 |ent-to] |4))..(de|
|000006c0| 66 75 6e 20 63 65 6e 74 | 65 72 2d 6c 69 6e 65 20 |fun cent|er-line |
|000006d0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 70 6f 73 29 20 |(&option|al pos) |
|000006e0| 37 34 36 37 32 20 28 69 | 6e 74 65 72 61 63 74 69 |74672 (i|nteracti|
|000006f0| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|00000700| 6f 64 65 20 22 10 11 1a | 0a 48 44 13 1a 09 34 15 |ode "...|.HD...4.|
|00000710| 16 06 08 09 36 07 16 08 | 1e 07 09 16 08 1c 09 58 |....6...|.......X|
|00000720| 36 09 1e 09 16 0a 67 ff | 00 50 1e 09 1e 0b 64 fc |6.....g.|.P....d.|
|00000730| 00 37 16 0c 16 0d 1a 09 | 09 fb 00 50 4a fc 00 4f |.7......|...PJ..O|
|00000740| 16 0e 1c 1e 0b 1e 09 58 | 16 0f 5a 0a 48 16 0c 1c |.......X|..Z.H...|
|00000750| 09 fb 00 50 49 45 22 20 | 5b 72 65 67 65 78 70 2d |...PIE" |[regexp-|
|00000760| 6d 61 74 63 68 2d 6c 69 | 6e 65 20 22 20 2a 24 22 |match-li|ne " *$"|
|00000770| 20 70 6f 73 20 69 6e 64 | 65 6e 74 2d 70 6f 73 20 | pos ind|ent-pos |
|00000780| 73 70 6f 73 20 63 68 61 | 72 2d 74 6f 2d 67 6c 79 |spos cha|r-to-gly|
|00000790| 70 68 2d 70 6f 73 20 6d | 61 74 63 68 2d 73 74 61 |ph-pos m|atch-sta|
|000007a0| 72 74 20 65 70 6f 73 20 | 70 6f 73 2d 63 6f 6c 20 |rt epos |pos-col |
|000007b0| 6c 65 6e 20 30 20 66 69 | 6c 6c 2d 63 6f 6c 75 6d |len 0 fi|ll-colum|
|000007c0| 6e 20 73 65 74 2d 69 6e | 64 65 6e 74 2d 70 6f 73 |n set-in|dent-pos|
|000007d0| 20 6c 69 6e 65 2d 73 74 | 61 72 74 20 73 65 74 2d | line-st|art set-|
|000007e0| 70 6f 73 2d 63 6f 6c 20 | 32 5d 20 34 29 29 0a 0a |pos-col |2] 4))..|
|000007f0| 28 64 65 66 75 6e 20 63 | 65 6e 74 65 72 2d 70 61 |(defun c|enter-pa|
|00000800| 72 61 67 72 61 70 68 20 | 28 26 6f 70 74 69 6f 6e |ragraph |(&option|
|00000810| 61 6c 20 70 6f 73 29 20 | 37 34 36 39 36 20 28 69 |al pos) |74696 (i|
|00000820| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|00000830| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 44 10 19 |e-byte-c|ode "D..|
|00000840| 09 32 13 1a 09 34 1c 1a | 66 fe 00 1d 15 1c 09 48 |.2...4..|f......H|
|00000850| 16 06 16 07 1c 0a 48 fb | 00 09 45 22 20 5b 66 6f |......H.|..E" [fo|
|00000860| 72 77 61 72 64 2d 70 61 | 72 61 67 72 61 70 68 20 |rward-pa|ragraph |
|00000870| 70 6f 73 20 65 70 6f 73 | 20 62 61 63 6b 77 61 72 |pos epos| backwar|
|00000880| 64 2d 70 61 72 61 67 72 | 61 70 68 20 73 70 6f 73 |d-paragr|aph spos|
|00000890| 20 63 65 6e 74 65 72 2d | 6c 69 6e 65 20 6e 65 78 | center-|line nex|
|000008a0| 74 2d 6c 69 6e 65 20 31 | 5d 20 33 29 29 0a       |t-line 1|] 3)).  |
+--------+-------------------------+-------------------------+--------+--------+