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

< prev

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 78 63 |jade/3.2|/lisp/xc|
|00000030| 2e 6a 6c 0a 3b 3b 3b 20 | 43 6f 6d 70 69 6c 65 64 |.jl.;;; |Compiled|
|00000040| 20 62 79 20 6a 73 68 40 | 6f 72 63 72 69 73 74 20 | by jsh@|orcrist |
|00000050| 6f 6e 20 53 75 6e 20 4f | 63 74 20 31 36 20 32 30 |on Sun O|ct 16 20|
|00000060| 3a 32 30 3a 34 38 20 31 | 39 39 34 0a 3b 3b 3b 20 |:20:48 1|994.;;; |
|00000070| 4a 61 64 65 20 33 2e 32 | 0a 0a 28 70 72 6f 76 69 |Jade 3.2|..(provi|
|00000080| 64 65 20 28 71 75 6f 74 | 65 20 78 63 29 29 0a 0a |de (quot|e xc))..|
|00000090| 28 64 65 66 76 61 72 20 | 63 2d 62 6f 64 79 2d 69 |(defvar |c-body-i|
|000000a0| 6e 64 65 6e 74 20 34 20 | 37 33 35 38 36 29 0a 0a |ndent 4 |73586)..|
|000000b0| 28 64 65 66 76 61 72 20 | 63 2d 62 72 61 63 65 2d |(defvar |c-brace-|
|000000c0| 69 6e 64 65 6e 74 20 2d | 34 20 37 33 36 34 34 29 |indent -|4 73644)|
|000000d0| 0a 0a 28 64 65 66 76 61 | 72 20 63 2d 63 61 73 65 |..(defva|r c-case|
|000000e0| 2d 69 6e 64 65 6e 74 20 | 2d 34 20 37 33 37 31 39 |-indent |-4 73719|
|000000f0| 29 0a 0a 28 64 65 66 76 | 61 72 20 63 2d 6c 61 62 |)..(defv|ar c-lab|
|00000100| 65 6c 2d 69 6e 64 65 6e | 74 20 2d 34 20 37 33 37 |el-inden|t -4 737|
|00000110| 35 38 29 0a 0a 28 61 64 | 64 2d 68 6f 6f 6b 20 28 |58)..(ad|d-hook (|
|00000120| 71 75 6f 74 65 20 63 2d | 6d 6f 64 65 2d 68 6f 6f |quote c-|mode-hoo|
|00000130| 6b 29 20 28 66 75 6e 63 | 74 69 6f 6e 20 28 6c 61 |k) (func|tion (la|
|00000140| 6d 62 64 61 20 6e 69 6c | 20 28 73 65 74 71 20 6d |mbda nil| (setq m|
|00000150| 6f 64 65 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |ode-inde|nt-line |
|00000160| 28 71 75 6f 74 65 20 78 | 63 2d 69 6e 64 65 6e 74 |(quote x|c-indent|
|00000170| 2d 6c 69 6e 65 29 20 6d | 6f 64 65 2d 6e 61 6d 65 |-line) m|ode-name|
|00000180| 20 22 58 43 22 29 20 28 | 65 76 61 6c 2d 68 6f 6f | "XC") (|eval-hoo|
|00000190| 6b 20 28 71 75 6f 74 65 | 20 78 63 2d 6d 6f 64 65 |k (quote| xc-mode|
|000001a0| 2d 68 6f 6f 6b 29 29 20 | 6e 69 6c 29 29 29 0a 0a |-hook)) |nil)))..|
|000001b0| 28 64 65 66 75 6e 20 78 | 63 2d 69 6e 64 65 6e 74 |(defun x|c-indent|
|000001c0| 2d 6c 69 6e 65 20 28 26 | 6f 70 74 69 6f 6e 61 6c |-line (&|optional|
|000001d0| 20 70 6f 73 29 20 37 33 | 37 38 38 20 28 6a 61 64 | pos) 73|788 (jad|
|000001e0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 11 1a |e-byte-c|ode "...|
|000001f0| 09 09 22 20 5b 73 65 74 | 2d 69 6e 64 65 6e 74 2d |.." [set|-indent-|
|00000200| 70 6f 73 20 78 63 2d 69 | 6e 64 65 6e 74 2d 70 6f |pos xc-i|ndent-po|
|00000210| 73 20 70 6f 73 5d 20 33 | 29 29 0a 0a 28 64 65 66 |s pos] 3|))..(def|
|00000220| 75 6e 20 78 63 2d 62 61 | 63 6b 77 61 72 64 2d 73 |un xc-ba|ckward-s|
|00000230| 74 6d 74 20 28 70 6f 73 | 29 20 28 6a 61 64 65 2d |tmt (pos|) (jade-|
|00000240| 62 79 74 65 2d 63 6f 64 | 65 20 22 44 49 30 49 31 |byte-cod|e "DI0I1|
|00000250| 12 13 14 7c 48 18 45 22 | 20 5b 73 74 6d 74 2d 70 |...|H.E"| [stmt-p|
|00000260| 6f 73 20 62 61 63 6b 2d | 31 2d 70 6f 73 20 28 6a |os back-|1-pos (j|
|00000270| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00000280| 11 1a 4a 0b 46 5c 22 fe | 00 30 1b 6c fc 00 15 1a |..J.F\".|.0.l....|
|00000290| 46 23 fb 00 27 14 1b 09 | 14 1a 09 63 fc 00 26 15 |F#..'...|...c..&.|
|000002a0| 16 06 09 fb 00 27 49 48 | 1a 46 26 07 48 fb 00 00 |.....'IH|.F&.H...|
|000002b0| 22 20 5b 63 2d 62 61 63 | 6b 77 61 72 64 2d 65 78 |" [c-bac|kward-ex|
|000002c0| 70 20 31 20 70 6f 73 20 | 62 61 63 6b 2d 31 2d 70 |p 1 pos |back-1-p|
|000002d0| 6f 73 20 70 6f 73 2d 6c | 69 6e 65 20 65 72 72 6f |os pos-l|ine erro|
|000002e0| 72 20 22 49 67 6e 6f 72 | 65 64 22 20 73 74 6d 74 |r "Ignor|ed" stmt|
|000002f0| 2d 70 6f 73 5d 20 34 29 | 20 28 65 72 72 6f 72 20 |-pos] 4)| (error |
|00000300| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|00000310| 22 49 22 20 5b 5d 20 31 | 29 29 20 32 5d 20 33 29 |"I" [] 1|)) 2] 3)|
|00000320| 29 0a 0a 28 64 65 66 75 | 6e 20 78 63 2d 62 61 6c |)..(defu|n xc-bal|
|00000330| 61 6e 63 65 2d 69 66 73 | 20 28 70 6f 73 20 26 6f |ance-ifs| (pos &o|
|00000340| 70 74 69 6f 6e 61 6c 20 | 64 65 70 74 68 29 20 28 |ptional |depth) (|
|00000350| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00000360| 18 ff 00 07 11 46 20 48 | 18 12 63 fe 00 13 13 1c |.....F H|..c.....|
|00000370| 09 46 24 fe 00 44 15 16 | 06 1c 0a fe 00 26 15 16 |.F$..D..|.....&..|
|00000380| 07 16 08 08 0a 5d fc 00 | 30 18 68 46 20 fb 00 40 |.....]..|0.hF ..@|
|00000390| 15 16 09 1c 0a fc 00 3f | 18 69 46 20 fb 00 40 49 |.......?|.iF ..@I|
|000003a0| 48 fb 00 08 48 18 6b fe | 00 4b 1c 22 20 5b 64 65 |H...H.k.|.K." [de|
|000003b0| 70 74 68 20 31 20 30 20 | 78 63 2d 62 61 63 6b 77 |pth 1 0 |xc-backw|
|000003c0| 61 72 64 2d 73 74 6d 74 | 20 70 6f 73 20 6c 6f 6f |ard-stmt| pos loo|
|000003d0| 6b 69 6e 67 2d 61 74 20 | 22 65 6c 73 65 5b 09 20 |king-at |"else[. |
|000003e0| 5d 2a 22 20 22 5b 09 20 | 5d 2a 69 66 5b 09 20 5d |]*" "[. |]*if[. ]|
|000003f0| 2a 5c 5c 28 22 20 6d 61 | 74 63 68 2d 65 6e 64 20 |*\\(" ma|tch-end |
|00000400| 22 69 66 22 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |"if"] 3)|)..(defu|
|00000410| 6e 20 78 63 2d 69 6e 64 | 65 6e 74 2d 70 6f 73 20 |n xc-ind|ent-pos |
|00000420| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6c 69 6e 65 2d |(&option|al line-|
|00000430| 70 6f 73 29 20 28 6a 61 | 64 65 2d 62 79 74 65 2d |pos) (ja|de-byte-|
|00000440| 63 6f 64 65 20 22 18 fc | 00 0a 11 18 09 fb 00 0c |code "..|........|
|00000450| 11 08 46 20 48 12 13 18 | 0a fc 00 20 14 15 16 06 |..F H...|... ....|
|00000460| 18 09 0a fb 02 2e 44 16 | 07 18 09 34 16 08 1c 09 |......D.|...4....|
|00000470| 36 09 49 36 0a 1e 09 ff | 00 43 16 0b 16 0c 1c 0a |6.I6....|.C......|
|00000480| fe 00 43 16 0d 08 46 26 | 09 48 16 0e 1e 09 09 46 |..C...F&|.H.....F|
|00000490| 26 0a 48 16 0f 1e 09 09 | 1e 0a 60 ff 00 79 12 16 |&.H.....|..`..y..|
|000004a0| 10 11 1e 09 09 0a fe 00 | 6b 16 0d 16 11 09 1e 09 |........|k.......|
|000004b0| 66 fe 00 79 16 0e 16 0d | 16 11 09 09 46 26 0a 48 |f..y....|....F&.H|
|000004c0| 16 12 1e 09 09 16 13 62 | fc 00 9b 16 14 1e 09 09 |.......b|........|
|000004d0| 6b ff 00 98 16 15 1e 16 | 1e 17 56 1e 0a 0a fb 01 |k.......|..V.....|
|000004e0| a6 16 18 16 19 1e 09 0a | fc 00 b5 16 1a 1e 16 16 |........|........|
|000004f0| 0f 1e 09 09 0a 46 26 0a | fb 01 a6 16 18 16 1b 1e |.....F&.|........|
|00000500| 09 0a fc 00 c9 16 1a 1e | 16 1e 0a 0a fb 01 a6 16 |........|........|
|00000510| 12 1e 09 09 16 13 62 ff | 01 a6 16 18 16 1c 1e 09 |......b.|........|
|00000520| 0a fc 01 6f 44 16 08 1e | 09 09 36 1d 1e 1d fe 01 |...oD...|..6.....|
|00000530| 01 16 14 1e 1d 09 16 14 | 1e 09 09 63 fe 01 01 16 |........|...c....|
|00000540| 18 16 1e 1e 1d 0a 5d fe | 01 6b 16 18 16 1f 1e 1d |......].|.k......|
|00000550| 0a fe 01 17 16 18 16 20 | 16 21 08 0a 5d fe 01 5d |....... |.!..]..]|
|00000560| 16 5c 22 1e 1d 09 46 26 | 1d ff 01 2a 16 23 16 24 |.\"...F&|...*.#.$|
|00000570| 09 48 44 16 08 1e 1d 09 | 36 25 1e 25 fe 01 3f 16 |.HD.....|6%.%..?.|
|00000580| 18 16 26 1e 25 0a fe 01 | 5c 5c 1e 25 46 26 1d 48 |..&.%...|\\.%F&.H|
|00000590| 16 08 1e 25 09 46 26 25 | ff 01 58 16 23 16 24 09 |...%.F&%|..X.#.$.|
|000005a0| 48 fb 01 33 45 48 16 27 | 1e 0a 16 14 16 0e 1e 1d |H..3EH.'|........|
|000005b0| 09 09 0a 45 fb 01 a6 16 | 18 16 28 1e 09 0a fc 01 |...E....|..(.....|
|000005c0| 83 16 15 1e 29 1e 0a 0a | fb 01 a6 16 18 16 2a 1e |....)...|......*.|
|000005d0| 09 0a fc 01 a5 16 15 1e | 2b 1e 0a 0a ff 01 a2 14 |........|+.......|
|000005e0| 15 16 06 1e 09 09 0a 46 | 26 0a fb 01 a6 49 48 16 |.......F|&....IH.|
|000005f0| 2c 18 09 ff 02 20 12 16 | 2d 18 0a fe 01 bb 16 21 |,.... ..|-......!|
|00000600| 08 46 20 48 16 12 18 09 | 16 2e 62 fc 01 e5 16 14 |.F H....|..b.....|
|00000610| 1e 09 09 1e 17 57 66 fc | 01 db 16 27 1e 09 15 0a |.....Wf.|...'....|
|00000620| fb 01 e2 16 1a 1e 17 1e | 0a 0a fb 02 20 16 12 18 |........|.... ...|
|00000630| 09 16 13 62 fc 01 f9 16 | 15 1e 16 1e 0a 0a fb 02 |...b....|........|
|00000640| 20 16 18 16 28 18 0a fc | 02 0c 16 1a 1e 29 1e 0a | ...(...|.....)..|
|00000650| 0a fb 02 20 16 18 16 2f | 18 0a fc 02 1f 16 1a 1e |... .../|........|
|00000660| 2b 1e 0a 0a fb 02 20 49 | 48 16 30 1e 0a 16 06 18 |+..... I|H.0.....|
|00000670| 09 0a 48 1e 0a 45 22 20 | 5b 6c 69 6e 65 2d 70 6f |..H..E" |[line-po|
|00000680| 73 20 6c 69 6e 65 2d 73 | 74 61 72 74 20 72 65 67 |s line-s|tart reg|
|00000690| 65 78 70 2d 6d 61 74 63 | 68 2d 6c 69 6e 65 20 22 |exp-matc|h-line "|
|000006a0| 5e 5b 09 20 5d 2a 23 22 | 20 70 6f 73 20 30 20 70 |^[. ]*#"| pos 0 p|
|000006b0| 6f 73 2d 6c 69 6e 65 20 | 63 6f 70 79 2d 70 6f 73 |os-line |copy-pos|
|000006c0| 20 78 63 2d 62 61 63 6b | 77 61 72 64 2d 73 74 6d | xc-back|ward-stm|
|000006d0| 74 20 65 78 70 2d 70 6f | 73 20 65 78 70 2d 69 6e |t exp-po|s exp-in|
|000006e0| 64 20 66 69 6e 64 2d 70 | 72 65 76 2d 72 65 67 65 |d find-p|rev-rege|
|000006f0| 78 70 20 22 5b 7b 28 5d | 22 20 6d 61 74 63 68 2d |xp "[{(]|" match-|
|00000700| 73 74 61 72 74 20 63 68 | 61 72 2d 74 6f 2d 67 6c |start ch|ar-to-gl|
|00000710| 79 70 68 2d 70 6f 73 20 | 69 6e 64 65 6e 74 2d 70 |yph-pos |indent-p|
|00000720| 6f 73 20 22 5e 5b 09 20 | 5d 2a 28 5b 5e 5d 5b 28 |os "^[. |]*([^][(|
|00000730| 29 7b 7d 5c 22 27 61 2d | 7a 41 2d 5a 30 2d 39 5f |){}\"'a-|zA-Z0-9_|
|00000740| 09 20 5d 2b 29 22 20 31 | 20 67 65 74 2d 63 68 61 |. ]+)" 1| get-cha|
|00000750| 72 20 31 32 35 20 70 6f | 73 2d 63 6f 6c 20 6c 65 |r 125 po|s-col le|
|00000760| 66 74 2d 63 68 61 72 20 | 63 2d 62 6f 64 79 2d 69 |ft-char |c-body-i|
|00000770| 6e 64 65 6e 74 20 63 2d | 62 72 61 63 65 2d 69 6e |ndent c-|brace-in|
|00000780| 64 65 6e 74 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |dent loo|king-at |
|00000790| 22 2e 2a 7b 22 20 72 69 | 67 68 74 2d 63 68 61 72 |".*{" ri|ght-char|
|000007a0| 20 22 28 69 66 7c 66 6f | 72 7c 77 68 69 6c 65 7c | "(if|fo|r|while||
|000007b0| 73 77 69 74 63 68 29 5b | 09 20 5d 2a 5c 5c 28 2e |switch)[|. ]*\\(.|
|000007c0| 2a 24 7c 28 65 6c 73 65 | 7c 64 6f 29 28 5b 5e 61 |*$|(else||do)([^a|
|000007d0| 2d 7a 5d 7c 24 29 22 20 | 22 2e 2a 3b 22 20 70 72 |-z]|$)" |".*;" pr|
|000007e0| 65 76 20 22 63 61 73 65 | 20 2e 2a 3a 7c 64 65 66 |ev "case| .*:|def|
|000007f0| 61 75 6c 74 5b 09 20 5d | 2a 3a 7c 2e 2a 3b 22 20 |ault[. ]|*:|.*;" |
|00000800| 22 65 6c 73 65 5b 09 20 | 5d 2a 22 20 22 5b 09 20 |"else[. |]*" "[. |
|00000810| 5d 2a 69 66 5b 09 20 5d | 2a 5c 5c 28 22 20 6d 61 |]*if[. ]|*\\(" ma|
|00000820| 74 63 68 2d 65 6e 64 20 | 78 63 2d 62 61 6c 61 6e |tch-end |xc-balan|
|00000830| 63 65 2d 69 66 73 20 65 | 72 72 6f 72 20 22 42 65 |ce-ifs e|rror "Be|
|00000840| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 62 75 66 66 65 |ginning |of buffe|
|00000850| 72 22 20 74 6d 70 20 22 | 69 66 5b 09 20 5d 2a 5c |r" tmp "|if[. ]*\|
|00000860| 5c 28 22 20 73 65 74 2d | 70 6f 73 2d 63 6f 6c 20 |\(" set-|pos-col |
|00000870| 22 63 61 73 65 20 2e 2a | 3a 7c 64 65 66 61 75 6c |"case .*|:|defaul|
|00000880| 74 5b 09 20 5d 2a 3a 22 | 20 63 2d 63 61 73 65 2d |t[. ]*:"| c-case-|
|00000890| 69 6e 64 65 6e 74 20 22 | 5b 61 2d 7a 41 2d 5a 5f |indent "|[a-zA-Z_|
|000008a0| 5d 5b 61 2d 7a 41 2d 5a | 30 2d 39 5f 5d 2b 3a 22 |][a-zA-Z|0-9_]+:"|
|000008b0| 20 63 2d 6c 61 62 65 6c | 2d 69 6e 64 65 6e 74 20 | c-label|-indent |
|000008c0| 65 6d 70 74 79 2d 6c 69 | 6e 65 2d 70 20 22 5e 5b |empty-li|ne-p "^[|
|000008d0| 09 0c 20 5d 2b 22 20 31 | 32 33 20 22 5b 61 2d 7a |.. ]+" 1|23 "[a-z|
|000008e0| 41 2d 5a 5f 5d 2b 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |A-Z_]+[a|-zA-Z0-9|
|000008f0| 5f 5d 2a 3a 22 20 73 65 | 74 2d 70 6f 73 2d 6c 69 |_]*:" se|t-pos-li|
|00000900| 6e 65 5d 20 35 29 29 0a |                         |ne] 5)).|        |
+--------+-------------------------+-------------------------+--------+--------+