/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / c-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 63 2d |jade/3.2|/lisp/c-|
|00000030| 6d 6f 64 65 2e 6a 6c 0a | 3b 3b 3b 20 43 6f 6d 70 |mode.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 31 3a | 32 36 20 31 39 39 34 0a |6 20:21:|26 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 63 2d |rovide (|quote c-|
|00000090| 6d 6f 64 65 29 29 0a 0a | 28 64 65 66 76 61 72 20 |mode))..|(defvar |
|000000a0| 63 2d 6d 6f 64 65 2d 74 | 61 62 20 34 20 39 35 34 |c-mode-t|ab 4 954|
|000000b0| 34 37 29 0a 0a 28 64 65 | 66 76 61 72 20 63 2d 6d |47)..(de|fvar c-m|
|000000c0| 6f 64 65 2d 6b 65 79 6d | 61 70 20 28 6d 61 6b 65 |ode-keym|ap (make|
|000000d0| 2d 6b 65 79 6c 69 73 74 | 29 29 0a 0a 28 62 69 6e |-keylist|))..(bin|
|000000e0| 64 2d 6b 65 79 73 20 63 | 2d 6d 6f 64 65 2d 6b 65 |d-keys c|-mode-ke|
|000000f0| 79 6d 61 70 20 22 7b 22 | 20 28 71 75 6f 74 65 20 |ymap "{"| (quote |
|00000100| 63 2d 6f 70 65 6e 2d 62 | 72 61 63 65 29 20 22 7d |c-open-b|race) "}|
|00000110| 22 20 28 71 75 6f 74 65 | 20 63 2d 63 6c 6f 73 65 |" (quote| c-close|
|00000120| 2d 62 72 61 63 65 29 20 | 22 3a 22 20 28 71 75 6f |-brace) |":" (quo|
|00000130| 74 65 20 63 2d 63 6f 6c | 6f 6e 29 20 22 54 41 42 |te c-col|on) "TAB|
|00000140| 22 20 28 71 75 6f 74 65 | 20 69 6e 64 65 6e 74 2d |" (quote| indent-|
|00000150| 6c 69 6e 65 29 29 0a 0a | 28 64 65 66 76 61 72 20 |line))..|(defvar |
|00000160| 63 2d 6d 6f 64 65 2d 63 | 74 72 6c 2d 63 2d 6b 65 |c-mode-c|trl-c-ke|
|00000170| 79 6d 61 70 20 28 6d 61 | 6b 65 2d 6b 65 79 6c 69 |ymap (ma|ke-keyli|
|00000180| 73 74 29 29 0a 0a 28 62 | 69 6e 64 2d 6b 65 79 73 |st))..(b|ind-keys|
|00000190| 20 63 2d 6d 6f 64 65 2d | 63 74 72 6c 2d 63 2d 6b | c-mode-|ctrl-c-k|
|000001a0| 65 79 6d 61 70 20 22 43 | 74 72 6c 2d 5c 5c 22 20 |eymap "C|trl-\\" |
|000001b0| 28 71 75 6f 74 65 20 63 | 2d 62 61 63 6b 73 6c 61 |(quote c|-backsla|
|000001c0| 73 68 2d 72 65 67 69 6f | 6e 29 29 0a 0a 28 64 65 |sh-regio|n))..(de|
|000001d0| 66 75 6e 20 63 2d 6d 6f | 64 65 20 6e 69 6c 20 39 |fun c-mo|de nil 9|
|000001e0| 35 34 37 38 20 28 69 6e | 74 65 72 61 63 74 69 76 |5478 (in|teractiv|
|000001f0| 65 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |e) (jade|-byte-co|
|00000200| 64 65 20 22 18 fe 00 09 | 11 18 49 b2 0a 48 12 23 |de "....|..I..H.#|
|00000210| 14 25 16 06 20 16 07 26 | 08 16 09 26 0a 16 0b 26 |.%.. ..&|...&...&|
|00000220| 0c 16 0d 26 0e 1e 0f 26 | 10 16 11 1e 12 4b 46 26 |...&...&|.....KF&|
|00000230| 12 48 16 13 16 14 09 22 | 20 5b 6d 61 6a 6f 72 2d |.H....."| [major-|
|00000240| 6d 6f 64 65 2d 6b 69 6c | 6c 20 66 75 6e 63 61 6c |mode-kil|l funcal|
|00000250| 6c 20 22 43 22 20 6d 6f | 64 65 2d 6e 61 6d 65 20 |l "C" mo|de-name |
|00000260| 63 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |c-mode m|ajor-mod|
|00000270| 65 20 63 2d 6d 6f 64 65 | 2d 6b 69 6c 6c 20 63 2d |e c-mode|-kill c-|
|00000280| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 65 6e 74 20 6d |insert-c|omment m|
|00000290| 6f 64 65 2d 63 6f 6d 6d | 65 6e 74 2d 66 75 6e 20 |ode-comm|ent-fun |
|000002a0| 63 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 6d 6f |c-indent|-line mo|
|000002b0| 64 65 2d 69 6e 64 65 6e | 74 2d 6c 69 6e 65 20 63 |de-inden|t-line c|
|000002c0| 2d 66 6f 72 77 61 72 64 | 2d 65 78 70 20 6d 6f 64 |-forward|-exp mod|
|000002d0| 65 2d 66 6f 72 77 61 72 | 64 2d 65 78 70 20 63 2d |e-forwar|d-exp c-|
|000002e0| 62 61 63 6b 77 61 72 64 | 2d 65 78 70 20 6d 6f 64 |backward|-exp mod|
|000002f0| 65 2d 62 61 63 6b 77 61 | 72 64 2d 65 78 70 20 63 |e-backwa|rd-exp c|
|00000300| 2d 6d 6f 64 65 2d 63 74 | 72 6c 2d 63 2d 6b 65 79 |-mode-ct|rl-c-key|
|00000310| 6d 61 70 20 63 74 72 6c | 2d 63 2d 6b 65 79 6d 61 |map ctrl|-c-keyma|
|00000320| 70 20 63 2d 6d 6f 64 65 | 2d 6b 65 79 6d 61 70 20 |p c-mode|-keymap |
|00000330| 6b 65 79 6d 61 70 2d 70 | 61 74 68 20 65 76 61 6c |keymap-p|ath eval|
|00000340| 2d 68 6f 6f 6b 20 63 2d | 6d 6f 64 65 2d 68 6f 6f |-hook c-|mode-hoo|
|00000350| 6b 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |k] 3))..|(defun c|
|00000360| 2d 6d 6f 64 65 2d 6b 69 | 6c 6c 20 6e 69 6c 20 28 |-mode-ki|ll nil (|
|00000370| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00000380| 49 20 49 21 49 5c 22 49 | 23 49 24 49 25 49 26 06 |I I!I\"I|#I$I%I&.|
|00000390| 49 26 07 16 08 1e 09 8b | 46 26 09 22 20 5b 6d 6f |I&......|F&." [mo|
|000003a0| 64 65 2d 6e 61 6d 65 20 | 6d 61 6a 6f 72 2d 6d 6f |de-name |major-mo|
|000003b0| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 2d 6b 69 |de major|-mode-ki|
|000003c0| 6c 6c 20 6d 6f 64 65 2d | 63 6f 6d 6d 65 6e 74 2d |ll mode-|comment-|
|000003d0| 66 75 6e 20 6d 6f 64 65 | 2d 69 6e 64 65 6e 74 2d |fun mode|-indent-|
|000003e0| 6c 69 6e 65 20 6d 6f 64 | 65 2d 66 6f 72 77 61 72 |line mod|e-forwar|
|000003f0| 64 2d 65 78 70 20 6d 6f | 64 65 2d 62 61 63 6b 77 |d-exp mo|de-backw|
|00000400| 61 72 64 2d 65 78 70 20 | 63 74 72 6c 2d 63 2d 6b |ard-exp |ctrl-c-k|
|00000410| 65 79 6d 61 70 20 63 2d | 6d 6f 64 65 2d 6b 65 79 |eymap c-|mode-key|
|00000420| 6d 61 70 20 6b 65 79 6d | 61 70 2d 70 61 74 68 5d |map keym|ap-path]|
|00000430| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 2d 6f | 2))..(d|efun c-o|
|00000440| 70 65 6e 2d 62 72 61 63 | 65 20 6e 69 6c 20 28 69 |pen-brac|e nil (i|
|00000450| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|00000460| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 11 09 |e-byte-c|ode "...|
|00000470| 48 12 08 22 20 5b 69 6e | 73 65 72 74 20 22 7b 22 |H.." [in|sert "{"|
|00000480| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 5d 20 32 29 | indent-|line] 2)|
|00000490| 29 0a 0a 28 64 65 66 75 | 6e 20 63 2d 63 6c 6f 73 |)..(defu|n c-clos|
|000004a0| 65 2d 62 72 61 63 65 20 | 6e 69 6c 20 28 69 6e 74 |e-brace |nil (int|
|000004b0| 65 72 61 63 74 69 76 65 | 29 20 28 6a 61 64 65 2d |eractive|) (jade-|
|000004c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 11 09 48 12 |byte-cod|e "...H.|
|000004d0| 08 22 20 5b 69 6e 73 65 | 72 74 20 22 7d 22 20 69 |." [inse|rt "}" i|
|000004e0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 5d 20 32 29 29 0a |ndent-li|ne] 2)).|
|000004f0| 0a 28 64 65 66 75 6e 20 | 63 2d 63 6f 6c 6f 6e 20 |.(defun |c-colon |
|00000500| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00000510| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000520| 65 20 22 10 11 09 48 12 | 08 22 20 5b 69 6e 73 65 |e "...H.|." [inse|
|00000530| 72 74 20 22 3a 22 20 69 | 6e 64 65 6e 74 2d 6c 69 |rt ":" i|ndent-li|
|00000540| 6e 65 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |ne] 2)).|.(defun |
|00000550| 63 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 28 26 |c-indent|-line (&|
|00000560| 6f 70 74 69 6f 6e 61 6c | 20 70 6f 73 29 20 39 35 |optional| pos) 95|
|00000570| 39 31 38 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |918 (jad|e-byte-c|
|00000580| 6f 64 65 20 22 10 11 1a | 09 09 22 20 5b 73 65 74 |ode "...|.." [set|
|00000590| 2d 69 6e 64 65 6e 74 2d | 70 6f 73 20 63 2d 69 6e |-indent-|pos c-in|
|000005a0| 64 65 6e 74 2d 70 6f 73 | 20 70 6f 73 5d 20 33 29 |dent-pos| pos] 3)|
|000005b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 2d 69 6e 64 65 |)..(defu|n c-inde|
|000005c0| 6e 74 2d 70 6f 73 20 28 | 26 6f 70 74 69 6f 6e 61 |nt-pos (|&optiona|
|000005d0| 6c 20 6c 69 6e 65 2d 70 | 6f 73 29 20 39 35 39 39 |l line-p|os) 9599|
|000005e0| 31 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |1 (jade-|byte-cod|
|000005f0| 65 20 22 10 19 09 46 21 | 48 44 12 19 09 33 14 19 |e "...F!|HD...3..|
|00000600| 09 5d fe 00 37 15 16 06 | 19 0a fc 00 25 16 07 16 |.]..7...|....%...|
|00000610| 08 1b 1e 09 0b fb 00 37 | 15 16 0a 19 0a fc 00 36 |.......7|.......6|
|00000620| 16 0b 1b 16 0c 0a fb 00 | 37 49 48 1b 45 22 20 5b |........|7IH.E" [|
|00000630| 6c 69 6e 65 2d 73 74 61 | 72 74 20 6c 69 6e 65 2d |line-sta|rt line-|
|00000640| 70 6f 73 20 63 2d 69 6e | 64 65 6e 74 2d 70 6f 73 |pos c-in|dent-pos|
|00000650| 2d 65 6d 70 74 79 20 69 | 6e 64 2d 70 6f 73 20 65 |-empty i|nd-pos e|
|00000660| 6d 70 74 79 2d 6c 69 6e | 65 2d 70 20 72 65 67 65 |mpty-lin|e-p rege|
|00000670| 78 70 2d 6d 61 74 63 68 | 2d 6c 69 6e 65 20 22 5e |xp-match|-line "^|
|00000680| 5b 09 20 5d 2a 28 7b 7c | 7d 7c 63 61 73 65 20 2e |[. ]*({||}|case .|
|00000690| 2a 3a 7c 64 65 66 61 75 | 6c 74 20 2a 3a 29 22 20 |*:|defau|lt *:)" |
|000006a0| 70 72 65 76 2d 74 61 62 | 20 31 20 63 2d 6d 6f 64 |prev-tab| 1 c-mod|
|000006b0| 65 2d 74 61 62 20 22 5e | 5b 09 20 5d 2a 28 5b 61 |e-tab "^|[. ]*([a|
|000006c0| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2a 3a 7c 23 29 22 |-zA-Z0-9|_]*:|#)"|
|000006d0| 20 73 65 74 2d 70 6f 73 | 2d 63 6f 6c 20 30 5d 20 | set-pos|-col 0] |
|000006e0| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 2d 69 6e |4))..(de|fun c-in|
|000006f0| 64 65 6e 74 2d 70 6f 73 | 2d 65 6d 70 74 79 20 28 |dent-pos|-empty (|
|00000700| 26 6f 70 74 69 6f 6e 61 | 6c 20 6c 69 6e 65 2d 70 |&optiona|l line-p|
|00000710| 6f 73 29 20 39 36 31 30 | 38 20 28 6a 61 64 65 2d |os) 9610|8 (jade-|
|00000720| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 19 09 46 21 |byte-cod|e "...F!|
|00000730| 48 44 12 13 14 19 09 0a | 35 16 06 1d 09 ff 00 1b |HD......|5.......|
|00000740| 16 07 16 08 1d 0a fe 00 | 2b 12 13 1d 0a ff 00 27 |........|+......'|
|00000750| 49 7e 48 fb 00 0e 48 44 | 16 09 1d 09 36 0a 16 0b |I~H...HD|....6...|
|00000760| 1e 0a 16 0c 19 09 0a 48 | 16 07 16 0d 1d 0a fc 00 |.......H|........|
|00000770| 51 16 0e 13 1e 0a 1e 0f | 0b fb 00 dd 16 07 16 10 |Q.......|........|
|00000780| 1d 0a fc 00 9b 12 13 1d | 0a 48 16 06 1d 09 ff 00 |........|.H......|
|00000790| 6c 16 07 16 08 1d 0a fe | 00 7c 12 13 1d 0a ff 00 |l.......|.|......|
|000007a0| 78 49 7e 48 fb 00 5f 48 | 16 07 16 11 1d 0a fe 00 |xI~H.._H|........|
|000007b0| 8d 16 07 16 12 1d 0a 5d | fe 00 98 16 13 13 1e 0a |.......]|........|
|000007c0| 1e 0f 0b fb 00 dd 16 07 | 16 14 1d 0a fc 00 b7 16 |........|........|
|000007d0| 07 16 15 1d 0a ff 00 b4 | 16 16 16 17 1e 0a 0a fb |........|........|
|000007e0| 00 dd 16 07 16 18 1d 0a | fc 00 c9 16 19 13 1e 0a |........|........|
|000007f0| 0a fb 00 dd 16 07 16 15 | 1d 0a fc 00 dc 16 19 16 |........|........|
|00000800| 17 1e 0a 0a fb 00 dd 49 | 48 1e 0a 45 45 22 20 5b |.......I|H..EE" [|
|00000810| 6c 69 6e 65 2d 73 74 61 | 72 74 20 6c 69 6e 65 2d |line-sta|rt line-|
|00000820| 70 6f 73 20 70 72 65 76 | 2d 6c 69 6e 65 20 31 20 |pos prev|-line 1 |
|00000830| 63 6f 70 79 2d 70 6f 73 | 20 70 2d 6c 69 6e 65 2d |copy-pos| p-line-|
|00000840| 70 6f 73 20 65 6d 70 74 | 79 2d 6c 69 6e 65 2d 70 |pos empt|y-line-p|
|00000850| 20 72 65 67 65 78 70 2d | 6d 61 74 63 68 2d 6c 69 | regexp-|match-li|
|00000860| 6e 65 20 22 5e 28 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |ne "^([a|-zA-Z0-9|
|00000870| 5f 5d 2b 3a 7c 23 29 22 | 20 69 6e 64 65 6e 74 2d |_]+:|#)"| indent-|
|00000880| 70 6f 73 20 69 6e 64 2d | 70 6f 73 20 73 65 74 2d |pos ind-|pos set-|
|00000890| 70 6f 73 2d 6c 69 6e 65 | 20 70 6f 73 2d 6c 69 6e |pos-line| pos-lin|
|000008a0| 65 20 22 7b 7c 63 61 73 | 65 20 2e 2a 3a 7c 64 65 |e "{|cas|e .*:|de|
|000008b0| 66 61 75 6c 74 5b 09 20 | 5d 2a 3a 7c 64 6f 28 24 |fault[. |]*:|do($|
|000008c0| 7c 20 29 7c 65 6c 73 65 | 7c 28 69 66 7c 66 6f 72 || )|else||(if|for|
|000008d0| 7c 77 68 69 6c 65 7c 73 | 77 69 74 63 68 29 5b 09 ||while|s|witch)[.|
|000008e0| 20 5d 2a 5c 5c 28 2e 2a | 5c 5c 29 22 20 6e 65 78 | ]*\\(.*|\\)" nex|
|000008f0| 74 2d 74 61 62 20 63 2d | 6d 6f 64 65 2d 74 61 62 |t-tab c-|mode-tab|
|00000900| 20 22 3b 22 20 22 64 6f | 28 24 7c 20 29 7c 65 6c | ";" "do|($| )|el|
|00000910| 73 65 7c 28 69 66 7c 66 | 6f 72 7c 77 68 69 6c 65 |se|(if|f|or|while|
|00000920| 7c 73 77 69 74 63 68 29 | 5b 09 20 5d 2a 5c 5c 28 ||switch)|[. ]*\\(|
|00000930| 2e 2a 5c 5c 29 22 20 22 | 20 7b 5b 09 20 5d 2a 28 |.*\\)" "| {[. ]*(|
|00000940| 2f 5c 5c 2a 2e 2a 5c 5c | 2a 2f 7c 29 5b 09 20 5d |/\\*.*\\|*/|)[. ]|
|00000950| 2a 24 22 20 70 72 65 76 | 2d 74 61 62 20 22 5e 5b |*$" prev|-tab "^[|
|00000960| 09 20 5d 2a 2f 5c 5c 2a | 22 20 22 5c 5c 2a 2f 22 |. ]*/\\*|" "\\*/"|
|00000970| 20 72 69 67 68 74 2d 63 | 68 61 72 20 33 20 22 5e | right-c|har 3 "^|
|00000980| 5b 09 20 5d 2a 5c 5c 2a | 2f 20 2a 24 22 20 6c 65 |[. ]*\\*|/ *$" le|
|00000990| 66 74 2d 63 68 61 72 5d | 20 34 29 29 0a 0a 28 64 |ft-char]| 4))..(d|
|000009a0| 65 66 75 6e 20 63 2d 62 | 61 63 6b 73 6c 61 73 68 |efun c-b|ackslash|
|000009b0| 2d 61 72 65 61 20 28 73 | 74 61 72 74 20 65 6e 64 |-area (s|tart end|
|000009c0| 29 20 39 36 32 39 31 20 | 28 69 6e 74 65 72 61 63 |) 96291 |(interac|
|000009d0| 74 69 76 65 20 22 2d 6d | 0a 4d 22 29 20 28 6a 61 |tive "-m|.M") (ja|
|000009e0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 44 10 |de-byte-|code "D.|
|000009f0| 11 1a 09 49 33 34 35 1c | 1e 06 67 fe 00 36 16 07 |...I345.|..g..6..|
|00000a00| 16 08 1c 09 09 46 23 48 | 16 09 1b 09 1d 64 fe 00 |.....F#H|.....d..|
|00000a10| 29 16 09 1b 09 46 25 48 | 16 0a 16 0b 1c 0a 46 24 |)....F%H|......F$|
|00000a20| 48 fb 00 09 48 1d 68 46 | 25 48 1d 1e 0c 5b 10 62 |H...H.hF|%H...[.b|
|00000a30| ff 00 4f 1d 1e 0c 5a 68 | 1e 0c 59 46 25 48 16 0d |..O...Zh|..YF%H..|
|00000a40| 1c 16 0e 1a 09 0a 48 16 | 0f 1c 1d 0a 48 1c 1e 06 |......H.|....H...|
|00000a50| 66 fe 00 c8 16 10 16 11 | 1c 0a fc 00 a9 16 07 16 |f.......|........|
|00000a60| 12 08 09 46 23 48 16 09 | 1b 09 1d 64 fc 00 8e 16 |...F#H..|...d....|
|00000a70| 13 16 14 1c 09 16 12 08 | 0a fb 00 a6 16 09 1b 09 |........|........|
|00000a80| 1d 66 fc 00 a5 16 15 16 | 12 08 09 48 16 16 1d 09 |.f......|...H....|
|00000a90| fb 00 a6 49 fb 00 bb 16 | 15 16 08 1c 09 09 48 16 |...I....|......H.|
|00000aa0| 16 1d 09 48 16 17 16 18 | 09 48 16 0a 16 0b 1c 0a |...H....|.H......|
|00000ab0| 46 24 48 fb 00 5f 48 16 | 15 1e 06 09 45 22 20 5b |F$H.._H.|....E" [|
|00000ac0| 30 20 63 6f 70 79 2d 70 | 6f 73 20 73 74 61 72 74 |0 copy-p|os start|
|00000ad0| 20 74 6d 70 20 70 6f 73 | 20 6d 61 78 2d 77 69 64 | tmp pos| max-wid|
|00000ae0| 74 68 20 65 6e 64 20 63 | 68 61 72 2d 74 6f 2d 67 |th end c|har-to-g|
|00000af0| 6c 79 70 68 2d 70 6f 73 | 20 6c 69 6e 65 2d 65 6e |lyph-pos| line-en|
|00000b00| 64 20 70 6f 73 2d 63 6f | 6c 20 6e 65 78 74 2d 6c |d pos-co|l next-l|
|00000b10| 69 6e 65 20 31 20 74 61 | 62 2d 73 69 7a 65 20 73 |ine 1 ta|b-size s|
|00000b20| 65 74 2d 70 6f 73 2d 6c | 69 6e 65 20 70 6f 73 2d |et-pos-l|ine pos-|
|00000b30| 6c 69 6e 65 20 73 65 74 | 2d 70 6f 73 2d 63 6f 6c |line set|-pos-col|
|00000b40| 20 72 65 67 65 78 70 2d | 6d 61 74 63 68 2d 6c 69 | regexp-|match-li|
|00000b50| 6e 65 20 22 5c 5c 5c 5c | 20 2a 24 22 20 6d 61 74 |ne "\\\\| *$" mat|
|00000b60| 63 68 2d 73 74 61 72 74 | 20 64 65 6c 65 74 65 2d |ch-start| delete-|
|00000b70| 61 72 65 61 20 67 6c 79 | 70 68 2d 74 6f 2d 63 68 |area gly|ph-to-ch|
|00000b80| 61 72 2d 70 6f 73 20 67 | 6f 74 6f 2d 63 68 61 72 |ar-pos g|oto-char|
|00000b90| 20 69 6e 64 65 6e 74 2d | 74 6f 20 69 6e 73 65 72 | indent-|to inser|
|00000ba0| 74 20 22 5c 5c 22 5d 20 | 34 29 29 0a 0a 28 64 65 |t "\\"] |4))..(de|
|00000bb0| 66 75 6e 20 63 2d 69 6e | 73 65 72 74 2d 63 6f 6d |fun c-in|sert-com|
|00000bc0| 6d 65 6e 74 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |ment nil| (intera|
|00000bd0| 63 74 69 76 65 29 20 28 | 6a 61 64 65 2d 62 79 74 |ctive) (|jade-byt|
|00000be0| 65 2d 63 6f 64 65 20 22 | 10 08 48 11 12 09 48 13 |e-code "|..H...H.|
|00000bf0| 14 09 22 20 5b 66 69 6e | 64 2d 63 6f 6d 6d 65 6e |.." [fin|d-commen|
|00000c00| 74 2d 70 6f 73 20 69 6e | 73 65 72 74 20 22 2f 2a |t-pos in|sert "/*|
|00000c10| 20 20 2a 2f 22 20 67 6f | 74 6f 2d 6c 65 66 74 2d |  */" go|to-left-|
|00000c20| 63 68 61 72 20 33 5d 20 | 32 29 29 0a 0a 28 64 65 |char 3] |2))..(de|
|00000c30| 66 75 6e 20 63 2d 66 6f | 72 77 61 72 64 2d 65 78 |fun c-fo|rward-ex|
|00000c40| 70 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 75 6d |p (&opti|onal num|
|00000c50| 62 65 72 20 70 6f 73 29 | 20 28 6a 61 64 65 2d 62 |ber pos)| (jade-b|
|00000c60| 79 74 65 2d 63 6f 64 65 | 20 22 18 ff 00 07 11 46 |yte-code| ".....F|
|00000c70| 20 48 18 12 64 fe 01 6b | 13 14 1d 0a fe 00 50 13 | H..d..k|......P.|
|00000c80| 16 06 1d 0a fc 00 34 16 | 07 16 08 1d 0a ff 00 2b |......4.|.......+|
|00000c90| 16 09 16 0a 09 48 16 0b | 08 46 25 fb 00 4c 16 0c |.....H..|.F%..L..|
|00000ca0| 11 16 0d 1d 09 0a 46 25 | 48 1d 16 0e 08 64 fe 00 |......F%|H....d..|
|00000cb0| 4c 16 09 16 0f 09 48 fb | 00 0e 48 16 10 16 11 1d |L.....H.|..H.....|
|00000cc0| 0a fc 00 63 16 12 1d 09 | 46 25 fb 01 67 13 16 13 |...c....|F%..g...|
|00000cd0| 1d 0a fe 00 70 16 0b 08 | 46 25 48 13 16 14 1d 0a |....p...|F%H.....|
|00000ce0| fe 00 93 16 0b 08 46 25 | 48 1d 16 12 1d 09 60 fe |......F%|H.....`.|
|00000cf0| 00 8f 16 15 11 1d 0a 46 | 25 48 fb 00 71 48 44 16 |.......F|%H..qHD.|
|00000d00| 16 1d 09 36 17 1e 17 16 | 18 88 fc 00 ee 16 19 1e |...6....|........|
|00000d10| 17 16 15 11 1d 0a 0a 46 | 25 fc 00 de 16 16 16 1a |.......F|%.......|
|00000d20| 11 16 1b 1d 09 0a 09 16 | 1c 62 fe 00 db 16 19 1e |........|.b......|
|00000d30| 17 16 15 11 1d 0a 0a 46 | 25 ff 00 d7 16 09 16 1d |.......F|%.......|
|00000d40| 09 48 fb 00 b2 fb 00 e3 | 16 09 16 1d 09 48 16 15 |.H......|.....H..|
|00000d50| 11 1d 0a 46 25 fb 01 61 | 1e 17 16 1e 88 fc 01 0f |...F%..a|........|
|00000d60| 16 1f 1d 09 46 25 ff 01 | 04 16 09 16 20 09 48 16 |....F%..|.... .H.|
|00000d70| 15 11 1d 0a 46 25 fb 01 | 61 1e 17 16 21 88 fc 01 |....F%..|a...!...|
|00000d80| 24 16 15 11 1d 0a 25 18 | 68 46 20 fb 01 61 1e 17 |$.....%.|hF ..a..|
|00000d90| 16 5c 22 88 fc 01 34 16 | 09 16 23 09 fb 01 61 4a |.\"...4.|..#...aJ|
|00000da0| fc 01 60 13 16 24 1d 0a | fc 01 48 16 0b 08 46 25 |..`..$..|..H...F%|
|00000db0| fb 01 5d 16 07 16 25 1d | 0a 46 25 ff 01 58 16 09 |..]...%.|.F%..X..|
|00000dc0| 16 26 09 48 18 68 46 20 | fb 01 61 49 45 48 18 69 |.&.H.hF |..aIEH.i|
|00000dd0| 46 20 48 fb 00 08 48 1d | 22 20 5b 6e 75 6d 62 65 |F H...H.|" [numbe|
|00000de0| 72 20 31 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |r 1 0 lo|oking-at|
|00000df0| 20 22 5b 09 0c 20 5d 2a | 24 7c 5b 09 0c 20 5d 2a | "[.. ]*|$|[.. ]*|
|00000e00| 2f 5c 5c 2a 2e 2a 24 22 | 20 70 6f 73 20 22 5b 09 |/\\*.*$"| pos "[.|
|00000e10| 0c 20 5d 2a 2f 5c 5c 2a | 22 20 66 69 6e 64 2d 6e |. ]*/\\*|" find-n|
|00000e20| 65 78 74 2d 72 65 67 65 | 78 70 20 22 5c 5c 2a 2f |ext-rege|xp "\\*/|
|00000e30| 22 20 65 72 72 6f 72 20 | 22 43 6f 6d 6d 65 6e 74 |" error |"Comment|
|00000e40| 20 64 6f 65 73 6e 27 74 | 20 65 6e 64 21 22 20 6d | doesn't| end!" m|
|00000e50| 61 74 63 68 2d 65 6e 64 | 20 6e 65 78 74 2d 6c 69 |atch-end| next-li|
|00000e60| 6e 65 20 6c 69 6e 65 2d | 73 74 61 72 74 20 62 75 |ne line-|start bu|
|00000e70| 66 66 65 72 2d 65 6e 64 | 20 22 45 6e 64 20 6f 66 |ffer-end| "End of|
|00000e80| 20 62 75 66 66 65 72 22 | 20 72 65 67 65 78 70 2d | buffer"| regexp-|
|00000e90| 6d 61 74 63 68 2d 6c 69 | 6e 65 20 22 5e 5b 09 20 |match-li|ne "^[. |
|00000ea0| 5d 2a 23 22 20 6c 69 6e | 65 2d 65 6e 64 20 22 5b |]*#" lin|e-end "[|
|00000eb0| 09 0c 20 5d 2b 22 20 22 | 5b 21 2a 7e 26 3c 3e 2f |.. ]+" "|[!*~&<>/|
|00000ec0| 2b 25 3f 3a 5e 2d 5d 2b | 22 20 6e 65 78 74 2d 63 |+%?:^-]+|" next-c|
|00000ed0| 68 61 72 20 67 65 74 2d | 63 68 61 72 20 63 20 28 |har get-|char c (|
|00000ee0| 33 34 20 33 39 29 20 66 | 69 6e 64 2d 6e 65 78 74 |34 39) f|ind-next|
|00000ef0| 2d 63 68 61 72 20 70 72 | 65 76 2d 63 68 61 72 20 |-char pr|ev-char |
|00000f00| 63 6f 70 79 2d 70 6f 73 | 20 39 32 20 22 53 74 72 |copy-pos| 92 "Str|
|00000f10| 69 6e 67 20 64 6f 65 73 | 6e 27 74 20 65 6e 64 21 |ing does|n't end!|
|00000f20| 22 20 28 34 30 20 39 31 | 20 31 32 33 29 20 6d 61 |" (40 91| 123) ma|
|00000f30| 74 63 68 2d 62 72 61 63 | 6b 65 74 73 20 22 45 78 |tch-brac|kets "Ex|
|00000f40| 70 72 65 73 73 69 6f 6e | 20 64 6f 65 73 6e 27 74 |pression| doesn't|
|00000f50| 20 65 6e 64 21 22 20 28 | 34 34 20 35 39 20 35 38 | end!" (|44 59 58|
|00000f60| 29 20 28 34 31 20 39 33 | 20 31 32 35 29 20 22 45 |) (41 93| 125) "E|
|00000f70| 6e 64 20 6f 66 20 63 6f | 6e 74 61 69 6e 69 6e 67 |nd of co|ntaining|
|00000f80| 20 65 78 70 72 65 73 73 | 69 6f 6e 22 20 22 5b 61 | express|ion" "[a|
|00000f90| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2b 22 20 22 5b 5d |-zA-Z0-9|_]+" "[]|
|00000fa0| 5b 61 2d 7a 41 2d 5a 30 | 2d 39 5f 20 09 0c 28 29 |[a-zA-Z0|-9_ ..()|
|00000fb0| 3c 3e 7b 7d 27 5c 22 5d | 22 20 22 43 61 6e 27 74 |<>{}'\"]|" "Can't|
|00000fc0| 20 63 6c 61 73 73 69 66 | 79 20 65 78 70 72 65 73 | classif|y expres|
|00000fd0| 73 69 6f 6e 22 5d 20 35 | 29 29 0a 0a 28 64 65 66 |sion"] 5|))..(def|
|00000fe0| 75 6e 20 63 2d 62 61 63 | 6b 77 61 72 64 2d 65 78 |un c-bac|kward-ex|
|00000ff0| 70 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 75 6d |p (&opti|onal num|
|00001000| 62 65 72 20 6f 72 69 67 | 2d 70 6f 73 20 6e 6f 2d |ber orig|-pos no-|
|00001010| 62 6c 6f 63 6b 73 29 20 | 28 6a 61 64 65 2d 62 79 |blocks) |(jade-by|
|00001020| 74 65 2d 63 6f 64 65 20 | 22 18 ff 00 07 11 46 20 |te-code |".....F |
|00001030| 48 1a ff 00 10 13 08 46 | 5c 22 48 44 14 1a 09 49 |H......F|\"HD...I|
|00001040| 35 36 06 18 16 07 64 fe | 01 91 16 08 16 09 16 0a |56....d.|........|
|00001050| 11 1e 06 0a 0a 46 26 06 | ff 00 36 16 0b 16 0c 09 |.....F&.|..6.....|
|00001060| 48 16 0a 11 14 1e 06 09 | 0a 46 25 48 16 0d 16 0e |H.......|.F%H....|
|00001070| 1d 0a fe 00 79 16 08 16 | 0f 1d 0a 46 25 ff 00 5b |....y...|...F%..[|
|00001080| 16 0b 16 10 09 48 16 08 | 16 09 16 0a 11 1d 0a 0a |.....H..|........|
|00001090| 46 25 ff 00 70 16 0b 16 | 11 09 48 1d 46 26 06 48 |F%..p...|..H.F&.H|
|000010a0| fb 00 42 48 16 12 16 13 | 1e 06 0a fc 00 8f 16 14 |..BH....|........|
|000010b0| 1e 06 09 46 26 06 fb 01 | 8d 44 16 15 1e 06 09 36 |...F&...|.D.....6|
|000010c0| 16 1e 16 16 17 88 fc 00 | c0 1e 16 16 18 63 ff 00 |........|.....c..|
|000010d0| aa 1e 19 5d fe 00 bd 16 | 1a 1e 06 09 46 26 06 ff |...]....|....F&..|
|000010e0| 00 bd 16 0b 16 1b 09 fb | 01 6c 1e 16 16 1c 88 fc |........|.l......|
|000010f0| 01 0f 16 1d 1e 16 16 0a | 11 1e 06 0a 0a 46 26 06 |........|.....F&.|
|00001100| fc 01 07 16 15 16 0a 11 | 14 1e 06 09 0a 09 16 1e |........|........|
|00001110| 62 fe 01 04 16 1d 1e 16 | 16 0a 11 1e 06 0a 0a 46 |b.......|.......F|
|00001120| 26 06 ff 01 00 16 0b 16 | 1f 09 48 fb 00 d9 fb 01 |&.......|..H.....|
|00001130| 0c 16 0b 16 1f 09 fb 01 | 6c 1e 16 16 20 88 fc 01 |........|l... ...|
|00001140| 1e 18 68 46 20 fb 01 6c | 1e 16 16 21 88 fc 01 2e |..hF ..l|...!....|
|00001150| 16 0b 16 5c 22 09 fb 01 | 6c 4a fc 01 6b 16 0d 16 |...\"...|lJ..k...|
|00001160| 23 1e 06 0a fc 01 51 16 | 08 16 24 1e 06 0a 46 26 |#.....Q.|..$...F&|
|00001170| 06 ff 01 4e 16 0b 16 25 | 09 fb 01 68 16 08 16 26 |...N...%|...h...&|
|00001180| 1e 06 0a 46 26 06 ff 01 | 63 16 0b 16 25 09 48 18 |...F&...|c...%.H.|
|00001190| 68 46 20 fb 01 6c 49 48 | 16 15 16 0a 11 14 1e 06 |hF ..lIH|........|
|000011a0| 09 0a 09 16 27 88 fe 01 | 87 16 0a 11 1e 06 0a 46 |....'...|.......F|
|000011b0| 26 06 45 48 18 69 46 20 | 48 fb 00 19 48 1e 06 45 |&.EH.iF |H...H..E|
|000011c0| 22 20 5b 6e 75 6d 62 65 | 72 20 31 20 6f 72 69 67 |" [numbe|r 1 orig|
|000011d0| 2d 70 6f 73 20 63 75 72 | 73 6f 72 2d 70 6f 73 20 |-pos cur|sor-pos |
|000011e0| 63 6f 70 79 2d 70 6f 73 | 20 74 6d 70 20 70 6f 73 |copy-pos| tmp pos|
|000011f0| 20 30 20 66 69 6e 64 2d | 70 72 65 76 2d 72 65 67 | 0 find-|prev-reg|
|00001200| 65 78 70 20 22 5b 5e 09 | 0c 20 5d 22 20 70 72 65 |exp "[^.|. ]" pre|
|00001210| 76 2d 63 68 61 72 20 65 | 72 72 6f 72 20 22 4e 6f |v-char e|rror "No|
|00001220| 20 65 78 70 72 65 73 73 | 69 6f 6e 21 22 20 6c 6f | express|ion!" lo|
|00001230| 6f 6b 69 6e 67 2d 61 74 | 20 22 5c 5c 2a 2f 22 20 |oking-at| "\\*/" |
|00001240| 22 2f 5c 5c 2a 22 20 22 | 43 6f 6d 6d 65 6e 74 20 |"/\\*" "|Comment |
|00001250| 64 6f 65 73 6e 27 74 20 | 73 74 61 72 74 21 22 20 |doesn't |start!" |
|00001260| 22 42 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 62 75 |"Beginni|ng of bu|
|00001270| 66 66 65 72 22 20 72 65 | 67 65 78 70 2d 6d 61 74 |ffer" re|gexp-mat|
|00001280| 63 68 2d 6c 69 6e 65 20 | 22 5e 5b 09 20 5d 2a 23 |ch-line |"^[. ]*#|
|00001290| 22 20 6c 69 6e 65 2d 73 | 74 61 72 74 20 67 65 74 |" line-s|tart get|
|000012a0| 2d 63 68 61 72 20 63 20 | 28 34 31 20 39 33 20 31 |-char c |(41 93 1|
|000012b0| 32 35 29 20 31 32 35 20 | 6e 6f 2d 62 6c 6f 63 6b |25) 125 |no-block|
|000012c0| 73 20 6d 61 74 63 68 2d | 62 72 61 63 6b 65 74 73 |s match-|brackets|
|000012d0| 20 22 42 72 61 63 6b 65 | 74 73 20 64 6f 6e 27 74 | "Bracke|ts don't|
|000012e0| 20 6d 61 74 63 68 22 20 | 28 33 34 20 33 39 29 20 | match" |(34 39) |
|000012f0| 66 69 6e 64 2d 70 72 65 | 76 2d 63 68 61 72 20 39 |find-pre|v-char 9|
|00001300| 32 20 22 53 74 72 69 6e | 67 20 64 6f 65 73 6e 27 |2 "Strin|g doesn'|
|00001310| 74 20 73 74 61 72 74 21 | 22 20 28 35 39 20 35 38 |t start!|" (59 58|
|00001320| 20 34 34 29 20 28 34 30 | 20 39 31 20 31 32 33 29 | 44) (40| 91 123)|
|00001330| 20 22 53 74 61 72 74 20 | 6f 66 20 63 6f 6e 74 61 | "Start |of conta|
|00001340| 69 6e 69 6e 67 20 65 78 | 70 72 65 73 73 69 6f 6e |ining ex|pression|
|00001350| 22 20 22 5b 61 2d 7a 41 | 2d 5a 30 2d 39 5f 5d 22 |" "[a-zA|-Z0-9_]"|
|00001360| 20 22 28 5e 23 5b 09 20 | 5d 2a 7c 29 5b 61 2d 7a | "(^#[. |]*|)[a-z|
|00001370| 41 2d 5a 30 2d 39 5f 5d | 2b 22 20 22 43 61 6e 27 |A-Z0-9_]|+" "Can'|
|00001380| 74 20 63 6c 61 73 73 69 | 66 79 20 65 78 70 72 65 |t classi|fy expre|
|00001390| 73 73 69 6f 6e 22 20 22 | 5b 5d 5b 61 2d 7a 41 2d |ssion" "|[][a-zA-|
|000013a0| 5a 30 2d 39 5f 20 09 0c | 28 29 3c 3e 7b 7d 27 5c |Z0-9_ ..|()<>{}'\|
|000013b0| 22 5d 22 20 28 33 33 20 | 34 32 20 34 35 20 31 32 |"]" (33 |42 45 12|
|000013c0| 36 29 5d 20 35 29 29 0a |                         |6)] 5)).|        |
+--------+-------------------------+-------------------------+--------+--------+