/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / eiffel3.elc.z / eiffel3.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 35 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:50 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 65 69 66 66 65 6c | 33 2e 65 6c 0a 3b 3b 3b |s/eiffel|3.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 65 69 66 66 65 6c | (error |"`eiffel|
|000001f0| 33 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |3.el' wa|s compil|
|00000200| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 32 30 22 |ed for E|macs 20"|
|00000210| 29 29 0a 0a 28 6f 72 20 | 28 62 6f 75 6e 64 70 20 |))..(or |(boundp |
|00000220| 27 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 |'current|-load-li|
|00000230| 73 74 29 20 28 73 65 74 | 71 20 63 75 72 72 65 6e |st) (set|q curren|
|00000240| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 29 |t-load-l|ist nil)|
|00000250| 29 0a 0a 0a 23 40 34 32 | 20 44 65 66 61 75 6c 74 |)...#@42| Default|
|00000260| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 69 6e 74 | indenta|tion int|
|00000270| 65 72 76 61 6c 20 28 69 | 6e 20 73 70 61 63 65 73 |erval (i|n spaces|
|00000280| 29 1f 0a 28 64 65 66 76 | 61 72 20 65 69 66 2d 69 |)..(defv|ar eif-i|
|00000290| 6e 64 65 6e 74 2d 69 6e | 63 72 65 6d 65 6e 74 20 |ndent-in|crement |
|000002a0| 33 20 28 23 24 20 2e 20 | 36 30 31 29 29 0a 23 40 |3 (#$ . |601)).#@|
|000002b0| 31 32 33 20 49 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |123 Inde|ntation |
|000002c0| 61 6d 6f 75 6e 74 20 66 | 6f 72 20 43 6c 61 73 73 |amount f|or Class|
|000002d0| 20 6c 65 76 65 6c 20 6b | 65 79 77 6f 72 64 73 20 | level k|eywords |
|000002e0| 28 69 6e 20 6e 75 6d 62 | 65 72 20 6f 66 0a 65 69 |(in numb|er of.ei|
|000002f0| 66 2d 69 6e 64 65 6e 74 | 2d 69 6e 63 72 65 6d 65 |f-indent|-increme|
|00000300| 6e 74 73 29 20 28 73 65 | 65 20 65 69 66 2d 63 6c |nts) (se|e eif-cl|
|00000310| 61 73 73 2d 6c 65 76 65 | 6c 2d 6b 65 79 77 6f 72 |ass-leve|l-keywor|
|00000320| 64 73 20 76 61 72 69 61 | 62 6c 65 29 2e 1f 0a 28 |ds varia|ble)...(|
|00000330| 64 65 66 76 61 72 20 65 | 69 66 2d 63 6c 61 73 73 |defvar e|if-class|
|00000340| 2d 6c 65 76 65 6c 2d 6b | 77 2d 69 6e 64 65 6e 74 |-level-k|w-indent|
|00000350| 20 30 20 28 23 24 20 2e | 20 36 39 32 29 29 0a 23 | 0 (#$ .| 692)).#|
|00000360| 40 31 32 37 20 4e 75 6d | 62 65 72 20 6f 66 20 53 |@127 Num|ber of S|
|00000370| 50 41 43 45 53 20 74 6f | 20 61 64 64 20 74 6f 20 |PACES to| add to |
|00000380| 65 69 66 2d 63 6c 61 73 | 73 2d 6c 65 76 65 6c 2d |eif-clas|s-level-|
|00000390| 6b 77 2d 69 6e 64 65 6e | 74 20 74 6f 20 67 65 74 |kw-inden|t to get|
|000003a0| 20 74 68 65 0a 61 63 74 | 75 61 6c 20 69 6e 64 65 | the.act|ual inde|
|000003b0| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 61 20 63 6c 61 |ntation |of a cla|
|000003c0| 73 73 20 6c 65 76 65 6c | 20 6b 65 79 77 6f 72 64 |ss level| keyword|
|000003d0| 2e 20 43 61 6e 20 62 65 | 20 6e 65 67 61 74 69 76 |. Can be| negativ|
|000003e0| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 65 69 66 2d |e...(def|var eif-|
|000003f0| 65 78 74 72 61 2d 63 6c | 61 73 73 2d 6c 65 76 65 |extra-cl|ass-leve|
|00000400| 6c 2d 6b 77 2d 69 6e 64 | 65 6e 74 20 30 20 28 23 |l-kw-ind|ent 0 (#|
|00000410| 24 20 2e 20 38 36 39 29 | 29 0a 23 40 39 32 20 49 |$ . 869)|).#@92 I|
|00000420| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6f 66 20 63 6f |ndentati|on of co|
|00000430| 6d 6d 65 6e 74 73 20 61 | 74 20 74 68 65 20 62 65 |mments a|t the be|
|00000440| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 63 |ginning |of the c|
|00000450| 6c 61 73 73 20 28 69 6e | 20 6e 75 6d 62 65 72 20 |lass (in| number |
|00000460| 6f 66 0a 65 69 66 2d 69 | 6e 64 65 6e 74 2d 69 6e |of.eif-i|ndent-in|
|00000470| 63 72 65 6d 65 6e 74 73 | 29 1f 0a 28 64 65 66 76 |crements|)..(defv|
|00000480| 61 72 20 65 69 66 2d 63 | 6c 61 73 73 2d 6c 65 76 |ar eif-c|lass-lev|
|00000490| 65 6c 2d 63 6f 6d 6d 65 | 6e 74 2d 69 6e 64 65 6e |el-comme|nt-inden|
|000004a0| 74 20 30 20 28 23 24 20 | 2e 20 31 30 35 35 29 29 |t 0 (#$ |. 1055))|
|000004b0| 0a 23 40 31 33 32 20 4e | 75 6d 62 65 72 20 6f 66 |.#@132 N|umber of|
|000004c0| 20 53 50 41 43 45 53 20 | 74 6f 20 61 64 64 20 74 | SPACES |to add t|
|000004d0| 6f 20 65 69 66 2d 63 6c | 61 73 73 2d 6c 65 76 65 |o eif-cl|ass-leve|
|000004e0| 6c 2d 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |l-commen|t-indent|
|000004f0| 20 74 6f 20 67 65 74 20 | 74 68 65 0a 61 63 74 75 | to get |the.actu|
|00000500| 61 6c 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |al inden|tation o|
|00000510| 66 20 61 20 63 6c 61 73 | 73 20 6c 65 76 65 6c 20 |f a clas|s level |
|00000520| 63 6f 6d 6d 65 6e 74 2e | 20 43 61 6e 20 62 65 20 |comment.| Can be |
|00000530| 6e 65 67 61 74 69 76 65 | 2e 1f 0a 28 64 65 66 76 |negative|...(defv|
|00000540| 61 72 20 65 69 66 2d 65 | 78 74 72 61 2d 63 6c 61 |ar eif-e|xtra-cla|
|00000550| 73 73 2d 6c 65 76 65 6c | 2d 63 6f 6d 6d 65 6e 74 |ss-level|-comment|
|00000560| 2d 69 6e 64 65 6e 74 20 | 30 20 28 23 24 20 2e 20 |-indent |0 (#$ . |
|00000570| 31 32 30 37 29 29 0a 23 | 40 31 33 37 20 49 6e 64 |1207)).#|@137 Ind|
|00000580| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 6b 65 79 77 |entation| of keyw|
|00000590| 6f 72 64 73 20 66 61 6c | 6c 69 6e 67 20 75 6e 64 |ords fal|ling und|
|000005a0| 65 72 20 74 68 65 20 49 | 6e 68 65 72 69 74 20 63 |er the I|nherit c|
|000005b0| 6c 61 75 73 65 20 28 69 | 6e 20 6e 75 6d 62 65 72 |lause (i|n number|
|000005c0| 20 6f 66 0a 65 69 66 2d | 69 6e 64 65 6e 74 2d 69 | of.eif-|indent-i|
|000005d0| 6e 63 72 65 6d 65 6e 74 | 73 29 20 28 73 65 65 20 |ncrement|s) (see |
|000005e0| 65 69 66 2d 69 6e 68 65 | 72 69 74 2d 6c 65 76 65 |eif-inhe|rit-leve|
|000005f0| 6c 2d 6b 65 79 77 6f 72 | 64 73 20 76 61 72 69 61 |l-keywor|ds varia|
|00000600| 62 6c 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 65 69 |ble...(d|efvar ei|
|00000610| 66 2d 69 6e 68 65 72 69 | 74 2d 6c 65 76 65 6c 2d |f-inheri|t-level-|
|00000620| 6b 77 2d 69 6e 64 65 6e | 74 20 32 20 28 23 24 20 |kw-inden|t 2 (#$ |
|00000630| 2e 20 31 34 30 35 29 29 | 0a 23 40 31 33 32 20 4e |. 1405))|.#@132 N|
|00000640| 75 6d 62 65 72 20 6f 66 | 20 53 50 41 43 45 53 20 |umber of| SPACES |
|00000650| 74 6f 20 61 64 64 20 74 | 6f 20 65 69 66 2d 69 6e |to add t|o eif-in|
|00000660| 68 65 72 69 74 2d 6c 65 | 76 65 6c 2d 6b 77 2d 69 |herit-le|vel-kw-i|
|00000670| 6e 64 65 6e 74 20 74 6f | 20 67 65 74 20 74 68 65 |ndent to| get the|
|00000680| 0a 61 63 74 75 61 6c 20 | 69 6e 64 65 6e 74 61 74 |.actual |indentat|
|00000690| 69 6f 6e 20 6f 66 20 61 | 6e 20 69 6e 68 65 72 69 |ion of a|n inheri|
|000006a0| 74 20 6c 65 76 65 6c 20 | 6b 65 79 77 6f 72 64 2e |t level |keyword.|
|000006b0| 20 43 61 6e 20 62 65 20 | 6e 65 67 61 74 69 76 65 | Can be |negative|
|000006c0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 65 69 66 2d 65 |...(defv|ar eif-e|
|000006d0| 78 74 72 61 2d 69 6e 68 | 65 72 69 74 2d 6c 65 76 |xtra-inh|erit-lev|
|000006e0| 65 6c 2d 6b 77 2d 69 6e | 64 65 6e 74 20 30 20 28 |el-kw-in|dent 0 (|
|000006f0| 23 24 20 2e 20 31 35 39 | 39 29 29 0a 23 40 37 30 |#$ . 159|9)).#@70|
|00000700| 20 49 6e 64 65 6e 74 61 | 74 69 6f 6e 20 61 6d 6f | Indenta|tion amo|
|00000710| 75 6e 74 20 6f 66 20 66 | 65 61 74 75 72 65 73 2e |unt of f|eatures.|
|00000720| 20 28 69 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 65 | (in num|ber of e|
|00000730| 69 66 2d 69 6e 64 65 6e | 74 2d 69 6e 63 72 65 6d |if-inden|t-increm|
|00000740| 65 6e 74 73 29 1f 0a 28 | 64 65 66 76 61 72 20 65 |ents)..(|defvar e|
|00000750| 69 66 2d 66 65 61 74 75 | 72 65 2d 6c 65 76 65 6c |if-featu|re-level|
|00000760| 2d 69 6e 64 65 6e 74 20 | 31 20 28 23 24 20 2e 20 |-indent |1 (#$ . |
|00000770| 31 37 39 33 29 29 0a 23 | 40 31 31 34 20 4e 75 6d |1793)).#|@114 Num|
|00000780| 62 65 72 20 6f 66 20 53 | 50 41 43 45 53 20 74 6f |ber of S|PACES to|
|00000790| 20 61 64 64 20 74 6f 20 | 65 69 66 2d 66 65 61 74 | add to |eif-feat|
|000007a0| 75 72 65 2d 6c 65 76 65 | 6c 2d 69 6e 64 65 6e 74 |ure-leve|l-indent|
|000007b0| 20 74 6f 20 67 65 74 20 | 74 68 65 0a 61 63 74 75 | to get |the.actu|
|000007c0| 61 6c 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |al inden|tation o|
|000007d0| 66 20 61 20 66 65 61 74 | 75 72 65 2e 20 43 61 6e |f a feat|ure. Can|
|000007e0| 20 62 65 20 6e 65 67 61 | 74 69 76 65 2e 1f 0a 28 | be nega|tive...(|
|000007f0| 64 65 66 76 61 72 20 65 | 69 66 2d 65 78 74 72 61 |defvar e|if-extra|
|00000800| 2d 66 65 61 74 75 72 65 | 2d 6c 65 76 65 6c 2d 69 |-feature|-level-i|
|00000810| 6e 64 65 6e 74 20 30 20 | 28 23 24 20 2e 20 31 39 |ndent 0 |(#$ . 19|
|00000820| 31 37 29 29 0a 23 40 31 | 33 38 20 49 6e 64 65 6e |17)).#@1|38 Inden|
|00000830| 74 61 74 69 6f 6e 20 6f | 66 20 6b 65 79 77 6f 72 |tation o|f keywor|
|00000840| 64 73 20 62 65 6c 6f 6e | 67 69 6e 67 20 74 6f 20 |ds belon|ging to |
|00000850| 69 6e 64 69 76 69 64 75 | 61 6c 20 66 65 61 74 75 |individu|al featu|
|00000860| 72 65 73 2e 20 28 69 6e | 20 6e 75 6d 62 65 72 20 |res. (in| number |
|00000870| 6f 66 0a 65 69 66 2d 69 | 6e 64 65 6e 74 2d 69 6e |of.eif-i|ndent-in|
|00000880| 63 72 65 6d 65 6e 74 73 | 29 20 28 73 65 65 20 65 |crements|) (see e|
|00000890| 69 66 2d 66 65 61 74 75 | 72 65 2d 6c 65 76 65 6c |if-featu|re-level|
|000008a0| 2d 6b 65 79 77 6f 72 64 | 73 20 76 61 72 69 61 62 |-keyword|s variab|
|000008b0| 6c 65 29 1f 0a 28 64 65 | 66 76 61 72 20 65 69 66 |le)..(de|fvar eif|
|000008c0| 2d 66 65 61 74 75 72 65 | 2d 6c 65 76 65 6c 2d 6b |-feature|-level-k|
|000008d0| 77 2d 69 6e 64 65 6e 74 | 20 32 20 28 23 24 20 2e |w-indent| 2 (#$ .|
|000008e0| 20 32 30 39 31 29 29 0a | 23 40 31 33 31 20 4e 75 | 2091)).|#@131 Nu|
|000008f0| 6d 62 65 72 20 6f 66 20 | 53 50 41 43 45 53 20 74 |mber of |SPACES t|
|00000900| 6f 20 61 64 64 20 74 6f | 20 65 69 66 2d 66 65 61 |o add to| eif-fea|
|00000910| 74 75 72 65 2d 6c 65 76 | 65 6c 2d 6b 77 2d 69 6e |ture-lev|el-kw-in|
|00000920| 64 65 6e 74 20 74 6f 20 | 67 65 74 20 74 68 65 0a |dent to |get the.|
|00000930| 61 63 74 75 61 6c 20 69 | 6e 64 65 6e 74 61 74 69 |actual i|ndentati|
|00000940| 6f 6e 20 6f 66 20 61 20 | 66 65 61 74 75 72 65 20 |on of a |feature |
|00000950| 6c 65 76 65 6c 20 6b 65 | 79 77 6f 72 64 2e 20 43 |level ke|yword. C|
|00000960| 61 6e 20 62 65 20 6e 65 | 67 61 74 69 76 65 2e 1f |an be ne|gative..|
|00000970| 0a 28 64 65 66 76 61 72 | 20 65 69 66 2d 65 78 74 |.(defvar| eif-ext|
|00000980| 72 61 2d 66 65 61 74 75 | 72 65 2d 6c 65 76 65 6c |ra-featu|re-level|
|00000990| 2d 6b 77 2d 69 6e 64 65 | 6e 74 20 30 20 28 23 24 |-kw-inde|nt 0 (#$|
|000009a0| 20 2e 20 32 32 38 36 29 | 29 0a 23 40 39 33 20 49 | . 2286)|).#@93 I|
|000009b0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6f 66 20 63 6f |ndentati|on of co|
|000009c0| 6d 6d 65 6e 74 73 20 61 | 74 20 74 68 65 20 62 65 |mments a|t the be|
|000009d0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 61 20 66 65 61 |ginning |of a fea|
|000009e0| 74 75 72 65 2e 20 28 69 | 6e 20 6e 75 6d 62 65 72 |ture. (i|n number|
|000009f0| 20 6f 66 0a 65 69 66 2d | 69 6e 64 65 6e 74 2d 69 | of.eif-|indent-i|
|00000a00| 6e 63 72 65 6d 65 6e 74 | 73 29 1f 0a 28 64 65 66 |ncrement|s)..(def|
|00000a10| 76 61 72 20 65 69 66 2d | 66 65 61 74 75 72 65 2d |var eif-|feature-|
|00000a20| 6c 65 76 65 6c 2d 63 6f | 6d 6d 65 6e 74 2d 69 6e |level-co|mment-in|
|00000a30| 64 65 6e 74 20 33 20 28 | 23 24 20 2e 20 32 34 37 |dent 3 (|#$ . 247|
|00000a40| 39 29 29 0a 23 40 31 33 | 36 20 4e 75 6d 62 65 72 |9)).#@13|6 Number|
|00000a50| 20 6f 66 20 53 50 41 43 | 45 53 20 74 6f 20 61 64 | of SPAC|ES to ad|
|00000a60| 64 20 74 6f 20 65 69 66 | 2d 66 65 61 74 75 72 65 |d to eif|-feature|
|00000a70| 2d 6c 65 76 65 6c 2d 63 | 6f 6d 6d 65 6e 74 2d 69 |-level-c|omment-i|
|00000a80| 6e 64 65 6e 74 20 74 6f | 20 67 65 74 20 74 68 65 |ndent to| get the|
|00000a90| 0a 61 63 74 75 61 6c 20 | 69 6e 64 65 6e 74 61 74 |.actual |indentat|
|00000aa0| 69 6f 6e 20 6f 66 20 61 | 20 66 65 61 74 75 72 65 |ion of a| feature|
|00000ab0| 20 6c 65 76 65 6c 20 63 | 6f 6d 6d 65 6e 74 2e 20 | level c|omment. |
|00000ac0| 43 61 6e 20 62 65 20 6e | 65 67 61 74 69 76 65 2e |Can be n|egative.|
|00000ad0| 1f 0a 28 64 65 66 76 61 | 72 20 65 69 66 2d 65 78 |..(defva|r eif-ex|
|00000ae0| 74 72 61 2d 66 65 61 74 | 75 72 65 2d 6c 65 76 65 |tra-feat|ure-leve|
|00000af0| 6c 2d 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |l-commen|t-indent|
|00000b00| 20 30 20 28 23 24 20 2e | 20 32 36 33 34 29 29 0a | 0 (#$ .| 2634)).|
|00000b10| 23 40 38 38 20 49 6e 64 | 65 6e 74 61 74 69 6f 6e |#@88 Ind|entation|
|00000b20| 20 6f 66 20 63 6f 6d 6d | 65 6e 74 73 20 69 6e 20 | of comm|ents in |
|00000b30| 74 68 65 20 62 6f 64 79 | 20 6f 66 20 61 20 72 6f |the body| of a ro|
|00000b40| 75 74 69 6e 65 2e 20 28 | 69 6e 20 6e 75 6d 62 65 |utine. (|in numbe|
|00000b50| 72 20 6f 66 0a 65 69 66 | 2d 69 6e 64 65 6e 74 2d |r of.eif|-indent-|
|00000b60| 69 6e 63 72 65 6d 65 6e | 74 73 29 1f 0a 28 64 65 |incremen|ts)..(de|
|00000b70| 66 76 61 72 20 65 69 66 | 2d 62 6f 64 79 2d 63 6f |fvar eif|-body-co|
|00000b80| 6d 6d 65 6e 74 2d 69 6e | 64 65 6e 74 20 30 20 28 |mment-in|dent 0 (|
|00000b90| 23 24 20 2e 20 32 38 33 | 37 29 29 0a 23 40 31 32 |#$ . 283|7)).#@12|
|00000ba0| 36 20 4e 75 6d 62 65 72 | 20 6f 66 20 53 50 41 43 |6 Number| of SPAC|
|00000bb0| 45 53 20 74 6f 20 61 64 | 64 20 74 6f 20 65 69 66 |ES to ad|d to eif|
|00000bc0| 2d 62 6f 64 79 2d 63 6f | 6d 6d 65 6e 74 2d 69 6e |-body-co|mment-in|
|00000bd0| 64 65 6e 74 20 74 6f 20 | 67 65 74 20 74 68 65 0a |dent to |get the.|
|00000be0| 61 63 74 75 61 6c 20 69 | 6e 64 65 6e 74 61 74 69 |actual i|ndentati|
|00000bf0| 6f 6e 20 6f 66 20 61 20 | 72 6f 75 74 69 6e 65 20 |on of a |routine |
|00000c00| 62 6f 64 79 20 63 6f 6d | 6d 65 6e 74 2e 20 43 61 |body com|ment. Ca|
|00000c10| 6e 20 62 65 20 6e 65 67 | 61 74 69 76 65 2e 1f 0a |n be neg|ative...|
|00000c20| 28 64 65 66 76 61 72 20 | 65 69 66 2d 65 78 74 72 |(defvar |eif-extr|
|00000c30| 61 2d 62 6f 64 79 2d 63 | 6f 6d 6d 65 6e 74 2d 69 |a-body-c|omment-i|
|00000c40| 6e 64 65 6e 74 20 30 20 | 28 23 24 20 2e 20 32 39 |ndent 0 |(#$ . 29|
|00000c50| 37 38 29 29 0a 23 40 31 | 34 39 20 45 78 74 72 61 |78)).#@1|49 Extra|
|00000c60| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 | indenta|tion for|
|00000c70| 20 74 68 65 20 63 68 65 | 63 6b 20 63 6c 61 75 73 | the che|ck claus|
|00000c80| 65 20 61 73 20 64 65 73 | 63 72 69 62 65 64 20 69 |e as des|cribed i|
|00000c90| 6e 20 45 54 4c 2e 20 28 | 69 6e 20 6e 75 6d 62 65 |n ETL. (|in numbe|
|00000ca0| 72 20 6f 66 0a 65 69 66 | 2d 69 6e 64 65 6e 74 2d |r of.eif|-indent-|
|00000cb0| 69 6e 63 72 65 6d 65 6e | 74 73 29 2e 20 44 65 66 |incremen|ts). Def|
|00000cc0| 61 75 6c 74 20 69 73 20 | 30 2c 20 77 68 69 63 68 |ault is |0, which|
|00000cd0| 20 69 73 20 64 69 66 66 | 65 72 65 6e 74 20 74 68 | is diff|erent th|
|00000ce0| 61 6e 20 69 6e 20 45 54 | 4c 27 73 20 31 2e 1f 0a |an in ET|L's 1...|
|00000cf0| 28 64 65 66 76 61 72 20 | 65 69 66 2d 63 68 65 63 |(defvar |eif-chec|
|00000d00| 6b 2d 6b 65 79 77 6f 72 | 64 2d 69 6e 64 65 6e 74 |k-keywor|d-indent|
|00000d10| 20 30 20 28 23 24 20 2e | 20 33 31 36 33 29 29 0a | 0 (#$ .| 3163)).|
|00000d20| 23 40 31 32 30 20 4e 75 | 6d 62 65 72 20 6f 66 20 |#@120 Nu|mber of |
|00000d30| 53 50 41 43 45 53 20 74 | 6f 20 61 64 64 20 74 6f |SPACES t|o add to|
|00000d40| 20 65 69 66 2d 63 68 65 | 63 6b 2d 6b 65 79 77 6f | eif-che|ck-keywo|
|00000d50| 72 64 2d 69 6e 64 65 6e | 74 20 74 6f 20 67 65 74 |rd-inden|t to get|
|00000d60| 20 74 68 65 0a 61 63 74 | 75 61 6c 20 69 6e 64 65 | the.act|ual inde|
|00000d70| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 61 20 63 68 65 |ntation |of a che|
|00000d80| 63 6b 20 6b 65 79 77 6f | 72 64 2e 20 43 61 6e 20 |ck keywo|rd. Can |
|00000d90| 62 65 20 6e 65 67 61 74 | 69 76 65 2e 1f 0a 28 64 |be negat|ive...(d|
|00000da0| 65 66 76 61 72 20 65 69 | 66 2d 65 78 74 72 61 2d |efvar ei|f-extra-|
|00000db0| 63 68 65 63 6b 2d 6b 65 | 79 77 6f 72 64 2d 69 6e |check-ke|yword-in|
|00000dc0| 64 65 6e 74 20 30 20 28 | 23 24 20 2e 20 33 33 36 |dent 0 (|#$ . 336|
|00000dd0| 36 29 29 0a 23 40 31 31 | 35 20 45 78 74 72 61 20 |6)).#@11|5 Extra |
|00000de0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 20 |indentat|ion for |
|00000df0| 74 68 65 20 72 65 73 63 | 75 65 20 63 6c 61 75 73 |the resc|ue claus|
|00000e00| 65 20 61 73 20 64 65 73 | 63 72 69 62 65 64 20 69 |e as des|cribed i|
|00000e10| 6e 20 45 54 4c 2e 20 28 | 69 6e 20 6e 75 6d 62 65 |n ETL. (|in numbe|
|00000e20| 72 20 6f 66 0a 65 69 66 | 2d 69 6e 64 65 6e 74 2d |r of.eif|-indent-|
|00000e30| 69 6e 63 72 65 6d 65 6e | 74 73 29 2e 20 44 65 66 |incremen|ts). Def|
|00000e40| 61 75 6c 74 20 69 73 20 | 2d 31 2e 1f 0a 28 64 65 |ault is |-1...(de|
|00000e50| 66 76 61 72 20 65 69 66 | 2d 72 65 73 63 75 65 2d |fvar eif|-rescue-|
|00000e60| 6b 65 79 77 6f 72 64 2d | 69 6e 64 65 6e 74 20 2d |keyword-|indent -|
|00000e70| 31 20 28 23 24 20 2e 20 | 33 35 34 36 29 29 0a 23 |1 (#$ . |3546)).#|
|00000e80| 40 31 32 32 20 4e 75 6d | 62 65 72 20 6f 66 20 53 |@122 Num|ber of S|
|00000e90| 50 41 43 45 53 20 74 6f | 20 61 64 64 20 74 6f 20 |PACES to| add to |
|00000ea0| 65 69 66 2d 72 65 73 63 | 75 65 2d 6b 65 79 77 6f |eif-resc|ue-keywo|
|00000eb0| 72 64 2d 69 6e 64 65 6e | 74 20 74 6f 20 67 65 74 |rd-inden|t to get|
|00000ec0| 20 74 68 65 0a 61 63 74 | 75 61 6c 20 69 6e 64 65 | the.act|ual inde|
|00000ed0| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 61 20 72 65 73 |ntation |of a res|
|00000ee0| 63 75 65 20 6b 65 79 77 | 6f 72 64 2e 20 43 61 6e |cue keyw|ord. Can|
|00000ef0| 20 62 65 20 6e 65 67 61 | 74 69 76 65 2e 1f 0a 28 | be nega|tive...(|
|00000f00| 64 65 66 76 61 72 20 65 | 69 66 2d 65 78 74 72 61 |defvar e|if-extra|
|00000f10| 2d 72 65 73 63 75 65 2d | 6b 65 79 77 6f 72 64 2d |-rescue-|keyword-|
|00000f20| 69 6e 64 65 6e 74 20 30 | 20 28 23 24 20 2e 20 33 |indent 0| (#$ . 3|
|00000f30| 37 31 37 29 29 0a 23 40 | 31 33 35 20 49 6e 64 65 |717)).#@|135 Inde|
|00000f40| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 61 20 60 74 |ntation |for a `t|
|00000f50| 68 65 6e 27 20 61 70 70 | 65 61 72 69 6e 67 20 6f |hen' app|earing o|
|00000f60| 6e 20 61 20 6c 69 6e 65 | 20 62 79 20 69 74 73 65 |n a line| by itse|
|00000f70| 6c 66 20 72 61 74 68 65 | 72 20 0a 74 68 61 6e 20 |lf rathe|r .than |
|00000f80| 6f 6e 20 74 68 65 20 73 | 61 6d 65 20 6c 69 6e 65 |on the s|ame line|
|00000f90| 20 61 73 20 61 6e 20 60 | 69 66 27 2e 20 28 69 6e | as an `|if'. (in|
|00000fa0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 65 69 66 2d 69 | number |of eif-i|
|00000fb0| 6e 64 65 6e 74 2d 69 6e | 63 72 65 6d 65 6e 74 73 |ndent-in|crements|
|00000fc0| 29 1f 0a 28 64 65 66 76 | 61 72 20 65 69 66 2d 74 |)..(defv|ar eif-t|
|00000fd0| 68 65 6e 2d 69 6e 64 65 | 6e 74 20 30 20 28 23 24 |hen-inde|nt 0 (#$|
|00000fe0| 20 2e 20 33 39 30 30 29 | 29 0a 23 40 31 33 35 20 | . 3900)|).#@135 |
|00000ff0| 4e 75 6d 62 65 72 20 6f | 66 20 53 50 41 43 45 53 |Number o|f SPACES|
|00001000| 20 74 6f 20 61 64 64 20 | 74 6f 20 65 69 66 2d 74 | to add |to eif-t|
|00001010| 68 65 6e 2d 69 6e 64 65 | 6e 74 20 74 6f 20 67 65 |hen-inde|nt to ge|
|00001020| 74 20 74 68 65 0a 61 63 | 74 75 61 6c 20 69 6e 64 |t the.ac|tual ind|
|00001030| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 61 20 60 74 |entation| of a `t|
|00001040| 68 65 6e 27 20 61 70 70 | 65 61 72 69 6e 67 20 6f |hen' app|earing o|
|00001050| 6e 20 61 20 6c 69 6e 65 | 20 62 79 20 69 74 73 65 |n a line| by itse|
|00001060| 6c 66 2e 20 43 61 6e 20 | 62 65 20 0a 6e 65 67 61 |lf. Can |be .nega|
|00001070| 74 69 76 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 65 |tive...(|defvar e|
|00001080| 69 66 2d 65 78 74 72 61 | 2d 74 68 65 6e 2d 69 6e |if-extra|-then-in|
|00001090| 64 65 6e 74 20 31 20 28 | 23 24 20 2e 20 34 30 38 |dent 1 (|#$ . 408|
|000010a0| 30 29 29 0a 23 40 38 38 | 20 45 78 74 72 61 20 69 |0)).#@88| Extra i|
|000010b0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 61 |ndentati|on for a|
|000010c0| 20 63 6f 6e 74 69 6e 75 | 65 64 20 73 74 61 74 65 | continu|ed state|
|000010d0| 6d 65 6e 74 20 6c 69 6e | 65 2e 20 28 69 6e 20 6e |ment lin|e. (in n|
|000010e0| 75 6d 62 65 72 20 6f 66 | 20 65 69 66 2d 69 6e 64 |umber of| eif-ind|
|000010f0| 65 6e 74 2d 69 6e 63 72 | 65 6d 65 6e 74 73 29 1f |ent-incr|ements).|
|00001100| 0a 28 64 65 66 76 61 72 | 20 65 69 66 2d 63 6f 6e |.(defvar| eif-con|
|00001110| 74 69 6e 75 61 74 69 6f | 6e 2d 69 6e 64 65 6e 74 |tinuatio|n-indent|
|00001120| 20 31 20 28 23 24 20 2e | 20 34 32 36 35 29 29 0a | 1 (#$ .| 4265)).|
|00001130| 23 40 31 33 31 20 4e 75 | 6d 62 65 72 20 6f 66 20 |#@131 Nu|mber of |
|00001140| 53 50 41 43 45 53 20 74 | 6f 20 61 64 64 20 74 6f |SPACES t|o add to|
|00001150| 20 65 69 66 2d 63 6f 6e | 74 69 6e 75 61 74 69 6f | eif-con|tinuatio|
|00001160| 6e 2d 69 6e 64 65 6e 74 | 20 74 6f 20 67 65 74 20 |n-indent| to get |
|00001170| 74 68 65 0a 61 63 74 75 | 61 6c 20 69 6e 64 65 6e |the.actu|al inden|
|00001180| 74 61 74 69 6f 6e 20 6f | 66 20 61 20 63 6f 6e 74 |tation o|f a cont|
|00001190| 69 6e 75 65 64 20 73 74 | 61 74 65 6d 65 6e 74 20 |inued st|atement |
|000011a0| 6c 69 6e 65 2e 20 43 61 | 6e 20 62 65 20 0a 6e 65 |line. Ca|n be .ne|
|000011b0| 67 61 74 69 76 65 2e 1f | 0a 28 64 65 66 76 61 72 |gative..|.(defvar|
|000011c0| 20 65 69 66 2d 65 78 74 | 72 61 2d 63 6f 6e 74 69 | eif-ext|ra-conti|
|000011d0| 6e 75 61 74 69 6f 6e 2d | 69 6e 64 65 6e 74 20 30 |nuation-|indent 0|
|000011e0| 20 28 23 24 20 2e 20 34 | 34 30 36 29 29 0a 28 62 | (#$ . 4|406)).(b|
|000011f0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ac 8b c0 |yte-code| "..!...|
|00001200| c2 21 ac 86 c0 c3 21 83 | b1 03 0c c5 61 83 31 01 |.!....!.|....a.1.|
|00001210| c6 c7 21 ac 83 c8 16 07 | c7 0e 09 42 16 09 ca c7 |..!.....|...B....|
|00001220| cb cc 23 88 c6 cd 21 ac | 83 ce 16 0d cd 0e 09 42 |..#...!.|.......B|
|00001230| 16 09 ca cd cb cf 23 88 | c6 d0 21 ac 83 c8 16 10 |......#.|..!.....|
|00001240| d0 0e 09 42 16 09 ca d0 | cb d1 23 88 c6 d2 21 ac |...B....|..#...!.|
|00001250| 83 d3 16 12 d2 0e 09 42 | 16 09 ca d2 cb d4 23 88 |.......B|......#.|
|00001260| c6 d5 21 ac 83 c8 16 15 | d5 0e 09 42 16 09 ca d5 |..!.....|...B....|
|00001270| cb d6 23 88 c6 d7 21 ac | 83 c8 16 17 d7 0e 09 42 |..#...!.|.......B|
|00001280| 16 09 ca d7 cb d8 23 88 | c6 d9 21 ac 83 c8 16 19 |......#.|..!.....|
|00001290| d9 0e 09 42 16 09 ca d9 | cb da 23 88 c6 db 21 ac |...B....|..#...!.|
|000012a0| 83 dc 16 1b db 0e 09 42 | 16 09 ca db cb dd 23 88 |.......B|......#.|
|000012b0| c6 de 21 ac 83 c8 16 1e | de 0e 09 42 16 09 ca de |..!.....|...B....|
|000012c0| cb df 23 88 c6 e0 21 ac | 83 c8 16 20 e0 0e 09 42 |..#...!.|... ...B|
|000012d0| 16 09 ca e0 cb e1 23 88 | c6 e2 21 ac 83 c8 16 5c |......#.|..!....\|
|000012e0| 22 e2 0e 09 42 16 09 ca | e2 cb e3 23 88 c6 e4 21 |"...B...|...#...!|
|000012f0| ac 83 e5 16 24 e4 0e 09 | 42 16 09 ca e4 cb e6 23 |....$...|B......#|
|00001300| 88 c6 e7 21 ac 83 c8 16 | 27 e7 0e 09 42 16 09 ca |...!....|'...B...|
|00001310| e7 cb e8 23 88 c6 e9 21 | ac 83 ea 16 29 e9 0e 09 |...#...!|....)...|
|00001320| 42 16 09 ca e9 cb eb 23 | 88 82 70 03 0c ec 61 83 |B......#|..p...a.|
|00001330| 52 02 c6 c7 21 ac 83 c8 | 16 07 c7 0e 09 42 16 09 |R...!...|.....B..|
|00001340| ca c7 cb cc 23 88 c6 cd | 21 ac 83 ed 16 0d cd 0e |....#...|!.......|
|00001350| 09 42 16 09 ca cd cb cf | 23 88 c6 d0 21 ac 83 c8 |.B......|#...!...|
|00001360| 16 10 d0 0e 09 42 16 09 | ca d0 cb d1 23 88 c6 d2 |.....B..|....#...|
|00001370| 21 ac 83 ee 16 12 d2 0e | 09 42 16 09 ca d2 cb d4 |!.......|.B......|
|00001380| 23 88 c6 d5 21 ac 83 ef | 16 15 d5 0e 09 42 16 09 |#...!...|.....B..|
|00001390| ca d5 cb d6 23 88 c6 d7 | 21 ac 83 c8 16 17 d7 0e |....#...|!.......|
|000013a0| 09 42 16 09 ca d7 cb d8 | 23 88 c6 d9 21 ac 83 ef |.B......|#...!...|
|000013b0| 16 19 d9 0e 09 42 16 09 | ca d9 cb da 23 88 c6 db |.....B..|....#...|
|000013c0| 21 ac 83 f0 16 1b db 0e | 09 42 16 09 ca db cb dd |!.......|.B......|
|000013d0| 23 88 c6 de 21 ac 83 ef | 16 1e de 0e 09 42 16 09 |#...!...|.....B..|
|000013e0| ca de cb df 23 88 c6 e0 | 21 ac 83 c8 16 20 e0 0e |....#...|!.... ..|
|000013f0| 09 42 16 09 ca e0 cb e1 | 23 88 c6 e2 21 ac 83 c8 |.B......|#...!...|
|00001400| 16 5c 22 e2 0e 09 42 16 | 09 ca e2 cb e3 23 88 c6 |.\"...B.|.....#..|
|00001410| e4 21 ac 83 f1 16 24 e4 | 0e 09 42 16 09 ca e4 cb |.!....$.|..B.....|
|00001420| e6 23 88 c6 e7 21 ac 83 | c8 16 27 e7 0e 09 42 16 |.#...!..|..'...B.|
|00001430| 09 ca e7 cb e8 23 88 c6 | e9 21 ac 83 ea 16 29 e9 |.....#..|.!....).|
|00001440| 0e 09 42 16 09 ca e9 cb | eb 23 88 82 70 03 0c f2 |..B.....|.#..p...|
|00001450| 61 83 70 03 c6 c7 21 ac | 83 c8 16 07 c7 0e 09 42 |a.p...!.|.......B|
|00001460| 16 09 ca c7 cb cc 23 88 | c6 cd 21 ac 83 ed 16 0d |......#.|..!.....|
|00001470| cd 0e 09 42 16 09 ca cd | cb cf 23 88 c6 d0 21 ac |...B....|..#...!.|
|00001480| 83 c8 16 10 d0 0e 09 42 | 16 09 ca d0 cb d1 23 88 |.......B|......#.|
|00001490| c6 d2 21 ac 83 ee 16 12 | d2 0e 09 42 16 09 ca d2 |..!.....|...B....|
|000014a0| cb d4 23 88 c6 d5 21 ac | 83 f3 16 15 d5 0e 09 42 |..#...!.|.......B|
|000014b0| 16 09 ca d5 cb d6 23 88 | c6 d7 21 ac 83 c8 16 17 |......#.|..!.....|
|000014c0| d7 0e 09 42 16 09 ca d7 | cb d8 23 88 c6 d9 21 ac |...B....|..#...!.|
|000014d0| 83 f3 16 19 d9 0e 09 42 | 16 09 ca d9 cb da 23 88 |.......B|......#.|
|000014e0| c6 db 21 ac 83 f0 16 1b | db 0e 09 42 16 09 ca db |..!.....|...B....|
|000014f0| cb dd 23 88 c6 de 21 ac | 83 f3 16 1e de 0e 09 42 |..#...!.|.......B|
|00001500| 16 09 ca de cb df 23 88 | c6 e0 21 ac 83 c8 16 20 |......#.|..!.... |
|00001510| e0 0e 09 42 16 09 ca e0 | cb e1 23 88 c6 e2 21 ac |...B....|..#...!.|
|00001520| 83 c8 16 5c 22 e2 0e 09 | 42 16 09 ca e2 cb e3 23 |...\"...|B......#|
|00001530| 88 c6 e4 21 ac 83 f1 16 | 24 e4 0e 09 42 16 09 ca |...!....|$...B...|
|00001540| e4 cb e6 23 88 c6 e7 21 | ac 83 f4 16 27 e7 0e 09 |...#...!|....'...|
|00001550| 42 16 09 ca e7 cb e8 23 | 88 c6 e9 21 ac 83 ea 16 |B......#|...!....|
|00001560| 29 e9 0e 09 42 16 09 ca | e9 cb eb 23 88 c6 f5 21 |)...B...|...#...!|
|00001570| ac 83 c8 16 35 f5 0e 09 | 42 16 09 ca f5 cb f6 23 |....5...|B......#|
|00001580| 88 c6 f7 21 ac 83 f8 16 | 37 f7 0e 09 42 16 09 ca |...!....|7...B...|
|00001590| f7 cb f9 23 88 fa fb 4d | 88 fc fd 4d 88 fe ff 4d |...#...M|...M...M|
|000015a0| 88 81 40 00 81 41 00 4d | 88 81 40 00 20 88 c0 c1 |..@..A.M|..@. ...|
|000015b0| 21 ab ce 81 42 00 81 43 | 00 81 44 00 5c 22 88 81 |!...B..C|..D.\"..|
|000015c0| 42 00 81 45 00 81 46 00 | 5c 22 88 81 47 00 81 48 |B..E..F.|\"..G..H|
|000015d0| 00 21 16 49 81 49 00 0e | 09 42 16 09 ca 81 49 00 |.!.I.I..|.B....I.|
|000015e0| cb 81 4a 00 23 88 81 47 | 00 81 4b 00 21 16 4c 81 |..J.#..G|..K.!.L.|
|000015f0| 4c 00 0e 09 42 16 09 ca | 81 4c 00 cb 81 4d 00 23 |L...B...|.L...M.#|
|00001600| 88 aa de c0 c2 21 ab be | c6 81 4e 00 21 ac 85 81 |.....!..|..N.!...|
|00001610| 4f 00 16 4e 81 4e 00 0e | 09 42 16 09 81 50 00 81 |O..N.N..|.B...P..|
|00001620| 51 00 0e 4e 5c 22 88 c6 | 81 52 00 21 ac 85 81 53 |Q..N\"..|.R.!...S|
|00001630| 00 16 52 81 52 00 0e 09 | 42 16 09 81 50 00 81 54 |..R.R...|B...P..T|
|00001640| 00 0e 52 5c 22 88 aa 9b | c0 c3 21 ab 96 81 55 00 |..R\"...|..!...U.|
|00001650| 81 56 00 81 57 00 5c 22 | 88 81 55 00 81 58 00 81 |.V..W.\"|..U..X..|
|00001660| 59 00 5c 22 88 f8 87 22 | 20 5b 66 65 61 74 75 72 |Y.\"..."| [featur|
|00001670| 65 70 20 66 6f 6e 74 2d | 6c 6f 63 6b 20 6c 68 69 |ep font-|lock lhi|
|00001680| 6c 69 74 20 68 69 6c 69 | 74 31 39 20 77 69 6e 64 |lit hili|t19 wind|
|00001690| 6f 77 2d 73 79 73 74 65 | 6d 20 70 6d 20 62 6f 75 |ow-syste|m pm bou|
|000016a0| 6e 64 70 20 65 69 66 2d | 63 6f 6d 6d 65 6e 74 2d |ndp eif-|comment-|
|000016b0| 66 6f 6e 74 20 64 65 66 | 61 75 6c 74 20 63 75 72 |font def|ault cur|
|000016c0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 70 |rent-loa|d-list p|
|000016d0| 75 74 20 76 61 72 69 61 | 62 6c 65 2d 64 6f 63 75 |ut varia|ble-docu|
|000016e0| 6d 65 6e 74 61 74 69 6f | 6e 20 22 54 68 65 20 66 |mentatio|n "The f|
|000016f0| 6f 6e 74 20 69 6e 20 77 | 68 69 63 68 20 74 6f 20 |ont in w|hich to |
|00001700| 64 69 73 70 6c 61 79 20 | 63 6f 6d 6d 65 6e 74 73 |display |comments|
|00001710| 20 69 6e 20 45 69 66 66 | 65 6c 20 61 6e 64 20 41 | in Eiff|el and A|
|00001720| 63 65 20 66 69 6c 65 73 | 20 28 65 69 74 68 65 72 |ce files| (either|
|00001730| 20 61 20 66 6f 6e 74 20 | 6e 61 6d 65 20 73 74 72 | a font |name str|
|00001740| 69 6e 67 20 6f 72 20 27 | 64 65 66 61 75 6c 74 20 |ing or '|default |
|00001750| 6f 72 20 27 63 6f 6e 74 | 65 78 74 29 22 20 65 69 |or 'cont|ext)" ei|
|00001760| 66 2d 63 6f 6d 6d 65 6e | 74 2d 63 6f 6c 6f 72 20 |f-commen|t-color |
|00001770| 22 66 69 72 65 62 72 69 | 63 6b 22 20 22 43 6f 6c |"firebri|ck" "Col|
|00001780| 6f 72 20 6f 66 20 63 6f | 6d 6d 65 6e 74 73 20 69 |or of co|mments i|
|00001790| 6e 20 45 69 66 66 65 6c | 20 61 6e 64 20 41 63 65 |n Eiffel| and Ace|
|000017a0| 20 66 69 6c 65 73 20 28 | 65 69 74 68 65 72 20 61 | files (|either a|
|000017b0| 20 63 6f 6c 6f 72 20 6e | 61 6d 65 20 73 74 72 69 | color n|ame stri|
|000017c0| 6e 67 20 6f 72 20 27 64 | 65 66 61 75 6c 74 20 6f |ng or 'd|efault o|
|000017d0| 72 20 27 63 6f 6e 74 65 | 78 74 29 22 20 65 69 66 |r 'conte|xt)" eif|
|000017e0| 2d 68 69 64 64 65 6e 2d | 63 6f 6d 6d 65 6e 74 2d |-hidden-|comment-|
|000017f0| 66 6f 6e 74 20 22 54 68 | 65 20 66 6f 6e 74 20 69 |font "Th|e font i|
|00001800| 6e 20 77 68 69 63 68 20 | 74 6f 20 64 69 73 70 6c |n which |to displ|
|00001810| 61 79 20 68 69 64 64 65 | 6e 20 63 6f 6d 6d 65 6e |ay hidde|n commen|
|00001820| 74 73 20 69 6e 20 45 69 | 66 66 65 6c 20 61 6e 64 |ts in Ei|ffel and|
|00001830| 20 41 63 65 20 66 69 6c | 65 73 20 28 65 69 74 68 | Ace fil|es (eith|
|00001840| 65 72 20 61 20 66 6f 6e | 74 20 6e 61 6d 65 20 73 |er a fon|t name s|
|00001850| 74 72 69 6e 67 20 6f 72 | 20 27 64 65 66 61 75 6c |tring or| 'defaul|
|00001860| 74 20 6f 72 20 27 63 6f | 6e 74 65 78 74 29 22 20 |t or 'co|ntext)" |
|00001870| 65 69 66 2d 68 69 64 64 | 65 6e 2d 63 6f 6d 6d 65 |eif-hidd|en-comme|
|00001880| 6e 74 2d 63 6f 6c 6f 72 | 20 22 6f 73 32 64 61 72 |nt-color| "os2dar|
|00001890| 6b 67 72 65 65 6e 22 20 | 22 43 6f 6c 6f 72 20 6f |kgreen" |"Color o|
|000018a0| 66 20 68 69 64 64 65 6e | 20 63 6f 6d 6d 65 6e 74 |f hidden| comment|
|000018b0| 73 20 69 6e 20 45 69 66 | 66 65 6c 20 61 6e 64 20 |s in Eif|fel and |
|000018c0| 41 63 65 20 66 69 6c 65 | 73 20 28 65 69 74 68 65 |Ace file|s (eithe|
|000018d0| 72 20 61 20 63 6f 6c 6f | 72 20 6e 61 6d 65 20 73 |r a colo|r name s|
|000018e0| 74 72 69 6e 67 20 6f 72 | 20 27 64 65 66 61 75 6c |tring or| 'defaul|
|000018f0| 74 20 6f 72 20 27 63 6f | 6e 74 65 78 74 29 22 20 |t or 'co|ntext)" |
|00001900| 65 69 66 2d 6d 61 6a 6f | 72 2d 6b 65 79 77 6f 72 |eif-majo|r-keywor|
|00001910| 64 2d 66 6f 6e 74 20 22 | 54 68 65 20 66 6f 6e 74 |d-font "|The font|
|00001920| 20 69 6e 20 77 68 69 63 | 68 20 74 6f 20 64 69 73 | in whic|h to dis|
|00001930| 70 6c 61 79 20 6d 61 6a | 6f 72 20 6b 65 79 77 6f |play maj|or keywo|
|00001940| 72 64 73 20 69 6e 20 45 | 69 66 66 65 6c 20 61 6e |rds in E|iffel an|
|00001950| 64 20 41 63 65 20 66 69 | 6c 65 73 20 28 65 69 74 |d Ace fi|les (eit|
|00001960| 68 65 72 20 61 20 66 6f | 6e 74 20 6e 61 6d 65 20 |her a fo|nt name |
|00001970| 73 74 72 69 6e 67 20 6f | 72 20 27 64 65 66 61 75 |string o|r 'defau|
|00001980| 6c 74 20 6f 72 20 27 63 | 6f 6e 74 65 78 74 29 22 |lt or 'c|ontext)"|
|00001990| 20 65 69 66 2d 6d 61 6a | 6f 72 2d 6b 65 79 77 6f | eif-maj|or-keywo|
|000019a0| 72 64 2d 63 6f 6c 6f 72 | 20 22 43 6f 6c 6f 72 20 |rd-color| "Color |
|000019b0| 6f 66 20 6d 61 6a 6f 72 | 20 6b 65 79 77 6f 72 64 |of major| keyword|
|000019c0| 73 20 69 6e 20 45 69 66 | 66 65 6c 20 61 6e 64 20 |s in Eif|fel and |
|000019d0| 41 63 65 20 66 69 6c 65 | 73 20 28 65 69 74 68 65 |Ace file|s (eithe|
|000019e0| 72 20 61 20 63 6f 6c 6f | 72 20 6e 61 6d 65 20 73 |r a colo|r name s|
|000019f0| 74 72 69 6e 67 20 6f 72 | 20 27 64 65 66 61 75 6c |tring or| 'defaul|
|00001a00| 74 20 6f 72 20 27 63 6f | 6e 74 65 78 74 29 22 20 |t or 'co|ntext)" |
|00001a10| 65 69 66 2d 61 73 73 65 | 72 74 69 6f 6e 2d 6b 65 |eif-asse|rtion-ke|
|00001a20| 79 77 6f 72 64 2d 66 6f | 6e 74 20 22 54 68 65 20 |yword-fo|nt "The |
|00001a30| 66 6f 6e 74 20 69 6e 20 | 77 68 69 63 68 20 74 6f |font in |which to|
|00001a40| 20 64 69 73 70 6c 61 79 | 20 61 73 73 65 72 74 69 | display| asserti|
|00001a50| 6f 6e 20 6b 65 79 77 6f | 72 64 73 20 69 6e 20 45 |on keywo|rds in E|
|00001a60| 69 66 66 65 6c 20 61 6e | 64 20 41 63 65 20 66 69 |iffel an|d Ace fi|
|00001a70| 6c 65 73 20 28 65 69 74 | 68 65 72 20 61 20 66 6f |les (eit|her a fo|
|00001a80| 6e 74 20 6e 61 6d 65 20 | 73 74 72 69 6e 67 20 6f |nt name |string o|
|00001a90| 72 20 27 64 65 66 61 75 | 6c 74 20 6f 72 20 27 63 |r 'defau|lt or 'c|
|00001aa0| 6f 6e 74 65 78 74 29 22 | 20 65 69 66 2d 61 73 73 |ontext)"| eif-ass|
|00001ab0| 65 72 74 69 6f 6e 2d 6b | 65 79 77 6f 72 64 2d 63 |ertion-k|eyword-c|
|00001ac0| 6f 6c 6f 72 20 22 6f 73 | 32 64 61 72 6b 62 6c 75 |olor "os|2darkblu|
|00001ad0| 65 22 20 22 43 6f 6c 6f | 72 20 6f 66 20 61 73 73 |e" "Colo|r of ass|
|00001ae0| 65 72 74 69 6f 6e 20 6b | 65 79 77 6f 72 64 73 20 |ertion k|eywords |
|00001af0| 69 6e 20 45 69 66 66 65 | 6c 20 61 6e 64 20 41 63 |in Eiffe|l and Ac|
|00001b00| 65 20 66 69 6c 65 73 20 | 28 65 69 74 68 65 72 20 |e files |(either |
|00001b10| 61 20 63 6f 6c 6f 72 20 | 6e 61 6d 65 20 73 74 72 |a color |name str|
|00001b20| 69 6e 67 20 6f 72 20 27 | 64 65 66 61 75 6c 74 20 |ing or '|default |
|00001b30| 6f 72 20 27 63 6f 6e 74 | 65 78 74 29 22 20 65 69 |or 'cont|ext)" ei|
|00001b40| 66 2d 6d 69 6e 6f 72 2d | 6b 65 79 77 6f 72 64 2d |f-minor-|keyword-|
|00001b50| 66 6f 6e 74 20 22 54 68 | 65 20 66 6f 6e 74 20 69 |font "Th|e font i|
|00001b60| 6e 20 77 68 69 63 68 20 | 74 6f 20 64 69 73 70 6c |n which |to displ|
|00001b70| 61 79 20 6d 69 6e 6f 72 | 20 6b 65 79 77 6f 72 64 |ay minor| keyword|
|00001b80| 73 20 69 6e 20 45 69 66 | 66 65 6c 20 61 6e 64 20 |s in Eif|fel and |
|00001b90| 41 63 65 20 66 69 6c 65 | 73 20 28 65 69 74 68 65 |Ace file|s (eithe|
|00001ba0| 72 20 61 20 66 6f 6e 74 | 20 6e 61 6d 65 20 73 74 |r a font| name st|
|00001bb0| 72 69 6e 67 20 6f 72 20 | 27 64 65 66 61 75 6c 74 |ring or |'default|
|00001bc0| 20 6f 72 20 27 63 6f 6e | 74 65 78 74 29 22 20 65 | or 'con|text)" e|
|00001bd0| 69 66 2d 6d 69 6e 6f 72 | 2d 6b 65 79 77 6f 72 64 |if-minor|-keyword|
|00001be0| 2d 63 6f 6c 6f 72 20 22 | 43 6f 6c 6f 72 20 6f 66 |-color "|Color of|
|00001bf0| 20 6d 69 6e 6f 72 2d 6b | 65 79 77 6f 72 64 73 20 | minor-k|eywords |
|00001c00| 69 6e 20 45 69 66 66 65 | 6c 20 61 6e 64 20 41 63 |in Eiffe|l and Ac|
|00001c10| 65 20 66 69 6c 65 73 20 | 28 65 69 74 68 65 72 20 |e files |(either |
|00001c20| 61 20 63 6f 6c 6f 72 20 | 6e 61 6d 65 20 73 74 72 |a color |name str|
|00001c30| 69 6e 67 20 6f 72 20 27 | 64 65 66 61 75 6c 74 20 |ing or '|default |
|00001c40| 6f 72 20 27 63 6f 6e 74 | 65 78 74 29 22 20 65 69 |or 'cont|ext)" ei|
|00001c50| 66 2d 73 74 72 69 6e 67 | 2d 66 6f 6e 74 20 22 54 |f-string|-font "T|
|00001c60| 68 65 20 66 6f 6e 74 20 | 69 6e 20 77 68 69 63 68 |he font |in which|
|00001c70| 20 74 6f 20 64 69 73 70 | 6c 61 79 20 6c 69 74 65 | to disp|lay lite|
|00001c80| 72 61 6c 20 73 74 72 69 | 6e 67 73 20 69 6e 20 45 |ral stri|ngs in E|
|00001c90| 69 66 66 65 6c 20 61 6e | 64 20 41 63 65 20 66 69 |iffel an|d Ace fi|
|00001ca0| 6c 65 73 20 28 65 69 74 | 68 65 72 20 61 20 66 6f |les (eit|her a fo|
|00001cb0| 6e 74 20 6e 61 6d 65 20 | 73 74 72 69 6e 67 20 6f |nt name |string o|
|00001cc0| 72 20 27 64 65 66 61 75 | 6c 74 20 6f 72 20 27 63 |r 'defau|lt or 'c|
|00001cd0| 6f 6e 74 65 78 74 29 22 | 20 65 69 66 2d 73 74 72 |ontext)"| eif-str|
|00001ce0| 69 6e 67 2d 63 6f 6c 6f | 72 20 22 6f 73 32 64 61 |ing-colo|r "os2da|
|00001cf0| 72 6b 63 79 61 6e 22 20 | 22 43 6f 6c 6f 72 20 6f |rkcyan" |"Color o|
|00001d00| 66 20 6c 69 74 65 72 61 | 6c 20 73 74 72 69 6e 67 |f litera|l string|
|00001d10| 73 20 69 6e 20 45 69 66 | 66 65 6c 20 61 6e 64 20 |s in Eif|fel and |
|00001d20| 41 63 65 20 66 69 6c 65 | 73 20 28 65 69 74 68 65 |Ace file|s (eithe|
|00001d30| 72 20 61 20 63 6f 6c 6f | 72 20 6e 61 6d 65 20 73 |r a colo|r name s|
|00001d40| 74 72 69 6e 67 20 6f 72 | 20 27 64 65 66 61 75 6c |tring or| 'defaul|
|00001d50| 74 20 6f 72 20 27 63 6f | 6e 74 65 78 74 29 22 20 |t or 'co|ntext)" |
|00001d60| 65 69 66 2d 71 75 6f 74 | 65 64 2d 66 65 61 74 75 |eif-quot|ed-featu|
|00001d70| 72 65 2d 66 6f 6e 74 20 | 22 54 68 65 20 66 6f 6e |re-font |"The fon|
|00001d80| 74 20 69 6e 20 77 68 69 | 63 68 20 74 6f 20 64 69 |t in whi|ch to di|
|00001d90| 73 70 6c 61 79 20 66 65 | 61 74 75 72 65 73 20 6e |splay fe|atures n|
|00001da0| 61 6d 65 73 20 65 6e 63 | 6c 6f 73 65 64 20 69 6e |ames enc|losed in|
|00001db0| 20 60 27 73 20 69 6e 20 | 45 69 66 66 65 6c 20 61 | `'s in |Eiffel a|
|00001dc0| 6e 64 20 41 63 65 20 66 | 69 6c 65 20 63 6f 6d 6d |nd Ace f|ile comm|
|00001dd0| 65 6e 74 73 20 28 65 69 | 74 68 65 72 20 61 20 66 |ents (ei|ther a f|
|00001de0| 6f 6e 74 20 6e 61 6d 65 | 20 73 74 72 69 6e 67 20 |ont name| string |
|00001df0| 6f 72 20 27 64 65 66 61 | 75 6c 74 20 6f 72 20 27 |or 'defa|ult or '|
|00001e00| 63 6f 6e 74 65 78 74 29 | 22 20 65 69 66 2d 71 75 |context)|" eif-qu|
|00001e10| 6f 74 65 64 2d 66 65 61 | 74 75 72 65 2d 63 6f 6c |oted-fea|ture-col|
|00001e20| 6f 72 20 63 6f 6e 74 65 | 78 74 20 22 43 6f 6c 6f |or conte|xt "Colo|
|00001e30| 72 20 6f 66 20 66 65 61 | 74 75 72 65 73 20 6e 61 |r of fea|tures na|
|00001e40| 6d 65 73 20 65 6e 63 6c | 6f 73 65 64 20 69 6e 20 |mes encl|osed in |
|00001e50| 60 27 73 20 69 6e 20 45 | 69 66 66 65 6c 20 61 6e |`'s in E|iffel an|
|00001e60| 64 20 41 63 65 20 66 69 | 6c 65 20 63 6f 6d 6d 65 |d Ace fi|le comme|
|00001e70| 6e 74 73 20 28 65 69 74 | 68 65 72 20 61 20 63 6f |nts (eit|her a co|
|00001e80| 6c 6f 72 20 6e 61 6d 65 | 20 73 74 72 69 6e 67 20 |lor name| string |
|00001e90| 6f 72 20 27 64 65 66 61 | 75 6c 74 20 6f 72 20 27 |or 'defa|ult or '|
|00001ea0| 63 6f 6e 74 65 78 74 29 | 22 20 6e 73 20 22 72 65 |context)|" ns "re|
|00001eb0| 64 33 22 20 22 46 6f 72 | 65 73 74 47 72 65 65 6e |d3" "For|estGreen|
|00001ec0| 22 20 22 43 6f 75 72 69 | 65 72 2d 42 6f 6c 64 22 |" "Couri|er-Bold"|
|00001ed0| 20 22 73 6c 61 74 65 20 | 62 6c 75 65 22 20 22 73 | "slate |blue" "s|
|00001ee0| 69 65 6e 6e 61 22 20 78 | 20 22 2d 2a 2d 66 69 78 |ienna" x| "-*-fix|
|00001ef0| 65 64 2d 62 6f 6c 64 2d | 2a 2d 2a 2d 2a 2d 2a 2d |ed-bold-|*-*-*-*-|
|00001f00| 31 30 30 2d 2a 2d 2a 2d | 2a 2d 2a 2d 2a 2d 2a 22 |100-*-*-|*-*-*-*"|
|00001f10| 20 22 2d 2a 2d 74 69 6d | 65 73 2d 6d 65 64 69 75 | "-*-tim|es-mediu|
|00001f20| 6d 2d 69 2d 2a 2d 2a 2d | 2a 2d 31 32 30 2d 2a 2d |m-i-*-*-|*-120-*-|
|00001f30| 2a 2d 2a 2d 2a 2d 2a 2d | 2a 22 20 64 65 66 61 75 |*-*-*-*-|*" defau|
|00001f40| 6c 74 2d 66 6f 72 65 67 | 72 6f 75 6e 64 2d 63 6f |lt-foreg|round-co|
|00001f50| 6c 6f 72 20 22 44 65 66 | 61 75 6c 74 20 74 65 78 |lor "Def|ault tex|
|00001f60| 74 20 63 6f 6c 6f 72 20 | 69 6e 20 45 69 66 66 65 |t color |in Eiffe|
|00001f70| 6c 20 61 6e 64 20 41 63 | 65 20 66 69 6c 65 73 20 |l and Ac|e files |
|00001f80| 28 65 69 74 68 65 72 20 | 61 20 63 6f 6c 6f 72 20 |(either |a color |
|00001f90| 6e 61 6d 65 20 73 74 72 | 69 6e 67 20 6f 72 20 27 |name str|ing or '|
|00001fa0| 64 65 66 61 75 6c 74 20 | 6f 72 20 27 63 6f 6e 74 |default |or 'cont|
|00001fb0| 65 78 74 29 22 20 64 69 | 73 61 62 6c 65 2d 63 6f |ext)" di|sable-co|
|00001fc0| 6c 6f 72 20 6e 69 6c 20 | 22 53 68 6f 75 6c 64 20 |lor nil |"Should |
|00001fd0| 68 69 6c 69 67 68 74 69 | 6e 67 20 6e 6f 74 20 75 |hilighti|ng not u|
|00001fe0| 73 65 20 63 6f 6c 6f 72 | 73 22 20 65 69 66 2d 73 |se color|s" eif-s|
|00001ff0| 65 74 2d 66 6f 72 65 67 | 72 6f 75 6e 64 20 23 5b |et-foreg|round #[|
|00002000| 28 66 61 63 65 20 63 6f | 6c 6f 72 29 20 22 08 3b |(face co|lor) ".;|
|00002010| ab 85 c1 c2 c3 8f 87 08 | c4 61 ab 86 c5 0e 06 c7 |........|.a......|
|00002020| 5c 22 87 08 c8 61 ad 87 | c9 0e 06 ca c8 21 5c 22 |\"...a..|.....!\"|
|00002030| 87 22 20 5b 63 6f 6c 6f | 72 20 65 72 72 6f 72 20 |." [colo|r error |
|00002040| 28 73 65 74 2d 66 61 63 | 65 2d 66 6f 72 65 67 72 |(set-fac|e-foregr|
|00002050| 6f 75 6e 64 20 66 61 63 | 65 20 63 6f 6c 6f 72 29 |ound fac|e color)|
|00002060| 20 28 28 65 72 72 6f 72 | 20 28 62 79 74 65 2d 63 | ((error| (byte-c|
|00002070| 6f 64 65 20 22 c0 c1 5c | 6e 0b 23 88 c4 5c 6e c5 |ode "..\|n.#..\n.|
|00002080| 5c 22 87 22 20 5b 6d 65 | 73 73 61 67 65 20 22 65 |\"." [me|ssage "e|
|00002090| 69 66 2d 73 65 74 2d 66 | 6f 72 65 67 72 6f 75 6e |if-set-f|oregroun|
|000020a0| 64 20 66 61 69 6c 65 64 | 20 66 6f 72 20 66 61 63 |d failed| for fac|
|000020b0| 65 20 25 73 20 61 6e 64 | 20 63 6f 6c 6f 72 20 25 |e %s and| color %|
|000020c0| 73 2e 20 53 65 74 74 69 | 6e 67 20 74 6f 20 27 64 |s. Setti|ng to 'd|
|000020d0| 65 66 61 75 6c 74 22 20 | 66 61 63 65 20 63 6f 6c |efault" |face col|
|000020e0| 6f 72 20 65 69 66 2d 73 | 65 74 2d 66 6f 72 65 67 |or eif-s|et-foreg|
|000020f0| 72 6f 75 6e 64 20 64 65 | 66 61 75 6c 74 5d 20 34 |round de|fault] 4|
|00002100| 29 29 29 20 63 6f 6e 74 | 65 78 74 20 72 65 6d 6f |))) cont|ext remo|
|00002110| 76 65 2d 66 61 63 65 2d | 70 72 6f 70 65 72 74 79 |ve-face-|property|
|00002120| 20 66 61 63 65 20 66 6f | 72 65 67 72 6f 75 6e 64 | face fo|reground|
|00002130| 20 64 65 66 61 75 6c 74 | 20 73 65 74 2d 66 61 63 | default| set-fac|
|00002140| 65 2d 66 6f 72 65 67 72 | 6f 75 6e 64 20 66 61 63 |e-foregr|ound fac|
|00002150| 65 2d 66 6f 72 65 67 72 | 6f 75 6e 64 5d 20 34 20 |e-foregr|ound] 4 |
|00002160| 22 53 65 74 20 74 68 65 | 20 46 41 43 45 27 73 20 |"Set the| FACE's |
|00002170| 66 6f 72 65 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 72 |foregrou|nd color|
|00002180| 20 74 6f 20 43 4f 4c 4f | 52 20 69 66 20 43 4f 4c | to COLO|R if COL|
|00002190| 4f 52 20 69 73 20 61 20 | 73 74 72 69 6e 67 2c 20 |OR is a |string, |
|000021a0| 74 6f 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 66 |to the d|efault f|
|000021b0| 6f 72 65 67 72 6f 75 6e | 64 20 63 6f 6c 6f 72 20 |oregroun|d color |
|000021c0| 69 66 20 43 4f 4c 4f 52 | 20 69 73 20 27 64 65 66 |if COLOR| is 'def|
|000021d0| 61 75 6c 74 2c 20 6f 72 | 20 74 6f 20 74 68 65 20 |ault, or| to the |
|000021e0| 63 6f 6c 6f 72 20 6f 66 | 20 74 68 65 20 73 75 72 |color of| the sur|
|000021f0| 72 6f 75 6e 64 69 6e 67 | 20 74 65 78 74 20 69 66 |rounding| text if|
|00002200| 20 43 4f 4c 4f 52 20 69 | 73 20 27 63 6f 6e 74 65 | COLOR i|s 'conte|
|00002210| 78 74 22 5d 20 65 69 66 | 2d 73 65 74 2d 66 6f 6e |xt"] eif|-set-fon|
|00002220| 74 20 23 5b 28 66 61 63 | 65 20 66 6f 6e 74 29 20 |t #[(fac|e font) |
|00002230| 22 08 3b ab 85 c1 c2 c3 | 8f 87 08 c4 61 ab 86 c5 |".;.....|....a...|
|00002240| 0e 06 c7 5c 22 87 08 c8 | 61 ad 87 c5 0e 06 c9 c8 |...\"...|a.......|
|00002250| 21 5c 22 87 22 20 5b 66 | 6f 6e 74 20 65 72 72 6f |!\"." [f|ont erro|
|00002260| 72 20 28 73 65 74 2d 66 | 61 63 65 2d 66 6f 6e 74 |r (set-f|ace-font|
|00002270| 20 66 61 63 65 20 66 6f | 6e 74 29 20 28 28 65 72 | face fo|nt) ((er|
|00002280| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00002290| c0 c1 5c 6e 0b 23 88 c4 | 5c 6e c5 5c 22 87 22 20 |..\n.#..|\n.\"." |
|000022a0| 5b 6d 65 73 73 61 67 65 | 20 22 65 69 66 2d 73 65 |[message| "eif-se|
|000022b0| 74 2d 66 6f 6e 74 20 66 | 61 69 6c 65 64 20 66 6f |t-font f|ailed fo|
|000022c0| 72 20 66 61 63 65 20 25 | 73 20 61 6e 64 20 66 6f |r face %|s and fo|
|000022d0| 6e 74 20 25 73 2e 20 53 | 65 74 74 69 6e 67 20 74 |nt %s. S|etting t|
|000022e0| 6f 20 27 64 65 66 61 75 | 6c 74 22 20 66 61 63 65 |o 'defau|lt" face|
|000022f0| 20 66 6f 6e 74 20 65 69 | 66 2d 73 65 74 2d 66 6f | font ei|f-set-fo|
|00002300| 6e 74 20 64 65 66 61 75 | 6c 74 5d 20 34 29 29 29 |nt defau|lt] 4)))|
|00002310| 20 63 6f 6e 74 65 78 74 | 20 73 65 74 2d 66 61 63 | context| set-fac|
|00002320| 65 2d 66 6f 6e 74 20 66 | 61 63 65 20 6e 69 6c 20 |e-font f|ace nil |
|00002330| 64 65 66 61 75 6c 74 20 | 66 61 63 65 2d 66 6f 6e |default |face-fon|
|00002340| 74 5d 20 34 20 22 53 65 | 74 20 74 68 65 20 46 41 |t] 4 "Se|t the FA|
|00002350| 43 45 27 73 20 66 6f 6e | 74 20 74 6f 20 46 4f 4e |CE's fon|t to FON|
|00002360| 54 20 69 66 20 46 4f 4e | 54 20 69 73 20 61 20 73 |T if FON|T is a s|
|00002370| 74 72 69 6e 67 2c 20 74 | 6f 20 74 68 65 20 64 65 |tring, t|o the de|
|00002380| 66 61 75 6c 74 20 66 6f | 6e 74 20 69 66 20 46 4f |fault fo|nt if FO|
|00002390| 4e 54 20 69 73 20 27 64 | 65 66 61 75 6c 74 2c 20 |NT is 'd|efault, |
|000023a0| 6f 72 20 74 6f 20 74 68 | 65 20 66 6f 6e 74 20 6f |or to th|e font o|
|000023b0| 66 20 74 68 65 20 73 75 | 72 72 6f 75 6e 64 69 6e |f the su|rroundin|
|000023c0| 67 20 74 65 78 74 20 69 | 66 20 46 4f 4e 54 20 69 |g text i|f FONT i|
|000023d0| 73 20 27 63 6f 6e 74 65 | 78 74 22 5d 20 65 69 66 |s 'conte|xt"] eif|
|000023e0| 2d 73 75 70 70 6f 72 74 | 73 2d 63 6f 6c 6f 72 2d |-support|s-color-|
|000023f0| 70 20 23 5b 6e 69 6c 20 | 22 08 3f ad 99 c1 c2 21 |p #[nil |".?....!|
|00002400| ab 84 c2 20 ae 90 c1 c3 | 21 ab 84 c3 20 ae 87 c1 |... ....|!... ...|
|00002410| c4 21 ad 82 c4 20 87 22 | 20 5b 64 69 73 61 62 6c |.!... ."| [disabl|
|00002420| 65 2d 63 6f 6c 6f 72 20 | 66 62 6f 75 6e 64 70 20 |e-color |fboundp |
|00002430| 64 69 73 70 6c 61 79 2d | 63 6f 6c 6f 72 2d 70 20 |display-|color-p |
|00002440| 78 2d 64 69 73 70 6c 61 | 79 2d 63 6f 6c 6f 72 2d |x-displa|y-color-|
|00002450| 70 20 78 2d 63 6f 6c 6f | 72 2d 64 69 73 70 6c 61 |p x-colo|r-displa|
|00002460| 79 2d 70 5d 20 32 5d 20 | 65 69 66 2d 69 6e 69 74 |y-p] 2] |eif-init|
|00002470| 2d 63 6f 6c 6f 72 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-color #|[nil "..|
|00002480| 21 88 c0 c2 21 88 c0 c3 | 21 88 c0 c4 21 88 c0 c5 |!...!...|!...!...|
|00002490| 21 88 c0 c6 21 88 c0 c7 | 21 88 c8 20 ab d6 c9 c1 |!...!...|!.. ....|
|000024a0| 0e 5c 6e 5c 22 88 cb c1 | 0e 0c 5c 22 88 c9 c2 0e |.\n\"...|..\"....|
|000024b0| 0d 5c 22 88 cb c2 0e 0e | 5c 22 88 c9 c5 0e 0f 5c |.\".....|\".....\|
|000024c0| 22 88 cb c5 0e 10 5c 22 | 88 c9 c3 0e 11 5c 22 88 |".....\"|.....\".|
|000024d0| cb c3 0e 12 5c 22 88 c9 | c4 0e 13 5c 22 88 cb c4 |....\"..|...\"...|
|000024e0| 0e 14 5c 22 88 c9 c6 0e | 15 5c 22 88 cb c6 0e 16 |..\"....|.\".....|
|000024f0| 5c 22 88 c9 c7 0e 17 5c | 22 88 cb c7 0e 18 5c 22 |\".....\|".....\"|
|00002500| 88 aa d4 c9 c1 0e 19 5c | 22 88 cb c1 0e 0c 5c 22 |.......\|".....\"|
|00002510| 88 c9 c2 0e 19 5c 22 88 | cb c2 0e 0e 5c 22 88 c9 |.....\".|....\"..|
|00002520| c5 0e 19 5c 22 88 cb c5 | 0e 10 5c 22 88 c9 c3 0e |...\"...|..\"....|
|00002530| 19 5c 22 88 cb c3 0e 12 | 5c 22 88 c9 c4 0e 19 5c |.\".....|\".....\|
|00002540| 22 88 cb c4 0e 14 5c 22 | 88 c9 c6 0e 19 5c 22 88 |".....\"|.....\".|
|00002550| cb c6 0e 16 5c 22 88 c9 | c7 0e 19 5c 22 88 cb c7 |....\"..|...\"...|
|00002560| 0e 18 5c 22 88 da db 21 | ab 8a dc c1 dd 5c 22 88 |..\"...!|.....\".|
|00002570| dc c7 de 5c 22 87 da df | 21 ad 90 0e 20 40 c1 61 |...\"...|!... @.a|
|00002580| 3f ad 88 e1 e2 0e 20 5c | 22 89 16 20 87 22 20 5b |?..... \|".. ." [|
|00002590| 6d 61 6b 65 2d 66 61 63 | 65 20 65 69 66 2d 63 6f |make-fac|e eif-co|
|000025a0| 6d 6d 65 6e 74 20 65 69 | 66 2d 68 69 64 64 65 6e |mment ei|f-hidden|
|000025b0| 2d 63 6f 6d 6d 65 6e 74 | 20 65 69 66 2d 6d 61 6a |-comment| eif-maj|
|000025c0| 6f 72 2d 6b 65 79 77 6f | 72 64 20 65 69 66 2d 6d |or-keywo|rd eif-m|
|000025d0| 69 6e 6f 72 2d 6b 65 79 | 77 6f 72 64 20 65 69 66 |inor-key|word eif|
|000025e0| 2d 71 75 6f 74 65 64 2d | 66 65 61 74 75 72 65 20 |-quoted-|feature |
|000025f0| 65 69 66 2d 61 73 73 65 | 72 74 69 6f 6e 20 65 69 |eif-asse|rtion ei|
|00002600| 66 2d 73 74 72 69 6e 67 | 20 65 69 66 2d 73 75 70 |f-string| eif-sup|
|00002610| 70 6f 72 74 73 2d 63 6f | 6c 6f 72 2d 70 20 65 69 |ports-co|lor-p ei|
|00002620| 66 2d 73 65 74 2d 66 6f | 72 65 67 72 6f 75 6e 64 |f-set-fo|reground|
|00002630| 20 65 69 66 2d 63 6f 6d | 6d 65 6e 74 2d 63 6f 6c | eif-com|ment-col|
|00002640| 6f 72 20 65 69 66 2d 73 | 65 74 2d 66 6f 6e 74 20 |or eif-s|et-font |
|00002650| 65 69 66 2d 63 6f 6d 6d | 65 6e 74 2d 66 6f 6e 74 |eif-comm|ent-font|
|00002660| 20 65 69 66 2d 68 69 64 | 64 65 6e 2d 63 6f 6d 6d | eif-hid|den-comm|
|00002670| 65 6e 74 2d 63 6f 6c 6f | 72 20 65 69 66 2d 68 69 |ent-colo|r eif-hi|
|00002680| 64 64 65 6e 2d 63 6f 6d | 6d 65 6e 74 2d 66 6f 6e |dden-com|ment-fon|
|00002690| 74 20 65 69 66 2d 71 75 | 6f 74 65 64 2d 66 65 61 |t eif-qu|oted-fea|
|000026a0| 74 75 72 65 2d 63 6f 6c | 6f 72 20 65 69 66 2d 71 |ture-col|or eif-q|
|000026b0| 75 6f 74 65 64 2d 66 65 | 61 74 75 72 65 2d 66 6f |uoted-fe|ature-fo|
|000026c0| 6e 74 20 65 69 66 2d 6d | 61 6a 6f 72 2d 6b 65 79 |nt eif-m|ajor-key|
|000026d0| 77 6f 72 64 2d 63 6f 6c | 6f 72 20 65 69 66 2d 6d |word-col|or eif-m|
|000026e0| 61 6a 6f 72 2d 6b 65 79 | 77 6f 72 64 2d 66 6f 6e |ajor-key|word-fon|
|000026f0| 74 20 65 69 66 2d 6d 69 | 6e 6f 72 2d 6b 65 79 77 |t eif-mi|nor-keyw|
|00002700| 6f 72 64 2d 63 6f 6c 6f | 72 20 65 69 66 2d 6d 69 |ord-colo|r eif-mi|
|00002710| 6e 6f 72 2d 6b 65 79 77 | 6f 72 64 2d 66 6f 6e 74 |nor-keyw|ord-font|
|00002720| 20 65 69 66 2d 61 73 73 | 65 72 74 69 6f 6e 2d 6b | eif-ass|ertion-k|
|00002730| 65 79 77 6f 72 64 2d 63 | 6f 6c 6f 72 20 65 69 66 |eyword-c|olor eif|
|00002740| 2d 61 73 73 65 72 74 69 | 6f 6e 2d 6b 65 79 77 6f |-asserti|on-keywo|
|00002750| 72 64 2d 66 6f 6e 74 20 | 65 69 66 2d 73 74 72 69 |rd-font |eif-stri|
|00002760| 6e 67 2d 63 6f 6c 6f 72 | 20 65 69 66 2d 73 74 72 |ng-color| eif-str|
|00002770| 69 6e 67 2d 66 6f 6e 74 | 20 64 65 66 61 75 6c 74 |ing-font| default|
|00002780| 2d 66 6f 72 65 67 72 6f | 75 6e 64 2d 63 6f 6c 6f |-foregro|und-colo|
|00002790| 72 20 66 65 61 74 75 72 | 65 70 20 66 6f 6e 74 2d |r featur|ep font-|
|000027a0| 6c 6f 63 6b 20 63 6f 70 | 79 2d 66 61 63 65 20 66 |lock cop|y-face f|
|000027b0| 6f 6e 74 2d 6c 6f 63 6b | 2d 63 6f 6d 6d 65 6e 74 |ont-lock|-comment|
|000027c0| 2d 66 61 63 65 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |-face fo|nt-lock-|
|000027d0| 73 74 72 69 6e 67 2d 66 | 61 63 65 20 68 69 6c 69 |string-f|ace hili|
|000027e0| 74 31 39 20 68 69 6c 69 | 74 2d 70 72 65 64 65 66 |t19 hili|t-predef|
|000027f0| 69 6e 65 64 2d 66 61 63 | 65 2d 6c 69 73 74 20 61 |ined-fac|e-list a|
|00002800| 70 70 65 6e 64 20 28 65 | 69 66 2d 63 6f 6d 6d 65 |ppend (e|if-comme|
|00002810| 6e 74 20 65 69 66 2d 68 | 69 64 64 65 6e 2d 63 6f |nt eif-h|idden-co|
|00002820| 6d 6d 65 6e 74 20 65 69 | 66 2d 6d 61 6a 6f 72 2d |mment ei|f-major-|
|00002830| 6b 65 79 77 6f 72 64 20 | 65 69 66 2d 6d 69 6e 6f |keyword |eif-mino|
|00002840| 72 2d 6b 65 79 77 6f 72 | 64 20 65 69 66 2d 71 75 |r-keywor|d eif-qu|
|00002850| 6f 74 65 64 2d 66 65 61 | 74 75 72 65 20 65 69 66 |oted-fea|ture eif|
|00002860| 2d 61 73 73 65 72 74 69 | 6f 6e 20 65 69 66 2d 73 |-asserti|on eif-s|
|00002870| 74 72 69 6e 67 29 5d 20 | 33 20 22 52 65 73 65 74 |tring)] |3 "Reset|
|00002880| 20 74 68 65 20 45 69 66 | 66 65 6c 20 66 6f 6e 74 | the Eif|fel font|
|00002890| 73 20 61 6e 64 20 66 61 | 63 65 73 20 66 72 6f 6d |s and fa|ces from|
|000028a0| 20 74 68 65 20 76 61 6c | 75 65 73 20 6f 66 20 74 | the val|ues of t|
|000028b0| 68 65 69 72 20 72 65 70 | 65 63 74 69 76 65 20 76 |heir rep|ective v|
|000028c0| 61 72 69 61 62 6c 65 73 | 22 5d 20 63 6f 70 79 2d |ariables|"] copy-|
|000028d0| 66 61 63 65 20 65 69 66 | 2d 63 6f 6d 6d 65 6e 74 |face eif|-comment|
|000028e0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 63 6f 6d 6d 65 | font-lo|ck-comme|
|000028f0| 6e 74 2d 66 61 63 65 20 | 65 69 66 2d 73 74 72 69 |nt-face |eif-stri|
|00002900| 6e 67 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 73 74 72 |ng font-|lock-str|
|00002910| 69 6e 67 2d 66 61 63 65 | 20 70 75 72 65 63 6f 70 |ing-face| purecop|
|00002920| 79 20 28 28 22 5c 5c 28 | 5c 5c 28 5e 5b 20 09 5d |y (("\\(|\\(^[ .]|
|00002930| 2a 5c 5c 7c 5b 20 09 5d | 2b 5c 5c 29 63 72 65 61 |*\\|[ .]|+\\)crea|
|00002940| 74 69 6f 6e 5c 5c 7c 5e | 64 65 66 65 72 72 65 64 |tion\\|^|deferred|
|00002950| 5b 20 09 5d 2b 63 6c 61 | 73 73 5c 5c 7c 5e 65 78 |[ .]+cla|ss\\|^ex|
|00002960| 70 61 6e 64 65 64 5b 20 | 09 5d 2b 63 6c 61 73 73 |panded[ |.]+class|
|00002970| 5c 5c 7c 5e 63 6c 61 73 | 73 5c 5c 7c 5e 66 65 61 |\\|^clas|s\\|^fea|
|00002980| 74 75 72 65 5c 5c 7c 5e | 69 6e 64 65 78 69 6e 67 |ture\\|^|indexing|
|00002990| 5c 5c 7c 5c 5c 28 5e 5b | 20 09 5d 2a 5c 5c 7c 5b |\\|\\(^[| .]*\\|[|
|000029a0| 20 09 5d 2b 5c 5c 29 69 | 6e 68 65 72 69 74 5c 5c | .]+\\)i|nherit\\|
|000029b0| 7c 5e 6f 62 73 6f 6c 65 | 74 65 5c 5c 29 5b 20 09 ||^obsole|te\\)[ .|
|000029c0| 5c 6e 5d 22 20 30 20 65 | 69 66 2d 6d 61 6a 6f 72 |\n]" 0 e|if-major|
|000029d0| 2d 6b 65 79 77 6f 72 64 | 20 6e 69 6c 29 20 28 22 |-keyword| nil) ("|
|000029e0| 5c 5c 28 5e 5c 5c 7c 5b | 5e 5f 5c 6e 5d 5c 5c 3c |\\(^\\|[|^_\n]\\<|
|000029f0| 5c 5c 29 5c 5c 28 63 68 | 65 63 6b 5c 5c 7c 65 6e |\\)\\(ch|eck\\|en|
|00002a00| 73 75 72 65 20 74 68 65 | 6e 5c 5c 7c 65 6e 73 75 |sure the|n\\|ensu|
|00002a10| 72 65 5c 5c 7c 69 6e 76 | 61 72 69 61 6e 74 5c 5c |re\\|inv|ariant\\|
|00002a20| 7c 72 65 71 75 69 72 65 | 20 65 6c 73 65 5c 5c 7c ||require| else\\||
|00002a30| 72 65 71 75 69 72 65 5c | 5c 7c 76 61 72 69 61 6e |require\|\|varian|
|00002a40| 74 5c 5c 29 5c 5c 28 24 | 5c 5c 7c 5c 5c 3e 5b 5e |t\\)\\($|\\|\\>[^|
|00002a50| 5f 5c 6e 5d 5c 5c 29 22 | 20 32 20 65 69 66 2d 61 |_\n]\\)"| 2 eif-a|
|00002a60| 73 73 65 72 74 69 6f 6e | 20 6e 69 6c 29 20 28 22 |ssertion| nil) ("|
|00002a70| 5c 5c 28 5e 5c 5c 7c 5b | 5e 5f 5c 6e 5d 5c 5c 3c |\\(^\\|[|^_\n]\\<|
|00002a80| 5c 5c 29 5c 5c 28 61 6c | 69 61 73 5c 5c 7c 61 6c |\\)\\(al|ias\\|al|
|00002a90| 6c 5c 5c 7c 61 6e 64 20 | 6e 6f 74 5c 5c 7c 61 6e |l\\|and |not\\|an|
|00002aa0| 64 20 74 68 65 6e 5c 5c | 7c 61 6e 64 5c 5c 7c 61 |d then\\||and\\|a|
|00002ab0| 73 5c 5c 7c 64 65 62 75 | 67 5c 5c 7c 64 65 66 65 |s\\|debu|g\\|defe|
|00002ac0| 72 72 65 64 5c 5c 7c 64 | 6f 5c 5c 7c 65 6c 73 65 |rred\\|d|o\\|else|
|00002ad0| 5c 5c 7c 65 6c 73 65 69 | 66 5c 5c 7c 65 6e 64 5c |\\|elsei|f\\|end\|
|00002ae0| 5c 7c 65 78 70 6f 72 74 | 5c 5c 7c 65 78 74 65 72 |\|export|\\|exter|
|00002af0| 6e 61 6c 5c 5c 7c 66 72 | 6f 6d 5c 5c 7c 66 72 6f |nal\\|fr|om\\|fro|
|00002b00| 7a 65 6e 5c 5c 7c 69 66 | 20 6e 6f 74 5c 5c 7c 69 |zen\\|if| not\\|i|
|00002b10| 66 5c 5c 7c 69 6d 70 6c | 69 65 73 20 6e 6f 74 5c |f\\|impl|ies not\|
|00002b20| 5c 7c 69 6d 70 6c 69 65 | 73 5c 5c 7c 69 6e 66 69 |\|implie|s\\|infi|
|00002b30| 78 5c 5c 7c 69 6e 73 70 | 65 63 74 5c 5c 7c 69 73 |x\\|insp|ect\\|is|
|00002b40| 20 64 65 66 65 72 72 65 | 64 5c 5c 7c 69 73 20 75 | deferre|d\\|is u|
|00002b50| 6e 69 71 75 65 5c 5c 7c | 69 73 5c 5c 7c 6c 69 6b |nique\\||is\\|lik|
|00002b60| 65 5c 5c 7c 6c 6f 63 61 | 6c 5c 5c 7c 6c 6f 6f 70 |e\\|loca|l\\|loop|
|00002b70| 5c 5c 7c 6e 6f 74 5c 5c | 7c 6f 62 73 6f 6c 65 74 |\\|not\\||obsolet|
|00002b80| 65 5c 5c 7c 6f 6c 64 5c | 5c 7c 6f 6e 63 65 5c 5c |e\\|old\|\|once\\|
|00002b90| 7c 6f 72 20 65 6c 73 65 | 5c 5c 7c 6f 72 20 6e 6f ||or else|\\|or no|
|00002ba0| 74 5c 5c 7c 6f 72 5c 5c | 7c 70 72 65 66 69 78 5c |t\\|or\\||prefix\|
|00002bb0| 5c 7c 72 65 64 65 66 69 | 6e 65 5c 5c 7c 72 65 6e |\|redefi|ne\\|ren|
|00002bc0| 61 6d 65 5c 5c 7c 72 65 | 73 63 75 65 5c 5c 7c 72 |ame\\|re|scue\\|r|
|00002bd0| 65 74 72 79 5c 5c 7c 73 | 65 6c 65 63 74 5c 5c 7c |etry\\|s|elect\\||
|00002be0| 73 74 72 69 70 5c 5c 7c | 74 68 65 6e 5c 5c 7c 75 |strip\\||then\\|u|
|00002bf0| 6e 64 65 66 69 6e 65 5c | 5c 7c 75 6e 69 71 75 65 |ndefine\|\|unique|
|00002c00| 5c 5c 7c 75 6e 74 69 6c | 5c 5c 7c 77 68 65 6e 5c |\\|until|\\|when\|
|00002c10| 5c 7c 78 6f 72 5c 5c 29 | 5c 5c 28 24 5c 5c 7c 5c |\|xor\\)|\\($\\|\|
|00002c20| 5c 3e 5b 5e 5f 5c 6e 5d | 5c 5c 29 22 20 32 20 65 |\>[^_\n]|\\)" 2 e|
|00002c30| 69 66 2d 6d 69 6e 6f 72 | 2d 6b 65 79 77 6f 72 64 |if-minor|-keyword|
|00002c40| 20 6e 69 6c 29 20 28 22 | 2d 2d 7c 2e 2a 22 20 30 | nil) ("|--|.*" 0|
|00002c50| 20 65 69 66 2d 68 69 64 | 64 65 6e 2d 63 6f 6d 6d | eif-hid|den-comm|
|00002c60| 65 6e 74 20 74 29 20 28 | 22 60 5b 5e 60 27 5c 6e |ent t) (|"`[^`'\n|
|00002c70| 5d 2a 27 22 20 30 20 65 | 69 66 2d 71 75 6f 74 65 |]*'" 0 e|if-quote|
|00002c80| 64 2d 66 65 61 74 75 72 | 65 20 74 29 29 20 65 69 |d-featur|e t)) ei|
|00002c90| 66 66 65 6c 2d 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b |ffel-fon|t-lock-k|
|00002ca0| 65 79 77 6f 72 64 73 20 | 22 52 65 67 75 6c 61 72 |eywords |"Regular|
|00002cb0| 20 65 78 70 72 65 73 73 | 69 6f 6e 73 20 74 6f 20 | express|ions to |
|00002cc0| 75 73 65 20 77 69 74 68 | 20 66 6f 6e 74 2d 6c 6f |use with| font-lo|
|00002cd0| 63 6b 20 6d 6f 64 65 2e | 22 20 28 28 22 5e 73 79 |ck mode.|" (("^sy|
|00002ce0| 73 74 65 6d 5c 5c 7c 5e | 64 65 66 61 75 6c 74 5c |stem\\|^|default\|
|00002cf0| 5c 7c 5e 72 6f 6f 74 5c | 5c 7c 5e 63 6c 75 73 74 |\|^root\|\|^clust|
|00002d00| 65 72 5c 5c 7c 5e 65 78 | 74 65 72 6e 61 6c 5c 5c |er\\|^ex|ternal\\|
|00002d10| 7c 5b 20 09 5c 6e 5d 65 | 6e 64 5c 5c 28 24 5c 5c ||[ .\n]e|nd\\($\\|
|00002d20| 7c 5c 5c 3e 5b 5e 5f 5c | 6e 5d 5c 5c 29 22 20 30 ||\\>[^_\|n]\\)" 0|
|00002d30| 20 65 69 66 2d 6d 61 6a | 6f 72 2d 6b 65 79 77 6f | eif-maj|or-keywo|
|00002d40| 72 64 20 6e 69 6c 29 20 | 28 22 2d 2d 7c 2e 2a 22 |rd nil) |("--|.*"|
|00002d50| 20 30 20 65 69 66 2d 68 | 69 64 64 65 6e 2d 63 6f | 0 eif-h|idden-co|
|00002d60| 6d 6d 65 6e 74 20 74 29 | 20 28 22 60 5b 5e 60 27 |mment t)| ("`[^`'|
|00002d70| 5c 6e 5d 2a 27 22 20 30 | 20 65 69 66 2d 71 75 6f |\n]*'" 0| eif-quo|
|00002d80| 74 65 64 2d 66 65 61 74 | 75 72 65 20 74 29 29 20 |ted-feat|ure t)) |
|00002d90| 61 63 65 2d 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6b 65 |ace-font|-lock-ke|
|00002da0| 79 77 6f 72 64 73 20 22 | 41 63 65 20 72 65 67 75 |ywords "|Ace regu|
|00002db0| 6c 61 72 20 65 78 70 72 | 65 73 73 69 6f 6e 73 20 |lar expr|essions |
|00002dc0| 74 6f 20 75 73 65 20 77 | 69 74 68 20 66 6f 6e 74 |to use w|ith font|
|00002dd0| 2d 6c 6f 63 6b 20 6d 6f | 64 65 2e 22 20 65 69 66 |-lock mo|de." eif|
|00002de0| 66 65 6c 2d 6d 6f 64 65 | 2d 68 69 6c 69 74 20 28 |fel-mode|-hilit (|
|00002df0| 28 22 2d 2d 7c 2e 2a 22 | 20 6e 69 6c 20 65 69 66 |("--|.*"| nil eif|
|00002e00| 2d 68 69 64 64 65 6e 2d | 63 6f 6d 6d 65 6e 74 20 |-hidden-|comment |
|00002e10| 34 29 20 28 22 2d 2d 5b | 5e 5c 6e 7c 5d 2e 2a 5c |4) ("--[|^\n|].*\|
|00002e20| 5c 7c 2d 2d 24 22 20 6e | 69 6c 20 65 69 66 2d 63 |\|--$" n|il eif-c|
|00002e30| 6f 6d 6d 65 6e 74 20 33 | 29 20 28 22 60 5b 5e 60 |omment 3|) ("`[^`|
|00002e40| 27 5c 6e 5d 2a 27 22 20 | 6e 69 6c 20 65 69 66 2d |'\n]*'" |nil eif-|
|00002e50| 71 75 6f 74 65 64 2d 66 | 65 61 74 75 72 65 20 35 |quoted-f|eature 5|
|00002e60| 29 20 28 22 5e 63 72 65 | 61 74 69 6f 6e 5c 5c 7c |) ("^cre|ation\\||
|00002e70| 5e 64 65 66 65 72 72 65 | 64 5b 20 09 5d 2a 63 6c |^deferre|d[ .]*cl|
|00002e80| 61 73 73 5c 5c 7c 5e 65 | 78 70 61 6e 64 65 64 5b |ass\\|^e|xpanded[|
|00002e90| 20 09 5d 2a 63 6c 61 73 | 73 5c 5c 7c 5e 63 6c 61 | .]*clas|s\\|^cla|
|00002ea0| 73 73 5c 5c 7c 5e 66 65 | 61 74 75 72 65 5c 5c 7c |ss\\|^fe|ature\\||
|00002eb0| 5e 69 6e 64 65 78 69 6e | 67 5c 5c 7c 5e 69 6e 68 |^indexin|g\\|^inh|
|00002ec0| 65 72 69 74 5c 5c 7c 5e | 6f 62 73 6f 6c 65 74 65 |erit\\|^|obsolete|
|00002ed0| 22 20 6e 69 6c 20 65 69 | 66 2d 6d 61 6a 6f 72 2d |" nil ei|f-major-|
|00002ee0| 6b 65 79 77 6f 72 64 20 | 31 29 20 28 22 5c 5c 28 |keyword |1) ("\\(|
|00002ef0| 5e 5c 5c 7c 5b 5e 5f 5c | 6e 5d 5c 5c 3c 5c 5c 29 |^\\|[^_\|n]\\<\\)|
|00002f00| 5c 5c 28 61 6c 69 61 73 | 5c 5c 7c 61 6c 6c 5c 5c |\\(alias|\\|all\\|
|00002f10| 7c 61 6e 64 20 6e 6f 74 | 5c 5c 7c 61 6e 64 20 74 ||and not|\\|and t|
|00002f20| 68 65 6e 5c 5c 7c 61 6e | 64 5c 5c 7c 61 73 5c 5c |hen\\|an|d\\|as\\|
|00002f30| 7c 64 65 62 75 67 5c 5c | 7c 64 65 66 65 72 72 65 ||debug\\||deferre|
|00002f40| 64 5c 5c 7c 64 6f 5c 5c | 7c 65 6c 73 65 5c 5c 7c |d\\|do\\||else\\||
|00002f50| 65 6c 73 65 69 66 5c 5c | 7c 65 6e 64 5c 5c 7c 65 |elseif\\||end\\|e|
|00002f60| 78 70 6f 72 74 5c 5c 7c | 65 78 74 65 72 6e 61 6c |xport\\||external|
|00002f70| 5c 5c 7c 66 72 6f 6d 5c | 5c 7c 66 72 6f 7a 65 6e |\\|from\|\|frozen|
|00002f80| 5c 5c 7c 69 66 20 6e 6f | 74 5c 5c 7c 69 66 5c 5c |\\|if no|t\\|if\\|
|00002f90| 7c 69 6d 70 6c 69 65 73 | 20 6e 6f 74 5c 5c 7c 69 ||implies| not\\|i|
|00002fa0| 6d 70 6c 69 65 73 5c 5c | 7c 69 6e 66 69 78 5c 5c |mplies\\||infix\\|
|00002fb0| 7c 69 6e 73 70 65 63 74 | 5c 5c 7c 69 73 20 64 65 ||inspect|\\|is de|
|00002fc0| 66 65 72 72 65 64 5c 5c | 7c 69 73 20 75 6e 69 71 |ferred\\||is uniq|
|00002fd0| 75 65 5c 5c 7c 69 73 5c | 5c 7c 6c 69 6b 65 5c 5c |ue\\|is\|\|like\\|
|00002fe0| 7c 6c 6f 63 61 6c 5c 5c | 7c 6c 6f 6f 70 5c 5c 7c ||local\\||loop\\||
|00002ff0| 6e 6f 74 5c 5c 7c 6f 62 | 73 6f 6c 65 74 65 5c 5c |not\\|ob|solete\\|
|00003000| 7c 6f 6c 64 5c 5c 7c 6f | 6e 63 65 5c 5c 7c 6f 72 ||old\\|o|nce\\|or|
|00003010| 20 65 6c 73 65 5c 5c 7c | 6f 72 20 6e 6f 74 5c 5c | else\\||or not\\|
|00003020| 7c 6f 72 5c 5c 7c 70 72 | 65 66 69 78 5c 5c 7c 72 ||or\\|pr|efix\\|r|
|00003030| 65 64 65 66 69 6e 65 5c | 5c 7c 72 65 6e 61 6d 65 |edefine\|\|rename|
|00003040| 5c 5c 7c 72 65 73 63 75 | 65 5c 5c 7c 72 65 74 72 |\\|rescu|e\\|retr|
|00003050| 79 5c 5c 7c 73 65 6c 65 | 63 74 5c 5c 7c 73 74 72 |y\\|sele|ct\\|str|
|00003060| 69 70 5c 5c 7c 74 68 65 | 6e 5c 5c 7c 75 6e 64 65 |ip\\|the|n\\|unde|
|00003070| 66 69 6e 65 5c 5c 7c 75 | 6e 69 71 75 65 5c 5c 7c |fine\\|u|nique\\||
|00003080| 75 6e 74 69 6c 5c 5c 7c | 77 68 65 6e 5c 5c 7c 78 |until\\||when\\|x|
|00003090| 6f 72 5c 5c 29 5c 5c 28 | 24 5c 5c 7c 5c 5c 3e 5b |or\\)\\(|$\\|\\>[|
|000030a0| 5e 5f 5c 6e 5d 5c 5c 29 | 22 20 6e 69 6c 20 65 69 |^_\n]\\)|" nil ei|
|000030b0| 66 2d 6d 69 6e 6f 72 2d | 6b 65 79 77 6f 72 64 20 |f-minor-|keyword |
|000030c0| 30 20 32 29 20 28 22 5c | 5c 28 5e 5c 5c 7c 5b 5e |0 2) ("\|\(^\\|[^|
|000030d0| 5f 5c 6e 5d 5c 5c 3c 5c | 5c 29 5c 5c 28 63 68 65 |_\n]\\<\|\)\\(che|
|000030e0| 63 6b 5c 5c 7c 65 6e 73 | 75 72 65 20 74 68 65 6e |ck\\|ens|ure then|
|000030f0| 5c 5c 7c 65 6e 73 75 72 | 65 5c 5c 7c 69 6e 76 61 |\\|ensur|e\\|inva|
|00003100| 72 69 61 6e 74 5c 5c 7c | 72 65 71 75 69 72 65 20 |riant\\||require |
|00003110| 65 6c 73 65 5c 5c 7c 72 | 65 71 75 69 72 65 5c 5c |else\\|r|equire\\|
|00003120| 7c 76 61 72 69 61 6e 74 | 5c 5c 29 5c 5c 28 24 5c ||variant|\\)\\($\|
|00003130| 5c 7c 5c 5c 3e 5b 5e 5f | 5c 6e 5d 5c 5c 29 22 20 |\|\\>[^_|\n]\\)" |
|00003140| 6e 69 6c 20 65 69 66 2d | 61 73 73 65 72 74 69 6f |nil eif-|assertio|
|00003150| 6e 20 32 20 32 29 20 28 | 22 5c 5c 28 5c 22 5c 22 |n 2 2) (|"\\(\"\"|
|00003160| 5c 5c 29 5c 5c 7c 5c 5c | 28 5c 22 5c 5c 28 5b 5e |\\)\\|\\|(\"\\([^|
|00003170| 5c 22 25 5d 5c 5c 7c 25 | 2e 5c 5c 7c 25 5c 6e 5c |\"%]\\|%|.\\|%\n\|
|00003180| 5c 29 2b 5c 22 5c 5c 29 | 22 20 6e 69 6c 20 65 69 |\)+\"\\)|" nil ei|
|00003190| 66 2d 73 74 72 69 6e 67 | 20 32 29 29 20 68 69 6c |f-string| 2)) hil|
|000031a0| 69 74 3a 3a 6d 6f 64 65 | 2d 6c 69 73 74 2d 75 70 |it::mode|-list-up|
|000031b0| 64 61 74 65 20 22 45 69 | 66 66 65 6c 22 20 61 63 |date "Ei|ffel" ac|
|000031c0| 65 2d 6d 6f 64 65 2d 68 | 69 6c 69 74 20 28 28 22 |e-mode-h|ilit (("|
|000031d0| 2d 2d 7c 2e 2a 22 20 6e | 69 6c 20 65 69 66 2d 68 |--|.*" n|il eif-h|
|000031e0| 69 64 64 65 6e 2d 63 6f | 6d 6d 65 6e 74 20 32 29 |idden-co|mment 2)|
|000031f0| 20 28 22 2d 2d 5b 5e 5c | 6e 7c 5d 2e 2a 5c 5c 7c | ("--[^\|n|].*\\||
|00003200| 2d 2d 24 22 20 6e 69 6c | 20 65 69 66 2d 63 6f 6d |--$" nil| eif-com|
|00003210| 6d 65 6e 74 20 31 29 20 | 28 22 60 5b 5e 60 27 5c |ment 1) |("`[^`'\|
|00003220| 6e 5d 2a 27 22 20 6e 69 | 6c 20 65 69 66 2d 71 75 |n]*'" ni|l eif-qu|
|00003230| 6f 74 65 64 2d 66 65 61 | 74 75 72 65 20 33 29 20 |oted-fea|ture 3) |
|00003240| 28 22 5e 73 79 73 74 65 | 6d 5c 5c 7c 5e 64 65 66 |("^syste|m\\|^def|
|00003250| 61 75 6c 74 5c 5c 7c 5e | 72 6f 6f 74 5c 5c 7c 5e |ault\\|^|root\\|^|
|00003260| 63 6c 75 73 74 65 72 5c | 5c 7c 5e 65 78 74 65 72 |cluster\|\|^exter|
|00003270| 6e 61 6c 5c 5c 7c 5b 20 | 09 5c 6e 5d 65 6e 64 5c |nal\\|[ |.\n]end\|
|00003280| 5c 28 24 5c 5c 7c 5c 5c | 3e 5b 5e 5f 5c 6e 5d 5c |\($\\|\\|>[^_\n]\|
|00003290| 5c 29 22 20 6e 69 6c 20 | 65 69 66 2d 6d 61 6a 6f |\)" nil |eif-majo|
|000032a0| 72 2d 6b 65 79 77 6f 72 | 64 29 29 20 22 41 63 65 |r-keywor|d)) "Ace|
|000032b0| 22 20 68 69 6c 69 74 2d | 73 65 74 2d 6d 6f 64 65 |" hilit-|set-mode|
|000032c0| 2d 70 61 74 74 65 72 6e | 73 20 65 69 66 66 65 6c |-pattern|s eiffel|
|000032d0| 2d 6d 6f 64 65 20 28 28 | 22 2d 2d 7c 2e 2a 22 20 |-mode ((|"--|.*" |
|000032e0| 6e 69 6c 20 65 69 66 2d | 68 69 64 64 65 6e 2d 63 |nil eif-|hidden-c|
|000032f0| 6f 6d 6d 65 6e 74 20 34 | 29 20 28 22 2d 2d 5b 5e |omment 4|) ("--[^|
|00003300| 5c 6e 7c 5d 2e 2a 5c 5c | 7c 2d 2d 24 22 20 6e 69 |\n|].*\\||--$" ni|
|00003310| 6c 20 65 69 66 2d 63 6f | 6d 6d 65 6e 74 20 33 29 |l eif-co|mment 3)|
|00003320| 20 28 22 60 5b 5e 60 27 | 5c 6e 5d 2a 27 22 20 6e | ("`[^`'|\n]*'" n|
|00003330| 69 6c 20 65 69 66 2d 71 | 75 6f 74 65 64 2d 66 65 |il eif-q|uoted-fe|
|00003340| 61 74 75 72 65 20 35 29 | 20 28 22 5e 63 72 65 61 |ature 5)| ("^crea|
|00003350| 74 69 6f 6e 5c 5c 7c 5e | 64 65 66 65 72 72 65 64 |tion\\|^|deferred|
|00003360| 5b 20 09 5d 2a 63 6c 61 | 73 73 5c 5c 7c 5e 65 78 |[ .]*cla|ss\\|^ex|
|00003370| 70 61 6e 64 65 64 5b 20 | 09 5d 2a 63 6c 61 73 73 |panded[ |.]*class|
|00003380| 5c 5c 7c 5e 63 6c 61 73 | 73 5c 5c 7c 5e 66 65 61 |\\|^clas|s\\|^fea|
|00003390| 74 75 72 65 5c 5c 7c 5e | 69 6e 64 65 78 69 6e 67 |ture\\|^|indexing|
|000033a0| 5c 5c 7c 5e 69 6e 68 65 | 72 69 74 5c 5c 7c 5e 6f |\\|^inhe|rit\\|^o|
|000033b0| 62 73 6f 6c 65 74 65 22 | 20 6e 69 6c 20 65 69 66 |bsolete"| nil eif|
|000033c0| 2d 6d 61 6a 6f 72 2d 6b | 65 79 77 6f 72 64 20 31 |-major-k|eyword 1|
|000033d0| 29 20 28 22 5c 5c 28 5e | 5c 5c 7c 5b 5e 5f 5c 6e |) ("\\(^|\\|[^_\n|
|000033e0| 5d 5c 5c 3c 5c 5c 29 5c | 5c 28 61 6c 69 61 73 5c |]\\<\\)\|\(alias\|
|000033f0| 5c 7c 61 6c 6c 5c 5c 7c | 61 6e 64 20 6e 6f 74 5c |\|all\\||and not\|
|00003400| 5c 7c 61 6e 64 20 74 68 | 65 6e 5c 5c 7c 61 6e 64 |\|and th|en\\|and|
|00003410| 5c 5c 7c 61 73 5c 5c 7c | 64 65 62 75 67 5c 5c 7c |\\|as\\||debug\\||
|00003420| 64 65 66 65 72 72 65 64 | 5c 5c 7c 64 6f 5c 5c 7c |deferred|\\|do\\||
|00003430| 65 6c 73 65 5c 5c 7c 65 | 6c 73 65 69 66 5c 5c 7c |else\\|e|lseif\\||
|00003440| 65 6e 64 5c 5c 7c 65 78 | 70 6f 72 74 5c 5c 7c 65 |end\\|ex|port\\|e|
|00003450| 78 74 65 72 6e 61 6c 5c | 5c 7c 66 72 6f 6d 5c 5c |xternal\|\|from\\|
|00003460| 7c 66 72 6f 7a 65 6e 5c | 5c 7c 69 66 20 6e 6f 74 ||frozen\|\|if not|
|00003470| 5c 5c 7c 69 66 5c 5c 7c | 69 6d 70 6c 69 65 73 20 |\\|if\\||implies |
|00003480| 6e 6f 74 5c 5c 7c 69 6d | 70 6c 69 65 73 5c 5c 7c |not\\|im|plies\\||
|00003490| 69 6e 66 69 78 5c 5c 7c | 69 6e 73 70 65 63 74 5c |infix\\||inspect\|
|000034a0| 5c 7c 69 73 20 64 65 66 | 65 72 72 65 64 5c 5c 7c |\|is def|erred\\||
|000034b0| 69 73 20 75 6e 69 71 75 | 65 5c 5c 7c 69 73 5c 5c |is uniqu|e\\|is\\|
|000034c0| 7c 6c 69 6b 65 5c 5c 7c | 6c 6f 63 61 6c 5c 5c 7c ||like\\||local\\||
|000034d0| 6c 6f 6f 70 5c 5c 7c 6e | 6f 74 5c 5c 7c 6f 62 73 |loop\\|n|ot\\|obs|
|000034e0| 6f 6c 65 74 65 5c 5c 7c | 6f 6c 64 5c 5c 7c 6f 6e |olete\\||old\\|on|
|000034f0| 63 65 5c 5c 7c 6f 72 20 | 65 6c 73 65 5c 5c 7c 6f |ce\\|or |else\\|o|
|00003500| 72 20 6e 6f 74 5c 5c 7c | 6f 72 5c 5c 7c 70 72 65 |r not\\||or\\|pre|
|00003510| 66 69 78 5c 5c 7c 72 65 | 64 65 66 69 6e 65 5c 5c |fix\\|re|define\\|
|00003520| 7c 72 65 6e 61 6d 65 5c | 5c 7c 72 65 73 63 75 65 ||rename\|\|rescue|
|00003530| 5c 5c 7c 72 65 74 72 79 | 5c 5c 7c 73 65 6c 65 63 |\\|retry|\\|selec|
|00003540| 74 5c 5c 7c 73 74 72 69 | 70 5c 5c 7c 74 68 65 6e |t\\|stri|p\\|then|
|00003550| 5c 5c 7c 75 6e 64 65 66 | 69 6e 65 5c 5c 7c 75 6e |\\|undef|ine\\|un|
|00003560| 69 71 75 65 5c 5c 7c 75 | 6e 74 69 6c 5c 5c 7c 77 |ique\\|u|ntil\\|w|
|00003570| 68 65 6e 5c 5c 7c 78 6f | 72 5c 5c 29 5c 5c 28 24 |hen\\|xo|r\\)\\($|
|00003580| 5c 5c 7c 5c 5c 3e 5b 5e | 5f 5c 6e 5d 5c 5c 29 22 |\\|\\>[^|_\n]\\)"|
|00003590| 20 32 20 65 69 66 2d 6d | 69 6e 6f 72 2d 6b 65 79 | 2 eif-m|inor-key|
|000035a0| 77 6f 72 64 20 30 29 20 | 28 22 5c 5c 28 5e 5c 5c |word 0) |("\\(^\\|
|000035b0| 7c 5b 5e 5f 5c 6e 5d 5c | 5c 3c 5c 5c 29 5c 5c 28 ||[^_\n]\|\<\\)\\(|
|000035c0| 63 68 65 63 6b 5c 5c 7c | 65 6e 73 75 72 65 20 74 |check\\||ensure t|
|000035d0| 68 65 6e 5c 5c 7c 65 6e | 73 75 72 65 5c 5c 7c 69 |hen\\|en|sure\\|i|
|000035e0| 6e 76 61 72 69 61 6e 74 | 5c 5c 7c 72 65 71 75 69 |nvariant|\\|requi|
|000035f0| 72 65 20 65 6c 73 65 5c | 5c 7c 72 65 71 75 69 72 |re else\|\|requir|
|00003600| 65 5c 5c 7c 76 61 72 69 | 61 6e 74 5c 5c 29 5c 5c |e\\|vari|ant\\)\\|
|00003610| 28 24 5c 5c 7c 5c 5c 3e | 5b 5e 5f 5c 6e 5d 5c 5c |($\\|\\>|[^_\n]\\|
|00003620| 29 22 20 32 20 65 69 66 | 2d 61 73 73 65 72 74 69 |)" 2 eif|-asserti|
|00003630| 6f 6e 20 32 29 20 28 22 | 5c 5c 28 5c 22 5c 22 5c |on 2) ("|\\(\"\"\|
|00003640| 5c 29 5c 5c 7c 5c 5c 28 | 5c 22 5c 5c 28 5b 5e 5c |\)\\|\\(|\"\\([^\|
|00003650| 22 25 5d 5c 5c 7c 25 2e | 5c 5c 7c 25 5c 6e 5c 5c |"%]\\|%.|\\|%\n\\|
|00003660| 29 2b 5c 22 5c 5c 29 22 | 20 6e 69 6c 20 65 69 66 |)+\"\\)"| nil eif|
|00003670| 2d 73 74 72 69 6e 67 20 | 32 29 29 20 61 63 65 2d |-string |2)) ace-|
|00003680| 6d 6f 64 65 20 28 28 22 | 2d 2d 7c 2e 2a 22 20 6e |mode (("|--|.*" n|
|00003690| 69 6c 20 65 69 66 2d 68 | 69 64 64 65 6e 2d 63 6f |il eif-h|idden-co|
|000036a0| 6d 6d 65 6e 74 20 32 29 | 20 28 22 2d 2d 5b 5e 5c |mment 2)| ("--[^\|
|000036b0| 6e 7c 5d 2e 2a 5c 5c 7c | 2d 2d 24 22 20 6e 69 6c |n|].*\\||--$" nil|
|000036c0| 20 65 69 66 2d 63 6f 6d | 6d 65 6e 74 20 31 29 20 | eif-com|ment 1) |
|000036d0| 28 22 60 5b 5e 60 27 5c | 6e 5d 2a 27 22 20 6e 69 |("`[^`'\|n]*'" ni|
|000036e0| 6c 20 65 69 66 2d 71 75 | 6f 74 65 64 2d 66 65 61 |l eif-qu|oted-fea|
|000036f0| 74 75 72 65 20 33 29 20 | 28 22 5e 73 79 73 74 65 |ture 3) |("^syste|
|00003700| 6d 5c 5c 7c 5e 64 65 66 | 61 75 6c 74 5c 5c 7c 5e |m\\|^def|ault\\|^|
|00003710| 72 6f 6f 74 5c 5c 7c 5e | 63 6c 75 73 74 65 72 5c |root\\|^|cluster\|
|00003720| 5c 7c 5e 65 78 74 65 72 | 6e 61 6c 5c 5c 7c 5b 20 |\|^exter|nal\\|[ |
|00003730| 09 5c 6e 5d 65 6e 64 5c | 5c 28 24 5c 5c 7c 5c 5c |.\n]end\|\($\\|\\|
|00003740| 3e 5b 5e 5f 5c 6e 5d 5c | 5c 29 22 20 6e 69 6c 20 |>[^_\n]\|\)" nil |
|00003750| 65 69 66 2d 6d 61 6a 6f | 72 2d 6b 65 79 77 6f 72 |eif-majo|r-keywor|
|00003760| 64 29 29 5d 20 34 29 0a | 23 40 36 38 20 49 6e 64 |d))] 4).|#@68 Ind|
|00003770| 65 6e 74 61 74 69 6f 6e | 20 61 6d 6f 75 6e 74 20 |entation| amount |
|00003780| 66 6f 72 20 43 6c 61 73 | 73 20 6c 65 76 65 6c 20 |for Clas|s level |
|00003790| 6b 65 79 77 6f 72 64 73 | 20 28 69 6e 20 6e 75 6d |keywords| (in num|
|000037a0| 62 65 72 20 6f 66 20 73 | 70 61 63 65 73 29 2e 1f |ber of s|paces)..|
|000037b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 69 66 2d |.(defali|as 'eif-|
|000037c0| 63 6c 61 73 73 2d 6c 65 | 76 65 6c 2d 6b 77 2d 69 |class-le|vel-kw-i|
|000037d0| 6e 64 65 6e 74 2d 6d 20 | 27 28 6d 61 63 72 6f 20 |ndent-m |'(macro |
|000037e0| 2e 20 23 5b 6e 69 6c 20 | 22 c0 87 22 20 5b 28 2b |. #[nil |".." [(+|
|000037f0| 20 28 2a 20 65 69 66 2d | 63 6c 61 73 73 2d 6c 65 | (* eif-|class-le|
|00003800| 76 65 6c 2d 6b 77 2d 69 | 6e 64 65 6e 74 20 65 69 |vel-kw-i|ndent ei|
|00003810| 66 2d 69 6e 64 65 6e 74 | 2d 69 6e 63 72 65 6d 65 |f-indent|-increme|
|00003820| 6e 74 29 20 65 69 66 2d | 65 78 74 72 61 2d 63 6c |nt) eif-|extra-cl|
|00003830| 61 73 73 2d 6c 65 76 65 | 6c 2d 6b 77 2d 69 6e 64 |ass-leve|l-kw-ind|
|00003840| 65 6e 74 29 5d 20 31 20 | 28 23 24 20 2e 20 31 34 |ent)] 1 |(#$ . 14|
|00003850| 31 38 39 29 5d 29 29 0a | 23 40 36 38 20 49 6e 64 |189)])).|#@68 Ind|
|00003860| 65 6e 74 61 74 69 6f 6e | 20 61 6d 6f 75 6e 74 20 |entation| amount |
|00003870| 66 6f 72 20 43 6c 61 73 | 73 20 6c 65 76 65 6c 20 |for Clas|s level |
|00003880| 63 6f 6d 6d 65 6e 74 73 | 20 28 69 6e 20 6e 75 6d |comments| (in num|
|00003890| 62 65 72 20 6f 66 20 73 | 70 61 63 65 73 29 2e 1f |ber of s|paces)..|
|000038a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 69 66 2d |.(defali|as 'eif-|
|000038b0| 63 6c 61 73 73 2d 6c 65 | 76 65 6c 2d 63 6f 6d 6d |class-le|vel-comm|
|000038c0| 65 6e 74 2d 69 6e 64 65 | 6e 74 2d 6d 20 27 28 6d |ent-inde|nt-m '(m|
|000038d0| 61 63 72 6f 20 2e 20 23 | 5b 6e 69 6c 20 22 c0 87 |acro . #|[nil "..|
|000038e0| 22 20 5b 28 2b 20 28 2a | 20 65 69 66 2d 63 6c 61 |" [(+ (*| eif-cla|
|000038f0| 73 73 2d 6c 65 76 65 6c | 2d 63 6f 6d 6d 65 6e 74 |ss-level|-comment|
|00003900| 2d 69 6e 64 65 6e 74 20 | 65 69 66 2d 69 6e 64 65 |-indent |eif-inde|
|00003910| 6e 74 2d 69 6e 63 72 65 | 6d 65 6e 74 29 20 65 69 |nt-incre|ment) ei|
|00003920| 66 2d 65 78 74 72 61 2d | 63 6c 61 73 73 2d 6c 65 |f-extra-|class-le|
|00003930| 76 65 6c 2d 63 6f 6d 6d | 65 6e 74 2d 69 6e 64 65 |vel-comm|ent-inde|
|00003940| 6e 74 29 5d 20 31 20 28 | 23 24 20 2e 20 31 34 34 |nt)] 1 (|#$ . 144|
|00003950| 32 39 29 5d 29 29 0a 23 | 40 37 30 20 49 6e 64 65 |29)])).#|@70 Inde|
|00003960| 6e 74 61 74 69 6f 6e 20 | 61 6d 6f 75 6e 74 20 66 |ntation |amount f|
|00003970| 6f 72 20 49 6e 68 65 72 | 69 74 20 6c 65 76 65 6c |or Inher|it level|
|00003980| 20 6b 65 79 77 6f 72 64 | 73 20 28 69 6e 20 6e 75 | keyword|s (in nu|
|00003990| 6d 62 65 72 20 6f 66 20 | 73 70 61 63 65 73 29 2e |mber of |spaces).|
|000039a0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 69 66 |..(defal|ias 'eif|
|000039b0| 2d 69 6e 68 65 72 69 74 | 2d 6c 65 76 65 6c 2d 6b |-inherit|-level-k|
|000039c0| 77 2d 69 6e 64 65 6e 74 | 2d 6d 20 27 28 6d 61 63 |w-indent|-m '(mac|
|000039d0| 72 6f 20 2e 20 23 5b 6e | 69 6c 20 22 c0 87 22 20 |ro . #[n|il ".." |
|000039e0| 5b 28 2b 20 28 2a 20 65 | 69 66 2d 69 6e 68 65 72 |[(+ (* e|if-inher|
|000039f0| 69 74 2d 6c 65 76 65 6c | 2d 6b 77 2d 69 6e 64 65 |it-level|-kw-inde|
|00003a00| 6e 74 20 65 69 66 2d 69 | 6e 64 65 6e 74 2d 69 6e |nt eif-i|ndent-in|
|00003a10| 63 72 65 6d 65 6e 74 29 | 20 65 69 66 2d 65 78 74 |crement)| eif-ext|
|00003a20| 72 61 2d 69 6e 68 65 72 | 69 74 2d 6c 65 76 65 6c |ra-inher|it-level|
|00003a30| 2d 6b 77 2d 69 6e 64 65 | 6e 74 29 5d 20 31 20 28 |-kw-inde|nt)] 1 (|
|00003a40| 23 24 20 2e 20 31 34 36 | 38 34 29 5d 29 29 0a 23 |#$ . 146|84)])).#|
|00003a50| 40 35 36 20 49 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |@56 Inde|ntation |
|00003a60| 61 6d 6f 75 6e 74 20 66 | 6f 72 20 66 65 61 74 75 |amount f|or featu|
|00003a70| 72 65 73 20 28 69 6e 20 | 6e 75 6d 62 65 72 20 6f |res (in |number o|
|00003a80| 66 20 73 70 61 63 65 73 | 29 2e 1f 0a 28 64 65 66 |f spaces|)...(def|
|00003a90| 61 6c 69 61 73 20 27 65 | 69 66 2d 66 65 61 74 75 |alias 'e|if-featu|
|00003aa0| 72 65 2d 6c 65 76 65 6c | 2d 69 6e 64 65 6e 74 2d |re-level|-indent-|
|00003ab0| 6d 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 6e 69 |m '(macr|o . #[ni|
|00003ac0| 6c 20 22 c0 87 22 20 5b | 28 2b 20 28 2a 20 65 69 |l ".." [|(+ (* ei|
|00003ad0| 66 2d 66 65 61 74 75 72 | 65 2d 6c 65 76 65 6c 2d |f-featur|e-level-|
|00003ae0| 69 6e 64 65 6e 74 20 65 | 69 66 2d 69 6e 64 65 6e |indent e|if-inden|
|00003af0| 74 2d 69 6e 63 72 65 6d | 65 6e 74 29 20 65 69 66 |t-increm|ent) eif|
|00003b00| 2d 65 78 74 72 61 2d 66 | 65 61 74 75 72 65 2d 6c |-extra-f|eature-l|
|00003b10| 65 76 65 6c 2d 69 6e 64 | 65 6e 74 29 5d 20 31 20 |evel-ind|ent)] 1 |
|00003b20| 28 23 24 20 2e 20 31 34 | 39 33 32 29 5d 29 29 0a |(#$ . 14|932)])).|
|00003b30| 23 40 37 30 20 49 6e 64 | 65 6e 74 61 74 69 6f 6e |#@70 Ind|entation|
|00003b40| 20 61 6d 6f 75 6e 74 20 | 66 6f 72 20 46 65 61 74 | amount |for Feat|
|00003b50| 75 72 65 20 6c 65 76 65 | 6c 20 6b 65 79 77 6f 72 |ure leve|l keywor|
|00003b60| 64 73 20 28 69 6e 20 6e | 75 6d 62 65 72 20 6f 66 |ds (in n|umber of|
|00003b70| 20 73 70 61 63 65 73 29 | 2e 1f 0a 28 64 65 66 61 | spaces)|...(defa|
|00003b80| 6c 69 61 73 20 27 65 69 | 66 2d 66 65 61 74 75 72 |lias 'ei|f-featur|
|00003b90| 65 2d 6c 65 76 65 6c 2d | 6b 77 2d 69 6e 64 65 6e |e-level-|kw-inden|
|00003ba0| 74 2d 6d 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |t-m '(ma|cro . #[|
|00003bb0| 6e 69 6c 20 22 c0 87 22 | 20 5b 28 2b 20 28 2a 20 |nil ".."| [(+ (* |
|00003bc0| 65 69 66 2d 66 65 61 74 | 75 72 65 2d 6c 65 76 65 |eif-feat|ure-leve|
|00003bd0| 6c 2d 6b 77 2d 69 6e 64 | 65 6e 74 20 65 69 66 2d |l-kw-ind|ent eif-|
|00003be0| 69 6e 64 65 6e 74 2d 69 | 6e 63 72 65 6d 65 6e 74 |indent-i|ncrement|
|00003bf0| 29 20 65 69 66 2d 65 78 | 74 72 61 2d 66 65 61 74 |) eif-ex|tra-feat|
|00003c00| 75 72 65 2d 6c 65 76 65 | 6c 2d 6b 77 2d 69 6e 64 |ure-leve|l-kw-ind|
|00003c10| 65 6e 74 29 5d 20 31 20 | 28 23 24 20 2e 20 31 35 |ent)] 1 |(#$ . 15|
|00003c20| 31 35 37 29 5d 29 29 0a | 23 40 37 34 20 49 6e 64 |157)])).|#@74 Ind|
|00003c30| 65 6e 74 61 74 69 6f 6e | 20 61 6d 6f 75 6e 74 20 |entation| amount |
|00003c40| 66 6f 72 20 63 6f 6d 6d | 65 6e 74 73 20 69 6e 20 |for comm|ents in |
|00003c50| 72 6f 75 74 69 6e 65 20 | 62 6f 64 69 65 73 20 28 |routine |bodies (|
|00003c60| 69 6e 20 6e 75 6d 62 65 | 72 20 6f 66 20 73 70 61 |in numbe|r of spa|
|00003c70| 63 65 73 29 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ces)...(|defalias|
|00003c80| 20 27 65 69 66 2d 62 6f | 64 79 2d 63 6f 6d 6d 65 | 'eif-bo|dy-comme|
|00003c90| 6e 74 2d 69 6e 64 65 6e | 74 2d 6d 20 27 28 6d 61 |nt-inden|t-m '(ma|
|00003ca0| 63 72 6f 20 2e 20 23 5b | 6e 69 6c 20 22 c0 87 22 |cro . #[|nil ".."|
|00003cb0| 20 5b 28 2b 20 28 2a 20 | 65 69 66 2d 62 6f 64 79 | [(+ (* |eif-body|
|00003cc0| 2d 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 20 |-comment|-indent |
|00003cd0| 65 69 66 2d 69 6e 64 65 | 6e 74 2d 69 6e 63 72 65 |eif-inde|nt-incre|
|00003ce0| 6d 65 6e 74 29 20 65 69 | 66 2d 65 78 74 72 61 2d |ment) ei|f-extra-|
|00003cf0| 62 6f 64 79 2d 63 6f 6d | 6d 65 6e 74 2d 69 6e 64 |body-com|ment-ind|
|00003d00| 65 6e 74 29 5d 20 31 20 | 28 23 24 20 2e 20 31 35 |ent)] 1 |(#$ . 15|
|00003d10| 34 30 35 29 5d 29 29 0a | 23 40 37 30 20 49 6e 64 |405)])).|#@70 Ind|
|00003d20| 65 6e 74 61 74 69 6f 6e | 20 61 6d 6f 75 6e 74 20 |entation| amount |
|00003d30| 66 6f 72 20 46 65 61 74 | 75 72 65 20 6c 65 76 65 |for Feat|ure leve|
|00003d40| 6c 20 63 6f 6d 6d 65 6e | 74 73 20 28 69 6e 20 6e |l commen|ts (in n|
|00003d50| 75 6d 62 65 72 20 6f 66 | 20 73 70 61 63 65 73 29 |umber of| spaces)|
|00003d60| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 69 |...(defa|lias 'ei|
|00003d70| 66 2d 66 65 61 74 75 72 | 65 2d 6c 65 76 65 6c 2d |f-featur|e-level-|
|00003d80| 63 6f 6d 6d 65 6e 74 2d | 69 6e 64 65 6e 74 2d 6d |comment-|indent-m|
|00003d90| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 6e 69 6c | '(macro| . #[nil|
|00003da0| 20 22 c0 87 22 20 5b 28 | 2b 20 28 2a 20 65 69 66 | ".." [(|+ (* eif|
|00003db0| 2d 66 65 61 74 75 72 65 | 2d 6c 65 76 65 6c 2d 63 |-feature|-level-c|
|00003dc0| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 20 65 69 |omment-i|ndent ei|
|00003dd0| 66 2d 69 6e 64 65 6e 74 | 2d 69 6e 63 72 65 6d 65 |f-indent|-increme|
|00003de0| 6e 74 29 20 65 69 66 2d | 65 78 74 72 61 2d 66 65 |nt) eif-|extra-fe|
|00003df0| 61 74 75 72 65 2d 6c 65 | 76 65 6c 2d 63 6f 6d 6d |ature-le|vel-comm|
|00003e00| 65 6e 74 2d 69 6e 64 65 | 6e 74 29 5d 20 31 20 28 |ent-inde|nt)] 1 (|
|00003e10| 23 24 20 2e 20 31 35 36 | 34 35 29 5d 29 29 0a 23 |#$ . 156|45)])).#|
|00003e20| 40 36 31 20 49 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |@61 Inde|ntation |
|00003e30| 61 6d 6f 75 6e 74 20 66 | 6f 72 20 43 68 65 63 6b |amount f|or Check|
|00003e40| 20 6b 65 79 77 6f 72 64 | 20 28 69 6e 20 6e 75 6d | keyword| (in num|
|00003e50| 62 65 72 20 6f 66 20 73 | 70 61 63 65 73 29 2e 1f |ber of s|paces)..|
|00003e60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 69 66 2d |.(defali|as 'eif-|
|00003e70| 63 68 65 63 6b 2d 6b 65 | 79 77 6f 72 64 2d 69 6e |check-ke|yword-in|
|00003e80| 64 65 6e 74 2d 6d 20 27 | 28 6d 61 63 72 6f 20 2e |dent-m '|(macro .|
|00003e90| 20 23 5b 6e 69 6c 20 22 | c0 87 22 20 5b 28 2b 20 | #[nil "|.." [(+ |
|00003ea0| 28 2a 20 65 69 66 2d 63 | 68 65 63 6b 2d 6b 65 79 |(* eif-c|heck-key|
|00003eb0| 77 6f 72 64 2d 69 6e 64 | 65 6e 74 20 65 69 66 2d |word-ind|ent eif-|
|00003ec0| 69 6e 64 65 6e 74 2d 69 | 6e 63 72 65 6d 65 6e 74 |indent-i|ncrement|
|00003ed0| 29 20 65 69 66 2d 65 78 | 74 72 61 2d 63 68 65 63 |) eif-ex|tra-chec|
|00003ee0| 6b 2d 6b 65 79 77 6f 72 | 64 2d 69 6e 64 65 6e 74 |k-keywor|d-indent|
|00003ef0| 29 5d 20 31 20 28 23 24 | 20 2e 20 31 35 39 30 38 |)] 1 (#$| . 15908|
|00003f00| 29 5d 29 29 0a 23 40 36 | 32 20 49 6e 64 65 6e 74 |)])).#@6|2 Indent|
|00003f10| 61 74 69 6f 6e 20 61 6d | 6f 75 6e 74 20 66 6f 72 |ation am|ount for|
|00003f20| 20 52 65 73 63 75 65 20 | 6b 65 79 77 6f 72 64 20 | Rescue |keyword |
|00003f30| 28 69 6e 20 6e 75 6d 62 | 65 72 20 6f 66 20 73 70 |(in numb|er of sp|
|00003f40| 61 63 65 73 29 2e 1f 0a | 28 64 65 66 61 6c 69 61 |aces)...|(defalia|
|00003f50| 73 20 27 65 69 66 2d 72 | 65 73 63 75 65 2d 6b 65 |s 'eif-r|escue-ke|
|00003f60| 79 77 6f 72 64 2d 69 6e | 64 65 6e 74 2d 6d 20 27 |yword-in|dent-m '|
|00003f70| 28 6d 61 63 72 6f 20 2e | 20 23 5b 6e 69 6c 20 22 |(macro .| #[nil "|
|00003f80| c0 87 22 20 5b 28 2b 20 | 28 2a 20 65 69 66 2d 72 |.." [(+ |(* eif-r|
|00003f90| 65 73 63 75 65 2d 6b 65 | 79 77 6f 72 64 2d 69 6e |escue-ke|yword-in|
|00003fa0| 64 65 6e 74 20 65 69 66 | 2d 69 6e 64 65 6e 74 2d |dent eif|-indent-|
|00003fb0| 69 6e 63 72 65 6d 65 6e | 74 29 20 65 69 66 2d 65 |incremen|t) eif-e|
|00003fc0| 78 74 72 61 2d 72 65 73 | 63 75 65 2d 6b 65 79 77 |xtra-res|cue-keyw|
|00003fd0| 6f 72 64 2d 69 6e 64 65 | 6e 74 29 5d 20 31 20 28 |ord-inde|nt)] 1 (|
|00003fe0| 23 24 20 2e 20 31 36 31 | 33 38 29 5d 29 29 0a 23 |#$ . 161|38)])).#|
|00003ff0| 40 38 34 20 49 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |@84 Inde|ntation |
|00004000| 61 6d 6f 75 6e 74 20 66 | 6f 72 20 60 74 68 65 6e |amount f|or `then|
|00004010| 27 20 61 70 70 65 61 72 | 69 6e 67 20 6f 6e 20 61 |' appear|ing on a|
|00004020| 20 6c 69 6e 65 20 62 79 | 20 69 74 73 65 6c 66 20 | line by| itself |
|00004030| 28 69 6e 20 6e 75 6d 62 | 65 72 20 6f 66 20 73 70 |(in numb|er of sp|
|00004040| 61 63 65 73 29 2e 1f 0a | 28 64 65 66 61 6c 69 61 |aces)...|(defalia|
|00004050| 73 20 27 65 69 66 2d 74 | 68 65 6e 2d 69 6e 64 65 |s 'eif-t|hen-inde|
|00004060| 6e 74 2d 6d 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |nt-m '(m|acro . #|
|00004070| 5b 6e 69 6c 20 22 c0 87 | 22 20 5b 28 2b 20 28 2a |[nil "..|" [(+ (*|
|00004080| 20 65 69 66 2d 74 68 65 | 6e 2d 69 6e 64 65 6e 74 | eif-the|n-indent|
|00004090| 20 65 69 66 2d 69 6e 64 | 65 6e 74 2d 69 6e 63 72 | eif-ind|ent-incr|
|000040a0| 65 6d 65 6e 74 29 20 65 | 69 66 2d 65 78 74 72 61 |ement) e|if-extra|
|000040b0| 2d 74 68 65 6e 2d 69 6e | 64 65 6e 74 29 5d 20 31 |-then-in|dent)] 1|
|000040c0| 20 28 23 24 20 2e 20 31 | 36 33 37 32 29 5d 29 29 | (#$ . 1|6372)]))|
|000040d0| 0a 23 40 37 37 20 49 6e | 64 65 6e 74 61 74 69 6f |.#@77 In|dentatio|
|000040e0| 6e 20 61 6d 6f 75 6e 74 | 20 66 6f 72 20 61 20 73 |n amount| for a s|
|000040f0| 74 61 74 65 6d 65 6e 74 | 20 63 6f 6e 74 69 6e 75 |tatement| continu|
|00004100| 61 74 69 6f 6e 20 6c 69 | 6e 65 20 28 69 6e 20 6e |ation li|ne (in n|
|00004110| 75 6d 62 65 72 20 6f 66 | 20 73 70 61 63 65 73 29 |umber of| spaces)|
|00004120| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 69 |...(defa|lias 'ei|
|00004130| 66 2d 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 2d 69 |f-contin|uation-i|
|00004140| 6e 64 65 6e 74 2d 6d 20 | 27 28 6d 61 63 72 6f 20 |ndent-m |'(macro |
|00004150| 2e 20 23 5b 6e 69 6c 20 | 22 c0 87 22 20 5b 28 2b |. #[nil |".." [(+|
|00004160| 20 28 2a 20 65 69 66 2d | 63 6f 6e 74 69 6e 75 61 | (* eif-|continua|
|00004170| 74 69 6f 6e 2d 69 6e 64 | 65 6e 74 20 65 69 66 2d |tion-ind|ent eif-|
|00004180| 69 6e 64 65 6e 74 2d 69 | 6e 63 72 65 6d 65 6e 74 |indent-i|ncrement|
|00004190| 29 20 65 69 66 2d 65 78 | 74 72 61 2d 63 6f 6e 74 |) eif-ex|tra-cont|
|000041a0| 69 6e 75 61 74 69 6f 6e | 2d 69 6e 64 65 6e 74 29 |inuation|-indent)|
|000041b0| 5d 20 31 20 28 23 24 20 | 2e 20 31 36 35 39 38 29 |] 1 (#$ |. 16598)|
|000041c0| 5d 29 29 0a 23 40 31 30 | 31 20 52 65 67 75 6c 61 |])).#@10|1 Regula|
|000041d0| 72 20 45 78 70 72 65 73 | 73 69 6f 6e 20 74 6f 20 |r Expres|sion to |
|000041e0| 69 64 65 6e 74 69 66 79 | 20 74 68 65 20 70 72 65 |identify| the pre|
|000041f0| 73 65 6e 63 65 20 6f 66 | 20 61 6e 79 20 65 69 66 |sence of| any eif|
|00004200| 66 65 6c 20 6b 65 79 77 | 6f 72 64 20 69 6e 20 61 |fel keyw|ord in a|
|00004210| 20 6c 69 6e 65 2e 0a 44 | 6f 65 73 20 6e 6f 74 20 | line..D|oes not |
|00004220| 69 6e 63 6c 75 64 65 20 | 60 69 73 27 2e 1f 0a 28 |include |`is'...(|
|00004230| 64 65 66 76 61 72 20 65 | 69 66 2d 61 6c 6c 2d 6b |defvar e|if-all-k|
|00004240| 65 79 77 6f 72 64 73 2d | 72 65 67 65 78 70 20 22 |eywords-|regexp "|
|00004250| 5c 5c 28 69 6e 64 65 78 | 69 6e 67 5c 5c 7c 63 6c |\\(index|ing\\|cl|
|00004260| 61 73 73 5c 5c 7c 69 6e | 68 65 72 69 74 5c 5c 7c |ass\\|in|herit\\||
|00004270| 63 72 65 61 74 69 6f 6e | 5c 5c 7c 66 65 61 74 75 |creation|\\|featu|
|00004280| 72 65 5c 5c 7c 69 6e 76 | 61 72 69 61 6e 74 5c 5c |re\\|inv|ariant\\|
|00004290| 7c 72 65 6e 61 6d 65 5c | 5c 7c 72 65 64 65 66 69 ||rename\|\|redefi|
|000042a0| 6e 65 5c 5c 7c 75 6e 64 | 65 66 69 6e 65 5c 5c 7c |ne\\|und|efine\\||
|000042b0| 73 65 6c 65 63 74 5c 5c | 7c 65 78 70 6f 72 74 5c |select\\||export\|
|000042c0| 5c 7c 72 65 71 75 69 72 | 65 5c 5c 7c 6c 6f 63 61 |\|requir|e\\|loca|
|000042d0| 6c 5c 5c 7c 64 65 66 65 | 72 72 65 64 5c 5c 7c 64 |l\\|defe|rred\\|d|
|000042e0| 6f 5c 5c 7c 6f 6e 63 65 | 5c 5c 7c 65 6e 73 75 72 |o\\|once|\\|ensur|
|000042f0| 65 5c 5c 7c 61 6c 69 61 | 73 5c 5c 7c 65 78 74 65 |e\\|alia|s\\|exte|
|00004300| 72 6e 61 6c 5c 5c 7c 63 | 68 65 63 6b 5c 5c 7c 72 |rnal\\|c|heck\\|r|
|00004310| 65 73 63 75 65 5c 5c 7c | 64 65 62 75 67 5c 5c 7c |escue\\||debug\\||
|00004320| 69 66 5c 5c 7c 69 6e 73 | 70 65 63 74 5c 5c 7c 66 |if\\|ins|pect\\|f|
|00004330| 72 6f 6d 5c 5c 7c 65 6c | 73 65 5c 5c 7c 65 6c 73 |rom\\|el|se\\|els|
|00004340| 65 69 66 5c 5c 7c 77 68 | 65 6e 5c 5c 7c 75 6e 74 |eif\\|wh|en\\|unt|
|00004350| 69 6c 5c 5c 7c 76 61 72 | 69 61 6e 74 5c 5c 7c 6c |il\\|var|iant\\|l|
|00004360| 6f 6f 70 5c 5c 7c 74 68 | 65 6e 5c 5c 7c 6f 62 73 |oop\\|th|en\\|obs|
|00004370| 6f 6c 65 74 65 5c 5c 7c | 65 6e 64 5c 5c 29 5b 5e |olete\\||end\\)[^|
|00004380| 61 2d 7a 30 2d 39 5f 5d | 22 20 28 23 24 20 2e 20 |a-z0-9_]|" (#$ . |
|00004390| 31 36 38 34 32 29 29 0a | 23 40 31 36 32 20 54 68 |16842)).|#@162 Th|
|000043a0| 6f 73 65 20 6b 65 79 77 | 6f 72 64 73 20 69 6e 74 |ose keyw|ords int|
|000043b0| 72 6f 64 75 63 69 6e 67 | 20 63 6c 61 73 73 2d 6c |roducing| class-l|
|000043c0| 65 76 65 6c 20 63 6c 61 | 75 73 65 73 2e 20 4e 6f |evel cla|uses. No|
|000043d0| 74 65 20 74 68 61 74 20 | 60 69 6e 76 61 72 69 61 |te that |`invaria|
|000043e0| 6e 74 27 0a 61 6e 64 20 | 60 6f 62 73 6f 6c 65 74 |nt'.and |`obsolet|
|000043f0| 65 27 20 61 72 65 20 6e | 6f 74 20 69 6e 63 6c 75 |e' are n|ot inclu|
|00004400| 64 65 64 20 68 65 72 65 | 20 73 69 6e 63 65 20 63 |ded here| since c|
|00004410| 61 6e 20 66 75 6e 63 74 | 69 6f 6e 20 61 73 20 6d |an funct|ion as m|
|00004420| 6f 72 65 20 74 68 61 6e | 20 6f 6e 65 20 74 79 70 |ore than| one typ|
|00004430| 65 20 6f 66 20 6b 65 79 | 77 6f 72 64 2e 20 1f 0a |e of key|word. ..|
|00004440| 28 64 65 66 76 61 72 20 | 65 69 66 2d 63 6c 61 73 |(defvar |eif-clas|
|00004450| 73 2d 6c 65 76 65 6c 2d | 6b 65 79 77 6f 72 64 73 |s-level-|keywords|
|00004460| 20 22 5c 5c 28 69 6e 64 | 65 78 69 6e 67 5c 5c 7c | "\\(ind|exing\\||
|00004470| 63 6c 61 73 73 5c 5c 7c | 64 65 66 65 72 72 65 64 |class\\||deferred|
|00004480| 5b 20 09 5d 2a 63 6c 61 | 73 73 5c 5c 7c 65 78 70 |[ .]*cla|ss\\|exp|
|00004490| 61 6e 64 65 64 5b 20 09 | 5d 2a 63 6c 61 73 73 5c |anded[ .|]*class\|
|000044a0| 5c 7c 69 6e 68 65 72 69 | 74 5c 5c 7c 63 72 65 61 |\|inheri|t\\|crea|
|000044b0| 74 69 6f 6e 5c 5c 7c 66 | 65 61 74 75 72 65 5c 5c |tion\\|f|eature\\|
|000044c0| 29 5b 5e 61 2d 7a 30 2d | 39 5f 5d 22 20 28 23 24 |)[^a-z0-|9_]" (#$|
|000044d0| 20 2e 20 31 37 33 31 30 | 29 29 0a 23 40 36 36 20 | . 17310|)).#@66 |
|000044e0| 54 68 6f 73 65 20 6b 65 | 79 77 6f 72 64 73 20 77 |Those ke|ywords w|
|000044f0| 68 69 63 68 20 69 6e 74 | 72 6f 64 75 63 65 20 73 |hich int|roduce s|
|00004500| 75 62 63 6c 61 75 73 65 | 73 20 6f 66 20 74 68 65 |ubclause|s of the|
|00004510| 20 69 6e 68 65 72 69 74 | 20 63 6c 61 75 73 65 2e | inherit| clause.|
|00004520| 1f 0a 28 64 65 66 76 61 | 72 20 65 69 66 2d 69 6e |..(defva|r eif-in|
|00004530| 68 65 72 69 74 2d 6c 65 | 76 65 6c 2d 6b 65 79 77 |herit-le|vel-keyw|
|00004540| 6f 72 64 73 20 22 5c 5c | 28 72 65 6e 61 6d 65 5c |ords "\\|(rename\|
|00004550| 5c 7c 72 65 64 65 66 69 | 6e 65 5c 5c 7c 75 6e 64 |\|redefi|ne\\|und|
|00004560| 65 66 69 6e 65 5c 5c 7c | 73 65 6c 65 63 74 5c 5c |efine\\||select\\|
|00004570| 7c 65 78 70 6f 72 74 5c | 5c 29 22 20 28 23 24 20 ||export\|\)" (#$ |
|00004580| 2e 20 31 37 36 33 32 29 | 29 0a 23 40 37 34 20 54 |. 17632)|).#@74 T|
|00004590| 68 6f 73 65 20 6b 65 79 | 77 6f 72 64 73 20 77 68 |hose key|words wh|
|000045a0| 69 63 68 20 61 72 65 20 | 69 6e 74 65 72 6e 61 6c |ich are |internal|
|000045b0| 20 74 6f 20 66 65 61 74 | 75 72 65 73 20 28 69 6e | to feat|ures (in|
|000045c0| 20 70 61 72 74 69 63 75 | 6c 61 72 2c 20 72 6f 75 | particu|lar, rou|
|000045d0| 74 69 6e 65 73 29 2e 1f | 0a 28 64 65 66 76 61 72 |tines)..|.(defvar|
|000045e0| 20 65 69 66 2d 66 65 61 | 74 75 72 65 2d 6c 65 76 | eif-fea|ture-lev|
|000045f0| 65 6c 2d 6b 65 79 77 6f | 72 64 73 20 22 5c 5c 28 |el-keywo|rds "\\(|
|00004600| 72 65 71 75 69 72 65 5c | 5c 7c 6c 6f 63 61 6c 5c |require\|\|local\|
|00004610| 5c 7c 64 65 66 65 72 72 | 65 64 5c 5c 7c 64 6f 5c |\|deferr|ed\\|do\|
|00004620| 5c 7c 6f 6e 63 65 5c 5c | 7c 65 6e 73 75 72 65 5c |\|once\\||ensure\|
|00004630| 5c 7c 61 6c 69 61 73 5c | 5c 7c 65 78 74 65 72 6e |\|alias\|\|extern|
|00004640| 61 6c 5c 5c 29 5b 5e 61 | 2d 7a 30 2d 39 5f 5d 22 |al\\)[^a|-z0-9_]"|
|00004650| 20 28 23 24 20 2e 20 31 | 37 38 30 37 29 29 0a 23 | (#$ . 1|7807)).#|
|00004660| 40 32 30 20 54 68 65 20 | 60 65 6e 64 27 20 6b 65 |@20 The |`end' ke|
|00004670| 79 77 6f 72 64 2e 1f 0a | 28 64 65 66 76 61 72 20 |yword...|(defvar |
|00004680| 65 69 66 2d 65 6e 64 2d | 6b 65 79 77 6f 72 64 20 |eif-end-|keyword |
|00004690| 22 65 6e 64 22 20 28 23 | 24 20 2e 20 31 38 30 32 |"end" (#|$ . 1802|
|000046a0| 30 29 29 0a 23 40 36 38 | 20 52 65 67 75 6c 61 72 |0)).#@68| Regular|
|000046b0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 74 6f 20 69 | express|ion to i|
|000046c0| 64 65 6e 74 69 66 79 20 | 6c 69 6e 65 73 20 65 6e |dentify |lines en|
|000046d0| 64 69 6e 67 20 77 69 74 | 68 20 74 68 65 20 60 65 |ding wit|h the `e|
|000046e0| 6e 64 27 20 6b 65 79 77 | 6f 72 64 1f 0a 28 64 65 |nd' keyw|ord..(de|
|000046f0| 66 76 61 72 20 65 69 66 | 2d 65 6e 64 2d 6f 6e 2d |fvar eif|-end-on-|
|00004700| 63 75 72 72 65 6e 74 2d | 6c 69 6e 65 20 22 2e 2a |current-|line ".*|
|00004710| 5b 20 09 5d 65 6e 64 5b | 20 09 5d 2a 3b 3f 5b 20 |[ .]end[| .]*;?[ |
|00004720| 09 5d 2a 5c 5c 28 2d 2d | 2e 2a 5c 5c 29 3f 24 22 |.]*\\(--|.*\\)?$"|
|00004730| 20 28 23 24 20 2e 20 31 | 38 30 38 39 29 29 0a 23 | (#$ . 1|8089)).#|
|00004740| 40 35 30 20 54 68 65 20 | 63 68 61 72 61 63 74 65 |@50 The |characte|
|00004750| 72 73 20 74 68 61 74 20 | 61 72 65 20 6e 6f 74 20 |rs that |are not |
|00004760| 70 61 72 74 20 6f 66 20 | 69 64 65 6e 74 69 66 69 |part of |identifi|
|00004770| 65 72 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 65 69 |ers...(d|efvar ei|
|00004780| 66 2d 6e 6f 6e 2d 69 64 | 2d 63 68 61 72 2d 72 65 |f-non-id|-char-re|
|00004790| 67 65 78 70 20 22 5b 5e | 61 2d 7a 30 2d 39 5f 5d |gexp "[^|a-z0-9_]|
|000047a0| 22 20 28 23 24 20 2e 20 | 31 38 32 34 34 29 29 0a |" (#$ . |18244)).|
|000047b0| 23 40 33 33 20 54 68 65 | 20 60 65 6e 64 27 20 6b |#@33 The| `end' k|
|000047c0| 65 79 77 6f 72 64 20 77 | 69 74 68 20 63 6f 6e 74 |eyword w|ith cont|
|000047d0| 65 78 74 2e 1f 0a 28 64 | 65 66 76 61 72 20 65 69 |ext...(d|efvar ei|
|000047e0| 66 2d 65 6e 64 2d 6b 65 | 79 77 6f 72 64 2d 72 65 |f-end-ke|yword-re|
|000047f0| 67 65 78 70 20 22 5b 5e | 61 2d 7a 30 2d 39 5f 5d |gexp "[^|a-z0-9_]|
|00004800| 65 6e 64 5b 5e 61 2d 7a | 30 2d 39 5f 5d 22 20 28 |end[^a-z|0-9_]" (|
|00004810| 23 24 20 2e 20 31 38 33 | 35 37 29 29 0a 23 40 36 |#$ . 183|57)).#@6|
|00004820| 34 20 54 68 6f 73 65 20 | 6b 65 79 77 6f 72 64 73 |4 Those |keywords|
|00004830| 20 77 68 6f 73 65 20 63 | 6c 61 75 73 65 20 69 73 | whose c|lause is|
|00004840| 20 74 65 72 6d 69 6e 61 | 74 65 64 20 62 79 20 61 | termina|ted by a|
|00004850| 6e 20 60 65 6e 64 27 20 | 6b 65 79 77 6f 72 64 2e |n `end' |keyword.|
|00004860| 1f 0a 28 64 65 66 76 61 | 72 20 65 69 66 2d 65 6e |..(defva|r eif-en|
|00004870| 64 2d 6d 61 74 63 68 69 | 6e 67 2d 6b 65 79 77 6f |d-matchi|ng-keywo|
|00004880| 72 64 73 20 22 5c 5c 28 | 63 68 65 63 6b 5c 5c 7c |rds "\\(|check\\||
|00004890| 63 6c 61 73 73 5c 5c 7c | 66 65 61 74 75 72 65 5c |class\\||feature\|
|000048a0| 5c 7c 72 65 6e 61 6d 65 | 5c 5c 7c 72 65 64 65 66 |\|rename|\\|redef|
|000048b0| 69 6e 65 5c 5c 7c 75 6e | 64 65 66 69 6e 65 5c 5c |ine\\|un|define\\|
|000048c0| 7c 73 65 6c 65 63 74 5c | 5c 7c 65 78 70 6f 72 74 ||select\|\|export|
|000048d0| 5c 5c 7c 64 6f 5c 5c 7c | 6f 6e 63 65 5c 5c 7c 64 |\\|do\\||once\\|d|
|000048e0| 65 66 65 72 72 65 64 5c | 5c 7c 65 78 74 65 72 6e |eferred\|\|extern|
|000048f0| 61 6c 5c 5c 7c 61 6c 69 | 61 73 5c 5c 7c 69 66 5c |al\\|ali|as\\|if\|
|00004900| 5c 7c 69 6e 73 70 65 63 | 74 5c 5c 7c 66 72 6f 6d |\|inspec|t\\|from|
|00004910| 5c 5c 7c 64 65 62 75 67 | 5c 5c 29 5b 5e 61 2d 7a |\\|debug|\\)[^a-z|
|00004920| 30 2d 39 5f 5d 22 20 28 | 23 24 20 2e 20 31 38 34 |0-9_]" (|#$ . 184|
|00004930| 36 36 29 29 0a 23 40 35 | 31 20 4b 65 79 77 6f 72 |66)).#@5|1 Keywor|
|00004940| 64 73 20 77 68 69 63 68 | 20 69 6e 74 72 6f 64 75 |ds which| introdu|
|00004950| 63 65 20 63 6f 6e 74 72 | 6f 6c 2d 66 6c 6f 77 20 |ce contr|ol-flow |
|00004960| 63 6f 6e 73 74 72 75 63 | 74 73 2e 1f 0a 28 64 65 |construc|ts...(de|
|00004970| 66 76 61 72 20 65 69 66 | 2d 63 6f 6e 74 72 6f 6c |fvar eif|-control|
|00004980| 2d 66 6c 6f 77 2d 6b 65 | 79 77 6f 72 64 73 20 22 |-flow-ke|ywords "|
|00004990| 5c 5c 28 69 66 5c 5c 7c | 69 6e 73 70 65 63 74 5c |\\(if\\||inspect\|
|000049a0| 5c 7c 66 72 6f 6d 5c 5c | 7c 64 65 62 75 67 5c 5c |\|from\\||debug\\|
|000049b0| 29 22 20 28 23 24 20 2e | 20 31 38 37 34 36 29 29 |)" (#$ .| 18746))|
|000049c0| 0a 23 40 32 34 39 20 4b | 65 79 77 6f 72 64 73 20 |.#@249 K|eywords |
|000049d0| 77 68 6f 73 65 20 6f 63 | 63 75 72 72 65 6e 63 65 |whose oc|currence|
|000049e0| 20 70 72 69 6f 72 20 74 | 6f 20 61 20 63 6f 6e 74 | prior t|o a cont|
|000049f0| 72 6f 6c 2d 66 6c 6f 77 | 2d 6b 65 79 77 6f 72 64 |rol-flow|-keyword|
|00004a00| 20 63 61 75 73 65 73 20 | 74 68 65 0a 69 6e 64 65 | causes |the.inde|
|00004a10| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 63 |ntation |of the c|
|00004a20| 6f 6e 74 72 6f 6c 2d 66 | 6c 6f 77 2d 6b 65 79 77 |ontrol-f|low-keyw|
|00004a30| 6f 72 64 2e 20 4e 6f 74 | 65 20 74 68 61 74 20 74 |ord. Not|e that t|
|00004a40| 65 63 68 6e 69 63 61 6c | 6c 79 2c 0a 60 65 6e 64 |echnical|ly,.`end|
|00004a50| 27 20 69 73 20 70 61 72 | 74 20 6f 66 20 74 68 69 |' is par|t of thi|
|00004a60| 73 20 6c 69 73 74 20 62 | 75 74 20 69 74 20 69 73 |s list b|ut it is|
|00004a70| 20 68 61 6e 64 6c 65 64 | 20 73 65 70 61 72 61 74 | handled| separat|
|00004a80| 65 6c 79 20 69 6e 20 74 | 68 65 0a 66 75 6e 63 74 |ely in t|he.funct|
|00004a90| 69 6f 6e 73 3a 20 65 69 | 66 2d 6d 61 74 63 68 69 |ions: ei|f-matchi|
|00004aa0| 6e 67 2d 69 6e 64 65 6e | 74 20 61 6e 64 20 65 69 |ng-inden|t and ei|
|00004ab0| 66 2d 6d 61 74 63 68 69 | 6e 67 2d 6b 77 2e 1f 0a |f-matchi|ng-kw...|
|00004ac0| 28 64 65 66 76 61 72 20 | 65 69 66 2d 63 6f 6e 74 |(defvar |eif-cont|
|00004ad0| 72 6f 6c 2d 66 6c 6f 77 | 2d 6d 61 74 63 68 69 6e |rol-flow|-matchin|
|00004ae0| 67 2d 6b 65 79 77 6f 72 | 64 73 20 22 5c 5c 28 64 |g-keywor|ds "\\(d|
|00004af0| 65 66 65 72 72 65 64 5c | 5c 7c 64 6f 5c 5c 7c 6f |eferred\|\|do\\|o|
|00004b00| 6e 63 65 5c 5c 7c 69 66 | 5c 5c 7c 69 6e 73 70 65 |nce\\|if|\\|inspe|
|00004b10| 63 74 5c 5c 7c 66 72 6f | 6d 5c 5c 7c 64 65 62 75 |ct\\|fro|m\\|debu|
|00004b20| 67 5c 5c 29 5b 5e 61 2d | 7a 30 2d 39 5f 5d 22 20 |g\\)[^a-|z0-9_]" |
|00004b30| 28 23 24 20 2e 20 31 38 | 38 38 37 29 29 0a 23 40 |(#$ . 18|887)).#@|
|00004b40| 32 32 20 54 68 65 20 60 | 63 68 65 63 6b 27 20 6b |22 The `|check' k|
|00004b50| 65 79 77 6f 72 64 2e 1f | 0a 28 64 65 66 76 61 72 |eyword..|.(defvar|
|00004b60| 20 65 69 66 2d 63 68 65 | 63 6b 2d 6b 65 79 77 6f | eif-che|ck-keywo|
|00004b70| 72 64 20 22 63 68 65 63 | 6b 22 20 28 23 24 20 2e |rd "chec|k" (#$ .|
|00004b80| 20 31 39 32 36 37 29 29 | 0a 23 40 34 36 20 54 68 | 19267))|.#@46 Th|
|00004b90| 65 20 60 63 68 65 63 6b | 27 20 6b 65 79 77 6f 72 |e `check|' keywor|
|00004ba0| 64 20 28 77 69 74 68 20 | 74 72 61 69 6c 69 6e 67 |d (with |trailing|
|00004bb0| 20 63 6f 6e 74 65 78 74 | 29 2e 1f 0a 28 64 65 66 | context|)...(def|
|00004bc0| 76 61 72 20 65 69 66 2d | 63 68 65 63 6b 2d 6b 65 |var eif-|check-ke|
|00004bd0| 79 77 6f 72 64 73 20 22 | 5c 5c 28 63 68 65 63 6b |ywords "|\\(check|
|00004be0| 5c 5c 29 5b 5e 61 2d 7a | 30 2d 39 5f 5d 22 20 28 |\\)[^a-z|0-9_]" (|
|00004bf0| 23 24 20 2e 20 31 39 33 | 34 32 29 29 0a 23 40 32 |#$ . 193|42)).#@2|
|00004c00| 38 31 20 4b 65 79 77 6f | 72 64 73 20 77 68 6f 73 |81 Keywo|rds whos|
|00004c10| 65 20 6f 63 63 75 72 72 | 65 6e 63 65 20 70 72 69 |e occurr|ence pri|
|00004c20| 6f 72 20 74 6f 20 61 20 | 63 68 65 63 6b 2d 6b 65 |or to a |check-ke|
|00004c30| 79 77 6f 72 64 20 63 61 | 75 73 65 73 20 74 68 65 |yword ca|uses the|
|00004c40| 0a 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 |.indenta|tion of |
|00004c50| 74 68 65 20 63 68 65 63 | 6b 2d 6b 65 79 77 6f 72 |the chec|k-keywor|
|00004c60| 64 2e 20 4e 6f 74 65 20 | 74 68 61 74 20 74 65 63 |d. Note |that tec|
|00004c70| 68 6e 69 63 61 6c 6c 79 | 2c 20 60 65 6e 64 27 20 |hnically|, `end' |
|00004c80| 69 73 0a 70 61 72 74 20 | 6f 66 20 74 68 69 73 20 |is.part |of this |
|00004c90| 6c 69 73 74 20 62 75 74 | 20 69 74 20 69 73 20 68 |list but| it is h|
|00004ca0| 61 6e 64 6c 65 64 20 73 | 65 70 61 72 61 74 65 6c |andled s|eparatel|
|00004cb0| 79 20 69 6e 20 74 68 65 | 20 66 75 6e 63 74 69 6f |y in the| functio|
|00004cc0| 6e 73 3a 0a 65 69 66 2d | 6d 61 74 63 68 69 6e 67 |ns:.eif-|matching|
|00004cd0| 2d 69 6e 64 65 6e 74 20 | 61 6e 64 20 65 69 66 2d |-indent |and eif-|
|00004ce0| 6d 61 74 63 68 69 6e 67 | 2d 6b 77 2e 20 28 73 65 |matching|-kw. (se|
|00004cf0| 65 20 61 6c 73 6f 0a 65 | 69 66 2d 63 6f 6e 74 72 |e also.e|if-contr|
|00004d00| 6f 6c 2d 66 6c 6f 77 2d | 6d 61 74 63 68 69 6e 67 |ol-flow-|matching|
|00004d10| 2d 6b 65 79 77 6f 72 64 | 73 29 1f 0a 28 64 65 66 |-keyword|s)..(def|
|00004d20| 76 61 72 20 65 69 66 2d | 63 68 65 63 6b 2d 6d 61 |var eif-|check-ma|
|00004d30| 74 63 68 69 6e 67 2d 6b | 65 79 77 6f 72 64 73 20 |tching-k|eywords |
|00004d40| 22 5c 5c 28 64 65 66 65 | 72 72 65 64 5c 5c 7c 64 |"\\(defe|rred\\|d|
|00004d50| 6f 5c 5c 7c 6f 6e 63 65 | 5c 5c 7c 69 66 5c 5c 7c |o\\|once|\\|if\\||
|00004d60| 69 6e 73 70 65 63 74 5c | 5c 7c 66 72 6f 6d 5c 5c |inspect\|\|from\\|
|00004d70| 7c 64 65 62 75 67 5c 5c | 29 5b 5e 61 2d 7a 30 2d ||debug\\|)[^a-z0-|
|00004d80| 39 5f 5d 22 20 28 23 24 | 20 2e 20 31 39 34 35 39 |9_]" (#$| . 19459|
|00004d90| 29 29 0a 23 40 32 33 20 | 54 68 65 20 60 72 65 73 |)).#@23 |The `res|
|00004da0| 63 75 65 27 20 6b 65 79 | 77 6f 72 64 2e 1f 0a 28 |cue' key|word...(|
|00004db0| 64 65 66 76 61 72 20 65 | 69 66 2d 72 65 73 63 75 |defvar e|if-rescu|
|00004dc0| 65 2d 6b 65 79 77 6f 72 | 64 20 22 72 65 73 63 75 |e-keywor|d "rescu|
|00004dd0| 65 22 20 28 23 24 20 2e | 20 31 39 38 36 34 29 29 |e" (#$ .| 19864))|
|00004de0| 0a 23 40 32 35 20 54 68 | 65 20 60 6f 62 73 6f 6c |.#@25 Th|e `obsol|
|00004df0| 65 74 65 27 20 6b 65 79 | 77 6f 72 64 2e 1f 0a 28 |ete' key|word...(|
|00004e00| 64 65 66 76 61 72 20 65 | 69 66 2d 6f 62 73 6f 6c |defvar e|if-obsol|
|00004e10| 65 74 65 2d 6b 65 79 77 | 6f 72 64 20 22 6f 62 73 |ete-keyw|ord "obs|
|00004e20| 6f 6c 65 74 65 22 20 28 | 23 24 20 2e 20 31 39 39 |olete" (|#$ . 199|
|00004e30| 34 32 29 29 0a 23 40 34 | 37 20 54 68 65 20 60 72 |42)).#@4|7 The `r|
|00004e40| 65 73 63 75 65 27 20 6b | 65 79 77 6f 72 64 20 28 |escue' k|eyword (|
|00004e50| 77 69 74 68 20 74 72 61 | 69 6c 69 6e 67 20 63 6f |with tra|iling co|
|00004e60| 6e 74 65 78 74 29 2e 1f | 0a 28 64 65 66 76 61 72 |ntext)..|.(defvar|
|00004e70| 20 65 69 66 2d 72 65 73 | 63 75 65 2d 6b 65 79 77 | eif-res|cue-keyw|
|00004e80| 6f 72 64 73 20 22 5c 5c | 28 72 65 73 63 75 65 5c |ords "\\|(rescue\|
|00004e90| 5c 29 5b 5e 61 2d 7a 30 | 2d 39 5f 5d 22 20 28 23 |\)[^a-z0|-9_]" (#|
|00004ea0| 24 20 2e 20 32 30 30 32 | 36 29 29 0a 23 40 32 38 |$ . 2002|6)).#@28|
|00004eb0| 33 20 4b 65 79 77 6f 72 | 64 73 20 77 68 6f 73 65 |3 Keywor|ds whose|
|00004ec0| 20 6f 63 63 75 72 72 65 | 6e 63 65 20 70 72 69 6f | occurre|nce prio|
|00004ed0| 72 20 74 6f 20 61 20 72 | 65 73 63 75 65 2d 6b 65 |r to a r|escue-ke|
|00004ee0| 79 77 6f 72 64 20 63 61 | 75 73 65 73 20 74 68 65 |yword ca|uses the|
|00004ef0| 0a 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 |.indenta|tion of |
|00004f00| 74 68 65 20 72 65 73 63 | 75 65 2d 6b 65 79 77 6f |the resc|ue-keywo|
|00004f10| 72 64 2e 20 4e 6f 74 65 | 20 74 68 61 74 20 74 65 |rd. Note| that te|
|00004f20| 63 68 6e 69 63 61 6c 6c | 79 2c 20 60 65 6e 64 27 |chnicall|y, `end'|
|00004f30| 20 69 73 0a 70 61 72 74 | 20 6f 66 20 74 68 69 73 | is.part| of this|
|00004f40| 20 6c 69 73 74 20 62 75 | 74 20 69 74 20 69 73 20 | list bu|t it is |
|00004f50| 68 61 6e 64 6c 65 64 20 | 73 65 70 61 72 61 74 65 |handled |separate|
|00004f60| 6c 79 20 69 6e 20 74 68 | 65 20 66 75 6e 63 74 69 |ly in th|e functi|
|00004f70| 6f 6e 73 3a 0a 65 69 66 | 2d 6d 61 74 63 68 69 6e |ons:.eif|-matchin|
|00004f80| 67 2d 69 6e 64 65 6e 74 | 20 61 6e 64 20 65 69 66 |g-indent| and eif|
|00004f90| 2d 6d 61 74 63 68 69 6e | 67 2d 6b 77 2e 20 28 73 |-matchin|g-kw. (s|
|00004fa0| 65 65 20 61 6c 73 6f 0a | 65 69 66 2d 63 6f 6e 74 |ee also.|eif-cont|
|00004fb0| 72 6f 6c 2d 66 6c 6f 77 | 2d 6d 61 74 63 68 69 6e |rol-flow|-matchin|
|00004fc0| 67 2d 6b 65 79 77 6f 72 | 64 73 29 1f 0a 28 64 65 |g-keywor|ds)..(de|
|00004fd0| 66 76 61 72 20 65 69 66 | 2d 72 65 73 63 75 65 2d |fvar eif|-rescue-|
|00004fe0| 6d 61 74 63 68 69 6e 67 | 2d 6b 65 79 77 6f 72 64 |matching|-keyword|
|00004ff0| 73 20 22 5c 5c 28 64 65 | 66 65 72 72 65 64 5c 5c |s "\\(de|ferred\\|
|00005000| 7c 64 6f 5c 5c 7c 6f 6e | 63 65 5c 5c 29 5b 5e 61 ||do\\|on|ce\\)[^a|
|00005010| 2d 7a 30 2d 39 5f 5d 22 | 20 28 23 24 20 2e 20 32 |-z0-9_]"| (#$ . 2|
|00005020| 30 31 34 36 29 29 0a 23 | 40 34 34 20 4b 65 79 77 |0146)).#|@44 Keyw|
|00005030| 6f 72 64 73 20 6f 63 63 | 75 72 69 6e 67 20 69 6e |ords occ|uring in|
|00005040| 73 69 64 65 20 6f 66 20 | 61 20 66 72 6f 6d 20 63 |side of |a from c|
|00005050| 6c 61 75 73 65 2e 1f 0a | 28 64 65 66 76 61 72 20 |lause...|(defvar |
|00005060| 65 69 66 2d 66 72 6f 6d | 2d 6c 65 76 65 6c 2d 6b |eif-from|-level-k|
|00005070| 65 79 77 6f 72 64 73 20 | 22 5c 5c 28 75 6e 74 69 |eywords |"\\(unti|
|00005080| 6c 5c 5c 7c 76 61 72 69 | 61 6e 74 5c 5c 7c 6c 6f |l\\|vari|ant\\|lo|
|00005090| 6f 70 5c 5c 29 5b 5e 61 | 2d 7a 30 2d 39 5f 5d 22 |op\\)[^a|-z0-9_]"|
|000050a0| 20 28 23 24 20 2e 20 32 | 30 35 32 34 29 29 0a 23 | (#$ . 2|0524)).#|
|000050b0| 40 32 31 20 54 68 65 20 | 6b 65 79 77 6f 72 64 20 |@21 The |keyword |
|000050c0| 60 66 72 6f 6d 27 2e 1f | 0a 28 64 65 66 76 61 72 |`from'..|.(defvar|
|000050d0| 20 65 69 66 2d 66 72 6f | 6d 2d 6b 65 79 77 6f 72 | eif-fro|m-keywor|
|000050e0| 64 20 22 66 72 6f 6d 22 | 20 28 23 24 20 2e 20 32 |d "from"| (#$ . 2|
|000050f0| 30 36 36 30 29 29 0a 23 | 40 35 34 20 4b 65 79 77 |0660)).#|@54 Keyw|
|00005100| 6f 72 64 73 20 6f 63 63 | 75 72 69 6e 67 20 69 6e |ords occ|uring in|
|00005110| 73 69 64 65 20 6f 66 20 | 61 6e 20 69 66 20 6f 72 |side of |an if or|
|00005120| 20 69 6e 73 70 65 63 74 | 20 63 6c 61 75 73 65 2e | inspect| clause.|
|00005130| 1f 0a 28 64 65 66 76 61 | 72 20 65 69 66 2d 69 66 |..(defva|r eif-if|
|00005140| 2d 6f 72 2d 69 6e 73 70 | 65 63 74 2d 6c 65 76 65 |-or-insp|ect-leve|
|00005150| 6c 2d 6b 65 79 77 6f 72 | 64 73 20 22 5c 5c 28 65 |l-keywor|ds "\\(e|
|00005160| 6c 73 65 69 66 5c 5c 7c | 65 6c 73 65 5c 5c 7c 77 |lseif\\||else\\|w|
|00005170| 68 65 6e 5c 5c 29 5b 5e | 61 2d 7a 30 2d 39 5f 5d |hen\\)[^|a-z0-9_]|
|00005180| 22 20 28 23 24 20 2e 20 | 32 30 37 33 32 29 29 0a |" (#$ . |20732)).|
|00005190| 23 40 33 33 20 54 68 65 | 20 60 69 66 27 20 6f 72 |#@33 The| `if' or|
|000051a0| 20 60 69 6e 73 70 65 63 | 74 27 20 6b 65 79 77 6f | `inspec|t' keywo|
|000051b0| 72 64 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 65 69 |rds...(d|efvar ei|
|000051c0| 66 2d 69 66 2d 6f 72 2d | 69 6e 73 70 65 63 74 2d |f-if-or-|inspect-|
|000051d0| 6b 65 79 77 6f 72 64 20 | 22 5c 5c 28 69 66 5c 5c |keyword |"\\(if\\|
|000051e0| 7c 69 6e 73 70 65 63 74 | 5c 5c 29 5b 5e 61 2d 7a ||inspect|\\)[^a-z|
|000051f0| 30 2d 39 5f 5d 22 20 28 | 23 24 20 2e 20 32 30 38 |0-9_]" (|#$ . 208|
|00005200| 38 35 29 29 0a 23 40 34 | 38 20 54 68 65 20 6b 65 |85)).#@4|8 The ke|
|00005210| 79 77 6f 72 64 20 60 74 | 68 65 6e 27 20 77 69 74 |yword `t|hen' wit|
|00005220| 68 20 70 6f 73 73 69 62 | 6c 65 20 6c 65 61 64 69 |h possib|le leadi|
|00005230| 6e 67 20 74 65 78 74 2e | 1f 0a 28 64 65 66 76 61 |ng text.|..(defva|
|00005240| 72 20 65 69 66 2d 74 68 | 65 6e 2d 6b 65 79 77 6f |r eif-th|en-keywo|
|00005250| 72 64 20 22 2e 2a 5b 20 | 09 29 5d 74 68 65 6e 5b |rd ".*[ |.)]then[|
|00005260| 20 09 5d 2a 24 22 20 28 | 23 24 20 2e 20 32 31 30 | .]*$" (|#$ . 210|
|00005270| 30 32 29 29 0a 23 40 32 | 31 20 54 68 65 20 6b 65 |02)).#@2|1 The ke|
|00005280| 79 77 6f 72 64 20 60 74 | 68 65 6e 27 2e 1f 0a 28 |yword `t|hen'...(|
|00005290| 64 65 66 76 61 72 20 65 | 69 66 2d 73 6f 6c 69 74 |defvar e|if-solit|
|000052a0| 61 72 79 2d 74 68 65 6e | 2d 6b 65 79 77 6f 72 64 |ary-then|-keyword|
|000052b0| 20 22 74 68 65 6e 22 20 | 28 23 24 20 2e 20 32 31 | "then" |(#$ . 21|
|000052c0| 31 31 34 29 29 0a 23 40 | 32 37 37 20 4b 65 79 77 |114)).#@|277 Keyw|
|000052d0| 6f 72 64 73 20 77 68 6f | 73 65 20 6f 63 63 75 72 |ords who|se occur|
|000052e0| 72 65 6e 63 65 20 70 72 | 69 6f 72 20 74 6f 20 61 |rence pr|ior to a|
|000052f0| 20 74 68 65 6e 2d 6b 65 | 79 77 6f 72 64 20 73 65 | then-ke|yword se|
|00005300| 74 73 20 74 68 65 0a 69 | 6e 64 65 6e 74 61 74 69 |ts the.i|ndentati|
|00005310| 6f 6e 20 6f 66 20 74 68 | 65 20 74 68 65 6e 2d 6b |on of th|e then-k|
|00005320| 65 79 77 6f 72 64 2e 20 | 4e 6f 74 65 20 74 68 61 |eyword. |Note tha|
|00005330| 74 20 74 65 63 68 6e 69 | 63 61 6c 6c 79 2c 20 60 |t techni|cally, `|
|00005340| 65 6e 64 27 20 69 73 0a | 70 61 72 74 20 6f 66 20 |end' is.|part of |
|00005350| 74 68 69 73 20 6c 69 73 | 74 20 62 75 74 20 69 74 |this lis|t but it|
|00005360| 20 69 73 20 68 61 6e 64 | 6c 65 64 20 73 65 70 61 | is hand|led sepa|
|00005370| 72 61 74 65 6c 79 20 69 | 6e 20 74 68 65 20 66 75 |rately i|n the fu|
|00005380| 6e 63 74 69 6f 6e 73 3a | 0a 65 69 66 2d 6d 61 74 |nctions:|.eif-mat|
|00005390| 63 68 69 6e 67 2d 69 6e | 64 65 6e 74 20 61 6e 64 |ching-in|dent and|
|000053a0| 20 65 69 66 2d 6d 61 74 | 63 68 69 6e 67 2d 6b 77 | eif-mat|ching-kw|
|000053b0| 2e 20 28 73 65 65 20 61 | 6c 73 6f 0a 65 69 66 2d |. (see a|lso.eif-|
|000053c0| 63 6f 6e 74 72 6f 6c 2d | 66 6c 6f 77 2d 6d 61 74 |control-|flow-mat|
|000053d0| 63 68 69 6e 67 2d 6b 65 | 79 77 6f 72 64 73 29 1f |ching-ke|ywords).|
|000053e0| 0a 28 64 65 66 76 61 72 | 20 65 69 66 2d 74 68 65 |.(defvar| eif-the|
|000053f0| 6e 2d 6d 61 74 63 68 69 | 6e 67 2d 6b 65 79 77 6f |n-matchi|ng-keywo|
|00005400| 72 64 73 20 22 5c 5c 28 | 69 66 5c 5c 7c 65 6c 73 |rds "\\(|if\\|els|
|00005410| 65 69 66 5c 5c 7c 77 68 | 65 6e 5c 5c 29 22 20 28 |eif\\|wh|en\\)" (|
|00005420| 23 24 20 2e 20 32 31 31 | 39 36 29 29 0a 23 40 32 |#$ . 211|96)).#@2|
|00005430| 36 20 54 68 65 20 60 69 | 6e 76 61 72 69 61 6e 74 |6 The `i|nvariant|
|00005440| 27 20 6b 65 79 77 6f 72 | 64 2e 1f 0a 28 64 65 66 |' keywor|d...(def|
|00005450| 76 61 72 20 65 69 66 2d | 69 6e 76 61 72 69 61 6e |var eif-|invarian|
|00005460| 74 2d 6b 65 79 77 6f 72 | 64 20 22 69 6e 76 61 72 |t-keywor|d "invar|
|00005470| 69 61 6e 74 22 20 28 23 | 24 20 2e 20 32 31 35 35 |iant" (#|$ . 2155|
|00005480| 34 29 29 0a 23 40 32 39 | 30 20 4b 65 79 77 6f 72 |4)).#@29|0 Keywor|
|00005490| 64 73 20 77 68 6f 73 65 | 20 6f 63 63 75 72 72 65 |ds whose| occurre|
|000054a0| 6e 63 65 20 70 72 69 6f | 72 20 74 6f 20 61 6e 20 |nce prio|r to an |
|000054b0| 69 6e 76 61 72 69 61 6e | 74 2d 6b 65 79 77 6f 72 |invarian|t-keywor|
|000054c0| 64 20 63 61 75 73 65 73 | 20 74 68 65 0a 69 6e 64 |d causes| the.ind|
|000054d0| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |entation| of the |
|000054e0| 69 6e 76 61 72 69 61 6e | 74 2d 6b 65 79 77 6f 72 |invarian|t-keywor|
|000054f0| 64 2e 20 4e 6f 74 65 20 | 74 68 61 74 20 74 65 63 |d. Note |that tec|
|00005500| 68 6e 69 63 61 6c 6c 79 | 2c 20 60 65 6e 64 27 0a |hnically|, `end'.|
|00005510| 69 73 20 70 61 72 74 20 | 6f 66 20 74 68 69 73 20 |is part |of this |
|00005520| 6c 69 73 74 20 62 75 74 | 20 69 74 20 69 73 20 68 |list but| it is h|
|00005530| 61 6e 64 6c 65 64 20 73 | 65 70 61 72 61 74 65 6c |andled s|eparatel|
|00005540| 79 20 69 6e 20 74 68 65 | 20 66 75 6e 63 74 69 6f |y in the| functio|
|00005550| 6e 73 3a 0a 65 69 66 2d | 6d 61 74 63 68 69 6e 67 |ns:.eif-|matching|
|00005560| 2d 69 6e 64 65 6e 74 20 | 61 6e 64 20 65 69 66 2d |-indent |and eif-|
|00005570| 6d 61 74 63 68 69 6e 67 | 2d 6b 77 2e 20 28 73 65 |matching|-kw. (se|
|00005580| 65 20 61 6c 73 6f 0a 65 | 69 66 2d 63 6f 6e 74 72 |e also.e|if-contr|
|00005590| 6f 6c 2d 66 6c 6f 77 2d | 6d 61 74 63 68 69 6e 67 |ol-flow-|matching|
|000055a0| 2d 6b 65 79 77 6f 72 64 | 73 29 1f 0a 28 64 65 66 |-keyword|s)..(def|
|000055b0| 76 61 72 20 65 69 66 2d | 69 6e 76 61 72 69 61 6e |var eif-|invarian|
|000055c0| 74 2d 6d 61 74 63 68 69 | 6e 67 2d 6b 65 79 77 6f |t-matchi|ng-keywo|
|000055d0| 72 64 73 20 22 5c 5c 28 | 66 72 6f 6d 5c 5c 7c 66 |rds "\\(|from\\|f|
|000055e0| 65 61 74 75 72 65 5c 5c | 29 22 20 28 23 24 20 2e |eature\\|)" (#$ .|
|000055f0| 20 32 31 36 34 32 29 29 | 0a 23 40 31 30 34 20 4b | 21642))|.#@104 K|
|00005600| 65 79 77 6f 72 64 73 20 | 77 68 6f 73 65 20 6f 63 |eywords |whose oc|
|00005610| 63 75 72 72 65 6e 63 65 | 20 70 72 69 6f 72 20 74 |currence| prior t|
|00005620| 6f 20 61 6e 20 6f 62 73 | 6f 6c 65 74 65 2d 6b 65 |o an obs|olete-ke|
|00005630| 79 77 6f 72 64 20 63 61 | 75 73 65 73 20 74 68 65 |yword ca|uses the|
|00005640| 0a 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 |.indenta|tion of |
|00005650| 74 68 65 20 6f 62 73 6f | 6c 65 74 65 2d 6b 65 79 |the obso|lete-key|
|00005660| 77 6f 72 64 2e 1f 0a 28 | 64 65 66 76 61 72 20 65 |word...(|defvar e|
|00005670| 69 66 2d 6f 62 73 6f 6c | 65 74 65 2d 6d 61 74 63 |if-obsol|ete-matc|
|00005680| 68 69 6e 67 2d 6b 65 79 | 77 6f 72 64 73 20 22 5c |hing-key|words "\|
|00005690| 5c 28 69 73 5c 5c 7c 63 | 6c 61 73 73 5c 5c 29 22 |\(is\\|c|lass\\)"|
|000056a0| 20 28 23 24 20 2e 20 32 | 32 30 31 35 29 29 0a 23 | (#$ . 2|2015)).#|
|000056b0| 40 32 36 20 52 45 20 74 | 6f 20 6c 6f 63 61 74 65 |@26 RE t|o locate|
|000056c0| 20 77 68 69 74 65 73 70 | 61 63 65 2e 1f 0a 28 64 | whitesp|ace...(d|
|000056d0| 65 66 76 61 72 20 65 69 | 66 2d 77 68 69 74 65 2d |efvar ei|f-white-|
|000056e0| 73 70 61 63 65 2d 72 65 | 67 65 78 70 20 22 5b 20 |space-re|gexp "[ |
|000056f0| 09 5d 2a 22 20 28 23 24 | 20 2e 20 32 32 31 39 36 |.]*" (#$| . 22196|
|00005700| 29 29 0a 23 40 34 32 20 | 52 45 20 74 6f 20 6d 61 |)).#@42 |RE to ma|
|00005710| 74 63 68 20 61 20 6c 69 | 6e 65 20 77 69 74 68 20 |tch a li|ne with |
|00005720| 61 20 63 6f 6d 6d 65 6e | 74 20 6f 6e 20 69 74 2e |a commen|t on it.|
|00005730| 1f 0a 28 64 65 66 76 61 | 72 20 65 69 66 2d 63 6f |..(defva|r eif-co|
|00005740| 6d 6d 65 6e 74 2d 6c 69 | 6e 65 2d 72 65 67 65 78 |mment-li|ne-regex|
|00005750| 70 20 22 5b 20 09 5d 2a | 5c 5c 28 2d 2d 2e 2a 5c |p "[ .]*|\\(--.*\|
|00005760| 5c 29 24 22 20 28 23 24 | 20 2e 20 32 32 32 38 30 |\)$" (#$| . 22280|
|00005770| 29 29 0a 23 40 35 37 20 | 52 45 20 74 6f 20 6d 61 |)).#@57 |RE to ma|
|00005780| 74 63 68 20 61 20 6c 69 | 6e 65 20 77 69 74 68 20 |tch a li|ne with |
|00005790| 61 20 6f 6e 6c 79 20 61 | 20 63 6f 6d 6d 65 6e 74 |a only a| comment|
|000057a0| 20 6f 72 20 77 68 69 74 | 65 73 70 61 63 65 2e 1f | or whit|espace..|
|000057b0| 0a 28 64 65 66 76 61 72 | 20 65 69 66 2d 6e 6f 6e |.(defvar| eif-non|
|000057c0| 2d 73 6f 75 72 63 65 2d | 6c 69 6e 65 20 22 5b 20 |-source-|line "[ |
|000057d0| 09 5d 2a 5c 5c 28 2d 2d | 2e 2a 5c 5c 29 3f 24 22 |.]*\\(--|.*\\)?$"|
|000057e0| 20 28 23 24 20 2e 20 32 | 32 33 39 32 29 29 0a 23 | (#$ . 2|2392)).#|
|000057f0| 40 34 39 20 52 45 20 74 | 6f 20 6d 61 74 63 68 20 |@49 RE t|o match |
|00005800| 61 20 76 61 72 69 61 62 | 6c 65 20 6f 72 20 63 6f |a variab|le or co|
|00005810| 6e 73 74 61 6e 74 20 64 | 65 63 6c 61 72 61 74 69 |nstant d|eclarati|
|00005820| 6f 6e 2e 1f 0a 28 64 65 | 66 76 61 72 20 65 69 66 |on...(de|fvar eif|
|00005830| 2d 76 61 72 69 61 62 6c | 65 2d 6f 72 2d 63 6f 6e |-variabl|e-or-con|
|00005840| 73 74 2d 72 65 67 65 78 | 70 20 22 5b 5e 28 29 5c |st-regex|p "[^()\|
|00005850| 6e 5d 2a 3a 5b 5e 3d 5d | 2e 2a 22 20 28 23 24 20 |n]*:[^=]|.*" (#$ |
|00005860| 2e 20 32 32 35 31 36 29 | 29 0a 23 40 37 34 20 52 |. 22516)|).#@74 R|
|00005870| 45 20 74 6f 20 69 64 65 | 6e 74 69 66 79 20 74 68 |E to ide|ntify th|
|00005880| 65 20 70 72 65 73 65 6e | 63 65 20 6f 66 20 61 6e |e presen|ce of an|
|00005890| 79 20 65 69 66 66 65 6c | 20 6b 65 79 77 6f 72 64 |y eiffel| keyword|
|000058a0| 20 74 72 69 67 67 65 72 | 69 6e 67 20 69 6e 64 65 | trigger|ing inde|
|000058b0| 6e 74 61 74 69 6f 6e 1f | 0a 28 64 65 66 76 61 72 |ntation.|.(defvar|
|000058c0| 20 65 69 66 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e | eif-ind|entation|
|000058d0| 2d 6b 65 79 77 6f 72 64 | 73 2d 72 65 67 65 78 70 |-keyword|s-regexp|
|000058e0| 20 22 5c 5c 28 69 6e 64 | 65 78 69 6e 67 5c 5c 7c | "\\(ind|exing\\||
|000058f0| 63 6c 61 73 73 5c 5c 7c | 63 68 65 63 6b 5c 5c 7c |class\\||check\\||
|00005900| 72 65 73 63 75 65 5c 5c | 7c 69 6e 68 65 72 69 74 |rescue\\||inherit|
|00005910| 5c 5c 7c 63 72 65 61 74 | 69 6f 6e 5c 5c 7c 66 65 |\\|creat|ion\\|fe|
|00005920| 61 74 75 72 65 5c 5c 7c | 69 6e 76 61 72 69 61 6e |ature\\||invarian|
|00005930| 74 5c 5c 7c 72 65 6e 61 | 6d 65 5c 5c 7c 72 65 64 |t\\|rena|me\\|red|
|00005940| 65 66 69 6e 65 5c 5c 7c | 75 6e 64 65 66 69 6e 65 |efine\\||undefine|
|00005950| 5c 5c 7c 73 65 6c 65 63 | 74 5c 5c 7c 65 78 70 6f |\\|selec|t\\|expo|
|00005960| 72 74 5c 5c 7c 72 65 71 | 75 69 72 65 5c 5c 7c 6c |rt\\|req|uire\\|l|
|00005970| 6f 63 61 6c 5c 5c 7c 64 | 65 66 65 72 72 65 64 5c |ocal\\|d|eferred\|
|00005980| 5c 7c 64 6f 5c 5c 7c 6f | 6e 63 65 5c 5c 7c 65 6e |\|do\\|o|nce\\|en|
|00005990| 73 75 72 65 5c 5c 7c 61 | 6c 69 61 73 5c 5c 7c 65 |sure\\|a|lias\\|e|
|000059a0| 78 74 65 72 6e 61 6c 5c | 5c 7c 69 66 5c 5c 7c 69 |xternal\|\|if\\|i|
|000059b0| 6e 73 70 65 63 74 5c 5c | 7c 66 72 6f 6d 5c 5c 7c |nspect\\||from\\||
|000059c0| 64 65 62 75 67 5c 5c 7c | 65 6c 73 65 5c 5c 7c 65 |debug\\||else\\|e|
|000059d0| 6c 73 65 69 66 5c 5c 7c | 77 68 65 6e 5c 5c 7c 75 |lseif\\||when\\|u|
|000059e0| 6e 74 69 6c 5c 5c 7c 76 | 61 72 69 61 6e 74 5c 5c |ntil\\|v|ariant\\|
|000059f0| 7c 69 6e 76 61 72 69 61 | 6e 74 5c 5c 7c 6c 6f 6f ||invaria|nt\\|loo|
|00005a00| 70 5c 5c 7c 6f 62 73 6f | 6c 65 74 65 5c 5c 29 5b |p\\|obso|lete\\)[|
|00005a10| 5e 61 2d 7a 30 2d 39 5f | 5d 22 20 28 23 24 20 2e |^a-z0-9_|]" (#$ .|
|00005a20| 20 32 32 36 33 39 29 29 | 0a 23 40 36 34 20 4b 65 | 22639))|.#@64 Ke|
|00005a30| 79 77 6f 72 64 73 20 77 | 68 69 63 68 20 64 65 6e |ywords w|hich den|
|00005a40| 6f 74 65 20 74 68 65 20 | 70 72 65 73 65 6e 63 65 |ote the |presence|
|00005a50| 20 6f 66 20 66 65 61 74 | 75 72 65 73 20 66 6f 6c | of feat|ures fol|
|00005a60| 6c 6f 77 69 6e 67 20 74 | 68 65 6d 2e 1f 0a 28 64 |lowing t|hem...(d|
|00005a70| 65 66 76 61 72 20 65 69 | 66 2d 66 65 61 74 75 72 |efvar ei|f-featur|
|00005a80| 65 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 2d 6b 65 |e-indent|ation-ke|
|00005a90| 79 77 6f 72 64 73 2d 72 | 65 67 65 78 70 20 22 5c |ywords-r|egexp "\|
|00005aa0| 5c 28 63 72 65 61 74 69 | 6f 6e 5c 5c 7c 66 65 61 |\(creati|on\\|fea|
|00005ab0| 74 75 72 65 5c 5c 29 5b | 5e 61 2d 7a 30 2d 39 5f |ture\\)[|^a-z0-9_|
|00005ac0| 5d 22 20 28 23 24 20 2e | 20 32 33 30 38 36 29 29 |]" (#$ .| 23086))|
|00005ad0| 0a 23 40 33 39 20 54 68 | 65 20 60 69 73 27 20 6b |.#@39 Th|e `is' k|
|00005ae0| 65 79 77 6f 72 64 20 28 | 77 69 74 68 20 73 6f 6d |eyword (|with som|
|00005af0| 65 20 63 6f 6e 74 65 78 | 74 29 2e 1f 0a 28 64 65 |e contex|t)...(de|
|00005b00| 66 76 61 72 20 65 69 66 | 2d 69 73 2d 6b 65 79 77 |fvar eif|-is-keyw|
|00005b10| 6f 72 64 2d 72 65 67 65 | 78 70 20 22 5c 5c 28 2e |ord-rege|xp "\\(.|
|00005b20| 2a 5b 20 09 29 5d 5c 5c | 29 3f 69 73 5b 20 09 5d |*[ .)]\\|)?is[ .]|
|00005b30| 2a 5c 5c 28 2d 2d 2e 2a | 5c 5c 29 3f 24 22 20 28 |*\\(--.*|\\)?$" (|
|00005b40| 23 24 20 2e 20 32 33 32 | 35 34 29 29 0a 23 40 33 |#$ . 232|54)).#@3|
|00005b50| 39 20 54 68 65 20 60 69 | 73 27 20 6b 65 79 77 6f |9 The `i|s' keywo|
|00005b60| 72 64 20 28 77 69 74 68 | 20 73 6f 6d 65 20 63 6f |rd (with| some co|
|00005b70| 6e 74 65 78 74 29 2e 1f | 0a 28 64 65 66 76 61 72 |ntext)..|.(defvar|
|00005b80| 20 65 69 66 2d 6d 75 6c | 74 69 6c 69 6e 65 2d 72 | eif-mul|tiline-r|
|00005b90| 6f 75 74 69 6e 65 2d 69 | 73 2d 6b 65 79 77 6f 72 |outine-i|s-keywor|
|00005ba0| 64 2d 72 65 67 65 78 70 | 20 22 2e 2a 28 5b 5e 29 |d-regexp| ".*([^)|
|00005bb0| 5d 2a 29 5c 5c 28 5b 20 | 09 5c 6e 5d 2a 5c 5c 7c |]*)\\([ |.\n]*\\||
|00005bc0| 5b 20 09 5c 6e 5d 2a 3a | 5b 5d 5b 20 09 5c 6e 41 |[ .\n]*:|[][ .\nA|
|00005bd0| 2d 5a 61 2d 78 30 2d 39 | 5f 2c 5d 2a 5c 5c 29 69 |-Za-x0-9|_,]*\\)i|
|00005be0| 73 5b 20 09 5d 2a 5c 5c | 28 2d 2d 2e 2a 5c 5c 29 |s[ .]*\\|(--.*\\)|
|00005bf0| 3f 24 22 20 28 23 24 20 | 2e 20 32 33 33 37 38 29 |?$" (#$ |. 23378)|
|00005c00| 29 0a 23 40 35 36 20 45 | 69 66 66 65 6c 20 6f 70 |).#@56 E|iffel op|
|00005c10| 65 72 61 74 6f 72 73 20 | 2d 20 75 73 65 64 20 74 |erators |- used t|
|00005c20| 6f 20 69 64 65 6e 74 69 | 66 79 20 63 6f 6e 74 69 |o identi|fy conti|
|00005c30| 6e 75 61 74 69 6f 6e 20 | 6c 69 6e 65 73 1f 0a 28 |nuation |lines..(|
|00005c40| 64 65 66 76 61 72 20 65 | 69 66 2d 6f 70 65 72 61 |defvar e|if-opera|
|00005c50| 74 6f 72 2d 72 65 67 65 | 78 70 20 22 5b 20 09 5d |tor-rege|xp "[ .]|
|00005c60| 2a 5c 5c 28 5b 40 2a 2f | 2b 5d 5c 5c 7c 2d 5b 5e |*\\([@*/|+]\\|-[^|
|00005c70| 2d 5d 5c 5c 7c 5c 5c 3c | 61 6e 64 5b 20 09 28 5d |-]\\|\\<|and[ .(]|
|00005c80| 5c 5c 7c 5c 5c 3c 6f 72 | 5b 20 09 28 5d 5c 5c 29 |\\|\\<or|[ .(]\\)|
|00005c90| 22 20 28 23 24 20 2e 20 | 32 33 35 35 39 29 29 0a |" (#$ . |23559)).|
|00005ca0| 23 40 35 36 20 45 69 66 | 66 65 6c 20 6f 70 65 72 |#@56 Eif|fel oper|
|00005cb0| 61 74 6f 72 73 20 2d 20 | 75 73 65 64 20 74 6f 20 |ators - |used to |
|00005cc0| 69 64 65 6e 74 69 66 79 | 20 63 6f 6e 74 69 6e 75 |identify| continu|
|00005cd0| 61 74 69 6f 6e 20 6c 69 | 6e 65 73 1f 0a 28 64 65 |ation li|nes..(de|
|00005ce0| 66 76 61 72 20 65 69 66 | 2d 6f 70 65 72 61 74 6f |fvar eif|-operato|
|00005cf0| 72 2d 65 6f 6c 2d 72 65 | 67 65 78 70 20 22 2e 2a |r-eol-re|gexp ".*|
|00005d00| 5c 5c 28 5b 40 2a 2f 2b | 2d 5d 5c 5c 7c 5c 5c 3c |\\([@*/+|-]\\|\\<|
|00005d10| 61 6e 64 5c 5c 7c 5c 5c | 3c 6f 72 5c 5c 7c 3a 3d |and\\|\\|<or\\|:=|
|00005d20| 5c 5c 29 5b 20 09 5d 2a | 24 22 20 28 23 24 20 2e |\\)[ .]*|$" (#$ .|
|00005d30| 20 32 33 37 31 37 29 29 | 0a 23 40 31 30 32 20 54 | 23717))|.#@102 T|
|00005d40| 68 65 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |he inden|tation o|
|00005d50| 66 20 74 68 65 20 6b 65 | 79 77 6f 72 64 20 66 6f |f the ke|yword fo|
|00005d60| 75 6e 64 20 6f 6e 20 74 | 68 65 20 6c 61 73 74 20 |und on t|he last |
|00005d70| 63 61 6c 6c 20 74 6f 20 | 65 69 66 2d 6d 61 74 63 |call to |eif-matc|
|00005d80| 68 69 6e 67 2d 6b 77 2e | 20 0a 2d 31 20 69 66 20 |hing-kw.| .-1 if |
|00005d90| 6e 6f 20 6d 61 74 63 68 | 20 77 61 73 20 66 6f 75 |no match| was fou|
|00005da0| 6e 64 2e 1f 0a 28 64 65 | 66 76 61 72 20 65 69 66 |nd...(de|fvar eif|
|00005db0| 2d 6d 61 74 63 68 69 6e | 67 2d 69 6e 64 65 6e 74 |-matchin|g-indent|
|00005dc0| 20 2d 31 20 28 23 24 20 | 2e 20 32 33 38 37 31 29 | -1 (#$ |. 23871)|
|00005dd0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00005de0| 21 ac 82 c2 11 c1 0b 42 | 13 c2 87 22 20 5b 62 6f |!......B|..." [bo|
|00005df0| 75 6e 64 70 20 65 69 66 | 2d 6d 61 74 63 68 69 6e |undp eif|-matchin|
|00005e00| 67 2d 6b 77 2d 66 6f 72 | 2d 65 6e 64 20 6e 69 6c |g-kw-for|-end nil|
|00005e10| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00005e20| 73 74 5d 20 32 29 0a 23 | 40 32 36 34 20 43 61 6c |st] 2).#|@264 Cal|
|00005e30| 63 75 6c 61 74 65 20 74 | 68 65 20 69 6e 64 65 6e |culate t|he inden|
|00005e40| 74 61 74 69 6f 6e 20 6f | 66 20 74 68 65 20 63 75 |tation o|f the cu|
|00005e50| 72 72 65 6e 74 20 6c 69 | 6e 65 20 6f 66 20 65 69 |rrent li|ne of ei|
|00005e60| 66 66 65 6c 20 63 6f 64 | 65 2e 20 54 68 69 73 0a |ffel cod|e. This.|
|00005e70| 66 75 6e 63 74 69 6f 6e | 20 67 65 6e 65 72 61 6c |function| general|
|00005e80| 6c 79 20 61 73 73 75 6d | 65 73 20 74 68 61 74 20 |ly assum|es that |
|00005e90| 74 68 65 20 70 72 65 63 | 65 64 69 6e 67 20 6c 69 |the prec|eding li|
|00005ea0| 6e 65 20 6f 66 20 63 6f | 64 65 20 69 73 0a 69 6e |ne of co|de is.in|
|00005eb0| 64 65 6e 74 65 64 20 70 | 72 6f 70 65 72 6c 79 2c |dented p|roperly,|
|00005ec0| 20 61 6c 74 68 6f 75 67 | 68 20 6c 69 6e 65 73 20 | althoug|h lines |
|00005ed0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 63 65 72 74 61 |containi|ng certa|
|00005ee0| 69 6e 20 63 6c 61 73 73 | 2d 6c 65 76 65 6c 0a 63 |in class|-level.c|
|00005ef0| 6f 6e 73 74 72 75 63 74 | 73 20 64 6f 20 6e 6f 74 |onstruct|s do not|
|00005f00| 20 72 65 71 75 69 72 65 | 20 63 6f 72 72 65 63 74 | require| correct|
|00005f10| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 | indenta|tion of |
|00005f20| 74 68 65 20 70 72 65 63 | 65 64 69 6e 67 20 6c 69 |the prec|eding li|
|00005f30| 6e 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ne...(de|falias '|
|00005f40| 65 69 66 2d 63 61 6c 63 | 2d 69 6e 64 65 6e 74 20 |eif-calc|-indent |
|00005f50| 23 5b 6e 69 6c 20 22 c0 | 89 c1 89 89 89 1a 1b 1c |#[nil ".|........|
|00005f60| 1d 1e 06 1e 07 8a c1 7f | 88 60 16 06 c0 79 88 c8 |........|.`...y..|
|00005f70| 0e 09 0e 06 ca 23 88 cb | 0e 0c 21 15 cb 0e 0d 21 |.....#..|..!....!|
|00005f80| 83 02 02 cb 0e 0e 21 ab | 8d 0e 0f 0e 10 5f 0e 11 |......!.|....._..|
|00005f90| 5c 5c 16 07 82 60 04 cb | 0e 12 21 ab 8d 0e 13 0e |\\...`..|..!.....|
|00005fa0| 10 5f 0e 14 5c 5c 16 07 | 82 60 04 cb 0e 15 21 ab |._..\\..|.`....!.|
|00005fb0| 8d 0e 16 0e 10 5f 0e 17 | 5c 5c 16 07 82 60 04 cb |....._..|\\...`..|
|00005fc0| 0e 18 21 ab f4 d9 da db | 0e 1c 21 5c 22 ab a2 0e |..!.....|..!\"...|
|00005fd0| 1d 0e 16 0e 10 5f 0e 17 | 5c 5c 55 ab 8c 0e 0f 0e |....._..|\\U.....|
|00005fe0| 10 5f 0e 11 5c 5c 16 07 | aa 8d 0e 1d 0e 10 5a 16 |._..\\..|......Z.|
|00005ff0| 07 aa 84 0e 1d 16 07 0e | 07 0e 1e 0e 10 5f 0e 1f |........|....._..|
|00006000| 5c 5c 58 83 60 04 8a c1 | 7f 88 60 64 57 ab 8e e0 |\\X.`...|..`dW...|
|00006010| 75 88 cb 0e 21 21 ab 85 | c1 7f 88 aa 6d cb 0e 21 |u...!!..|....m..!|
|00006020| 21 ac 8c 0e 13 0e 10 5f | 0e 14 5c 5c 16 07 aa 8a |!......_|..\\....|
|00006030| 0e 0f 0e 10 5f 0e 11 5c | 5c 16 07 29 82 60 04 cb |...._..\|\..).`..|
|00006040| 0e 5c 22 21 ab 9c db 0e | 23 21 14 d9 da 0c 5c 22 |.\"!....|#!....\"|
|00006050| ab 87 0e 1d 16 07 82 60 | 04 0e 1d 0e 10 5c 5c 16 |.......`|.....\\.|
|00006060| 07 82 60 04 cb 0e 24 21 | ab ae db 0e 25 21 14 d9 |..`...$!|....%!..|
|00006070| da 0c 5c 22 ab 90 0e 1d | 0e 26 0e 10 5f 0e 27 5c |..\"....|.&.._.'\|
|00006080| 5c 5c 5c 16 07 82 60 04 | 0e 1d 0e 10 0e 26 0e 10 |\\\...`.|.....&..|
|00006090| 5f 0e 27 5c 5c 5c 5c 5c | 5c 16 07 82 60 04 cb 0e |_.'\\\\\|\...`...|
|000060a0| 28 21 ab a2 db 0e 29 21 | 14 d9 da 0c 5c 22 ab 90 |(!....)!|....\"..|
|000060b0| 0e 1d 0e 2a 0e 10 5f 0e | 2b 5c 5c 5c 5c 16 07 82 |...*.._.|+\\\\...|
|000060c0| 60 04 0e 1d 16 07 82 60 | 04 cb 0e 2c 21 ab 9a d9 |`......`|...,!...|
|000060d0| da db 0e 2d 21 5c 22 ab | 8a 0e 1d 0e 10 5a 16 07 |...-!\".|.....Z..|
|000060e0| 82 60 04 0e 1d 16 07 82 | 60 04 cb 0e 2e 21 ab 9a |.`......|`....!..|
|000060f0| d9 da db 0e 2f 21 5c 22 | ab 8a 0e 1d 0e 10 5a 16 |..../!\"|......Z.|
|00006100| 07 82 60 04 0e 1d 16 07 | 82 60 04 cb 0e 30 21 ab |..`.....|.`...0!.|
|00006110| 92 dd 0e 31 21 0e 32 0e | 10 5f 0e 33 5c 5c 5c 5c |...1!.2.|._.3\\\\|
|00006120| 16 07 82 60 04 cb 0e 34 | 21 ab 9d d9 f5 db 0e 36 |...`...4|!......6|
|00006130| 21 5c 22 ab 87 0e 1d 16 | 07 82 60 04 0e 0f 0e 10 |!\".....|..`.....|
|00006140| 5f 0e 11 5c 5c 16 07 82 | 60 04 cb 0e 37 21 83 60 |_..\\...|`...7!.`|
|00006150| 04 d9 f8 db 0e 39 21 5c | 22 ab 8d 0e 16 0e 10 5f |.....9!\|"......_|
|00006160| 0e 17 5c 5c 16 07 82 60 | 04 0e 0f 0e 10 5f 0e 11 |..\\...`|....._..|
|00006170| 5c 5c 16 07 82 60 04 fa | 20 c0 56 ab 89 fb 20 89 |\\...`..| .V... .|
|00006180| 16 07 fc 56 ac 87 fd 20 | 89 16 07 ab 8e cb fe 21 |...V... |.......!|
|00006190| 83 60 04 0e 07 53 16 07 | 82 60 04 c0 79 88 cb 0e |.`...S..|.`..y...|
|000061a0| 3f 21 ab 84 ca 13 aa 82 | c1 13 cb 81 40 00 21 ab |?!......|....@.!.|
|000061b0| 84 ca 12 aa 82 c1 12 fc | 79 88 c0 79 88 cb 0e 21 |........|y..y...!|
|000061c0| 21 ab 90 60 e0 55 ac 8b | 81 41 00 e0 21 88 c0 79 |!..`.U..|.A..!..y|
|000061d0| 88 aa 6a 81 42 00 20 ab | 85 81 43 00 20 88 c1 7f |..j.B. .|..C. ...|
|000061e0| 88 60 16 06 c0 79 88 c8 | 0e 09 0e 06 ca 23 88 60 |.`...y..|.....#.`|
|000061f0| e0 55 ab 91 0d ab 8e 0e | 44 0e 10 5f 0e 45 5c 5c |.U......|D.._.E\\|
|00006200| 89 16 07 84 60 04 cb 0e | 46 21 ac 8c cb 0e 47 21 |....`...|F!....G!|
|00006210| ac 86 cb 0e 37 21 ab 9d | 0d ab 8d 0e 48 0e 10 5f |....7!..|....H.._|
|00006220| 0e 49 5c 5c 16 07 82 60 | 04 0e 16 0e 10 5f 0e 17 |.I\\...`|....._..|
|00006230| 5c 5c 16 07 82 60 04 cb | 0e 4a 21 ab 8d 0e 1e 0e |\\...`..|.J!.....|
|00006240| 10 5f 0e 1f 5c 5c 16 07 | 82 60 04 cb 0e 4b 21 ab |._..\\..|.`...K!.|
|00006250| 9b cb 0e 4c 21 ab 89 81 | 4d 00 20 16 07 82 60 04 |...L!...|M. ...`.|
|00006260| 81 4d 00 20 0e 10 5c 5c | 16 07 82 60 04 cb 0e 30 |.M. ..\\|...`...0|
|00006270| 21 ab 95 81 4d 00 20 0e | 10 5c 5c 0e 32 0e 10 5f |!...M. .|.\\.2.._|
|00006280| 0e 33 5c 5c 5a 16 07 82 | 60 04 cb 0e 4e 21 ab 89 |.3\\Z...|`...N!..|
|00006290| 81 4d 00 20 16 07 82 60 | 04 cb 0e 18 0e 4f 50 21 |.M. ...`|.....OP!|
|000062a0| ab bd 81 4d 00 20 89 16 | 07 0e 16 0e 10 5f 0e 17 |...M. ..|....._..|
|000062b0| 5c 5c 55 ab 8d 0e 1e 0e | 10 5f 0e 1f 5c 5c 16 07 |\\U.....|._..\\..|
|000062c0| 82 60 04 81 50 00 20 88 | d9 0e 51 0e 52 5c 22 83 |.`..P. .|..Q.R\".|
|000062d0| 60 04 0e 07 0e 26 0e 10 | 5f 0e 27 5c 5c 5a 16 07 |`....&..|_.'\\Z..|
|000062e0| 82 60 04 cb 0e 53 21 ab | c6 0d ab af 81 4d 00 20 |.`...S!.|.....M. |
|000062f0| 89 16 07 0e 1e 0e 10 5f | 0e 1f 5c 5c 55 ab 8d 0e |......._|..\\U...|
|00006300| 48 0e 10 5f 0e 49 5c 5c | 16 07 82 60 04 0e 07 0e |H.._.I\\|...`....|
|00006310| 54 0e 10 5f 0e 55 5c 5c | 5c 5c 16 07 82 60 04 81 |T.._.U\\|\\...`..|
|00006320| 56 00 5c 6e 21 89 16 07 | 84 60 04 81 4d 00 20 16 |V.\n!...|.`..M. .|
|00006330| 07 82 60 04 81 57 00 20 | 89 16 07 84 60 04 cb 0e |..`..W. |....`...|
|00006340| 0d 21 84 60 04 0d ab d0 | 81 58 00 20 ab 95 81 4d |.!.`....|.X. ...M|
|00006350| 00 20 0e 10 5a 0e 54 0e | 10 5f 0e 55 5c 5c 5c 5c |. ..Z.T.|._.U\\\\|
|00006360| 16 07 82 60 04 81 4d 00 | 20 0e 1e 0e 10 5f 0e 1f |...`..M.| ...._..|
|00006370| 5c 5c 55 ab 95 0e 13 0e | 10 5f 0e 14 5c 5c 0e 54 |\\U.....|._..\\.T|
|00006380| 0e 10 5f 0e 55 5c 5c 5c | 5c 16 07 aa de 81 4d 00 |.._.U\\\|\.....M.|
|00006390| 20 0e 54 0e 10 5f 0e 55 | 5c 5c 5c 5c 16 07 aa cd | .T.._.U|\\\\....|
|000063a0| c0 79 88 0b ac 86 cb 0e | 59 21 ab 9f 81 58 00 20 |.y......|Y!...X. |
|000063b0| ab 88 81 4d 00 20 16 07 | aa b3 81 4d 00 20 0e 5a |...M. ..|...M. .Z|
|000063c0| 0e 10 5f 0e 5b 5c 5c 5c | 5c 16 07 aa a2 81 58 00 |.._.[\\\|\.....X.|
|000063d0| 20 ab 96 5c 6e ab 88 81 | 5c 5c 00 20 16 07 aa 91 | ..\n...|\\. ....|
|000063e0| 81 4d 00 20 0e 10 5a 16 | 07 aa 86 81 4d 00 20 16 |.M. ..Z.|....M. .|
|000063f0| 07 29 0e 07 2e 06 87 22 | 20 5b 30 20 6e 69 6c 20 |.)....."| [0 nil |
+--------+-------------------------+-------------------------+--------+--------+