home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 50.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 32 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:26 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 61 64 61 2d 6d 6f | 64 65 2e 65 6c 0a 3b 3b |s/ada-mo|de.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))). |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 61 64 61 2d 6d | (error| "`ada-m|
|000001f0| 6f 64 65 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ode.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |l))...(c|ustom-de|
|00000260| 63 6c 61 72 65 2d 67 72 | 6f 75 70 20 27 61 64 61 |clare-gr|oup 'ada|
|00000270| 20 6e 69 6c 20 22 4d 61 | 6a 6f 72 20 6d 6f 64 65 | nil "Ma|jor mode|
|00000280| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 41 64 61 | for edi|ting Ada|
|00000290| 20 73 6f 75 72 63 65 20 | 69 6e 20 45 6d 61 63 73 | source |in Emacs|
|000002a0| 22 20 3a 67 72 6f 75 70 | 20 27 6c 61 6e 67 75 61 |" :group| 'langua|
|000002b0| 67 65 73 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |ges).(cu|stom-dec|
|000002c0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 61 |lare-var|iable 'a|
|000002d0| 64 61 2d 69 6e 64 65 6e | 74 20 27 33 20 22 2a 44 |da-inden|t '3 "*D|
|000002e0| 65 66 69 6e 65 73 20 74 | 68 65 20 73 69 7a 65 20 |efines t|he size |
|000002f0| 6f 66 20 41 64 61 20 69 | 6e 64 65 6e 74 61 74 69 |of Ada i|ndentati|
|00000300| 6f 6e 2e 22 20 3a 74 79 | 70 65 20 27 69 6e 74 65 |on." :ty|pe 'inte|
|00000310| 67 65 72 20 3a 67 72 6f | 75 70 20 27 61 64 61 29 |ger :gro|up 'ada)|
|00000320| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00000330| 2d 76 61 72 69 61 62 6c | 65 20 27 61 64 61 2d 62 |-variabl|e 'ada-b|
|00000340| 72 6f 6b 65 6e 2d 69 6e | 64 65 6e 74 20 27 32 20 |roken-in|dent '2 |
|00000350| 22 2a 23 20 6f 66 20 63 | 6f 6c 75 6d 6e 73 20 74 |"*# of c|olumns t|
|00000360| 6f 20 69 6e 64 65 6e 74 | 20 74 68 65 20 63 6f 6e |o indent| the con|
|00000370| 74 69 6e 75 61 74 69 6f | 6e 20 6f 66 20 61 20 62 |tinuatio|n of a b|
|00000380| 72 6f 6b 65 6e 20 6c 69 | 6e 65 2e 22 20 3a 74 79 |roken li|ne." :ty|
|00000390| 70 65 20 27 69 6e 74 65 | 67 65 72 20 3a 67 72 6f |pe 'inte|ger :gro|
|000003a0| 75 70 20 27 61 64 61 29 | 0a 28 63 75 73 74 6f 6d |up 'ada)|.(custom|
|000003b0| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|000003c0| 65 20 27 61 64 61 2d 6c | 61 62 65 6c 2d 69 6e 64 |e 'ada-l|abel-ind|
|000003d0| 65 6e 74 20 27 2d 34 20 | 22 2a 23 20 6f 66 20 63 |ent '-4 |"*# of c|
|000003e0| 6f 6c 75 6d 6e 73 20 74 | 6f 20 69 6e 64 65 6e 74 |olumns t|o indent|
|000003f0| 20 61 20 6c 61 62 65 6c | 2e 22 20 3a 74 79 70 65 | a label|." :type|
|00000400| 20 27 69 6e 74 65 67 65 | 72 20 3a 67 72 6f 75 70 | 'intege|r :group|
|00000410| 20 27 61 64 61 29 0a 28 | 63 75 73 74 6f 6d 2d 64 | 'ada).(|custom-d|
|00000420| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000430| 27 61 64 61 2d 73 74 6d | 74 2d 65 6e 64 2d 69 6e |'ada-stm|t-end-in|
|00000440| 64 65 6e 74 20 27 30 20 | 22 2a 23 20 6f 66 20 63 |dent '0 |"*# of c|
|00000450| 6f 6c 75 6d 6e 73 20 74 | 6f 20 69 6e 64 65 6e 74 |olumns t|o indent|
|00000460| 20 61 20 73 74 61 74 65 | 6d 65 6e 74 20 65 6e 64 | a state|ment end|
|00000470| 20 6b 65 79 77 6f 72 64 | 20 69 6e 20 61 20 73 65 | keyword| in a se|
|00000480| 70 61 72 61 74 65 20 6c | 69 6e 65 2e 5c 6e 45 78 |parate l|ine.\nEx|
|00000490| 61 6d 70 6c 65 73 20 61 | 72 65 20 27 69 73 27 2c |amples a|re 'is',|
|000004a0| 20 27 6c 6f 6f 70 27 2c | 20 27 72 65 63 6f 72 64 | 'loop',| 'record|
|000004b0| 27 2c 20 2e 2e 2e 22 20 | 3a 74 79 70 65 20 27 69 |', ..." |:type 'i|
|000004c0| 6e 74 65 67 65 72 20 3a | 67 72 6f 75 70 20 27 61 |nteger :|group 'a|
|000004d0| 64 61 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |da).(cus|tom-decl|
|000004e0| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 61 64 |are-vari|able 'ad|
|000004f0| 61 2d 77 68 65 6e 2d 69 | 6e 64 65 6e 74 20 27 33 |a-when-i|ndent '3|
|00000500| 20 22 2a 44 65 66 69 6e | 65 73 20 74 68 65 20 69 | "*Defin|es the i|
|00000510| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 27 |ndentati|on for '|
|00000520| 77 68 65 6e 27 20 72 65 | 6c 61 74 69 76 65 20 74 |when' re|lative t|
|00000530| 6f 20 27 65 78 63 65 70 | 74 69 6f 6e 27 20 6f 72 |o 'excep|tion' or|
|00000540| 20 27 63 61 73 65 27 2e | 22 20 3a 74 79 70 65 20 | 'case'.|" :type |
|00000550| 27 69 6e 74 65 67 65 72 | 20 3a 67 72 6f 75 70 20 |'integer| :group |
|00000560| 27 61 64 61 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |'ada).(c|ustom-de|
|00000570| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000580| 61 64 61 2d 69 6e 64 65 | 6e 74 2d 72 65 63 6f 72 |ada-inde|nt-recor|
|00000590| 64 2d 72 65 6c 2d 74 79 | 70 65 20 27 33 20 22 2a |d-rel-ty|pe '3 "*|
|000005a0| 44 65 66 69 6e 65 73 20 | 74 68 65 20 69 6e 64 65 |Defines |the inde|
|000005b0| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 27 72 65 63 |ntation |for 'rec|
|000005c0| 6f 72 64 27 20 72 65 6c | 61 74 69 76 65 20 74 6f |ord' rel|ative to|
|000005d0| 20 27 74 79 70 65 27 20 | 6f 72 20 27 75 73 65 27 | 'type' |or 'use'|
|000005e0| 2e 22 20 3a 74 79 70 65 | 20 27 69 6e 74 65 67 65 |." :type| 'intege|
|000005f0| 72 20 3a 67 72 6f 75 70 | 20 27 61 64 61 29 0a 28 |r :group| 'ada).(|
|00000600| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000610| 61 72 69 61 62 6c 65 20 | 27 61 64 61 2d 69 6e 64 |ariable |'ada-ind|
|00000620| 65 6e 74 2d 63 6f 6d 6d | 65 6e 74 2d 61 73 2d 63 |ent-comm|ent-as-c|
|00000630| 6f 64 65 20 27 74 20 22 | 2a 49 66 20 6e 6f 6e 2d |ode 't "|*If non-|
|00000640| 6e 69 6c 2c 20 63 6f 6d | 6d 65 6e 74 2d 6c 69 6e |nil, com|ment-lin|
|00000650| 65 73 20 67 65 74 20 69 | 6e 64 65 6e 74 65 64 20 |es get i|ndented |
|00000660| 61 73 20 41 64 61 20 63 | 6f 64 65 2e 22 20 3a 74 |as Ada c|ode." :t|
|00000670| 79 70 65 20 27 62 6f 6f | 6c 65 61 6e 20 3a 67 72 |ype 'boo|lean :gr|
|00000680| 6f 75 70 20 27 61 64 61 | 29 0a 28 63 75 73 74 6f |oup 'ada|).(custo|
|00000690| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|000006a0| 6c 65 20 27 61 64 61 2d | 69 6e 64 65 6e 74 2d 69 |le 'ada-|indent-i|
|000006b0| 73 2d 73 65 70 61 72 61 | 74 65 20 27 74 20 22 2a |s-separa|te 't "*|
|000006c0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 27 69 73 20 |If non-n|il, 'is |
|000006d0| 73 65 70 61 72 61 74 65 | 27 20 6f 72 20 27 69 73 |separate|' or 'is|
|000006e0| 20 61 62 73 74 72 61 63 | 74 27 20 6f 6e 20 61 20 | abstrac|t' on a |
|000006f0| 73 69 6e 67 6c 65 20 6c | 69 6e 65 20 61 72 65 20 |single l|ine are |
|00000700| 69 6e 64 65 6e 74 65 64 | 2e 22 20 3a 74 79 70 65 |indented|." :type|
|00000710| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|00000720| 20 27 61 64 61 29 0a 28 | 63 75 73 74 6f 6d 2d 64 | 'ada).(|custom-d|
|00000730| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000740| 27 61 64 61 2d 69 6e 64 | 65 6e 74 2d 74 6f 2d 6f |'ada-ind|ent-to-o|
|00000750| 70 65 6e 2d 70 61 72 65 | 6e 20 27 74 20 22 2a 49 |pen-pare|n 't "*I|
|00000760| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 69 6e 64 65 6e |f non-ni|l, inden|
|00000770| 74 20 61 63 63 6f 72 64 | 69 6e 67 20 74 6f 20 74 |t accord|ing to t|
|00000780| 68 65 20 69 6e 6e 65 72 | 6d 6f 73 74 20 6f 70 65 |he inner|most ope|
|00000790| 6e 20 70 61 72 65 6e 74 | 68 65 73 69 73 2e 22 20 |n parent|hesis." |
|000007a0| 3a 74 79 70 65 20 27 62 | 6f 6f 6c 65 61 6e 20 3a |:type 'b|oolean :|
|000007b0| 67 72 6f 75 70 20 27 61 | 64 61 29 0a 28 63 75 73 |group 'a|da).(cus|
|000007c0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|000007d0| 61 62 6c 65 20 27 61 64 | 61 2d 73 65 61 72 63 68 |able 'ad|a-search|
|000007e0| 2d 70 61 72 65 6e 2d 63 | 68 61 72 2d 63 6f 75 6e |-paren-c|har-coun|
|000007f0| 74 2d 6c 69 6d 69 74 20 | 27 33 30 30 30 20 22 2a |t-limit |'3000 "*|
|00000800| 53 65 61 72 63 68 20 74 | 68 61 74 20 6d 61 6e 79 |Search t|hat many|
|00000810| 20 63 68 61 72 61 63 74 | 65 72 73 20 66 6f 72 20 | charact|ers for |
|00000820| 61 6e 20 6f 70 65 6e 20 | 70 61 72 65 6e 74 68 65 |an open |parenthe|
|00000830| 73 69 73 2e 22 20 3a 74 | 79 70 65 20 27 69 6e 74 |sis." :t|ype 'int|
|00000840| 65 67 65 72 20 3a 67 72 | 6f 75 70 20 27 61 64 61 |eger :gr|oup 'ada|
|00000850| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00000860| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 61 64 61 2d |e-variab|le 'ada-|
|00000870| 74 61 62 2d 70 6f 6c 69 | 63 79 20 27 27 69 6e 64 |tab-poli|cy ''ind|
|00000880| 65 6e 74 2d 61 75 74 6f | 20 22 2a 43 6f 6e 74 72 |ent-auto| "*Contr|
|00000890| 6f 6c 20 62 65 68 61 76 | 69 6f 75 72 20 6f 66 20 |ol behav|iour of |
|000008a0| 74 68 65 20 54 41 42 20 | 6b 65 79 2e 5c 6e 4d 75 |the TAB |key.\nMu|
|000008b0| 73 74 20 62 65 20 6f 6e | 65 20 6f 66 20 60 69 6e |st be on|e of `in|
|000008c0| 64 65 6e 74 2d 72 69 67 | 69 64 6c 79 27 2c 20 60 |dent-rig|idly', `|
|000008d0| 69 6e 64 65 6e 74 2d 61 | 75 74 6f 27 2c 20 60 67 |indent-a|uto', `g|
|000008e0| 65 69 27 2c 20 60 69 6e | 64 65 6e 74 2d 61 66 27 |ei', `in|dent-af'|
|000008f0| 5c 6e 6f 72 20 60 61 6c | 77 61 79 73 2d 74 61 62 |\nor `al|ways-tab|
|00000900| 27 2e 5c 6e 5c 6e 60 69 | 6e 64 65 6e 74 2d 72 69 |'.\n\n`i|ndent-ri|
|00000910| 67 69 64 6c 79 27 20 3a | 20 61 6c 77 61 79 73 20 |gidly' :| always |
|00000920| 61 64 64 73 20 61 64 61 | 2d 69 6e 64 65 6e 74 20 |adds ada|-indent |
|00000930| 62 6c 61 6e 6b 73 20 61 | 74 20 74 68 65 20 62 65 |blanks a|t the be|
|00000940| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 6c |ginning |of the l|
|00000950| 69 6e 65 2e 5c 6e 60 69 | 6e 64 65 6e 74 2d 61 75 |ine.\n`i|ndent-au|
|00000960| 74 6f 27 20 20 20 20 3a | 20 75 73 65 20 69 6e 64 |to' :| use ind|
|00000970| 65 6e 74 61 74 69 6f 6e | 20 66 75 6e 63 74 69 6f |entation| functio|
|00000980| 6e 73 20 69 6e 20 74 68 | 69 73 20 66 69 6c 65 2e |ns in th|is file.|
|00000990| 5c 6e 60 67 65 69 27 20 | 20 20 20 20 20 20 20 20 |\n`gei' | |
|000009a0| 20 20 20 3a 20 75 73 65 | 20 44 61 76 69 64 20 4b | : use| David K|
|000009b0| e5 67 65 64 61 6c 27 73 | 20 47 65 6e 65 72 69 63 |.gedal's| Generic|
|000009c0| 20 49 6e 64 65 6e 74 61 | 74 69 6f 6e 20 45 6e 67 | Indenta|tion Eng|
|000009d0| 69 6e 65 2e 5c 6e 60 69 | 6e 64 65 6e 74 2d 61 66 |ine.\n`i|ndent-af|
|000009e0| 27 20 20 20 20 20 20 3a | 20 75 73 65 20 47 61 72 |' :| use Gar|
|000009f0| 79 20 45 2e 20 42 61 72 | 6e 65 73 27 20 61 64 61 |y E. Bar|nes' ada|
|00000a00| 2d 66 6f 72 6d 61 74 2e | 65 6c 5c 6e 60 61 6c 77 |-format.|el\n`alw|
|00000a10| 61 79 73 2d 74 61 62 27 | 20 20 20 20 20 3a 20 64 |ays-tab'| : d|
|00000a20| 6f 20 69 6e 64 65 6e 74 | 2d 72 65 6c 61 74 69 76 |o indent|-relativ|
|00000a30| 65 2e 22 20 3a 74 79 70 | 65 20 27 28 63 68 6f 69 |e." :typ|e '(choi|
|00000a40| 63 65 20 28 63 6f 6e 73 | 74 20 69 6e 64 65 6e 74 |ce (cons|t indent|
|00000a50| 2d 61 75 74 6f 29 20 28 | 63 6f 6e 73 74 20 69 6e |-auto) (|const in|
|00000a60| 64 65 6e 74 2d 72 69 67 | 69 64 6c 79 29 20 28 63 |dent-rig|idly) (c|
|00000a70| 6f 6e 73 74 20 67 65 69 | 29 20 28 63 6f 6e 73 74 |onst gei|) (const|
|00000a80| 20 69 6e 64 65 6e 74 2d | 61 66 29 20 28 63 6f 6e | indent-|af) (con|
|00000a90| 73 74 20 61 6c 77 61 79 | 73 2d 74 61 62 29 29 20 |st alway|s-tab)) |
|00000aa0| 3a 67 72 6f 75 70 20 27 | 61 64 61 29 0a 28 63 75 |:group '|ada).(cu|
|00000ab0| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00000ac0| 69 61 62 6c 65 20 27 61 | 64 61 2d 6d 6f 76 65 2d |iable 'a|da-move-|
|00000ad0| 74 6f 2d 64 65 63 6c 61 | 72 61 74 69 6f 6e 20 27 |to-decla|ration '|
|00000ae0| 6e 69 6c 20 22 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |nil "*If| non-nil|
|00000af0| 2c 20 60 61 64 61 2d 6d | 6f 76 65 2d 74 6f 2d 73 |, `ada-m|ove-to-s|
|00000b00| 74 61 72 74 27 20 6d 6f | 76 65 73 20 70 6f 69 6e |tart' mo|ves poin|
|00000b10| 74 20 74 6f 20 74 68 65 | 20 73 75 62 70 72 6f 67 |t to the| subprog|
|00000b20| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 2c 5c 6e 6e | declara|tion,\nn|
|00000b30| 6f 74 20 74 6f 20 27 62 | 65 67 69 6e 27 2e 22 20 |ot to 'b|egin'." |
|00000b40| 3a 74 79 70 65 20 27 62 | 6f 6f 6c 65 61 6e 20 3a |:type 'b|oolean :|
|00000b50| 67 72 6f 75 70 20 27 61 | 64 61 29 0a 28 63 75 73 |group 'a|da).(cus|
|00000b60| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000b70| 61 62 6c 65 20 27 61 64 | 61 2d 73 70 65 63 2d 73 |able 'ad|a-spec-s|
|00000b80| 75 66 66 69 78 20 27 22 | 2e 61 64 73 22 20 22 2a |uffix '"|.ads" "*|
|00000b90| 53 75 66 66 69 78 20 6f | 66 20 41 64 61 20 73 70 |Suffix o|f Ada sp|
|00000ba0| 65 63 69 66 69 63 61 74 | 69 6f 6e 20 66 69 6c 65 |ecificat|ion file|
|00000bb0| 73 2e 22 20 3a 74 79 70 | 65 20 27 73 74 72 69 6e |s." :typ|e 'strin|
|00000bc0| 67 20 3a 67 72 6f 75 70 | 20 27 61 64 61 29 0a 28 |g :group| 'ada).(|
|00000bd0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000be0| 61 72 69 61 62 6c 65 20 | 27 61 64 61 2d 62 6f 64 |ariable |'ada-bod|
|00000bf0| 79 2d 73 75 66 66 69 78 | 20 27 22 2e 61 64 62 22 |y-suffix| '".adb"|
|00000c00| 20 22 2a 53 75 66 66 69 | 78 20 6f 66 20 41 64 61 | "*Suffi|x of Ada|
|00000c10| 20 62 6f 64 79 20 66 69 | 6c 65 73 2e 22 20 3a 74 | body fi|les." :t|
|00000c20| 79 70 65 20 27 73 74 72 | 69 6e 67 20 3a 67 72 6f |ype 'str|ing :gro|
|00000c30| 75 70 20 27 61 64 61 29 | 0a 28 63 75 73 74 6f 6d |up 'ada)|.(custom|
|00000c40| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000c50| 65 20 27 61 64 61 2d 73 | 70 65 63 2d 73 75 66 66 |e 'ada-s|pec-suff|
|00000c60| 69 78 2d 61 73 2d 72 65 | 67 65 78 70 20 27 22 5c |ix-as-re|gexp '"\|
|00000c70| 5c 2e 61 64 73 24 22 20 | 22 2a 52 65 67 65 78 70 |\.ads$" |"*Regexp|
|00000c80| 20 74 6f 20 66 69 6e 64 | 20 41 64 61 20 73 70 65 | to find| Ada spe|
|00000c90| 63 69 66 69 63 61 74 69 | 6f 6e 20 66 69 6c 65 73 |cificati|on files|
|00000ca0| 2e 22 20 3a 74 79 70 65 | 20 27 73 74 72 69 6e 67 |." :type| 'string|
|00000cb0| 20 3a 67 72 6f 75 70 20 | 27 61 64 61 29 0a 28 63 | :group |'ada).(c|
|00000cc0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000cd0| 72 69 61 62 6c 65 20 27 | 61 64 61 2d 62 6f 64 79 |riable '|ada-body|
|00000ce0| 2d 73 75 66 66 69 78 2d | 61 73 2d 72 65 67 65 78 |-suffix-|as-regex|
|00000cf0| 70 20 27 22 5c 5c 2e 61 | 64 62 24 22 20 22 2a 52 |p '"\\.a|db$" "*R|
|00000d00| 65 67 65 78 70 20 74 6f | 20 66 69 6e 64 20 41 64 |egexp to| find Ad|
|00000d10| 61 20 62 6f 64 79 20 66 | 69 6c 65 73 2e 22 20 3a |a body f|iles." :|
|00000d20| 74 79 70 65 20 27 73 74 | 72 69 6e 67 20 3a 67 72 |type 'st|ring :gr|
|00000d30| 6f 75 70 20 27 61 64 61 | 29 0a 23 40 33 35 31 20 |oup 'ada|).#@351 |
|00000d40| 2a 41 6c 69 73 74 20 6f | 66 20 65 78 74 65 6e 73 |*Alist o|f extens|
|00000d50| 69 6f 6e 73 20 74 6f 20 | 66 69 6e 64 20 67 69 76 |ions to |find giv|
|00000d60| 65 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 66 |en the c|urrent f|
|00000d70| 69 6c 65 27 73 20 65 78 | 74 65 6e 73 69 6f 6e 2e |ile's ex|tension.|
|00000d80| 0a 0a 54 68 69 73 20 6c | 69 73 74 20 73 68 6f 75 |..This l|ist shou|
|00000d90| 6c 64 20 63 6f 6e 74 61 | 69 6e 20 74 68 65 20 6d |ld conta|in the m|
|00000da0| 6f 73 74 20 75 73 65 64 | 20 65 78 74 65 6e 73 69 |ost used| extensi|
|00000db0| 6f 6e 73 20 62 65 66 6f | 72 65 20 74 68 65 20 6f |ons befo|re the o|
|00000dc0| 74 68 65 72 73 2c 0a 73 | 69 6e 63 65 20 74 68 65 |thers,.s|ince the|
|00000dd0| 20 73 65 61 72 63 68 20 | 61 6c 67 6f 72 69 74 68 | search |algorith|
|00000de0| 6d 20 73 65 61 72 63 68 | 65 73 20 73 65 71 75 65 |m search|es seque|
|00000df0| 6e 74 69 61 6c 6c 79 20 | 74 68 72 6f 75 67 68 20 |ntially |through |
|00000e00| 65 61 63 68 20 64 69 72 | 65 63 74 6f 72 79 0a 73 |each dir|ectory.s|
|00000e10| 70 65 63 69 66 69 65 64 | 20 69 6e 20 60 61 64 61 |pecified| in `ada|
|00000e20| 2d 73 65 61 72 63 68 2d | 64 69 72 65 63 74 6f 72 |-search-|director|
|00000e30| 69 65 73 27 2e 20 20 49 | 66 20 61 20 66 69 6c 65 |ies'. I|f a file|
|00000e40| 20 69 73 20 6e 6f 74 20 | 66 6f 75 6e 64 2c 20 61 | is not |found, a|
|00000e50| 20 6e 65 77 20 6f 6e 65 | 0a 69 73 20 63 72 65 61 | new one|.is crea|
|00000e60| 74 65 64 20 77 69 74 68 | 20 74 68 65 20 66 69 72 |ted with| the fir|
|00000e70| 73 74 20 6d 61 74 63 68 | 69 6e 67 20 65 78 74 65 |st match|ing exte|
|00000e80| 6e 73 69 6f 6e 20 28 60 | 2e 61 64 62 27 20 79 69 |nsion (`|.adb' yi|
|00000e90| 65 6c 64 73 20 60 2e 61 | 64 73 27 29 2e 1f 0a 28 |elds `.a|ds')...(|
|00000ea0| 64 65 66 76 61 72 20 61 | 64 61 2d 6f 74 68 65 72 |defvar a|da-other|
|00000eb0| 2d 66 69 6c 65 2d 61 6c | 69 73 74 20 28 62 79 74 |-file-al|ist (byt|
|00000ec0| 65 2d 63 6f 64 65 20 22 | 08 09 43 44 5c 6e 0b 43 |e-code "|..CD\n.C|
|00000ed0| 44 44 87 22 20 5b 61 64 | 61 2d 73 70 65 63 2d 73 |DD." [ad|a-spec-s|
|00000ee0| 75 66 66 69 78 2d 61 73 | 2d 72 65 67 65 78 70 20 |uffix-as|-regexp |
|00000ef0| 61 64 61 2d 62 6f 64 79 | 2d 73 75 66 66 69 78 20 |ada-body|-suffix |
|00000f00| 61 64 61 2d 62 6f 64 79 | 2d 73 75 66 66 69 78 2d |ada-body|-suffix-|
|00000f10| 61 73 2d 72 65 67 65 78 | 70 20 61 64 61 2d 73 70 |as-regex|p ada-sp|
|00000f20| 65 63 2d 73 75 66 66 69 | 78 5d 20 33 29 20 28 23 |ec-suffi|x] 3) (#|
|00000f30| 24 20 2e 20 2d 33 33 39 | 32 29 29 0a 28 63 75 73 |$ . -339|2)).(cus|
|00000f40| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000f50| 61 62 6c 65 20 27 61 64 | 61 2d 73 65 61 72 63 68 |able 'ad|a-search|
|00000f60| 2d 64 69 72 65 63 74 6f | 72 69 65 73 20 27 27 28 |-directo|ries ''(|
|00000f70| 22 2e 22 20 22 2f 75 73 | 72 2f 61 64 61 69 6e 63 |"." "/us|r/adainc|
|00000f80| 6c 75 64 65 22 20 22 2f | 75 73 72 2f 6c 6f 63 61 |lude" "/|usr/loca|
|00000f90| 6c 2f 61 64 61 69 6e 63 | 6c 75 64 65 22 20 22 2f |l/adainc|lude" "/|
|00000fa0| 6f 70 74 2f 67 6e 75 2f | 61 64 61 69 6e 63 6c 75 |opt/gnu/|adainclu|
|00000fb0| 64 65 22 29 20 22 2a 4c | 69 73 74 20 6f 66 20 64 |de") "*L|ist of d|
|00000fc0| 69 72 65 63 74 6f 72 69 | 65 73 20 74 6f 20 73 65 |irectori|es to se|
|00000fd0| 61 72 63 68 20 66 6f 72 | 20 41 64 61 20 66 69 6c |arch for| Ada fil|
|00000fe0| 65 73 2e 5c 6e 53 65 65 | 20 74 68 65 20 64 65 73 |es.\nSee| the des|
|00000ff0| 63 72 69 70 74 69 6f 6e | 20 66 6f 72 20 74 68 65 |cription| for the|
|00001000| 20 60 66 66 2d 73 65 61 | 72 63 68 2d 64 69 72 65 | `ff-sea|rch-dire|
|00001010| 63 74 6f 72 69 65 73 27 | 20 76 61 72 69 61 62 6c |ctories'| variabl|
|00001020| 65 2e 22 20 3a 74 79 70 | 65 20 27 28 72 65 70 65 |e." :typ|e '(repe|
|00001030| 61 74 20 28 63 68 6f 69 | 63 65 20 3a 74 61 67 20 |at (choi|ce :tag |
|00001040| 22 44 69 72 65 63 74 6f | 72 79 22 20 28 63 6f 6e |"Directo|ry" (con|
|00001050| 73 74 20 3a 74 61 67 20 | 22 64 65 66 61 75 6c 74 |st :tag |"default|
|00001060| 22 20 6e 69 6c 29 20 28 | 64 69 72 65 63 74 6f 72 |" nil) (|director|
|00001070| 79 20 3a 66 6f 72 6d 61 | 74 20 22 25 76 22 29 29 |y :forma|t "%v"))|
|00001080| 29 20 3a 67 72 6f 75 70 | 20 27 61 64 61 29 0a 28 |) :group| 'ada).(|
|00001090| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000010a0| 61 72 69 61 62 6c 65 20 | 27 61 64 61 2d 6c 61 6e |ariable |'ada-lan|
|000010b0| 67 75 61 67 65 2d 76 65 | 72 73 69 6f 6e 20 27 27 |guage-ve|rsion ''|
|000010c0| 61 64 61 39 35 20 22 2a | 44 6f 20 77 65 20 70 72 |ada95 "*|Do we pr|
|000010d0| 6f 67 72 61 6d 20 69 6e | 20 60 61 64 61 38 33 27 |ogram in| `ada83'|
|000010e0| 20 6f 72 20 60 61 64 61 | 39 35 27 3f 22 20 3a 74 | or `ada|95'?" :t|
|000010f0| 79 70 65 20 27 28 63 68 | 6f 69 63 65 20 28 63 6f |ype '(ch|oice (co|
|00001100| 6e 73 74 20 61 64 61 38 | 33 29 20 28 63 6f 6e 73 |nst ada8|3) (cons|
|00001110| 74 20 61 64 61 39 35 29 | 29 20 3a 67 72 6f 75 70 |t ada95)|) :group|
|00001120| 20 27 61 64 61 29 0a 28 | 63 75 73 74 6f 6d 2d 64 | 'ada).(|custom-d|
|00001130| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00001140| 27 61 64 61 2d 63 61 73 | 65 2d 6b 65 79 77 6f 72 |'ada-cas|e-keywor|
|00001150| 64 20 27 27 64 6f 77 6e | 63 61 73 65 2d 77 6f 72 |d ''down|case-wor|
|00001160| 64 20 22 2a 46 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |d "*Func|tion to |
|00001170| 63 61 6c 6c 20 74 6f 20 | 61 64 6a 75 73 74 20 74 |call to |adjust t|
|00001180| 68 65 20 63 61 73 65 20 | 6f 66 20 41 64 61 20 6b |he case |of Ada k|
|00001190| 65 79 77 6f 72 64 73 2e | 5c 6e 49 74 20 6d 61 79 |eywords.|\nIt may|
|000011a0| 20 62 65 20 60 64 6f 77 | 6e 63 61 73 65 2d 77 6f | be `dow|ncase-wo|
|000011b0| 72 64 27 2c 20 60 75 70 | 63 61 73 65 2d 77 6f 72 |rd', `up|case-wor|
|000011c0| 64 27 2c 20 60 61 64 61 | 2d 6c 6f 6f 73 65 2d 63 |d', `ada|-loose-c|
|000011d0| 61 73 65 2d 77 6f 72 64 | 27 20 6f 72 20 5c 6e 60 |ase-word|' or \n`|
|000011e0| 63 61 70 69 74 61 6c 69 | 7a 65 2d 77 6f 72 64 27 |capitali|ze-word'|
|000011f0| 2e 22 20 3a 74 79 70 65 | 20 27 28 63 68 6f 69 63 |." :type| '(choic|
|00001200| 65 20 28 63 6f 6e 73 74 | 20 64 6f 77 6e 63 61 73 |e (const| downcas|
|00001210| 65 2d 77 6f 72 64 29 20 | 28 63 6f 6e 73 74 20 75 |e-word) |(const u|
|00001220| 70 63 61 73 65 2d 77 6f | 72 64 29 20 28 63 6f 6e |pcase-wo|rd) (con|
|00001230| 73 74 20 63 61 70 69 74 | 61 6c 69 7a 65 2d 77 6f |st capit|alize-wo|
|00001240| 72 64 29 20 28 63 6f 6e | 73 74 20 61 64 61 2d 6c |rd) (con|st ada-l|
|00001250| 6f 6f 73 65 2d 63 61 73 | 65 2d 77 6f 72 64 29 29 |oose-cas|e-word))|
|00001260| 20 3a 67 72 6f 75 70 20 | 27 61 64 61 29 0a 28 63 | :group |'ada).(c|
|00001270| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001280| 72 69 61 62 6c 65 20 27 | 61 64 61 2d 63 61 73 65 |riable '|ada-case|
|00001290| 2d 69 64 65 6e 74 69 66 | 69 65 72 20 27 27 61 64 |-identif|ier ''ad|
|000012a0| 61 2d 6c 6f 6f 73 65 2d | 63 61 73 65 2d 77 6f 72 |a-loose-|case-wor|
|000012b0| 64 20 22 2a 46 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |d "*Func|tion to |
|000012c0| 63 61 6c 6c 20 74 6f 20 | 61 64 6a 75 73 74 20 74 |call to |adjust t|
|000012d0| 68 65 20 63 61 73 65 20 | 6f 66 20 61 6e 20 41 64 |he case |of an Ad|
|000012e0| 61 20 69 64 65 6e 74 69 | 66 69 65 72 2e 5c 6e 49 |a identi|fier.\nI|
|000012f0| 74 20 6d 61 79 20 62 65 | 20 60 64 6f 77 6e 63 61 |t may be| `downca|
|00001300| 73 65 2d 77 6f 72 64 27 | 2c 20 60 75 70 63 61 73 |se-word'|, `upcas|
|00001310| 65 2d 77 6f 72 64 27 2c | 20 60 61 64 61 2d 6c 6f |e-word',| `ada-lo|
|00001320| 6f 73 65 2d 63 61 73 65 | 2d 77 6f 72 64 27 20 6f |ose-case|-word' o|
|00001330| 72 20 5c 6e 60 63 61 70 | 69 74 61 6c 69 7a 65 2d |r \n`cap|italize-|
|00001340| 77 6f 72 64 27 2e 22 20 | 3a 74 79 70 65 20 27 28 |word'." |:type '(|
|00001350| 63 68 6f 69 63 65 20 28 | 63 6f 6e 73 74 20 64 6f |choice (|const do|
|00001360| 77 6e 63 61 73 65 2d 77 | 6f 72 64 29 20 28 63 6f |wncase-w|ord) (co|
|00001370| 6e 73 74 20 75 70 63 61 | 73 65 2d 77 6f 72 64 29 |nst upca|se-word)|
|00001380| 20 28 63 6f 6e 73 74 20 | 63 61 70 69 74 61 6c 69 | (const |capitali|
|00001390| 7a 65 2d 77 6f 72 64 29 | 20 28 63 6f 6e 73 74 20 |ze-word)| (const |
|000013a0| 61 64 61 2d 6c 6f 6f 73 | 65 2d 63 61 73 65 2d 77 |ada-loos|e-case-w|
|000013b0| 6f 72 64 29 29 20 3a 67 | 72 6f 75 70 20 27 61 64 |ord)) :g|roup 'ad|
|000013c0| 61 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |a).(cust|om-decla|
|000013d0| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 61 64 61 |re-varia|ble 'ada|
|000013e0| 2d 63 61 73 65 2d 61 74 | 74 72 69 62 75 74 65 20 |-case-at|tribute |
|000013f0| 27 27 63 61 70 69 74 61 | 6c 69 7a 65 2d 77 6f 72 |''capita|lize-wor|
|00001400| 64 20 22 2a 46 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |d "*Func|tion to |
|00001410| 63 61 6c 6c 20 74 6f 20 | 61 64 6a 75 73 74 20 74 |call to |adjust t|
|00001420| 68 65 20 63 61 73 65 20 | 6f 66 20 41 64 61 20 61 |he case |of Ada a|
|00001430| 74 74 72 69 62 75 74 65 | 73 2e 5c 6e 49 74 20 6d |ttribute|s.\nIt m|
|00001440| 61 79 20 62 65 20 60 64 | 6f 77 6e 63 61 73 65 2d |ay be `d|owncase-|
|00001450| 77 6f 72 64 27 2c 20 60 | 75 70 63 61 73 65 2d 77 |word', `|upcase-w|
|00001460| 6f 72 64 27 2c 20 60 61 | 64 61 2d 6c 6f 6f 73 65 |ord', `a|da-loose|
|00001470| 2d 63 61 73 65 2d 77 6f | 72 64 27 20 6f 72 20 5c |-case-wo|rd' or \|
|00001480| 6e 60 63 61 70 69 74 61 | 6c 69 7a 65 2d 77 6f 72 |n`capita|lize-wor|
|00001490| 64 27 2e 22 20 3a 74 79 | 70 65 20 27 28 63 68 6f |d'." :ty|pe '(cho|
|000014a0| 69 63 65 20 28 63 6f 6e | 73 74 20 64 6f 77 6e 63 |ice (con|st downc|
|000014b0| 61 73 65 2d 77 6f 72 64 | 29 20 28 63 6f 6e 73 74 |ase-word|) (const|
|000014c0| 20 75 70 63 61 73 65 2d | 77 6f 72 64 29 20 28 63 | upcase-|word) (c|
|000014d0| 6f 6e 73 74 20 63 61 70 | 69 74 61 6c 69 7a 65 2d |onst cap|italize-|
|000014e0| 77 6f 72 64 29 20 28 63 | 6f 6e 73 74 20 61 64 61 |word) (c|onst ada|
|000014f0| 2d 6c 6f 6f 73 65 2d 63 | 61 73 65 2d 77 6f 72 64 |-loose-c|ase-word|
|00001500| 29 29 20 3a 67 72 6f 75 | 70 20 27 61 64 61 29 0a |)) :grou|p 'ada).|
|00001510| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|00001520| 76 61 72 69 61 62 6c 65 | 20 27 61 64 61 2d 61 75 |variable| 'ada-au|
|00001530| 74 6f 2d 63 61 73 65 20 | 27 74 20 22 2a 4e 6f 6e |to-case |'t "*Non|
|00001540| 2d 6e 69 6c 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |-nil aut|omatical|
|00001550| 6c 79 20 63 68 61 6e 67 | 65 73 20 63 61 73 65 20 |ly chang|es case |
|00001560| 6f 66 20 70 72 65 63 65 | 64 69 6e 67 20 77 6f 72 |of prece|ding wor|
|00001570| 64 20 77 68 69 6c 65 20 | 74 79 70 69 6e 67 2e 5c |d while |typing.\|
|00001580| 6e 43 61 73 69 6e 67 20 | 69 73 20 64 6f 6e 65 20 |nCasing |is done |
|00001590| 61 63 63 6f 72 64 69 6e | 67 20 74 6f 20 60 61 64 |accordin|g to `ad|
|000015a0| 61 2d 63 61 73 65 2d 6b | 65 79 77 6f 72 64 27 2c |a-case-k|eyword',|
|000015b0| 20 60 61 64 61 2d 63 61 | 73 65 2d 69 64 65 6e 74 | `ada-ca|se-ident|
|000015c0| 69 66 69 65 72 27 5c 6e | 61 6e 64 20 60 61 64 61 |ifier'\n|and `ada|
|000015d0| 2d 63 61 73 65 2d 61 74 | 74 72 69 62 75 74 65 27 |-case-at|tribute'|
|000015e0| 2e 22 20 3a 74 79 70 65 | 20 27 62 6f 6f 6c 65 61 |." :type| 'boolea|
|000015f0| 6e 20 3a 67 72 6f 75 70 | 20 27 61 64 61 29 0a 28 |n :group| 'ada).(|
|00001600| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00001610| 61 72 69 61 62 6c 65 20 | 27 61 64 61 2d 63 6c 65 |ariable |'ada-cle|
|00001620| 61 6e 2d 62 75 66 66 65 | 72 2d 62 65 66 6f 72 65 |an-buffe|r-before|
|00001630| 2d 73 61 76 69 6e 67 20 | 27 74 20 22 2a 49 66 20 |-saving |'t "*If |
|00001640| 6e 6f 6e 2d 6e 69 6c 2c | 20 60 72 65 6d 6f 76 65 |non-nil,| `remove|
|00001650| 2d 74 72 61 69 6c 69 6e | 67 2d 73 70 61 63 65 73 |-trailin|g-spaces|
|00001660| 27 20 61 6e 64 20 60 75 | 6e 74 61 62 69 66 79 27 |' and `u|ntabify'|
|00001670| 20 62 75 66 66 65 72 20 | 62 65 66 6f 72 65 20 73 | buffer |before s|
|00001680| 61 76 69 6e 67 2e 22 20 | 3a 74 79 70 65 20 27 62 |aving." |:type 'b|
|00001690| 6f 6f 6c 65 61 6e 20 3a | 67 72 6f 75 70 20 27 61 |oolean :|group 'a|
|000016a0| 64 61 29 0a 23 40 31 31 | 37 20 2a 4c 69 73 74 20 |da).#@11|7 *List |
|000016b0| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 6f 20 |of funct|ions to |
|000016c0| 63 61 6c 6c 20 77 68 65 | 6e 20 41 64 61 20 6d 6f |call whe|n Ada mo|
|000016d0| 64 65 20 69 73 20 69 6e | 76 6f 6b 65 64 2e 0a 54 |de is in|voked..T|
|000016e0| 68 69 73 20 69 73 20 61 | 20 67 6f 6f 64 20 70 6c |his is a| good pl|
|000016f0| 61 63 65 20 74 6f 20 61 | 64 64 20 41 64 61 20 65 |ace to a|dd Ada e|
|00001700| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 73 70 65 63 69 |nvironme|nt speci|
|00001710| 66 69 63 20 62 69 6e 64 | 69 6e 67 73 2e 1f 0a 28 |fic bind|ings...(|
|00001720| 64 65 66 76 61 72 20 61 | 64 61 2d 6d 6f 64 65 2d |defvar a|da-mode-|
|00001730| 68 6f 6f 6b 20 6e 69 6c | 20 28 23 24 20 2e 20 2d |hook nil| (#$ . -|
|00001740| 35 38 30 32 29 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |5802)).(|custom-d|
|00001750| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00001760| 27 61 64 61 2d 65 78 74 | 65 72 6e 61 6c 2d 70 72 |'ada-ext|ernal-pr|
|00001770| 65 74 74 79 2d 70 72 69 | 6e 74 2d 70 72 6f 67 72 |etty-pri|nt-progr|
|00001780| 61 6d 20 27 22 61 69 6d | 61 70 22 20 22 2a 45 78 |am '"aim|ap" "*Ex|
|00001790| 74 65 72 6e 61 6c 20 70 | 72 65 74 74 79 20 70 72 |ternal p|retty pr|
|000017a0| 69 6e 74 65 72 20 74 6f | 20 63 61 6c 6c 20 66 72 |inter to| call fr|
|000017b0| 6f 6d 20 77 69 74 68 69 | 6e 20 41 64 61 20 6d 6f |om withi|n Ada mo|
|000017c0| 64 65 2e 22 20 3a 74 79 | 70 65 20 27 73 74 72 69 |de." :ty|pe 'stri|
|000017d0| 6e 67 20 3a 67 72 6f 75 | 70 20 27 61 64 61 29 0a |ng :grou|p 'ada).|
|000017e0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000017f0| 76 61 72 69 61 62 6c 65 | 20 27 61 64 61 2d 74 6d |variable| 'ada-tm|
|00001800| 70 2d 64 69 72 65 63 74 | 6f 72 79 20 27 22 2f 74 |p-direct|ory '"/t|
|00001810| 6d 70 2f 22 20 22 2a 44 | 69 72 65 63 74 6f 72 79 |mp/" "*D|irectory|
|00001820| 20 74 6f 20 73 74 6f 72 | 65 20 74 68 65 20 74 65 | to stor|e the te|
|00001830| 6d 70 6f 72 61 72 79 20 | 66 69 6c 65 20 66 6f 72 |mporary |file for|
|00001840| 20 74 68 65 20 41 64 61 | 20 70 72 65 74 74 79 20 | the Ada| pretty |
|00001850| 70 72 69 6e 74 65 72 2e | 22 20 3a 74 79 70 65 20 |printer.|" :type |
|00001860| 27 73 74 72 69 6e 67 20 | 3a 67 72 6f 75 70 20 27 |'string |:group '|
|00001870| 61 64 61 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |ada).(cu|stom-dec|
|00001880| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 61 |lare-var|iable 'a|
|00001890| 64 61 2d 63 6f 6d 70 69 | 6c 65 2d 6f 70 74 69 6f |da-compi|le-optio|
|000018a0| 6e 73 20 27 22 2d 63 22 | 20 22 2a 42 75 66 66 65 |ns '"-c"| "*Buffe|
|000018b0| 72 20 6c 6f 63 61 6c 20 | 6f 70 74 69 6f 6e 73 20 |r local |options |
|000018c0| 70 61 73 73 65 64 20 74 | 6f 20 74 68 65 20 41 64 |passed t|o the Ad|
|000018d0| 61 20 63 6f 6d 70 69 6c | 65 72 2e 5c 6e 54 68 65 |a compil|er.\nThe|
|000018e0| 73 65 20 6f 70 74 69 6f | 6e 73 20 61 72 65 20 75 |se optio|ns are u|
|000018f0| 73 65 64 20 77 68 65 6e | 20 74 68 65 20 63 6f 6d |sed when| the com|
|00001900| 70 69 6c 65 72 20 69 73 | 20 69 6e 76 6f 6b 65 64 |piler is| invoked|
|00001910| 20 6f 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | on the |current |
|00001920| 62 75 66 66 65 72 2e 22 | 20 3a 74 79 70 65 20 27 |buffer."| :type '|
|00001930| 73 74 72 69 6e 67 20 3a | 67 72 6f 75 70 20 27 61 |string :|group 'a|
|00001940| 64 61 29 0a 28 6d 61 6b | 65 2d 76 61 72 69 61 62 |da).(mak|e-variab|
|00001950| 6c 65 2d 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 20 |le-buffe|r-local |
|00001960| 27 61 64 61 2d 63 6f 6d | 70 69 6c 65 2d 6f 70 74 |'ada-com|pile-opt|
|00001970| 69 6f 6e 73 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |ions).(c|ustom-de|
|00001980| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00001990| 61 64 61 2d 6d 61 6b 65 | 2d 6f 70 74 69 6f 6e 73 |ada-make|-options|
|000019a0| 20 27 22 2d 63 22 20 22 | 2a 42 75 66 66 65 72 20 | '"-c" "|*Buffer |
|000019b0| 6c 6f 63 61 6c 20 6f 70 | 74 69 6f 6e 73 20 70 61 |local op|tions pa|
|000019c0| 73 73 65 64 20 74 6f 20 | 60 61 64 61 2d 63 6f 6d |ssed to |`ada-com|
|000019d0| 70 69 6c 65 72 2d 6d 61 | 6b 65 27 20 28 75 73 75 |piler-ma|ke' (usu|
|000019e0| 61 6c 6c 79 20 60 67 6e | 61 74 6d 61 6b 65 27 29 |ally `gn|atmake')|
|000019f0| 2e 5c 6e 54 68 65 73 65 | 20 6f 70 74 69 6f 6e 73 |.\nThese| options|
|00001a00| 20 61 72 65 20 75 73 65 | 64 20 77 68 65 6e 20 60 | are use|d when `|
|00001a10| 67 6e 61 74 6d 61 6b 65 | 27 20 69 73 20 69 6e 76 |gnatmake|' is inv|
|00001a20| 6f 6b 65 64 20 6f 6e 20 | 74 68 65 20 63 75 72 72 |oked on |the curr|
|00001a30| 65 6e 74 20 62 75 66 66 | 65 72 2e 22 20 3a 74 79 |ent buff|er." :ty|
|00001a40| 70 65 20 27 73 74 72 69 | 6e 67 20 3a 67 72 6f 75 |pe 'stri|ng :grou|
|00001a50| 70 20 27 61 64 61 29 0a | 28 6d 61 6b 65 2d 76 61 |p 'ada).|(make-va|
|00001a60| 72 69 61 62 6c 65 2d 62 | 75 66 66 65 72 2d 6c 6f |riable-b|uffer-lo|
|00001a70| 63 61 6c 20 27 61 64 61 | 2d 6d 61 6b 65 2d 6f 70 |cal 'ada|-make-op|
|00001a80| 74 69 6f 6e 73 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |tions).(|custom-d|
|00001a90| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00001aa0| 27 61 64 61 2d 63 6f 6d | 70 69 6c 65 72 2d 73 79 |'ada-com|piler-sy|
|00001ab0| 6e 74 61 78 2d 63 68 65 | 63 6b 20 27 22 67 63 63 |ntax-che|ck '"gcc|
|00001ac0| 20 2d 63 20 2d 67 6e 61 | 74 73 22 20 22 2a 43 6f | -c -gna|ts" "*Co|
|00001ad0| 6d 70 69 6c 65 72 20 63 | 6f 6d 6d 61 6e 64 20 77 |mpiler c|ommand w|
|00001ae0| 69 74 68 20 6f 70 74 69 | 6f 6e 73 20 66 6f 72 20 |ith opti|ons for |
|00001af0| 73 79 6e 74 61 78 20 63 | 68 65 63 6b 69 6e 67 2e |syntax c|hecking.|
|00001b00| 22 20 3a 74 79 70 65 20 | 27 73 74 72 69 6e 67 20 |" :type |'string |
|00001b10| 3a 67 72 6f 75 70 20 27 | 61 64 61 29 0a 28 63 75 |:group '|ada).(cu|
|00001b20| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00001b30| 69 61 62 6c 65 20 27 61 | 64 61 2d 63 6f 6d 70 69 |iable 'a|da-compi|
|00001b40| 6c 65 72 2d 6d 61 6b 65 | 20 27 22 67 6e 61 74 6d |ler-make| '"gnatm|
|00001b50| 61 6b 65 22 20 22 2a 54 | 68 65 20 60 6d 61 6b 65 |ake" "*T|he `make|
|00001b60| 27 20 63 6f 6d 6d 61 6e | 64 20 66 6f 72 20 74 68 |' comman|d for th|
|00001b70| 65 20 67 69 76 65 6e 20 | 63 6f 6d 70 69 6c 65 72 |e given |compiler|
|00001b80| 2e 22 20 3a 74 79 70 65 | 20 27 73 74 72 69 6e 67 |." :type| 'string|
|00001b90| 20 3a 67 72 6f 75 70 20 | 27 61 64 61 29 0a 28 63 | :group |'ada).(c|
|00001ba0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001bb0| 72 69 61 62 6c 65 20 27 | 61 64 61 2d 66 69 6c 6c |riable '|ada-fill|
|00001bc0| 2d 63 6f 6d 6d 65 6e 74 | 2d 70 72 65 66 69 78 20 |-comment|-prefix |
|00001bd0| 27 22 2d 2d 20 22 20 22 | 2a 54 68 69 73 20 69 73 |'"-- " "|*This is|
|00001be0| 20 69 6e 73 65 72 74 65 | 64 20 69 6e 20 74 68 65 | inserte|d in the|
|00001bf0| 20 66 69 72 73 74 20 63 | 6f 6c 75 6d 6e 73 20 77 | first c|olumns w|
|00001c00| 68 65 6e 20 66 69 6c 6c | 69 6e 67 20 61 20 63 6f |hen fill|ing a co|
|00001c10| 6d 6d 65 6e 74 20 70 61 | 72 61 67 72 61 70 68 2e |mment pa|ragraph.|
|00001c20| 22 20 3a 74 79 70 65 20 | 27 73 74 72 69 6e 67 20 |" :type |'string |
|00001c30| 3a 67 72 6f 75 70 20 27 | 61 64 61 29 0a 28 63 75 |:group '|ada).(cu|
|00001c40| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00001c50| 69 61 62 6c 65 20 27 61 | 64 61 2d 66 69 6c 6c 2d |iable 'a|da-fill-|
|00001c60| 63 6f 6d 6d 65 6e 74 2d | 70 6f 73 74 66 69 78 20 |comment-|postfix |
|00001c70| 27 22 20 2d 2d 22 20 22 | 2a 54 68 69 73 20 69 73 |'" --" "|*This is|
|00001c80| 20 69 6e 73 65 72 74 65 | 64 20 61 74 20 74 68 65 | inserte|d at the|
|00001c90| 20 65 6e 64 20 6f 66 20 | 65 61 63 68 20 6c 69 6e | end of |each lin|
|00001ca0| 65 20 77 68 65 6e 20 66 | 69 6c 6c 69 6e 67 20 61 |e when f|illing a|
|00001cb0| 20 63 6f 6d 6d 65 6e 74 | 20 70 61 72 61 67 72 61 | comment| paragra|
|00001cc0| 70 68 2e 5c 6e 77 69 74 | 68 20 60 61 64 61 2d 66 |ph.\nwit|h `ada-f|
|00001cd0| 69 6c 6c 2d 63 6f 6d 6d | 65 6e 74 2d 70 61 72 61 |ill-comm|ent-para|
|00001ce0| 67 72 61 70 68 2d 70 6f | 73 74 66 69 78 27 2e 22 |graph-po|stfix'."|
|00001cf0| 20 3a 74 79 70 65 20 27 | 73 74 72 69 6e 67 20 3a | :type '|string :|
|00001d00| 67 72 6f 75 70 20 27 61 | 64 61 29 0a 28 63 75 73 |group 'a|da).(cus|
|00001d10| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00001d20| 61 62 6c 65 20 27 61 64 | 61 2d 6b 72 75 6e 63 68 |able 'ad|a-krunch|
|00001d30| 2d 61 72 67 73 20 27 22 | 30 22 20 22 2a 41 72 67 |-args '"|0" "*Arg|
|00001d40| 75 6d 65 6e 74 20 6f 66 | 20 67 6e 61 74 6b 72 2c |ument of| gnatkr,|
|00001d50| 20 61 20 73 74 72 69 6e | 67 20 63 6f 6e 74 61 69 | a strin|g contai|
|00001d60| 6e 69 6e 67 20 74 68 65 | 20 6d 61 78 20 6e 75 6d |ning the| max num|
|00001d70| 62 65 72 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ber of c|haracter|
|00001d80| 73 2e 5c 6e 53 65 74 20 | 74 6f 20 30 2c 20 69 66 |s.\nSet |to 0, if|
|00001d90| 20 79 6f 75 20 64 6f 6e | 27 74 20 75 73 65 20 63 | you don|'t use c|
|00001da0| 72 75 6e 63 68 65 64 20 | 66 69 6c 65 6e 61 6d 65 |runched |filename|
|00001db0| 73 2e 22 20 3a 74 79 70 | 65 20 27 73 74 72 69 6e |s." :typ|e 'strin|
|00001dc0| 67 20 3a 67 72 6f 75 70 | 20 27 61 64 61 29 0a 23 |g :group| 'ada).#|
|00001dd0| 40 33 32 20 41 62 62 72 | 65 76 20 74 61 62 6c 65 |@32 Abbr|ev table|
|00001de0| 20 75 73 65 64 20 69 6e | 20 41 64 61 20 6d 6f 64 | used in| Ada mod|
|00001df0| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 61 64 61 2d |e...(def|var ada-|
|00001e00| 6d 6f 64 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |mode-abb|rev-tabl|
|00001e10| 65 20 6e 69 6c 20 28 23 | 24 20 2e 20 37 36 33 36 |e nil (#|$ . 7636|
|00001e20| 29 29 0a 28 64 65 66 69 | 6e 65 2d 61 62 62 72 65 |)).(defi|ne-abbre|
|00001e30| 76 2d 74 61 62 6c 65 20 | 27 61 64 61 2d 6d 6f 64 |v-table |'ada-mod|
|00001e40| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6e |e-abbrev|-table n|
|00001e50| 69 6c 29 0a 23 40 33 33 | 20 4c 6f 63 61 6c 20 6b |il).#@33| Local k|
|00001e60| 65 79 6d 61 70 20 75 73 | 65 64 20 66 6f 72 20 41 |eymap us|ed for A|
|00001e70| 64 61 20 6d 6f 64 65 2e | 1f 0a 28 64 65 66 76 61 |da mode.|..(defva|
|00001e80| 72 20 61 64 61 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |r ada-mo|de-map n|
|00001e90| 69 6c 20 28 23 24 20 2e | 20 37 37 36 39 29 29 0a |il (#$ .| 7769)).|
|00001ea0| 23 40 35 34 20 53 79 6e | 74 61 78 20 74 61 62 6c |#@54 Syn|tax tabl|
|00001eb0| 65 20 74 6f 20 62 65 20 | 75 73 65 64 20 66 6f 72 |e to be |used for|
|00001ec0| 20 65 64 69 74 69 6e 67 | 20 41 64 61 20 73 6f 75 | editing| Ada sou|
|00001ed0| 72 63 65 20 63 6f 64 65 | 2e 1f 0a 28 64 65 66 76 |rce code|...(defv|
|00001ee0| 61 72 20 61 64 61 2d 6d | 6f 64 65 2d 73 79 6e 74 |ar ada-m|ode-synt|
|00001ef0| 61 78 2d 74 61 62 6c 65 | 20 6e 69 6c 20 28 23 24 |ax-table| nil (#$|
|00001f00| 20 2e 20 37 38 34 35 29 | 29 0a 23 40 35 36 20 53 | . 7845)|).#@56 S|
|00001f10| 79 6e 74 61 78 20 74 61 | 62 6c 65 20 66 6f 72 20 |yntax ta|ble for |
|00001f20| 41 64 61 2c 20 77 68 65 | 72 65 20 60 5f 27 20 69 |Ada, whe|re `_' i|
|00001f30| 73 20 61 20 77 6f 72 64 | 20 63 6f 6e 73 74 69 74 |s a word| constit|
|00001f40| 75 65 6e 74 2e 1f 0a 28 | 64 65 66 76 61 72 20 61 |uent...(|defvar a|
|00001f50| 64 61 2d 6d 6f 64 65 2d | 73 79 6d 62 6f 6c 2d 73 |da-mode-|symbol-s|
|00001f60| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6e 69 6c 20 |yntax-ta|ble nil |
|00001f70| 28 23 24 20 2e 20 37 39 | 35 31 29 29 0a 23 40 35 |(#$ . 79|51)).#@5|
|00001f80| 31 20 52 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |1 Regula|r expres|
|00001f90| 73 69 6f 6e 20 66 6f 72 | 20 6c 6f 6f 6b 69 6e 67 |sion for| looking|
|00001fa0| 20 61 74 20 41 64 61 38 | 33 20 6b 65 79 77 6f 72 | at Ada8|3 keywor|
|00001fb0| 64 73 2e 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 61 |ds...(de|fconst a|
|00001fc0| 64 61 2d 38 33 2d 6b 65 | 79 77 6f 72 64 73 20 22 |da-83-ke|ywords "|
|00001fd0| 5c 5c 3c 5c 5c 28 61 62 | 6f 72 74 5c 5c 7c 61 62 |\\<\\(ab|ort\\|ab|
|00001fe0| 73 5c 5c 7c 61 63 63 65 | 70 74 5c 5c 7c 61 63 63 |s\\|acce|pt\\|acc|
|00001ff0| 65 73 73 5c 5c 7c 61 6c | 6c 5c 5c 7c 61 6e 64 5c |ess\\|al|l\\|and\|
|00002000| 5c 7c 61 72 72 61 79 5c | 5c 7c 61 74 5c 5c 7c 62 |\|array\|\|at\\|b|
|00002010| 65 67 69 6e 5c 5c 7c 62 | 6f 64 79 5c 5c 7c 63 61 |egin\\|b|ody\\|ca|
|00002020| 73 65 5c 5c 7c 63 6f 6e | 73 74 61 6e 74 5c 5c 7c |se\\|con|stant\\||
|00002030| 64 65 63 6c 61 72 65 5c | 5c 7c 64 65 6c 61 79 5c |declare\|\|delay\|
|00002040| 5c 7c 64 65 6c 74 61 5c | 5c 7c 64 69 67 69 74 73 |\|delta\|\|digits|
|00002050| 5c 5c 7c 64 6f 5c 5c 7c | 65 6c 73 65 5c 5c 7c 65 |\\|do\\||else\\|e|
|00002060| 6c 73 69 66 5c 5c 7c 65 | 6e 64 5c 5c 7c 65 6e 74 |lsif\\|e|nd\\|ent|
|00002070| 72 79 5c 5c 7c 65 78 63 | 65 70 74 69 6f 6e 5c 5c |ry\\|exc|eption\\|
|00002080| 7c 65 78 69 74 5c 5c 7c | 66 6f 72 5c 5c 7c 66 75 ||exit\\||for\\|fu|
|00002090| 6e 63 74 69 6f 6e 5c 5c | 7c 67 65 6e 65 72 69 63 |nction\\||generic|
|000020a0| 5c 5c 7c 67 6f 74 6f 5c | 5c 7c 69 66 5c 5c 7c 69 |\\|goto\|\|if\\|i|
|000020b0| 6e 5c 5c 7c 69 73 5c 5c | 7c 6c 69 6d 69 74 65 64 |n\\|is\\||limited|
|000020c0| 5c 5c 7c 6c 6f 6f 70 5c | 5c 7c 6d 6f 64 5c 5c 7c |\\|loop\|\|mod\\||
|000020d0| 6e 65 77 5c 5c 7c 6e 6f | 74 5c 5c 7c 6e 75 6c 6c |new\\|no|t\\|null|
|000020e0| 5c 5c 7c 6f 66 5c 5c 7c | 6f 72 5c 5c 7c 6f 74 68 |\\|of\\||or\\|oth|
|000020f0| 65 72 73 5c 5c 7c 6f 75 | 74 5c 5c 7c 70 61 63 6b |ers\\|ou|t\\|pack|
|00002100| 61 67 65 5c 5c 7c 70 72 | 61 67 6d 61 5c 5c 7c 70 |age\\|pr|agma\\|p|
|00002110| 72 69 76 61 74 65 5c 5c | 7c 70 72 6f 63 65 64 75 |rivate\\||procedu|
|00002120| 72 65 5c 5c 7c 72 61 69 | 73 65 5c 5c 7c 72 61 6e |re\\|rai|se\\|ran|
|00002130| 67 65 5c 5c 7c 72 65 63 | 6f 72 64 5c 5c 7c 72 65 |ge\\|rec|ord\\|re|
|00002140| 6d 5c 5c 7c 72 65 6e 61 | 6d 65 73 5c 5c 7c 72 65 |m\\|rena|mes\\|re|
|00002150| 74 75 72 6e 5c 5c 7c 72 | 65 76 65 72 73 65 5c 5c |turn\\|r|everse\\|
|00002160| 7c 73 65 6c 65 63 74 5c | 5c 7c 73 65 70 61 72 61 ||select\|\|separa|
|00002170| 74 65 5c 5c 7c 73 75 62 | 74 79 70 65 5c 5c 7c 74 |te\\|sub|type\\|t|
|00002180| 61 73 6b 5c 5c 7c 74 65 | 72 6d 69 6e 61 74 65 5c |ask\\|te|rminate\|
|00002190| 5c 7c 74 68 65 6e 5c 5c | 7c 74 79 70 65 5c 5c 7c |\|then\\||type\\||
|000021a0| 75 73 65 5c 5c 7c 77 68 | 65 6e 5c 5c 7c 77 68 69 |use\\|wh|en\\|whi|
|000021b0| 6c 65 5c 5c 7c 77 69 74 | 68 5c 5c 7c 78 6f 72 5c |le\\|wit|h\\|xor\|
|000021c0| 5c 29 5c 5c 3e 22 20 28 | 23 24 20 2e 20 38 30 36 |\)\\>" (|#$ . 806|
|000021d0| 36 29 29 0a 23 40 35 31 | 20 52 65 67 75 6c 61 72 |6)).#@51| Regular|
|000021e0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 66 6f 72 20 | express|ion for |
|000021f0| 6c 6f 6f 6b 69 6e 67 20 | 61 74 20 41 64 61 39 35 |looking |at Ada95|
|00002200| 20 6b 65 79 77 6f 72 64 | 73 2e 1f 0a 28 64 65 66 | keyword|s...(def|
|00002210| 63 6f 6e 73 74 20 61 64 | 61 2d 39 35 2d 6b 65 79 |const ad|a-95-key|
|00002220| 77 6f 72 64 73 20 22 5c | 5c 3c 5c 5c 28 61 62 6f |words "\|\<\\(abo|
|00002230| 72 74 5c 5c 7c 61 62 73 | 5c 5c 7c 61 62 73 74 72 |rt\\|abs|\\|abstr|
|00002240| 61 63 74 5c 5c 7c 61 63 | 63 65 70 74 5c 5c 7c 61 |act\\|ac|cept\\|a|
|00002250| 63 63 65 73 73 5c 5c 7c | 61 6c 69 61 73 65 64 5c |ccess\\||aliased\|
|00002260| 5c 7c 61 6c 6c 5c 5c 7c | 61 6e 64 5c 5c 7c 61 72 |\|all\\||and\\|ar|
|00002270| 72 61 79 5c 5c 7c 61 74 | 5c 5c 7c 62 65 67 69 6e |ray\\|at|\\|begin|
|00002280| 5c 5c 7c 62 6f 64 79 5c | 5c 7c 63 61 73 65 5c 5c |\\|body\|\|case\\|
|00002290| 7c 63 6f 6e 73 74 61 6e | 74 5c 5c 7c 64 65 63 6c ||constan|t\\|decl|
|000022a0| 61 72 65 5c 5c 7c 64 65 | 6c 61 79 5c 5c 7c 64 65 |are\\|de|lay\\|de|
|000022b0| 6c 74 61 5c 5c 7c 64 69 | 67 69 74 73 5c 5c 7c 64 |lta\\|di|gits\\|d|
|000022c0| 6f 5c 5c 7c 65 6c 73 65 | 5c 5c 7c 65 6c 73 69 66 |o\\|else|\\|elsif|
|000022d0| 5c 5c 7c 65 6e 64 5c 5c | 7c 65 6e 74 72 79 5c 5c |\\|end\\||entry\\|
|000022e0| 7c 65 78 63 65 70 74 69 | 6f 6e 5c 5c 7c 65 78 69 ||excepti|on\\|exi|
|000022f0| 74 5c 5c 7c 66 6f 72 5c | 5c 7c 66 75 6e 63 74 69 |t\\|for\|\|functi|
|00002300| 6f 6e 5c 5c 7c 67 65 6e | 65 72 69 63 5c 5c 7c 67 |on\\|gen|eric\\|g|
|00002310| 6f 74 6f 5c 5c 7c 69 66 | 5c 5c 7c 69 6e 5c 5c 7c |oto\\|if|\\|in\\||
|00002320| 69 73 5c 5c 7c 6c 69 6d | 69 74 65 64 5c 5c 7c 6c |is\\|lim|ited\\|l|
|00002330| 6f 6f 70 5c 5c 7c 6d 6f | 64 5c 5c 7c 6e 65 77 5c |oop\\|mo|d\\|new\|
|00002340| 5c 7c 6e 6f 74 5c 5c 7c | 6e 75 6c 6c 5c 5c 7c 6f |\|not\\||null\\|o|
|00002350| 66 5c 5c 7c 6f 72 5c 5c | 7c 6f 74 68 65 72 73 5c |f\\|or\\||others\|
|00002360| 5c 7c 6f 75 74 5c 5c 7c | 70 61 63 6b 61 67 65 5c |\|out\\||package\|
|00002370| 5c 7c 70 72 61 67 6d 61 | 5c 5c 7c 70 72 69 76 61 |\|pragma|\\|priva|
|00002380| 74 65 5c 5c 7c 70 72 6f | 63 65 64 75 72 65 5c 5c |te\\|pro|cedure\\|
|00002390| 7c 70 72 6f 74 65 63 74 | 65 64 5c 5c 7c 72 61 69 ||protect|ed\\|rai|
|000023a0| 73 65 5c 5c 7c 72 61 6e | 67 65 5c 5c 7c 72 65 63 |se\\|ran|ge\\|rec|
|000023b0| 6f 72 64 5c 5c 7c 72 65 | 6d 5c 5c 7c 72 65 6e 61 |ord\\|re|m\\|rena|
|000023c0| 6d 65 73 5c 5c 7c 72 65 | 71 75 65 75 65 5c 5c 7c |mes\\|re|queue\\||
|000023d0| 72 65 74 75 72 6e 5c 5c | 7c 72 65 76 65 72 73 65 |return\\||reverse|
|000023e0| 5c 5c 7c 73 65 6c 65 63 | 74 5c 5c 7c 73 65 70 61 |\\|selec|t\\|sepa|
|000023f0| 72 61 74 65 5c 5c 7c 73 | 75 62 74 79 70 65 5c 5c |rate\\|s|ubtype\\|
|00002400| 7c 74 61 67 67 65 64 5c | 5c 7c 74 61 73 6b 5c 5c ||tagged\|\|task\\|
|00002410| 7c 74 65 72 6d 69 6e 61 | 74 65 5c 5c 7c 74 68 65 ||termina|te\\|the|
|00002420| 6e 5c 5c 7c 74 79 70 65 | 5c 5c 7c 75 6e 74 69 6c |n\\|type|\\|until|
|00002430| 5c 5c 7c 75 73 65 5c 5c | 7c 77 68 65 6e 5c 5c 7c |\\|use\\||when\\||
|00002440| 77 68 69 6c 65 5c 5c 7c | 77 69 74 68 5c 5c 7c 78 |while\\||with\\|x|
|00002450| 6f 72 5c 5c 29 5c 5c 3e | 22 20 28 23 24 20 2e 20 |or\\)\\>|" (#$ . |
|00002460| 38 36 36 35 29 29 0a 23 | 40 34 39 20 52 65 67 75 |8665)).#|@49 Regu|
|00002470| 6c 61 72 20 65 78 70 72 | 65 73 73 69 6f 6e 20 66 |lar expr|ession f|
|00002480| 6f 72 20 6c 6f 6f 6b 69 | 6e 67 20 61 74 20 41 64 |or looki|ng at Ad|
|00002490| 61 20 6b 65 79 77 6f 72 | 64 73 2e 1f 0a 28 64 65 |a keywor|ds...(de|
|000024a0| 66 76 61 72 20 61 64 61 | 2d 6b 65 79 77 6f 72 64 |fvar ada|-keyword|
|000024b0| 73 20 61 64 61 2d 39 35 | 2d 6b 65 79 77 6f 72 64 |s ada-95|-keyword|
|000024c0| 73 20 28 23 24 20 2e 20 | 39 33 32 34 29 29 0a 23 |s (#$ . |9324)).#|
|000024d0| 40 36 33 20 56 61 72 69 | 61 62 6c 65 20 74 6f 20 |@63 Vari|able to |
|000024e0| 73 61 76 65 20 6b 65 79 | 20 62 69 6e 64 69 6e 67 |save key| binding|
|000024f0| 20 6f 66 20 52 45 54 20 | 77 68 65 6e 20 63 61 73 | of RET |when cas|
|00002500| 69 6e 67 20 69 73 20 61 | 63 74 69 76 61 74 65 64 |ing is a|ctivated|
|00002510| 2e 1f 0a 28 64 65 66 76 | 61 72 20 61 64 61 2d 72 |...(defv|ar ada-r|
|00002520| 65 74 2d 62 69 6e 64 69 | 6e 67 20 6e 69 6c 20 28 |et-bindi|ng nil (|
|00002530| 23 24 20 2e 20 39 34 32 | 38 29 29 0a 23 40 36 33 |#$ . 942|8)).#@63|
|00002540| 20 56 61 72 69 61 62 6c | 65 20 74 6f 20 73 61 76 | Variabl|e to sav|
|00002550| 65 20 6b 65 79 20 62 69 | 6e 64 69 6e 67 20 6f 66 |e key bi|nding of|
|00002560| 20 4c 46 44 20 77 68 65 | 6e 20 63 61 73 69 6e 67 | LFD whe|n casing|
|00002570| 20 69 73 20 61 63 74 69 | 76 61 74 65 64 2e 1f 0a | is acti|vated...|
|00002580| 28 64 65 66 76 61 72 20 | 61 64 61 2d 6c 66 64 2d |(defvar |ada-lfd-|
|00002590| 62 69 6e 64 69 6e 67 20 | 6e 69 6c 20 28 23 24 20 |binding |nil (#$ |
|000025a0| 2e 20 39 35 33 37 29 29 | 0a 23 40 34 36 20 52 65 |. 9537))|.#@46 Re|
|000025b0| 67 65 78 70 20 6d 61 74 | 63 68 69 6e 67 20 41 64 |gexp mat|ching Ad|
|000025c0| 61 20 28 71 75 61 6c 69 | 66 69 65 64 29 20 69 64 |a (quali|fied) id|
|000025d0| 65 6e 74 69 66 69 65 72 | 73 2e 1f 0a 28 64 65 66 |entifier|s...(def|
|000025e0| 63 6f 6e 73 74 20 61 64 | 61 2d 69 64 65 6e 74 2d |const ad|a-ident-|
|000025f0| 72 65 20 22 5b 61 2d 7a | 41 2d 5a 30 2d 39 5f 5c |re "[a-z|A-Z0-9_\|
|00002600| 5c 2e 5d 2b 22 20 28 23 | 24 20 2e 20 39 36 34 36 |\.]+" (#|$ . 9646|
|00002610| 29 29 0a 23 40 34 37 20 | 52 65 67 65 78 70 20 75 |)).#@47 |Regexp u|
|00002620| 73 65 64 20 74 6f 20 66 | 69 6e 64 20 41 64 61 20 |sed to f|ind Ada |
|00002630| 70 72 6f 63 65 64 75 72 | 65 73 2f 66 75 6e 63 74 |procedur|es/funct|
|00002640| 69 6f 6e 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 61 |ions...(|defvar a|
|00002650| 64 61 2d 70 72 6f 63 65 | 64 75 72 65 2d 73 74 61 |da-proce|dure-sta|
|00002660| 72 74 2d 72 65 67 65 78 | 70 20 22 5e 5b 20 09 5d |rt-regex|p "^[ .]|
|00002670| 2a 5c 5c 28 70 72 6f 63 | 65 64 75 72 65 5c 5c 7c |*\\(proc|edure\\||
|00002680| 66 75 6e 63 74 69 6f 6e | 5c 5c 7c 74 61 73 6b 5c |function|\\|task\|
|00002690| 5c 29 5b 20 09 5c 6e 5d | 2b 5c 5c 28 5b 61 2d 7a |\)[ .\n]|+\\([a-z|
|000026a0| 41 2d 5a 30 2d 39 5f 5c | 5c 2e 5d 2b 5c 5c 29 22 |A-Z0-9_\|\.]+\\)"|
|000026b0| 20 28 23 24 20 2e 20 39 | 37 35 32 29 29 0a 23 40 | (#$ . 9|752)).#@|
|000026c0| 33 34 20 52 65 67 65 78 | 70 20 75 73 65 64 20 74 |34 Regex|p used t|
|000026d0| 6f 20 66 69 6e 64 20 41 | 64 61 20 70 61 63 6b 61 |o find A|da packa|
|000026e0| 67 65 73 1f 0a 28 64 65 | 66 76 61 72 20 61 64 61 |ges..(de|fvar ada|
|000026f0| 2d 70 61 63 6b 61 67 65 | 2d 73 74 61 72 74 2d 72 |-package|-start-r|
|00002700| 65 67 65 78 70 20 22 5e | 5b 20 09 5d 2a 5c 5c 28 |egexp "^|[ .]*\\(|
|00002710| 70 61 63 6b 61 67 65 5c | 5c 29 22 20 28 23 24 20 |package\|\)" (#$ |
|00002720| 2e 20 39 39 32 33 29 29 | 0a 23 40 34 32 20 52 65 |. 9923))|.#@42 Re|
|00002730| 67 65 78 70 20 66 6f 72 | 20 6b 65 79 77 6f 72 64 |gexp for| keyword|
|00002740| 73 20 73 74 61 72 74 69 | 6e 67 20 41 64 61 20 62 |s starti|ng Ada b|
|00002750| 6c 6f 63 6b 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |locks...|(defvar |
|00002760| 61 64 61 2d 62 6c 6f 63 | 6b 2d 73 74 61 72 74 2d |ada-bloc|k-start-|
|00002770| 72 65 20 22 5c 5c 3c 5c | 5c 28 62 65 67 69 6e 5c |re "\\<\|\(begin\|
|00002780| 5c 7c 73 65 6c 65 63 74 | 5c 5c 7c 64 65 63 6c 61 |\|select|\\|decla|
|00002790| 72 65 5c 5c 7c 70 72 69 | 76 61 74 65 5c 5c 7c 6f |re\\|pri|vate\\|o|
|000027a0| 72 5c 5c 7c 67 65 6e 65 | 72 69 63 5c 5c 7c 65 78 |r\\|gene|ric\\|ex|
|000027b0| 63 65 70 74 69 6f 6e 5c | 5c 7c 6c 6f 6f 70 5c 5c |ception\|\|loop\\|
|000027c0| 7c 65 6c 73 65 5c 5c 7c | 5c 5c 28 5c 5c 28 6c 69 ||else\\||\\(\\(li|
|000027d0| 6d 69 74 65 64 5c 5c 7c | 61 62 73 74 72 61 63 74 |mited\\||abstract|
|000027e0| 5c 5c 7c 74 61 67 67 65 | 64 5c 5c 29 5b 20 09 5d |\\|tagge|d\\)[ .]|
|000027f0| 2b 5c 5c 29 2a 72 65 63 | 6f 72 64 5c 5c 29 5c 5c |+\\)*rec|ord\\)\\|
|00002800| 3e 22 20 28 23 24 20 2e | 20 31 30 30 33 30 29 29 |>" (#$ .| 10030))|
|00002810| 0a 23 40 38 39 20 52 65 | 67 65 78 70 20 6f 66 20 |.#@89 Re|gexp of |
|00002820| 70 6f 73 73 69 62 6c 65 | 20 65 6e 64 73 20 66 6f |possible| ends fo|
|00002830| 72 20 61 20 6e 6f 6e 2d | 62 72 6f 6b 65 6e 20 73 |r a non-|broken s|
|00002840| 74 61 74 65 6d 65 6e 74 | 2e 0a 41 20 6e 65 77 20 |tatement|..A new |
|00002850| 73 74 61 74 65 6d 65 6e | 74 20 73 74 61 72 74 73 |statemen|t starts|
|00002860| 20 61 66 74 65 72 20 74 | 68 65 73 65 2e 1f 0a 28 | after t|hese...(|
|00002870| 64 65 66 76 61 72 20 61 | 64 61 2d 65 6e 64 2d 73 |defvar a|da-end-s|
|00002880| 74 6d 74 2d 72 65 20 22 | 5c 5c 28 3b 5c 5c 7c 3d |tmt-re "|\\(;\\|=|
|00002890| 3e 5c 5c 7c 5e 5b 20 09 | 5d 2a 73 65 70 61 72 61 |>\\|^[ .|]*separa|
|000028a0| 74 65 5b 20 09 5d 2b 28 | 5b 61 2d 7a 41 2d 5a 30 |te[ .]+(|[a-zA-Z0|
|000028b0| 2d 39 5f 5c 5c 2e 5d 2b | 29 5c 5c 7c 5c 5c 3c 5c |-9_\\.]+|)\\|\\<\|
|000028c0| 5c 28 62 65 67 69 6e 5c | 5c 7c 65 6c 73 65 5c 5c |\(begin\|\|else\\|
|000028d0| 7c 72 65 63 6f 72 64 5c | 5c 7c 6c 6f 6f 70 5c 5c ||record\|\|loop\\|
|000028e0| 7c 73 65 6c 65 63 74 5c | 5c 7c 64 6f 5c 5c 7c 74 ||select\|\|do\\|t|
|000028f0| 68 65 6e 5c 5c 7c 64 65 | 63 6c 61 72 65 5c 5c 7c |hen\\|de|clare\\||
|00002900| 67 65 6e 65 72 69 63 5c | 5c 7c 70 72 69 76 61 74 |generic\|\|privat|
|00002910| 65 5c 5c 29 5c 5c 3e 5c | 5c 7c 5e 5b 20 09 5d 2a |e\\)\\>\|\|^[ .]*|
|00002920| 5c 5c 28 70 61 63 6b 61 | 67 65 5c 5c 7c 70 72 6f |\\(packa|ge\\|pro|
|00002930| 63 65 64 75 72 65 5c 5c | 7c 66 75 6e 63 74 69 6f |cedure\\||functio|
|00002940| 6e 5c 5c 29 5c 5c 3e 5b | 20 09 61 2d 7a 41 2d 5a |n\\)\\>[| .a-zA-Z|
|00002950| 30 2d 39 5f 5c 5c 2e 5d | 2b 5c 5c 3c 69 73 5c 5c |0-9_\\.]|+\\<is\\|
|00002960| 3e 5c 5c 7c 5e 5b 20 09 | 5d 2a 65 78 63 65 70 74 |>\\|^[ .|]*except|
|00002970| 69 6f 6e 5c 5c 3e 5c 5c | 29 22 20 28 23 24 20 2e |ion\\>\\|)" (#$ .|
|00002980| 20 31 30 32 36 32 29 29 | 0a 23 40 33 33 20 52 65 | 10262))|.#@33 Re|
|00002990| 67 65 78 70 20 66 6f 72 | 20 74 68 65 20 73 74 61 |gexp for| the sta|
|000029a0| 72 74 20 6f 66 20 61 20 | 6c 6f 6f 70 2e 1f 0a 28 |rt of a |loop...(|
|000029b0| 64 65 66 76 61 72 20 61 | 64 61 2d 6c 6f 6f 70 2d |defvar a|da-loop-|
|000029c0| 73 74 61 72 74 2d 72 65 | 20 22 5c 5c 3c 5c 5c 28 |start-re| "\\<\\(|
|000029d0| 66 6f 72 5c 5c 7c 77 68 | 69 6c 65 5c 5c 7c 6c 6f |for\\|wh|ile\\|lo|
|000029e0| 6f 70 5c 5c 29 5c 5c 3e | 22 20 28 23 24 20 2e 20 |op\\)\\>|" (#$ . |
|000029f0| 31 30 36 33 38 29 29 0a | 23 40 33 39 20 52 65 67 |10638)).|#@39 Reg|
|00002a00| 65 78 70 20 66 6f 72 20 | 74 68 65 20 73 74 61 72 |exp for |the star|
|00002a10| 74 20 6f 66 20 61 20 73 | 75 62 70 72 6f 67 72 61 |t of a s|ubprogra|
|00002a20| 6d 2e 1f 0a 28 64 65 66 | 76 61 72 20 61 64 61 2d |m...(def|var ada-|
|00002a30| 73 75 62 70 72 6f 67 2d | 73 74 61 72 74 2d 72 65 |subprog-|start-re|
|00002a40| 20 22 5c 5c 3c 5c 5c 28 | 70 72 6f 63 65 64 75 72 | "\\<\\(|procedur|
|00002a50| 65 5c 5c 7c 70 72 6f 74 | 65 63 74 65 64 5c 5c 7c |e\\|prot|ected\\||
|00002a60| 70 61 63 6b 61 67 65 5c | 5c 7c 66 75 6e 63 74 69 |package\|\|functi|
|00002a70| 6f 6e 5c 5c 7c 74 61 73 | 6b 5c 5c 7c 61 63 63 65 |on\\|tas|k\\|acce|
|00002a80| 70 74 5c 5c 7c 65 6e 74 | 72 79 5c 5c 29 5c 5c 3e |pt\\|ent|ry\\)\\>|
|00002a90| 22 20 28 23 24 20 2e 20 | 31 30 37 34 39 29 29 0a |" (#$ . |10749)).|
|00002aa0| 23 40 34 30 20 52 65 67 | 65 78 70 20 6f 66 20 74 |#@40 Reg|exp of t|
|00002ab0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 61 20 62 6c 6f |he name |of a blo|
|00002ac0| 63 6b 20 6f 72 20 6c 6f | 6f 70 2e 1f 0a 28 64 65 |ck or lo|op...(de|
|00002ad0| 66 76 61 72 20 61 64 61 | 2d 6e 61 6d 65 64 2d 62 |fvar ada|-named-b|
|00002ae0| 6c 6f 63 6b 2d 72 65 20 | 22 5b 20 09 5d 2a 5b 61 |lock-re |"[ .]*[a|
|00002af0| 2d 7a 41 2d 5a 5f 30 2d | 39 5d 2b 20 2a 3a 5b 5e |-zA-Z_0-|9]+ *:[^|
|00002b00| 3d 5d 22 20 28 23 24 20 | 2e 20 31 30 39 31 37 29 |=]" (#$ |. 10917)|
|00002b10| 29 0a 23 40 37 33 20 49 | 6d 65 6e 75 20 67 65 6e |).#@73 I|menu gen|
|00002b20| 65 72 69 63 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |eric exp|ression |
|00002b30| 66 6f 72 20 41 64 61 20 | 6d 6f 64 65 2e 20 20 53 |for Ada |mode. S|
|00002b40| 65 65 20 60 69 6d 65 6e | 75 2d 67 65 6e 65 72 69 |ee `imen|u-generi|
|00002b50| 63 2d 65 78 70 72 65 73 | 73 69 6f 6e 27 2e 1f 0a |c-expres|sion'...|
|00002b60| 28 64 65 66 76 61 72 20 | 61 64 61 2d 69 6d 65 6e |(defvar |ada-imen|
|00002b70| 75 2d 67 65 6e 65 72 69 | 63 2d 65 78 70 72 65 73 |u-generi|c-expres|
|00002b80| 73 69 6f 6e 20 27 28 28 | 6e 69 6c 20 22 5e 5c 5c |sion '((|nil "^\\|
|00002b90| 73 2d 2a 5c 5c 28 70 72 | 6f 63 65 64 75 72 65 5c |s-*\\(pr|ocedure\|
|00002ba0| 5c 7c 66 75 6e 63 74 69 | 6f 6e 5c 5c 29 5c 5c 73 |\|functi|on\\)\\s|
|00002bb0| 2d 2b 5c 5c 28 5b 41 2d | 5a 61 2d 7a 30 2d 39 5f |-+\\([A-|Za-z0-9_|
|00002bc0| 5d 2b 5c 5c 29 22 20 32 | 29 20 28 22 54 79 70 65 |]+\\)" 2|) ("Type|
|00002bd0| 20 44 65 66 73 22 20 22 | 5e 5c 5c 73 2d 2a 5c 5c | Defs" "|^\\s-*\\|
|00002be0| 28 73 75 62 5c 5c 29 3f | 74 79 70 65 5c 5c 73 2d |(sub\\)?|type\\s-|
|00002bf0| 2b 5c 5c 28 5b 41 2d 5a | 61 2d 7a 30 2d 39 5f 5d |+\\([A-Z|a-z0-9_]|
|00002c00| 2b 5c 5c 29 22 20 32 29 | 29 20 28 23 24 20 2e 20 |+\\)" 2)|) (#$ . |
|00002c10| 31 31 30 33 31 29 29 0a | 28 64 65 66 61 6c 69 61 |11031)).|(defalia|
|00002c20| 73 20 27 61 64 61 2d 78 | 65 6d 61 63 73 20 23 5b |s 'ada-x|emacs #[|
|00002c30| 6e 69 6c 20 22 c0 c1 5c | 6e 5c 22 ae 84 c0 c3 5c |nil "..\|n\"....\|
|00002c40| 6e 5c 22 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |n\"." [s|tring-ma|
|00002c50| 74 63 68 20 22 4c 75 63 | 69 64 22 20 65 6d 61 63 |tch "Luc|id" emac|
|00002c60| 73 2d 76 65 72 73 69 6f | 6e 20 22 58 45 6d 61 63 |s-versio|n "XEmac|
|00002c70| 73 22 5d 20 33 5d 29 0a | 23 40 33 39 20 43 72 65 |s"] 3]).|#@39 Cre|
|00002c80| 61 74 65 20 74 68 65 20 | 73 79 6e 74 61 78 20 74 |ate the |syntax t|
|00002c90| 61 62 6c 65 20 66 6f 72 | 20 41 64 61 20 6d 6f 64 |able for| Ada mod|
|00002ca0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |e...(def|alias 'a|
|00002cb0| 64 61 2d 63 72 65 61 74 | 65 2d 73 79 6e 74 61 78 |da-creat|e-syntax|
|00002cc0| 2d 74 61 62 6c 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |-table #|[nil ". |
|00002cd0| 11 c2 09 21 88 c3 c4 c5 | 09 23 88 c3 c6 c7 09 23 |...!....|.#.....#|
|00002ce0| 88 c3 c8 c5 09 23 88 c3 | c9 ca 09 23 88 c3 cb ca |.....#..|...#....|
|00002cf0| 09 23 88 c3 cc ca 09 23 | 88 c3 cd ca 09 23 88 c3 |.#.....#|.....#..|
|00002d00| ce ca 09 23 88 c3 cf ca | 09 23 88 c3 d0 ca 09 23 |...#....|.#.....#|
|00002d10| 88 c3 d1 ca 09 23 88 c3 | d2 ca 09 23 88 c3 d3 ca |.....#..|...#....|
|00002d20| 09 23 88 c3 d4 ca 09 23 | 88 c3 d5 ca 09 23 88 c3 |.#.....#|.....#..|
|00002d30| d6 ca 09 23 88 c3 d7 ca | 09 23 88 c3 d8 ca 09 23 |...#....|.#.....#|
|00002d40| 88 c3 d9 ca 09 23 88 c3 | da ca 09 23 88 c3 db ca |.....#..|...#....|
|00002d50| 09 23 88 c3 dc dd 09 23 | 88 c3 de df 09 23 88 c3 |.#.....#|.....#..|
|00002d60| e0 df 09 23 88 c3 e1 e2 | 09 23 88 c3 e3 e4 09 23 |...#....|.#.....#|
|00002d70| 88 c3 e5 e6 09 23 88 e7 | 09 21 16 28 c3 e1 e9 0e |.....#..|.!.(....|
|00002d80| 28 23 87 22 20 5b 6d 61 | 6b 65 2d 73 79 6e 74 61 |(#." [ma|ke-synta|
|00002d90| 78 2d 74 61 62 6c 65 20 | 61 64 61 2d 6d 6f 64 65 |x-table |ada-mode|
|00002da0| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 73 65 |-syntax-|table se|
|00002db0| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6d |t-syntax|-table m|
|00002dc0| 6f 64 69 66 79 2d 73 79 | 6e 74 61 78 2d 65 6e 74 |odify-sy|ntax-ent|
|00002dd0| 72 79 20 3f 5c 25 20 22 | 24 22 20 3f 5c 22 20 22 |ry ?\% "|$" ?\" "|
|00002de0| 5c 22 22 20 3f 5c 23 20 | 3f 5c 3a 20 22 2e 22 20 |\"" ?\# |?\: "." |
|00002df0| 3f 5c 3b 20 3f 5c 26 20 | 3f 5c 7c 20 3f 5c 2b 20 |?\; ?\& |?\| ?\+ |
|00002e00| 3f 5c 2a 20 3f 5c 2f 20 | 3f 5c 3d 20 3f 5c 3c 20 |?\* ?\/ |?\= ?\< |
|00002e10| 3f 5c 3e 20 3f 5c 24 20 | 3f 5c 5b 20 3f 5c 5d 20 |?\> ?\$ |?\[ ?\] |
|00002e20| 3f 5c 7b 20 3f 5c 7d 20 | 3f 5c 2e 20 3f 5c 5c 20 |?\{ ?\} |?\. ?\\ |
|00002e30| 3f 5c 27 20 3f 5c 2d 20 | 22 2e 20 31 32 22 20 3f |?\' ?\- |". 12" ?|
|00002e40| 5c 5e 4c 20 22 3e 20 20 | 20 22 20 3f 5c 6e 20 3f |\^L "> | " ?\n ?|
|00002e50| 5c 5f 20 22 5f 22 20 3f | 5c 28 20 22 28 29 22 20 |\_ "_" ?|\( "()" |
|00002e60| 3f 5c 29 20 22 29 28 22 | 20 63 6f 70 79 2d 73 79 |?\) ")("| copy-sy|
|00002e70| 6e 74 61 78 2d 74 61 62 | 6c 65 20 61 64 61 2d 6d |ntax-tab|le ada-m|
|00002e80| 6f 64 65 2d 73 79 6d 62 | 6f 6c 2d 73 79 6e 74 61 |ode-symb|ol-synta|
|00002e90| 78 2d 74 61 62 6c 65 20 | 22 77 22 5d 20 34 20 28 |x-table |"w"] 4 (|
|00002ea0| 23 24 20 2e 20 31 31 33 | 38 39 29 5d 29 0a 23 40 |#$ . 113|89)]).#@|
|00002eb0| 32 35 37 38 20 41 64 61 | 20 6d 6f 64 65 20 69 73 |2578 Ada| mode is|
|00002ec0| 20 74 68 65 20 6d 61 6a | 6f 72 20 6d 6f 64 65 20 | the maj|or mode |
|00002ed0| 66 6f 72 20 65 64 69 74 | 69 6e 67 20 41 64 61 20 |for edit|ing Ada |
|00002ee0| 63 6f 64 65 2e 0a 0a 42 | 69 6e 64 69 6e 67 73 20 |code...B|indings |
|00002ef0| 61 72 65 20 61 73 20 66 | 6f 6c 6c 6f 77 73 3a 20 |are as f|ollows: |
|00002f00| 28 4e 6f 74 65 3a 20 27 | 4c 46 44 27 20 69 73 20 |(Note: '|LFD' is |
|00002f10| 63 6f 6e 74 72 6f 6c 2d | 6a 2e 29 0a 0a 20 49 6e |control-|j.).. In|
|00002f20| 64 65 6e 74 20 6c 69 6e | 65 20 20 20 20 20 20 20 |dent lin|e |
|00002f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f50| 20 20 20 27 5c 5b 61 64 | 61 2d 74 61 62 5d 27 0a | '\[ad|a-tab]'.|
|00002f60| 20 49 6e 64 65 6e 74 20 | 6c 69 6e 65 2c 20 69 6e | Indent |line, in|
|00002f70| 73 65 72 74 20 6e 65 77 | 6c 69 6e 65 20 61 6e 64 |sert new|line and|
|00002f80| 20 69 6e 64 65 6e 74 20 | 74 68 65 20 6e 65 77 20 | indent |the new |
|00002f90| 6c 69 6e 65 2e 20 27 5c | 5b 6e 65 77 6c 69 6e 65 |line. '\|[newline|
|00002fa0| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 5d 27 0a 0a 20 |-and-ind|ent]'.. |
|00002fb0| 52 65 2d 66 6f 72 6d 61 | 74 20 74 68 65 20 70 61 |Re-forma|t the pa|
|00002fc0| 72 61 6d 65 74 65 72 2d | 6c 69 73 74 20 70 6f 69 |rameter-|list poi|
|00002fd0| 6e 74 20 69 73 20 69 6e | 20 20 20 20 20 20 20 20 |nt is in| |
|00002fe0| 20 20 20 20 20 27 5c 5b | 61 64 61 2d 66 6f 72 6d | '\[|ada-form|
|00002ff0| 61 74 2d 70 61 72 61 6d | 6c 69 73 74 5d 27 0a 20 |at-param|list]'. |
|00003000| 49 6e 64 65 6e 74 20 61 | 6c 6c 20 6c 69 6e 65 73 |Indent a|ll lines|
|00003010| 20 69 6e 20 72 65 67 69 | 6f 6e 20 20 20 20 20 20 | in regi|on |
|00003020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003030| 20 20 20 20 20 27 5c 5b | 61 64 61 2d 69 6e 64 65 | '\[|ada-inde|
|00003040| 6e 74 2d 72 65 67 69 6f | 6e 5d 27 0a 20 43 61 6c |nt-regio|n]'. Cal|
|00003050| 6c 20 65 78 74 65 72 6e | 61 6c 20 70 72 65 74 74 |l extern|al prett|
|00003060| 79 20 70 72 69 6e 74 65 | 72 20 70 72 6f 67 72 61 |y printe|r progra|
|00003070| 6d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m | |
|00003080| 20 20 27 5c 5b 61 64 61 | 2d 63 61 6c 6c 2d 70 72 | '\[ada|-call-pr|
|00003090| 65 74 74 79 2d 70 72 69 | 6e 74 65 72 5d 27 0a 0a |etty-pri|nter]'..|
|000030a0| 20 41 64 6a 75 73 74 20 | 63 61 73 65 20 6f 66 20 | Adjust |case of |
|000030b0| 69 64 65 6e 74 69 66 69 | 65 72 73 20 61 6e 64 20 |identifi|ers and |
|000030c0| 6b 65 79 77 6f 72 64 73 | 20 69 6e 20 72 65 67 69 |keywords| in regi|
|000030d0| 6f 6e 20 20 20 20 27 5c | 5b 61 64 61 2d 61 64 6a |on '\|[ada-adj|
|000030e0| 75 73 74 2d 63 61 73 65 | 2d 72 65 67 69 6f 6e 5d |ust-case|-region]|
|000030f0| 27 0a 20 41 64 6a 75 73 | 74 20 63 61 73 65 20 6f |'. Adjus|t case o|
|00003100| 66 20 69 64 65 6e 74 69 | 66 69 65 72 73 20 61 6e |f identi|fiers an|
|00003110| 64 20 6b 65 79 77 6f 72 | 64 73 20 69 6e 20 62 75 |d keywor|ds in bu|
|00003120| 66 66 65 72 20 20 20 20 | 27 5c 5b 61 64 61 2d 61 |ffer |'\[ada-a|
|00003130| 64 6a 75 73 74 2d 63 61 | 73 65 2d 62 75 66 66 65 |djust-ca|se-buffe|
|00003140| 72 5d 27 0a 0a 20 43 61 | 6c 6c 20 45 58 54 45 52 |r]'.. Ca|ll EXTER|
|00003150| 4e 41 4c 20 70 72 65 74 | 74 79 20 70 72 69 6e 74 |NAL pret|ty print|
|00003160| 65 72 20 28 69 66 20 79 | 6f 75 20 68 61 76 65 20 |er (if y|ou have |
|00003170| 6f 6e 65 29 20 20 20 20 | 20 20 20 27 5c 5b 61 64 |one) | '\[ad|
|00003180| 61 2d 63 61 6c 6c 2d 70 | 72 65 74 74 79 2d 70 72 |a-call-p|retty-pr|
|00003190| 69 6e 74 65 72 5d 27 0a | 0a 20 46 69 6c 6c 20 63 |inter]'.|. Fill c|
|000031a0| 6f 6d 6d 65 6e 74 20 70 | 61 72 61 67 72 61 70 68 |omment p|aragraph|
|000031b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000031c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 | | '|
|000031d0| 5c 5b 61 64 61 2d 66 69 | 6c 6c 2d 63 6f 6d 6d 65 |\[ada-fi|ll-comme|
|000031e0| 6e 74 2d 70 61 72 61 67 | 72 61 70 68 5d 27 0a 20 |nt-parag|raph]'. |
|000031f0| 46 69 6c 6c 20 63 6f 6d | 6d 65 6e 74 20 70 61 72 |Fill com|ment par|
|00003200| 61 67 72 61 70 68 20 61 | 6e 64 20 6a 75 73 74 69 |agraph a|nd justi|
|00003210| 66 79 20 65 61 63 68 20 | 6c 69 6e 65 20 20 20 20 |fy each |line |
|00003220| 20 20 20 20 20 27 5c 5b | 61 64 61 2d 66 69 6c 6c | '\[|ada-fill|
|00003230| 2d 63 6f 6d 6d 65 6e 74 | 2d 70 61 72 61 67 72 61 |-comment|-paragra|
|00003240| 70 68 2d 6a 75 73 74 69 | 66 79 5d 27 0a 20 46 69 |ph-justi|fy]'. Fi|
|00003250| 6c 6c 20 63 6f 6d 6d 65 | 6e 74 20 70 61 72 61 67 |ll comme|nt parag|
|00003260| 72 61 70 68 2c 20 6a 75 | 73 74 69 66 79 20 61 6e |raph, ju|stify an|
|00003270| 64 20 61 70 70 65 6e 64 | 20 70 6f 73 74 66 69 78 |d append| postfix|
|00003280| 20 20 20 27 5c 5b 61 64 | 61 2d 66 69 6c 6c 2d 63 | '\[ad|a-fill-c|
|00003290| 6f 6d 6d 65 6e 74 2d 70 | 61 72 61 67 72 61 70 68 |omment-p|aragraph|
|000032a0| 2d 70 6f 73 74 66 69 78 | 5d 27 0a 0a 20 4e 65 78 |-postfix|]'.. Nex|
|000032b0| 74 20 66 75 6e 63 2f 70 | 72 6f 63 2f 74 61 73 6b |t func/p|roc/task|
|000032c0| 20 27 5c 5b 61 64 61 2d | 6e 65 78 74 2d 70 72 6f | '\[ada-|next-pro|
|000032d0| 63 65 64 75 72 65 5d 27 | 20 20 50 72 65 76 69 6f |cedure]'| Previo|
|000032e0| 75 73 20 66 75 6e 63 2f | 70 72 6f 63 2f 74 61 73 |us func/|proc/tas|
|000032f0| 6b 20 27 5c 5b 61 64 61 | 2d 70 72 65 76 69 6f 75 |k '\[ada|-previou|
|00003300| 73 2d 70 72 6f 63 65 64 | 75 72 65 5d 27 0a 20 4e |s-proced|ure]'. N|
|00003310| 65 78 74 20 70 61 63 6b | 61 67 65 20 20 20 20 20 |ext pack|age |
|00003320| 20 20 20 27 5c 5b 61 64 | 61 2d 6e 65 78 74 2d 70 | '\[ad|a-next-p|
|00003330| 61 63 6b 61 67 65 5d 27 | 20 20 50 72 65 76 69 6f |ackage]'| Previo|
|00003340| 75 73 20 70 61 63 6b 61 | 67 65 20 20 20 20 20 20 |us packa|ge |
|00003350| 20 20 27 5c 5b 61 64 61 | 2d 70 72 65 76 69 6f 75 | '\[ada|-previou|
|00003360| 73 2d 70 61 63 6b 61 67 | 65 5d 27 0a 0a 20 47 6f |s-packag|e]'.. Go|
|00003370| 74 6f 20 6d 61 74 63 68 | 69 6e 67 20 73 74 61 72 |to match|ing star|
|00003380| 74 20 6f 66 20 63 75 72 | 72 65 6e 74 20 27 65 6e |t of cur|rent 'en|
|00003390| 64 20 2e 2e 2e 3b 27 20 | 20 20 20 20 20 20 20 20 |d ...;' | |
|000033a0| 20 20 20 27 5c 5b 61 64 | 61 2d 6d 6f 76 65 2d 74 | '\[ad|a-move-t|
|000033b0| 6f 2d 73 74 61 72 74 5d | 27 0a 20 47 6f 74 6f 20 |o-start]|'. Goto |
|000033c0| 65 6e 64 20 6f 66 20 63 | 75 72 72 65 6e 74 20 62 |end of c|urrent b|
|000033d0| 6c 6f 63 6b 20 20 20 20 | 20 20 20 20 20 20 20 20 |lock | |
|000033e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033f0| 27 5c 5b 61 64 61 2d 6d | 6f 76 65 2d 74 6f 2d 65 |'\[ada-m|ove-to-e|
|00003400| 6e 64 5d 27 0a 0a 43 6f | 6d 6d 65 6e 74 73 20 61 |nd]'..Co|mments a|
|00003410| 72 65 20 68 61 6e 64 6c | 65 64 20 75 73 69 6e 67 |re handl|ed using|
|00003420| 20 73 74 61 6e 64 61 72 | 64 20 47 4e 55 20 45 6d | standar|d GNU Em|
|00003430| 61 63 73 20 63 6f 6e 76 | 65 6e 74 69 6f 6e 73 2c |acs conv|entions,|
|00003440| 20 69 6e 63 6c 75 64 69 | 6e 67 3a 0a 20 53 74 61 | includi|ng:. Sta|
|00003450| 72 74 20 61 20 63 6f 6d | 6d 65 6e 74 20 20 20 20 |rt a com|ment |
|00003460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003480| 20 20 27 5c 5b 69 6e 64 | 65 6e 74 2d 66 6f 72 2d | '\[ind|ent-for-|
|00003490| 63 6f 6d 6d 65 6e 74 5d | 27 0a 20 43 6f 6d 6d 65 |comment]|'. Comme|
|000034a0| 6e 74 20 72 65 67 69 6f | 6e 20 20 20 20 20 20 20 |nt regio|n |
|000034b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000034c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000034d0| 27 5c 5b 63 6f 6d 6d 65 | 6e 74 2d 72 65 67 69 6f |'\[comme|nt-regio|
|000034e0| 6e 5d 27 0a 20 55 6e 63 | 6f 6d 6d 65 6e 74 20 72 |n]'. Unc|omment r|
|000034f0| 65 67 69 6f 6e 20 20 20 | 20 20 20 20 20 20 20 20 |egion | |
|00003500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003510| 20 20 20 20 20 20 20 20 | 20 20 27 5c 5b 61 64 61 | | '\[ada|
|00003520| 2d 75 6e 63 6f 6d 6d 65 | 6e 74 2d 72 65 67 69 6f |-uncomme|nt-regio|
|00003530| 6e 5d 27 0a 20 43 6f 6e | 74 69 6e 75 65 20 63 6f |n]'. Con|tinue co|
|00003540| 6d 6d 65 6e 74 20 6f 6e | 20 6e 65 78 74 20 6c 69 |mment on| next li|
|00003550| 6e 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ne | |
|00003560| 20 20 20 20 20 20 20 20 | 20 20 27 5c 5b 69 6e 64 | | '\[ind|
|00003570| 65 6e 74 2d 6e 65 77 2d | 63 6f 6d 6d 65 6e 74 2d |ent-new-|comment-|
|00003580| 6c 69 6e 65 5d 27 0a 0a | 49 66 20 79 6f 75 20 75 |line]'..|If you u|
|00003590| 73 65 20 69 6d 65 6e 75 | 2e 65 6c 3a 0a 20 44 69 |se imenu|.el:. Di|
|000035a0| 73 70 6c 61 79 20 69 6e | 64 65 78 2d 6d 65 6e 75 |splay in|dex-menu|
|000035b0| 20 6f 66 20 66 75 6e 63 | 74 69 6f 6e 73 20 26 20 | of func|tions & |
|000035c0| 70 72 6f 63 65 64 75 72 | 65 73 20 20 20 20 20 20 |procedur|es |
|000035d0| 20 20 20 27 5c 5b 69 6d | 65 6e 75 5d 27 0a 0a 49 | '\[im|enu]'..I|
|000035e0| 66 20 79 6f 75 20 75 73 | 65 20 66 69 6e 64 2d 66 |f you us|e find-f|
|000035f0| 69 6c 65 2e 65 6c 3a 0a | 20 53 77 69 74 63 68 20 |ile.el:.| Switch |
|00003600| 74 6f 20 6f 74 68 65 72 | 20 66 69 6c 65 20 28 42 |to other| file (B|
|00003610| 6f 64 79 20 3c 2d 3e 20 | 53 70 65 63 29 20 20 20 |ody <-> |Spec) |
|00003620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 27 5c | | '\|
|00003630| 5b 66 66 2d 66 69 6e 64 | 2d 6f 74 68 65 72 2d 66 |[ff-find|-other-f|
|00003640| 69 6c 65 5d 27 0a 20 20 | 20 20 20 20 20 20 20 20 |ile]'. | |
|00003650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003670| 20 20 20 20 20 20 20 20 | 20 6f 72 20 27 5c 5b 66 | | or '\[f|
|00003680| 66 2d 6d 6f 75 73 65 2d | 66 69 6e 64 2d 6f 74 68 |f-mouse-|find-oth|
|00003690| 65 72 2d 66 69 6c 65 5d | 0a 20 53 77 69 74 63 68 |er-file]|. Switch|
|000036a0| 20 74 6f 20 6f 74 68 65 | 72 20 66 69 6c 65 20 69 | to othe|r file i|
|000036b0| 6e 20 6f 74 68 65 72 20 | 77 69 6e 64 6f 77 20 20 |n other |window |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 | | '|
|000036d0| 5c 5b 61 64 61 2d 66 66 | 2d 6f 74 68 65 72 2d 77 |\[ada-ff|-other-w|
|000036e0| 69 6e 64 6f 77 5d 27 0a | 20 20 20 20 20 20 20 20 |indow]'.| |
|000036f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003710| 20 20 20 20 20 20 20 20 | 20 20 20 6f 72 20 27 5c | | or '\|
|00003720| 5b 66 66 2d 6d 6f 75 73 | 65 2d 66 69 6e 64 2d 6f |[ff-mous|e-find-o|
|00003730| 74 68 65 72 2d 66 69 6c | 65 2d 6f 74 68 65 72 2d |ther-fil|e-other-|
|00003740| 77 69 6e 64 6f 77 5d 0a | 20 49 66 20 79 6f 75 20 |window].| If you |
|00003750| 75 73 65 20 74 68 69 73 | 20 66 75 6e 63 74 69 6f |use this| functio|
|00003760| 6e 20 69 6e 20 61 20 73 | 70 65 63 20 61 6e 64 20 |n in a s|pec and |
|00003770| 6e 6f 20 62 6f 64 79 20 | 69 73 20 61 76 61 69 6c |no body |is avail|
|00003780| 61 62 6c 65 2c 20 69 74 | 20 67 65 74 73 20 63 72 |able, it| gets cr|
|00003790| 65 61 74 65 64 0a 20 77 | 69 74 68 20 62 6f 64 79 |eated. w|ith body|
|000037a0| 20 73 74 75 62 73 2e 0a | 0a 49 66 20 79 6f 75 20 | stubs..|.If you |
|000037b0| 75 73 65 20 61 64 61 2d | 78 72 65 66 2e 65 6c 3a |use ada-|xref.el:|
|000037c0| 0a 20 47 6f 74 6f 20 64 | 65 63 6c 61 72 61 74 69 |. Goto d|eclarati|
|000037d0| 6f 6e 3a 20 20 20 20 20 | 20 20 20 20 20 27 5c 5b |on: | '\[|
|000037e0| 61 64 61 2d 70 6f 69 6e | 74 2d 61 6e 64 2d 78 72 |ada-poin|t-and-xr|
|000037f0| 65 66 5d 27 20 6f 6e 20 | 74 68 65 20 69 64 65 6e |ef]' on |the iden|
|00003800| 74 69 66 69 65 72 0a 20 | 20 20 20 20 20 20 20 20 |tifier. | |
|00003810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003820| 6f 72 20 27 5c 5b 61 64 | 61 2d 67 6f 74 6f 2d 64 |or '\[ad|a-goto-d|
|00003830| 65 63 6c 61 72 61 74 69 | 6f 6e 5d 27 20 77 69 74 |eclarati|on]' wit|
|00003840| 68 20 70 6f 69 6e 74 20 | 6f 6e 20 74 68 65 20 69 |h point |on the i|
|00003850| 64 65 6e 74 69 66 69 65 | 72 0a 20 43 6f 6d 70 6c |dentifie|r. Compl|
|00003860| 65 74 65 20 69 64 65 6e | 74 69 66 69 65 72 3a 20 |ete iden|tifier: |
|00003870| 20 20 20 20 20 20 27 5c | 5b 61 64 61 2d 63 6f 6d | '\|[ada-com|
|00003880| 70 6c 65 74 65 2d 69 64 | 65 6e 74 69 66 69 65 72 |plete-id|entifier|
|00003890| 5d 27 0a 20 45 78 65 63 | 75 74 65 20 47 6e 61 74 |]'. Exec|ute Gnat|
|000038a0| 66 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 |f: | '|
|000038b0| 5c 5b 61 64 61 2d 67 6e | 61 74 66 2d 63 75 72 72 |\[ada-gn|atf-curr|
|000038c0| 65 6e 74 5d 27 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ent]'..(|defalias|
|000038d0| 20 27 61 64 61 2d 6d 6f | 64 65 20 23 5b 6e 69 6c | 'ada-mo|de #[nil|
|000038e0| 20 22 c0 20 88 c1 c2 21 | 88 c3 12 c1 c4 21 88 c5 | ". ...!|.....!..|
|000038f0| 14 c1 c6 21 88 c7 16 06 | c1 c8 21 88 c9 16 08 c1 |...!....|..!.....|
|00003900| ca 21 88 cb 16 5c 6e c1 | cc 21 88 cd 16 0c c1 ce |.!...\n.|.!......|
|00003910| 21 88 cf 16 0e c1 d0 21 | 88 c3 16 10 c1 d1 21 88 |!......!|......!.|
|00003920| c3 16 11 c1 d2 21 88 d3 | 16 12 c1 d4 21 88 d5 16 |.....!..|....!...|
|00003930| 14 c1 d6 21 88 d7 16 16 | c1 d8 21 88 0e 19 16 18 |...!....|..!.....|
|00003940| da 20 ac 9e c1 db 21 88 | dc 16 1b dd de 21 88 dd |. ....!.|.....!..|
|00003950| df 21 88 e0 16 1e e1 16 | 1f e2 16 23 e4 16 25 e6 |.!......|...#..%.|
|00003960| 16 27 e8 16 29 ea 16 2b | ec 0e 2d 21 88 0e 2e ab |.'..)..+|..-!....|
|00003970| 87 ef 0e 2e 21 88 aa 83 | f0 20 88 0e 31 ab 8a f2 |....!...|. ..1...|
|00003980| f3 f4 5c 22 88 f2 f3 f5 | 5c 22 88 f6 20 88 f7 f8 |..\"....|\".. ...|
|00003990| 21 88 0e 39 fa 61 ab 86 | 0e 3b 16 3c aa 8a 0e 39 |!..9.a..|.;.<...9|
|000039a0| fd 61 ab 84 0e 3e 16 3c | 0e 3f ad 84 81 40 00 20 |.a...>.<|.?...@. |
|000039b0| 87 22 20 5b 6b 69 6c 6c | 2d 61 6c 6c 2d 6c 6f 63 |." [kill|-all-loc|
|000039c0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 6d 61 6b |al-varia|bles mak|
|000039d0| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|000039e0| 20 72 65 71 75 69 72 65 | 2d 66 69 6e 61 6c 2d 6e | require|-final-n|
|000039f0| 65 77 6c 69 6e 65 20 74 | 20 63 6f 6d 6d 65 6e 74 |ewline t| comment|
|00003a00| 2d 73 74 61 72 74 20 22 | 2d 2d 20 22 20 63 6f 6d |-start "|-- " com|
|00003a10| 6d 65 6e 74 2d 65 6e 64 | 20 22 22 20 63 6f 6d 6d |ment-end| "" comm|
|00003a20| 65 6e 74 2d 73 74 61 72 | 74 2d 73 6b 69 70 20 22 |ent-star|t-skip "|
|00003a30| 2d 2d 2b 5b 20 09 5d 2a | 22 20 69 6e 64 65 6e 74 |--+[ .]*|" indent|
|00003a40| 2d 6c 69 6e 65 2d 66 75 | 6e 63 74 69 6f 6e 20 61 |-line-fu|nction a|
|00003a50| 64 61 2d 69 6e 64 65 6e | 74 2d 63 75 72 72 65 6e |da-inden|t-curren|
|00003a60| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 66 69 6c 6c 2d |t-functi|on fill-|
|00003a70| 63 6f 6c 75 6d 6e 20 37 | 35 20 63 6f 6d 6d 65 6e |column 7|5 commen|
|00003a80| 74 2d 63 6f 6c 75 6d 6e | 20 34 30 20 70 61 72 73 |t-column| 40 pars|
|00003a90| 65 2d 73 65 78 70 2d 69 | 67 6e 6f 72 65 2d 63 6f |e-sexp-i|gnore-co|
|00003aa0| 6d 6d 65 6e 74 73 20 63 | 61 73 65 2d 66 6f 6c 64 |mments c|ase-fold|
|00003ab0| 2d 73 65 61 72 63 68 20 | 6f 75 74 6c 69 6e 65 2d |-search |outline-|
|00003ac0| 72 65 67 65 78 70 20 22 | 5b 5e 5c 6e 0d 5d 22 20 |regexp "|[^\n.]" |
|00003ad0| 6f 75 74 6c 69 6e 65 2d | 6c 65 76 65 6c 20 61 64 |outline-|level ad|
|00003ae0| 61 2d 6f 75 74 6c 69 6e | 65 2d 6c 65 76 65 6c 20 |a-outlin|e-level |
|00003af0| 66 69 6c 6c 2d 70 61 72 | 61 67 72 61 70 68 2d 66 |fill-par|agraph-f|
|00003b00| 75 6e 63 74 69 6f 6e 20 | 61 64 61 2d 66 69 6c 6c |unction |ada-fill|
|00003b10| 2d 63 6f 6d 6d 65 6e 74 | 2d 70 61 72 61 67 72 61 |-comment|-paragra|
|00003b20| 70 68 20 69 6d 65 6e 75 | 2d 67 65 6e 65 72 69 63 |ph imenu|-generic|
|00003b30| 2d 65 78 70 72 65 73 73 | 69 6f 6e 20 61 64 61 2d |-express|ion ada-|
|00003b40| 69 6d 65 6e 75 2d 67 65 | 6e 65 72 69 63 2d 65 78 |imenu-ge|neric-ex|
|00003b50| 70 72 65 73 73 69 6f 6e | 20 61 64 61 2d 78 65 6d |pression| ada-xem|
|00003b60| 61 63 73 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 64 65 |acs font|-lock-de|
|00003b70| 66 61 75 6c 74 73 20 28 | 28 61 64 61 2d 66 6f 6e |faults (|(ada-fon|
|00003b80| 74 2d 6c 6f 63 6b 2d 6b | 65 79 77 6f 72 64 73 20 |t-lock-k|eywords |
|00003b90| 61 64 61 2d 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6b 65 |ada-font|-lock-ke|
|00003ba0| 79 77 6f 72 64 73 2d 31 | 20 61 64 61 2d 66 6f 6e |ywords-1| ada-fon|
|00003bb0| 74 2d 6c 6f 63 6b 2d 6b | 65 79 77 6f 72 64 73 2d |t-lock-k|eywords-|
|00003bc0| 32 29 20 6e 69 6c 20 74 | 20 28 28 3f 5c 5f 20 2e |2) nil t| ((?\_ .|
|00003bd0| 20 22 77 22 29 20 28 3f | 5c 2e 20 2e 20 22 77 22 | "w") (?|\. . "w"|
|00003be0| 29 29 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |)) begin|ning-of-|
|00003bf0| 6c 69 6e 65 20 28 66 6f | 6e 74 2d 6c 6f 63 6b 2d |line (fo|nt-lock-|
|00003c00| 73 79 6e 74 61 63 74 69 | 63 2d 6b 65 79 77 6f 72 |syntacti|c-keywor|
|00003c10| 64 73 20 2e 20 61 64 61 | 2d 66 6f 6e 74 2d 6c 6f |ds . ada|-font-lo|
|00003c20| 63 6b 2d 73 79 6e 74 61 | 63 74 69 63 2d 6b 65 79 |ck-synta|ctic-key|
|00003c30| 77 6f 72 64 73 29 29 20 | 6d 61 6b 65 2d 76 61 72 |words)) |make-var|
|00003c40| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00003c50| 61 6c 20 66 66 2d 6f 74 | 68 65 72 2d 66 69 6c 65 |al ff-ot|her-file|
|00003c60| 2d 61 6c 69 73 74 20 66 | 66 2d 73 65 61 72 63 68 |-alist f|f-search|
|00003c70| 2d 64 69 72 65 63 74 6f | 72 69 65 73 20 61 64 61 |-directo|ries ada|
|00003c80| 2d 6f 74 68 65 72 2d 66 | 69 6c 65 2d 61 6c 69 73 |-other-f|ile-alis|
|00003c90| 74 20 61 64 61 2d 73 65 | 61 72 63 68 2d 64 69 72 |t ada-se|arch-dir|
|00003ca0| 65 63 74 6f 72 69 65 73 | 20 66 66 2d 77 68 69 63 |ectories| ff-whic|
|00003cb0| 68 2d 66 75 6e 63 74 69 | 6f 6e 2d 61 72 65 2d 77 |h-functi|on-are-w|
|00003cc0| 65 2d 69 6e 20 66 66 2d | 70 72 65 2d 6c 6f 61 64 |e-in ff-|pre-load|
|00003cd0| 2d 68 6f 6f 6b 73 20 66 | 66 2d 73 65 74 2d 70 6f |-hooks f|f-set-po|
|00003ce0| 69 6e 74 2d 61 63 63 6f | 72 64 69 6e 67 6c 79 20 |int-acco|rdingly |
|00003cf0| 66 66 2d 70 6f 73 74 2d | 6c 6f 61 64 2d 68 6f 6f |ff-post-|load-hoo|
|00003d00| 6b 73 20 61 64 61 2d 6d | 61 6b 65 2d 62 6f 64 79 |ks ada-m|ake-body|
|00003d10| 20 66 66 2d 66 69 6c 65 | 2d 63 72 65 61 74 65 64 | ff-file|-created|
|00003d20| 2d 68 6f 6f 6b 73 20 61 | 64 61 2d 6d 6f 64 65 20 |-hooks a|da-mode |
|00003d30| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 22 41 64 61 22 |major-mo|de "Ada"|
|00003d40| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 75 73 65 2d 6c | mode-na|me use-l|
|00003d50| 6f 63 61 6c 2d 6d 61 70 | 20 61 64 61 2d 6d 6f 64 |ocal-map| ada-mod|
|00003d60| 65 2d 6d 61 70 20 61 64 | 61 2d 6d 6f 64 65 2d 73 |e-map ad|a-mode-s|
|00003d70| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 73 65 74 2d |yntax-ta|ble set-|
|00003d80| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 61 64 61 |syntax-t|able ada|
|00003d90| 2d 63 72 65 61 74 65 2d | 73 79 6e 74 61 78 2d 74 |-create-|syntax-t|
|00003da0| 61 62 6c 65 20 61 64 61 | 2d 63 6c 65 61 6e 2d 62 |able ada|-clean-b|
|00003db0| 75 66 66 65 72 2d 62 65 | 66 6f 72 65 2d 73 61 76 |uffer-be|fore-sav|
|00003dc0| 69 6e 67 20 61 64 64 2d | 68 6f 6f 6b 20 6c 6f 63 |ing add-|hook loc|
|00003dd0| 61 6c 2d 77 72 69 74 65 | 2d 66 69 6c 65 2d 68 6f |al-write|-file-ho|
|00003de0| 6f 6b 73 20 61 64 61 2d | 72 65 6d 6f 76 65 2d 74 |oks ada-|remove-t|
|00003df0| 72 61 69 6c 69 6e 67 2d | 73 70 61 63 65 73 20 61 |railing-|spaces a|
|00003e00| 64 61 2d 75 6e 74 61 62 | 69 66 79 2d 62 75 66 66 |da-untab|ify-buff|
|00003e10| 65 72 20 61 64 61 2d 61 | 64 64 2d 61 64 61 2d 6d |er ada-a|dd-ada-m|
|00003e20| 65 6e 75 20 72 75 6e 2d | 68 6f 6f 6b 73 20 61 64 |enu run-|hooks ad|
|00003e30| 61 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 20 61 64 61 2d |a-mode-h|ook ada-|
|00003e40| 6c 61 6e 67 75 61 67 65 | 2d 76 65 72 73 69 6f 6e |language|-version|
|00003e50| 20 61 64 61 38 33 20 61 | 64 61 2d 38 33 2d 6b 65 | ada83 a|da-83-ke|
|00003e60| 79 77 6f 72 64 73 20 61 | 64 61 2d 6b 65 79 77 6f |ywords a|da-keywo|
|00003e70| 72 64 73 20 61 64 61 39 | 35 20 61 64 61 2d 39 35 |rds ada9|5 ada-95|
|00003e80| 2d 6b 65 79 77 6f 72 64 | 73 20 61 64 61 2d 61 75 |-keyword|s ada-au|
|00003e90| 74 6f 2d 63 61 73 65 20 | 61 64 61 2d 61 63 74 69 |to-case |ada-acti|
|00003ea0| 76 61 74 65 2d 6b 65 79 | 73 2d 66 6f 72 2d 63 61 |vate-key|s-for-ca|
|00003eb0| 73 65 5d 20 33 20 28 23 | 24 20 2e 20 31 31 39 35 |se] 3 (#|$ . 1195|
|00003ec0| 37 29 20 6e 69 6c 5d 29 | 0a 23 40 31 30 36 20 43 |7) nil])|.#@106 C|
|00003ed0| 68 65 63 6b 20 73 79 6e | 74 61 78 20 6f 66 20 74 |heck syn|tax of t|
|00003ee0| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00003ef0| 72 2e 20 0a 55 73 65 73 | 20 74 68 65 20 66 75 6e |r. .Uses| the fun|
|00003f00| 63 74 69 6f 6e 20 60 63 | 6f 6d 70 69 6c 65 27 20 |ction `c|ompile' |
|00003f10| 74 6f 20 65 78 65 63 75 | 74 65 20 60 61 64 61 2d |to execu|te `ada-|
|00003f20| 63 6f 6d 70 69 6c 65 72 | 2d 73 79 6e 74 61 78 2d |compiler|-syntax-|
|00003f30| 63 68 65 63 6b 27 2e 1f | 0a 28 64 65 66 61 6c 69 |check'..|.(defali|
|00003f40| 61 73 20 27 61 64 61 2d | 63 68 65 63 6b 2d 73 79 |as 'ada-|check-sy|
|00003f50| 6e 74 61 78 20 23 5b 6e | 69 6c 20 22 08 19 5c 6e |ntax #[n|il "..\n|
|00003f60| 0b c4 61 ad 81 c5 c6 0e | 07 c6 c8 20 b0 06 10 c9 |..a.....|... ....|
|00003f70| ca 08 5c 22 10 cb 08 21 | 88 09 89 10 29 87 22 20 |..\"...!|....)." |
|00003f80| 5b 63 6f 6d 70 69 6c 65 | 2d 63 6f 6d 6d 61 6e 64 |[compile|-command|
|00003f90| 20 6f 6c 64 2d 63 6f 6d | 70 69 6c 65 2d 63 6f 6d | old-com|pile-com|
|00003fa0| 6d 61 6e 64 20 61 64 61 | 2d 63 6f 6d 70 69 6c 65 |mand ada|-compile|
|00003fb0| 72 2d 73 79 6e 74 61 78 | 2d 63 68 65 63 6b 20 61 |r-syntax|-check a|
|00003fc0| 64 61 2d 6c 61 6e 67 75 | 61 67 65 2d 76 65 72 73 |da-langu|age-vers|
|00003fd0| 69 6f 6e 20 61 64 61 38 | 33 20 22 2d 67 6e 61 74 |ion ada8|3 "-gnat|
|00003fe0| 38 33 20 22 20 22 20 22 | 20 61 64 61 2d 63 6f 6d |83 " " "| ada-com|
|00003ff0| 70 69 6c 65 2d 6f 70 74 | 69 6f 6e 73 20 62 75 66 |pile-opt|ions buf|
|00004000| 66 65 72 2d 6e 61 6d 65 | 20 72 65 61 64 2d 66 72 |fer-name| read-fr|
|00004010| 6f 6d 2d 6d 69 6e 69 62 | 75 66 66 65 72 20 22 65 |om-minib|uffer "e|
|00004020| 6e 74 65 72 20 63 6f 6d | 6d 61 6e 64 20 66 6f 72 |nter com|mand for|
|00004030| 20 73 79 6e 74 61 78 20 | 63 68 65 63 6b 3a 20 22 | syntax |check: "|
|00004040| 20 63 6f 6d 70 69 6c 65 | 5d 20 36 20 28 23 24 20 | compile|] 6 (#$ |
|00004050| 2e 20 31 36 30 37 39 29 | 20 6e 69 6c 5d 29 0a 23 |. 16079)| nil]).#|
|00004060| 40 39 36 20 42 72 69 6e | 67 20 63 75 72 72 65 6e |@96 Brin|g curren|
|00004070| 74 20 41 64 61 20 75 6e | 69 74 20 75 70 2d 74 6f |t Ada un|it up-to|
|00004080| 2d 64 61 74 65 2e 20 0a | 55 73 65 73 20 74 68 65 |-date. .|Uses the|
|00004090| 20 66 75 6e 63 74 69 6f | 6e 20 60 63 6f 6d 70 69 | functio|n `compi|
|000040a0| 6c 65 27 20 74 6f 20 65 | 78 65 63 75 74 65 20 60 |le' to e|xecute `|
|000040b0| 61 64 61 2d 63 6f 6d 70 | 69 6c 65 2d 6d 61 6b 65 |ada-comp|ile-make|
|000040c0| 27 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |'...(def|alias 'a|
|000040d0| 64 61 2d 6d 61 6b 65 2d | 6c 6f 63 61 6c 20 23 5b |da-make-|local #[|
|000040e0| 6e 69 6c 20 22 08 19 5c | 6e c3 0c c3 c5 20 b0 05 |nil "..\|n.... ..|
|000040f0| 10 c6 c7 08 5c 22 10 c8 | 08 21 88 09 89 10 29 87 |....\"..|.!....).|
|00004100| 22 20 5b 63 6f 6d 70 69 | 6c 65 2d 63 6f 6d 6d 61 |" [compi|le-comma|
|00004110| 6e 64 20 6f 6c 64 2d 63 | 6f 6d 70 69 6c 65 2d 63 |nd old-c|ompile-c|
|00004120| 6f 6d 6d 61 6e 64 20 61 | 64 61 2d 63 6f 6d 70 69 |ommand a|da-compi|
|00004130| 6c 65 72 2d 6d 61 6b 65 | 20 22 20 22 20 61 64 61 |ler-make| " " ada|
|00004140| 2d 6d 61 6b 65 2d 6f 70 | 74 69 6f 6e 73 20 62 75 |-make-op|tions bu|
|00004150| 66 66 65 72 2d 6e 61 6d | 65 20 72 65 61 64 2d 66 |ffer-nam|e read-f|
|00004160| 72 6f 6d 2d 6d 69 6e 69 | 62 75 66 66 65 72 20 22 |rom-mini|buffer "|
|00004170| 65 6e 74 65 72 20 63 6f | 6d 6d 61 6e 64 20 66 6f |enter co|mmand fo|
|00004180| 72 20 6c 6f 63 61 6c 20 | 6d 61 6b 65 3a 20 22 20 |r local |make: " |
|00004190| 63 6f 6d 70 69 6c 65 5d | 20 35 20 28 23 24 20 2e |compile]| 5 (#$ .|
|000041a0| 20 31 36 34 38 34 29 20 | 6e 69 6c 5d 29 0a 23 40 | 16484) |nil]).#@|
|000041b0| 36 36 20 46 69 6c 6c 73 | 20 63 75 72 72 65 6e 74 |66 Fills| current|
|000041c0| 20 63 6f 6d 6d 65 6e 74 | 20 70 61 72 61 67 72 61 | comment| paragra|
|000041d0| 70 68 20 61 6e 64 20 6a | 75 73 74 69 66 69 65 73 |ph and j|ustifies|
|000041e0| 20 65 61 63 68 20 6c 69 | 6e 65 20 61 73 20 77 65 | each li|ne as we|
|000041f0| 6c 6c 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ll...(de|falias '|
|00004200| 61 64 61 2d 66 69 6c 6c | 2d 63 6f 6d 6d 65 6e 74 |ada-fill|-comment|
|00004210| 2d 70 61 72 61 67 72 61 | 70 68 2d 6a 75 73 74 69 |-paragra|ph-justi|
|00004220| 66 79 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |fy #[nil| "..!." |
|00004230| 5b 61 64 61 2d 66 69 6c | 6c 2d 63 6f 6d 6d 65 6e |[ada-fil|l-commen|
|00004240| 74 2d 70 61 72 61 67 72 | 61 70 68 20 74 5d 20 32 |t-paragr|aph t] 2|
|00004250| 20 28 23 24 20 2e 20 31 | 36 38 31 39 29 20 6e 69 | (#$ . 1|6819) ni|
|00004260| 6c 5d 29 0a 23 40 31 31 | 37 20 46 69 6c 6c 73 20 |l]).#@11|7 Fills |
|00004270| 63 75 72 72 65 6e 74 20 | 63 6f 6d 6d 65 6e 74 20 |current |comment |
|00004280| 70 61 72 61 67 72 61 70 | 68 20 61 6e 64 20 6a 75 |paragrap|h and ju|
|00004290| 73 74 69 66 69 65 73 20 | 65 61 63 68 20 6c 69 6e |stifies |each lin|
|000042a0| 65 20 61 73 20 77 65 6c | 6c 2e 0a 50 72 6f 6d 70 |e as wel|l..Promp|
|000042b0| 74 73 20 66 6f 72 20 61 | 20 70 6f 73 74 66 69 78 |ts for a| postfix|
|000042c0| 20 74 6f 20 62 65 20 61 | 70 70 65 6e 64 65 64 20 | to be a|ppended |
|000042d0| 74 6f 20 65 61 63 68 20 | 6c 69 6e 65 2e 1f 0a 28 |to each |line...(|
|000042e0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 66 69 |defalias| 'ada-fi|
|000042f0| 6c 6c 2d 63 6f 6d 6d 65 | 6e 74 2d 70 61 72 61 67 |ll-comme|nt-parag|
|00004300| 72 61 70 68 2d 70 6f 73 | 74 66 69 78 20 23 5b 6e |raph-pos|tfix #[n|
|00004310| 69 6c 20 22 c0 c1 89 5c | 22 87 22 20 5b 61 64 61 |il "...\|"." [ada|
|00004320| 2d 66 69 6c 6c 2d 63 6f | 6d 6d 65 6e 74 2d 70 61 |-fill-co|mment-pa|
|00004330| 72 61 67 72 61 70 68 20 | 74 5d 20 33 20 28 23 24 |ragraph |t] 3 (#$|
|00004340| 20 2e 20 31 37 30 30 32 | 29 20 6e 69 6c 5d 29 0a | . 17002|) nil]).|
|00004350| 23 40 32 37 34 20 46 69 | 6c 6c 73 20 74 68 65 20 |#@274 Fi|lls the |
|00004360| 63 75 72 72 65 6e 74 20 | 63 6f 6d 6d 65 6e 74 20 |current |comment |
|00004370| 70 61 72 61 67 72 61 70 | 68 2e 0a 49 66 20 4a 55 |paragrap|h..If JU|
|00004380| 53 54 49 46 59 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |STIFY is| non-nil|
|00004390| 2c 20 65 61 63 68 20 6c | 69 6e 65 20 69 73 20 6a |, each l|ine is j|
|000043a0| 75 73 74 69 66 69 65 64 | 20 61 73 20 77 65 6c 6c |ustified| as well|
|000043b0| 2e 0a 49 66 20 50 4f 53 | 54 46 49 58 20 61 6e 64 |..If POS|TFIX and|
|000043c0| 20 4a 55 53 54 49 46 59 | 20 61 72 65 20 20 6e 6f | JUSTIFY| are no|
|000043d0| 6e 2d 6e 69 6c 2c 20 60 | 61 64 61 2d 66 69 6c 6c |n-nil, `|ada-fill|
|000043e0| 2d 63 6f 6d 6d 65 6e 74 | 2d 70 6f 73 74 66 69 78 |-comment|-postfix|
|000043f0| 27 20 69 73 20 61 70 70 | 65 6e 64 65 64 0a 74 6f |' is app|ended.to|
|00004400| 20 65 61 63 68 20 66 69 | 6c 6c 65 64 20 61 6e 64 | each fi|lled and|
|00004410| 20 6a 75 73 74 69 66 69 | 65 64 20 6c 69 6e 65 2e | justifi|ed line.|
|00004420| 0a 49 66 20 60 61 64 61 | 2d 69 6e 64 65 6e 74 2d |.If `ada|-indent-|
|00004430| 63 6f 6d 6d 65 6e 74 2d | 61 73 2d 63 6f 64 65 27 |comment-|as-code'|
|00004440| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 74 68 65 | is non-|nil, the|
|00004450| 20 70 61 72 61 67 72 61 | 70 68 20 69 73 20 69 64 | paragra|ph is id|
|00004460| 65 6e 74 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ented...|(defalia|
|00004470| 73 20 27 61 64 61 2d 66 | 69 6c 6c 2d 63 6f 6d 6d |s 'ada-f|ill-comm|
|00004480| 65 6e 74 2d 70 61 72 61 | 67 72 61 70 68 20 23 5b |ent-para|graph #[|
|00004490| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6a 75 73 74 69 |(&option|al justi|
|000044a0| 66 79 20 70 6f 73 74 66 | 69 78 29 20 22 c0 20 c1 |fy postf|ix) ". .|
|000044b0| 89 89 89 c2 c1 1b 1c 1d | 1e 06 1e 07 1e 08 1e 09 |........|........|
|000044c0| ca 20 ac 84 cb cc 21 88 | 0e 0d ab 8b 0e 0e ab 87 |. ....!.|........|
|000044d0| cf d0 0e 11 5c 22 16 11 | 0e 0d ab 8a 0e 0e ab 86 |....\"..|........|
|000044e0| cf d2 0e 11 5c 22 14 d3 | d4 21 88 8a d5 20 88 d6 |....\"..|.!... ..|
|000044f0| d7 21 ab 8d d6 d8 21 ac | 88 d9 79 88 d5 20 88 aa |.!....!.|..y.. ..|
|00004500| 6e da 79 88 c0 20 16 07 | 0e 09 62 88 d5 20 88 d6 |n.y.. ..|..b.. ..|
|00004510| d7 21 ab 8d d6 d8 21 ac | 88 db 79 88 d5 20 88 aa |.!....!.|..y.. ..|
|00004520| 6e d9 79 88 dc 20 88 d5 | 20 88 69 15 c0 20 16 08 |n.y.. ..| .i.. ..|
|00004530| 29 0e 0d ab 9a 0e 0e ab | 96 8a 0e 08 62 88 dd 0c |).......|....b...|
|00004540| de 50 0e 07 df 23 ab 86 | e0 de 21 88 aa 70 29 8a |.P...#..|..!..p).|
|00004550| 0e 08 62 88 da 79 88 dd | e1 0e 07 df 23 ab 86 e0 |..b..y..|....#...|
|00004560| c2 21 88 aa 72 29 0e 5c | 22 0d 5a 0e 23 47 5a 0e |.!..r).\|".Z.#GZ.|
|00004570| 0e ab 85 0e 11 47 aa 81 | da 5a 16 5c 22 e4 0e 08 |.....G..|.Z.\"...|
|00004580| 0e 07 53 0e 0d 23 88 0e | 5c 22 0d 5c 5c 0e 23 47 |..S..#..|\".\\.#G|
|00004590| 5c 5c 0e 0e ab 85 0e 11 | 47 aa 81 da 5c 5c 16 5c |\\......|G...\\.\|
|000045a0| 22 8a 0e 07 62 88 e5 79 | 88 c1 7f 88 c0 20 16 06 |"...b..y|..... ..|
|000045b0| 29 8a 0e 08 62 88 0d 6a | 88 0e 23 63 88 dd de 0e |)...b..j|..#c....|
|000045c0| 06 53 df 23 ab 8f e0 de | 0e 23 50 21 88 da 79 88 |.S.#....|.#P!..y.|
|000045d0| 0d 6a 88 aa 68 29 0e 0d | ab b3 0e 0e ab af 0e 11 |.j..h)..|........|
|000045e0| ab ab 8a 0e 08 62 88 dd | de 0e 06 53 df 23 ab 89 |.....b..|...S.#..|
|000045f0| e0 0e 11 de 50 21 88 aa | 6e c1 7f 88 e6 e7 0e 5c |....P!..|n......\|
|00004600| 22 69 5a 0e 11 47 5a 5c | 22 88 0e 11 63 88 29 8a |"iZ..GZ\|"...c.).|
|00004610| 0e 07 53 62 88 c1 7f 88 | e8 d9 21 88 29 d3 e9 21 |..Sb....|..!.)..!|
|00004620| 88 0e 09 62 88 2e 07 df | 87 22 20 5b 70 6f 69 6e |...b....|." [poin|
|00004630| 74 2d 6d 61 72 6b 65 72 | 20 6e 69 6c 20 22 22 20 |t-marker| nil "" |
|00004640| 66 69 6c 6c 2d 70 72 65 | 66 69 78 20 61 64 61 2d |fill-pre|fix ada-|
|00004650| 66 69 6c 6c 2d 63 6f 6d | 6d 65 6e 74 2d 6f 6c 64 |fill-com|ment-old|
|00004660| 2d 70 6f 73 74 66 69 78 | 20 69 6e 64 65 6e 74 20 |-postfix| indent |
|00004670| 65 6e 64 2d 32 20 65 6e | 64 20 62 65 67 69 6e 20 |end-2 en|d begin |
|00004680| 6f 70 6f 73 20 61 64 61 | 2d 69 6e 2d 63 6f 6d 6d |opos ada|-in-comm|
|00004690| 65 6e 74 2d 70 20 65 72 | 72 6f 72 20 22 6e 6f 74 |ent-p er|ror "not|
|000046a0| 20 69 6e 73 69 64 65 20 | 63 6f 6d 6d 65 6e 74 22 | inside |comment"|
|000046b0| 20 6a 75 73 74 69 66 79 | 20 70 6f 73 74 66 69 78 | justify| postfix|
|000046c0| 20 72 65 61 64 2d 66 72 | 6f 6d 2d 6d 69 6e 69 62 | read-fr|om-minib|
|000046d0| 75 66 66 65 72 20 22 65 | 6e 74 65 72 20 6e 65 77 |uffer "e|nter new|
|000046e0| 20 70 6f 73 74 66 69 78 | 20 73 74 72 69 6e 67 3a | postfix| string:|
|000046f0| 20 22 20 61 64 61 2d 66 | 69 6c 6c 2d 63 6f 6d 6d | " ada-f|ill-comm|
|00004700| 65 6e 74 2d 70 6f 73 74 | 66 69 78 20 22 65 6e 74 |ent-post|fix "ent|
|00004710| 65 72 20 61 6c 72 65 61 | 64 79 20 65 78 69 73 74 |er alrea|dy exist|
|00004720| 69 6e 67 20 70 6f 73 74 | 66 69 78 20 73 74 72 69 |ing post|fix stri|
|00004730| 6e 67 3a 20 22 20 6d 65 | 73 73 61 67 65 20 22 66 |ng: " me|ssage "f|
|00004740| 69 6c 6c 69 6e 67 20 63 | 6f 6d 6d 65 6e 74 20 70 |illing c|omment p|
|00004750| 61 72 61 67 72 61 70 68 | 20 2e 2e 2e 22 20 62 61 |aragraph| ..." ba|
|00004760| 63 6b 2d 74 6f 2d 69 6e | 64 65 6e 74 61 74 69 6f |ck-to-in|dentatio|
|00004770| 6e 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 2d 2d |n lookin|g-at "--|
|00004780| 2e 2a 24 22 20 22 2d 2d | 5b 20 09 5d 2a 24 22 20 |.*$" "--|[ .]*$" |
|00004790| 31 20 30 20 2d 31 20 61 | 64 61 2d 69 6e 64 65 6e |1 0 -1 a|da-inden|
|000047a0| 74 2d 63 75 72 72 65 6e | 74 20 72 65 2d 73 65 61 |t-curren|t re-sea|
|000047b0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 6e 22 |rch-forw|ard "\n"|
|000047c0| 20 74 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 | t repla|ce-match|
|000047d0| 20 22 5e 5b 20 09 5d 2a | 2d 2d 5b 20 09 5d 2a 22 | "^[ .]*|--[ .]*"|
|000047e0| 20 66 69 6c 6c 2d 63 6f | 6c 75 6d 6e 20 61 64 61 | fill-co|lumn ada|
|000047f0| 2d 66 69 6c 6c 2d 63 6f | 6d 6d 65 6e 74 2d 70 72 |-fill-co|mment-pr|
|00004800| 65 66 69 78 20 66 69 6c | 6c 2d 72 65 67 69 6f 6e |efix fil|l-region|
|00004810| 20 2d 32 20 69 6e 73 65 | 72 74 2d 63 68 61 72 20 | -2 inse|rt-char |
|00004820| 3f 5c 6e 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |?\n dele|te-char |
|00004830| 22 66 69 6c 6c 69 6e 67 | 20 63 6f 6d 6d 65 6e 74 |"filling| comment|
|00004840| 20 70 61 72 61 67 72 61 | 70 68 20 2e 2e 2e 20 64 | paragra|ph ... d|
|00004850| 6f 6e 65 22 5d 20 37 20 | 28 23 24 20 2e 20 31 37 |one"] 7 |(#$ . 17|
|00004860| 32 33 38 29 20 22 50 22 | 5d 29 0a 23 40 33 32 31 |238) "P"|]).#@321|
|00004870| 20 43 61 6c 6c 73 20 74 | 68 65 20 65 78 74 65 72 | Calls t|he exter|
|00004880| 6e 61 6c 20 50 72 65 74 | 74 79 20 50 72 69 6e 74 |nal Pret|ty Print|
|00004890| 65 72 2e 0a 54 68 65 20 | 6e 61 6d 65 20 69 73 20 |er..The |name is |
|000048a0| 73 70 65 63 69 66 69 65 | 64 20 69 6e 20 60 61 64 |specifie|d in `ad|
|000048b0| 61 2d 65 78 74 65 72 6e | 61 6c 2d 70 72 65 74 74 |a-extern|al-prett|
|000048c0| 79 2d 70 72 69 6e 74 2d | 70 72 6f 67 72 61 6d 27 |y-print-|program'|
|000048d0| 2e 20 20 53 61 76 65 73 | 20 74 68 65 0a 63 75 72 |. Saves| the.cur|
|000048e0| 72 65 6e 74 20 62 75 66 | 66 65 72 20 69 6e 20 61 |rent buf|fer in a|
|000048f0| 20 64 69 72 65 63 74 6f | 72 79 20 73 70 65 63 69 | directo|ry speci|
|00004900| 66 69 65 64 20 62 79 20 | 60 61 64 61 2d 74 6d 70 |fied by |`ada-tmp|
|00004910| 2d 64 69 72 65 63 74 6f | 72 79 27 2c 0a 73 74 61 |-directo|ry',.sta|
|00004920| 72 74 73 20 74 68 65 20 | 70 72 65 74 74 79 20 70 |rts the |pretty p|
|00004930| 72 69 6e 74 65 72 20 61 | 73 20 65 78 74 65 72 6e |rinter a|s extern|
|00004940| 61 6c 20 70 72 6f 63 65 | 73 73 20 6f 6e 20 74 68 |al proce|ss on th|
|00004950| 61 74 20 66 69 6c 65 20 | 61 6e 64 20 74 68 65 6e |at file |and then|
|00004960| 0a 72 65 6c 6f 61 64 73 | 20 74 68 65 20 62 65 61 |.reloads| the bea|
|00004970| 75 74 69 66 69 65 64 20 | 70 72 6f 67 72 61 6d 20 |utified |program |
|00004980| 69 6e 20 74 68 65 20 62 | 75 66 66 65 72 20 61 6e |in the b|uffer an|
|00004990| 64 20 63 6c 65 61 6e 73 | 20 75 70 0a 60 61 64 61 |d cleans| up.`ada|
|000049a0| 2d 74 6d 70 2d 64 69 72 | 65 63 74 6f 72 79 27 2e |-tmp-dir|ectory'.|
|000049b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |..(defal|ias 'ada|
|000049c0| 2d 63 61 6c 6c 2d 70 72 | 65 74 74 79 2d 70 72 69 |-call-pr|etty-pri|
|000049d0| 6e 74 65 72 20 23 5b 6e | 69 6c 20 22 08 70 60 c1 |nter #[n|il ".p`.|
|000049e0| c2 08 21 c3 08 21 0c c3 | 08 21 50 1d 1e 06 1e 07 |..!..!..|.!P.....|
|000049f0| 1e 08 1e 09 1e 5c 6e 1e | 0b cc cd 21 88 ce 0d 21 |.....\n.|...!...!|
|00004a00| 88 cf c1 21 88 cc d0 21 | 88 cc d1 21 88 d2 d3 21 |...!...!|...!...!|
|00004a10| 16 08 d4 0e 15 c1 0e 08 | d6 0d 25 88 d7 0e 08 21 |........|..%....!|
|00004a20| ab 88 d8 0e 08 d6 5c 22 | 88 aa 85 d9 0e 08 21 88 |......\"|......!.|
|00004a30| cc da 21 88 db dc 21 ab | 8f dd c1 21 88 d9 0e 5c |..!...!.|...!...\|
|00004a40| 6e 21 88 de 0d 21 88 aa | 84 cc df 21 88 e0 0d 21 |n!...!..|...!...!|
|00004a50| 88 e1 0e 0b 21 88 cf d6 | 21 88 0e 09 62 2e 07 87 |....!...|!...b...|
|00004a60| 22 20 5b 62 75 66 66 65 | 72 2d 66 69 6c 65 2d 6e |" [buffe|r-file-n|
|00004a70| 61 6d 65 20 6e 69 6c 20 | 66 69 6c 65 2d 6e 61 6d |ame nil |file-nam|
|00004a80| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 66 69 6c 65 |e-direct|ory file|
|00004a90| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|00004aa0| 72 79 20 61 64 61 2d 74 | 6d 70 2d 64 69 72 65 63 |ry ada-t|mp-direc|
|00004ab0| 74 6f 72 79 20 74 6d 70 | 2d 66 69 6c 65 2d 77 69 |tory tmp|-file-wi|
|00004ac0| 74 68 2d 64 69 72 65 63 | 74 6f 72 79 20 66 69 6c |th-direc|tory fil|
|00004ad0| 65 6e 61 6d 65 2d 77 69 | 74 68 6f 75 74 2d 70 61 |ename-wi|thout-pa|
|00004ae0| 74 68 20 66 69 6c 65 2d | 70 61 74 68 20 6d 65 73 |th file-|path mes|
|00004af0| 67 62 75 66 20 6f 72 67 | 70 6f 73 20 63 75 72 62 |gbuf org|pos curb|
|00004b00| 75 66 20 66 69 6c 65 6e | 61 6d 65 2d 77 69 74 68 |uf filen|ame-with|
|00004b10| 2d 70 61 74 68 20 6d 65 | 73 73 61 67 65 20 22 73 |-path me|ssage "s|
|00004b20| 61 76 69 6e 67 20 63 75 | 72 72 65 6e 74 20 62 75 |aving cu|rrent bu|
|00004b30| 66 66 65 72 20 74 6f 20 | 74 65 6d 70 6f 72 61 72 |ffer to |temporar|
|00004b40| 79 20 66 69 6c 65 20 2e | 2e 2e 22 20 77 72 69 74 |y file .|.." writ|
|00004b50| 65 2d 66 69 6c 65 20 61 | 75 74 6f 2d 73 61 76 65 |e-file a|uto-save|
|00004b60| 2d 6d 6f 64 65 20 22 73 | 61 76 69 6e 67 20 63 75 |-mode "s|aving cu|
|00004b70| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 74 6f 20 |rrent bu|ffer to |
|00004b80| 74 65 6d 70 6f 72 61 72 | 79 20 66 69 6c 65 20 2e |temporar|y file .|
|00004b90| 2e 2e 20 64 6f 6e 65 22 | 20 22 72 75 6e 6e 69 6e |.. done"| "runnin|
|00004ba0| 67 20 65 78 74 65 72 6e | 61 6c 20 70 72 65 74 74 |g extern|al prett|
|00004bb0| 79 20 70 72 69 6e 74 65 | 72 20 2e 2e 2e 22 20 67 |y printe|r ..." g|
|00004bc0| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00004bd0| 20 22 50 72 65 74 74 79 | 20 50 72 69 6e 74 65 72 | "Pretty| Printer|
|00004be0| 20 4d 65 73 73 61 67 65 | 73 22 20 63 61 6c 6c 2d | Message|s" call-|
|00004bf0| 70 72 6f 63 65 73 73 20 | 61 64 61 2d 65 78 74 65 |process |ada-exte|
|00004c00| 72 6e 61 6c 2d 70 72 65 | 74 74 79 2d 70 72 69 6e |rnal-pre|tty-prin|
|00004c10| 74 2d 70 72 6f 67 72 61 | 6d 20 74 20 62 75 66 66 |t-progra|m t buff|
|00004c20| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 64 69 |er-modif|ied-p di|
|00004c30| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 20 6b 69 6c |splay-bu|ffer kil|
|00004c40| 6c 2d 62 75 66 66 65 72 | 20 22 72 75 6e 6e 69 6e |l-buffer| "runnin|
|00004c50| 67 20 65 78 74 65 72 6e | 61 6c 20 70 72 65 74 74 |g extern|al prett|
|00004c60| 79 20 70 72 69 6e 74 65 | 72 20 2e 2e 2e 20 64 6f |y printe|r ... do|
|00004c70| 6e 65 22 20 79 2d 6f 72 | 2d 6e 2d 70 20 22 52 65 |ne" y-or|-n-p "Re|
|00004c80| 61 6c 6c 79 20 72 65 70 | 6c 61 63 65 20 63 75 72 |ally rep|lace cur|
|00004c90| 72 65 6e 74 20 62 75 66 | 66 65 72 20 77 69 74 68 |rent buf|fer with|
|00004ca0| 20 70 72 65 74 74 79 20 | 70 72 69 6e 74 65 72 20 | pretty |printer |
|00004cb0| 6f 75 74 70 75 74 20 3f | 20 22 20 73 65 74 2d 62 |output ?| " set-b|
|00004cc0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00004cd0| 20 66 69 6e 64 2d 66 69 | 6c 65 20 22 6f 6c 64 20 | find-fi|le "old |
|00004ce0| 62 75 66 66 65 72 20 63 | 6f 6e 74 65 6e 74 73 20 |buffer c|ontents |
|00004cf0| 72 65 73 74 6f 72 65 64 | 22 20 64 65 6c 65 74 65 |restored|" delete|
|00004d00| 2d 66 69 6c 65 20 73 65 | 74 2d 76 69 73 69 74 65 |-file se|t-visite|
|00004d10| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 5d 20 39 20 28 |d-file-n|ame] 9 (|
|00004d20| 23 24 20 2e 20 31 38 35 | 34 35 29 20 6e 69 6c 5d |#$ . 185|45) nil]|
|00004d30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |).(defal|ias 'ada|
|00004d40| 2d 61 66 74 65 72 2d 6b | 65 79 77 6f 72 64 2d 70 |-after-k|eyword-p|
|00004d50| 20 23 5b 6e 69 6c 20 22 | 8a c0 76 88 8a 60 65 55 | #[nil "|..v..`eU|
|00004d60| ac 84 c1 c2 21 88 c3 c4 | 21 29 3f ad 85 c3 0d c6 |....!...|!)?.....|
|00004d70| 50 21 29 87 22 20 5b 2d | 31 20 62 61 63 6b 77 61 |P!)." [-|1 backwa|
|00004d80| 72 64 2d 63 68 61 72 20 | 31 20 6c 6f 6f 6b 69 6e |rd-char |1 lookin|
|00004d90| 67 2d 61 74 20 22 5f 22 | 20 61 64 61 2d 6b 65 79 |g-at "_"| ada-key|
|00004da0| 77 6f 72 64 73 20 22 5b | 5e 5f 5d 22 5d 20 33 5d |words "[|^_]"] 3]|
|00004db0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |).(defal|ias 'ada|
|00004dc0| 2d 69 6e 2d 63 68 61 72 | 2d 63 6f 6e 73 74 2d 70 |-in-char|-const-p|
|00004dd0| 20 23 5b 6e 69 6c 20 22 | 8a 60 c0 56 ad 8e c0 75 | #[nil "|.`.V...u|
|00004de0| 88 c1 c2 21 ad 86 c3 75 | 88 c1 c2 21 29 87 22 20 |...!...u|...!)." |
|00004df0| 5b 31 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 27 |[1 looki|ng-at "'|
|00004e00| 22 20 2d 32 5d 20 32 5d | 29 0a 23 40 32 31 39 20 |" -2] 2]|).#@219 |
|00004e10| 41 64 6a 75 73 74 20 74 | 68 65 20 63 61 73 65 20 |Adjust t|he case |
|00004e20| 6f 66 20 74 68 65 20 77 | 6f 72 64 20 62 65 66 6f |of the w|ord befo|
|00004e30| 72 65 20 74 68 65 20 6a | 75 73 74 20 74 79 70 65 |re the j|ust type|
|00004e40| 64 20 63 68 61 72 61 63 | 74 65 72 2e 0a 52 65 73 |d charac|ter..Res|
|00004e50| 70 65 63 74 20 6f 70 74 | 69 6f 6e 73 20 60 61 64 |pect opt|ions `ad|
|00004e60| 61 2d 63 61 73 65 2d 6b | 65 79 77 6f 72 64 27 2c |a-case-k|eyword',|
|00004e70| 20 60 61 64 61 2d 63 61 | 73 65 2d 69 64 65 6e 74 | `ada-ca|se-ident|
|00004e80| 69 66 69 65 72 27 2c 20 | 61 6e 64 20 0a 60 61 64 |ifier', |and .`ad|
|00004e90| 61 2d 63 61 73 65 2d 61 | 74 74 72 69 62 75 74 65 |a-case-a|ttribute|
|00004ea0| 27 2e 0a 49 66 20 46 4f | 52 43 45 2d 49 44 45 4e |'..If FO|RCE-IDEN|
|00004eb0| 54 49 46 49 45 52 20 69 | 73 20 6e 6f 6e 2d 6e 69 |TIFIER i|s non-ni|
|00004ec0| 6c 20 74 68 65 6e 20 61 | 6c 73 6f 20 61 64 6a 75 |l then a|lso adju|
|00004ed0| 73 74 20 6b 65 79 77 6f | 72 64 20 61 73 20 69 64 |st keywo|rd as id|
|00004ee0| 65 6e 74 69 66 69 65 72 | 2e 1f 0a 28 64 65 66 61 |entifier|...(defa|
|00004ef0| 6c 69 61 73 20 27 61 64 | 61 2d 61 64 6a 75 73 74 |lias 'ad|a-adjust|
|00004f00| 2d 63 61 73 65 20 23 5b | 28 26 6f 70 74 69 6f 6e |-case #[|(&option|
|00004f10| 61 6c 20 66 6f 72 63 65 | 2d 69 64 65 6e 74 69 66 |al force|-identif|
|00004f20| 69 65 72 29 20 22 c0 75 | 88 60 c1 56 ab c2 c2 20 |ier) ".u|.`.V... |
|00004f30| ac be c3 20 ac ba c4 20 | ac b6 60 53 66 7a c5 61 |... ... |..`Sfz.a|
|00004f40| ab ae 8a c0 76 88 60 65 | 55 ac 84 c6 c1 21 88 c7 |....v.`e|U....!..|
|00004f50| c8 21 29 ab 87 0e 09 c0 | 21 88 aa 94 0e 5c 6e ac |.!).....|!....\n.|
|00004f60| 8b cb 20 ab 87 0e 0c c0 | 21 88 aa 85 0e 0d c0 21 |.. .....|!......!|
|00004f70| 88 c1 75 87 22 20 5b 2d | 31 20 31 20 61 64 61 2d |..u." [-|1 1 ada-|
|00004f80| 69 6e 2d 73 74 72 69 6e | 67 2d 70 20 61 64 61 2d |in-strin|g-p ada-|
|00004f90| 69 6e 2d 63 6f 6d 6d 65 | 6e 74 2d 70 20 61 64 61 |in-comme|nt-p ada|
|00004fa0| 2d 69 6e 2d 63 68 61 72 | 2d 63 6f 6e 73 74 2d 70 |-in-char|-const-p|
|00004fb0| 20 3f 77 20 62 61 63 6b | 77 61 72 64 2d 63 68 61 | ?w back|ward-cha|
|00004fc0| 72 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 27 22 |r lookin|g-at "'"|
|00004fd0| 20 61 64 61 2d 63 61 73 | 65 2d 61 74 74 72 69 62 | ada-cas|e-attrib|
|00004fe0| 75 74 65 20 66 6f 72 63 | 65 2d 69 64 65 6e 74 69 |ute forc|e-identi|
|00004ff0| 66 69 65 72 20 61 64 61 | 2d 61 66 74 65 72 2d 6b |fier ada|-after-k|
|00005000| 65 79 77 6f 72 64 2d 70 | 20 61 64 61 2d 63 61 73 |eyword-p| ada-cas|
|00005010| 65 2d 6b 65 79 77 6f 72 | 64 20 61 64 61 2d 63 61 |e-keywor|d ada-ca|
|00005020| 73 65 2d 69 64 65 6e 74 | 69 66 69 65 72 5d 20 32 |se-ident|ifier] 2|
|00005030| 20 28 23 24 20 2e 20 31 | 39 39 38 34 29 5d 29 0a | (#$ . 1|9984)]).|
|00005040| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 61 |(defalia|s 'ada-a|
|00005050| 64 6a 75 73 74 2d 63 61 | 73 65 2d 69 6e 74 65 72 |djust-ca|se-inter|
|00005060| 61 63 74 69 76 65 20 23 | 5b 28 61 72 67 29 20 22 |active #|[(arg) "|
|00005070| 08 89 19 c2 61 ac 85 09 | c3 61 ab a0 c4 63 88 c5 |....a...|.a...c..|
|00005080| 20 88 c6 c7 21 88 09 c2 | 61 ab 86 0e 08 20 88 aa | ...!...|a.... ..|
|00005090| 9c 09 c3 61 ab 97 0e 09 | 20 88 aa 91 09 ca 61 ab |...a....| .....a.|
|000050a0| 85 cb 20 88 aa 87 cc cd | 0e 0e 21 21 88 09 cf 61 |.. .....|..!!...a|
|000050b0| ab 85 c5 d0 21 aa 82 c5 | 20 29 87 22 20 5b 6c 61 |....!...| )." [la|
|000050c0| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 63 68 61 72 20 |st-comma|nd-char |
|000050d0| 6c 61 73 74 6b 20 3f 5c | 6e 20 3f 5c 72 20 22 20 |lastk ?\|n ?\r " |
|000050e0| 22 20 61 64 61 2d 61 64 | 6a 75 73 74 2d 63 61 73 |" ada-ad|just-cas|
|000050f0| 65 20 64 65 6c 65 74 65 | 2d 62 61 63 6b 77 61 72 |e delete|-backwar|
|00005100| 64 2d 63 68 61 72 20 31 | 20 61 64 61 2d 6c 66 64 |d-char 1| ada-lfd|
|00005110| 2d 62 69 6e 64 69 6e 67 | 20 61 64 61 2d 72 65 74 |-binding| ada-ret|
|00005120| 2d 62 69 6e 64 69 6e 67 | 20 3f 5c 74 20 61 64 61 |-binding| ?\t ada|
|00005130| 2d 74 61 62 20 73 65 6c | 66 2d 69 6e 73 65 72 74 |-tab sel|f-insert|
|00005140| 2d 63 6f 6d 6d 61 6e 64 | 20 70 72 65 66 69 78 2d |-command| prefix-|
|00005150| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 61 72 |numeric-|value ar|
|00005160| 67 20 3f 5c 5f 20 74 5d | 20 34 20 6e 69 6c 20 22 |g ?\_ t]| 4 nil "|
|00005170| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00005180| 61 64 61 2d 61 63 74 69 | 76 61 74 65 2d 6b 65 79 |ada-acti|vate-key|
|00005190| 73 2d 66 6f 72 2d 63 61 | 73 65 20 23 5b 6e 69 6c |s-for-ca|se #[nil|
|000051a0| 20 22 08 ac 84 c1 c2 21 | 10 0b ac 84 c1 c4 21 13 | ".....!|......!.|
|000051b0| c5 c6 c7 5c 22 87 22 20 | 5b 61 64 61 2d 72 65 74 |...\"." |[ada-ret|
|000051c0| 2d 62 69 6e 64 69 6e 67 | 20 6b 65 79 2d 62 69 6e |-binding| key-bin|
|000051d0| 64 69 6e 67 20 22 0d 22 | 20 61 64 61 2d 6c 66 64 |ding "."| ada-lfd|
|000051e0| 2d 62 69 6e 64 69 6e 67 | 20 22 5c 6e 22 20 6d 61 |-binding| "\n" ma|
|000051f0| 70 63 61 72 20 23 5b 28 | 6b 65 79 29 20 22 c0 09 |pcar #[(|key) "..|
|00005200| c2 0b 21 c4 23 87 22 20 | 5b 64 65 66 69 6e 65 2d |..!.#." |[define-|
|00005210| 6b 65 79 20 61 64 61 2d | 6d 6f 64 65 2d 6d 61 70 |key ada-|mode-map|
|00005220| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 | char-to|-string |
|00005230| 6b 65 79 20 61 64 61 2d | 61 64 6a 75 73 74 2d 63 |key ada-|adjust-c|
|00005240| 61 73 65 2d 69 6e 74 65 | 72 61 63 74 69 76 65 5d |ase-inte|ractive]|
|00005250| 20 34 5d 20 28 3f 5c 60 | 20 3f 5c 7e 20 3f 5c 21 | 4] (?\`| ?\~ ?\!|
|00005260| 20 3f 5c 40 20 3f 5c 23 | 20 3f 5c 24 20 3f 5c 25 | ?\@ ?\#| ?\$ ?\%|
|00005270| 20 3f 5e 20 3f 5c 26 20 | 3f 5c 2a 20 3f 5c 28 20 | ?^ ?\& |?\* ?\( |
|00005280| 3f 5c 29 20 3f 5c 2d 20 | 3f 5c 3d 20 3f 5c 2b 20 |?\) ?\- |?\= ?\+ |
|00005290| 3f 5c 5b 20 3f 5c 7b 20 | 3f 5c 5d 20 3f 5c 7d 20 |?\[ ?\{ |?\] ?\} |
|000052a0| 3f 5c 5f 20 3f 5c 5c 20 | 3f 5c 7c 20 3f 5c 3b 20 |?\_ ?\\ |?\| ?\; |
|000052b0| 3f 5c 3a 20 3f 5c 27 20 | 3f 5c 22 20 3f 5c 3c 20 |?\: ?\' |?\" ?\< |
|000052c0| 3f 5c 2c 20 3f 5c 2e 20 | 3f 5c 3e 20 3f 5c 3f 20 |?\, ?\. |?\> ?\? |
|000052d0| 3f 5c 2f 20 3f 5c 6e 20 | 33 32 20 3f 5c 72 29 5d |?\/ ?\n |32 ?\r)]|
|000052e0| 20 33 5d 29 0a 23 40 31 | 33 33 20 43 61 70 69 74 | 3]).#@1|33 Capit|
|000052f0| 61 6c 69 7a 65 73 20 74 | 68 65 20 66 69 72 73 74 |alizes t|he first|
|00005300| 20 6c 65 74 74 65 72 20 | 61 6e 64 20 74 68 65 20 | letter |and the |
|00005310| 6c 65 74 74 65 72 73 20 | 66 6f 6c 6c 6f 77 69 6e |letters |followin|
|00005320| 67 20 60 5f 27 2e 0a 41 | 52 47 20 69 73 20 69 67 |g `_'..A|RG is ig|
|00005330| 6e 6f 72 65 64 2c 20 69 | 74 27 73 20 74 68 65 72 |nored, i|t's ther|
|00005340| 65 20 74 6f 20 66 69 74 | 20 74 68 65 20 73 74 61 |e to fit| the sta|
|00005350| 6e 64 61 72 64 20 63 61 | 73 69 6e 67 20 66 75 6e |ndard ca|sing fun|
|00005360| 63 74 69 6f 6e 73 27 20 | 73 74 79 6c 65 2e 1f 0a |ctions' |style...|
|00005370| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 6c |(defalia|s 'ada-l|
|00005380| 6f 6f 73 65 2d 63 61 73 | 65 2d 77 6f 72 64 20 23 |oose-cas|e-word #|
|00005390| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|000053a0| 20 22 60 c0 19 1a c3 c4 | 78 88 09 ac 87 c5 c6 5c | "`.....|x......\|
|000053b0| 6e c0 23 ab 91 09 ab 82 | c4 11 c7 67 96 c8 5c 22 |n.#.....|...g..\"|
|000053c0| 88 c9 c8 21 88 aa 65 5c | 6e 62 2a 87 22 20 5b 74 |...!..e\|nb*." [t|
|000053d0| 20 66 69 72 73 74 20 70 | 6f 73 20 22 61 2d 7a 41 | first p|os "a-zA|
|000053e0| 2d 5a 30 2d 39 5f 22 20 | 6e 69 6c 20 73 65 61 72 |-Z0-9_" |nil sear|
|000053f0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5f 22 20 69 |ch-forwa|rd "_" i|
|00005400| 6e 73 65 72 74 2d 63 68 | 61 72 20 31 20 64 65 6c |nsert-ch|ar 1 del|
|00005410| 65 74 65 2d 63 68 61 72 | 5d 20 34 20 28 23 24 20 |ete-char|] 4 (#$ |
|00005420| 2e 20 32 31 32 32 37 29 | 5d 29 0a 23 40 31 31 30 |. 21227)|]).#@110|
|00005430| 20 41 64 6a 75 73 74 73 | 20 74 68 65 20 63 61 73 | Adjusts| the cas|
|00005440| 65 20 6f 66 20 61 6c 6c | 20 77 6f 72 64 73 20 69 |e of all| words i|
|00005450| 6e 20 74 68 65 20 72 65 | 67 69 6f 6e 2e 0a 41 74 |n the re|gion..At|
|00005460| 74 65 6e 74 69 6f 6e 3a | 20 54 68 69 73 20 66 75 |tention:| This fu|
|00005470| 6e 63 74 69 6f 6e 20 6d | 69 67 68 74 20 74 61 6b |nction m|ight tak|
|00005480| 65 20 76 65 72 79 20 6c | 6f 6e 67 20 66 6f 72 20 |e very l|ong for |
|00005490| 62 69 67 20 72 65 67 69 | 6f 6e 73 20 21 1f 0a 28 |big regi|ons !..(|
|000054a0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 61 64 |defalias| 'ada-ad|
|000054b0| 6a 75 73 74 2d 63 61 73 | 65 2d 72 65 67 69 6f 6e |just-cas|e-region|
|000054c0| 20 23 5b 28 66 72 6f 6d | 20 74 6f 29 20 22 c0 89 | #[(from| to) "..|
|000054d0| 89 89 19 1a 1b 1c c5 8e | 8a c6 0e 07 21 88 0e 08 |........|....!...|
|000054e0| 62 88 c9 ca 0e 0b cc 23 | ab be cd ce 60 0e 0b 5a |b......#|....`..Z|
|000054f0| 5c 22 88 cf d0 21 11 d1 | 75 88 d2 20 ac 65 60 14 |\"...!..|u.. .e`.|
|00005500| cf 0e 13 d4 50 21 12 d5 | c0 77 88 5c 6e ab 87 0e |....P!..|.w.\n...|
|00005510| 16 d7 21 88 aa 8f 09 ab | 87 0e 18 d7 21 88 aa 85 |..!.....|....!...|
|00005520| 0e 19 d7 21 88 0c 62 88 | aa 3a cd da 21 2e 06 87 |...!..b.|.:..!...|
|00005530| 22 20 5b 6e 69 6c 20 61 | 74 74 72 69 62 70 20 6b |" [nil a|ttribp k|
|00005540| 65 79 77 6f 72 64 70 20 | 65 6e 64 20 62 65 67 69 |eywordp |end begi|
|00005550| 6e 20 28 28 73 65 74 2d | 73 79 6e 74 61 78 2d 74 |n ((set-|syntax-t|
|00005560| 61 62 6c 65 20 61 64 61 | 2d 6d 6f 64 65 2d 73 79 |able ada|-mode-sy|
|00005570| 6e 74 61 78 2d 74 61 62 | 6c 65 29 29 20 73 65 74 |ntax-tab|le)) set|
|00005580| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 61 64 |-syntax-|table ad|
|00005590| 61 2d 6d 6f 64 65 2d 73 | 79 6d 62 6f 6c 2d 73 79 |a-mode-s|ymbol-sy|
|000055a0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 74 6f 20 72 65 |ntax-tab|le to re|
|000055b0| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|000055c0| 20 22 5b 5e 61 2d 7a 41 | 2d 5a 30 2d 39 5f 5d 5c | "[^a-zA|-Z0-9_]\|
|000055d0| 5c 28 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 5d 2b 5c |\([a-zA-|Z0-9_]+\|
|000055e0| 5c 29 5b 5e 61 2d 7a 41 | 2d 5a 30 2d 39 5f 5d 22 |\)[^a-zA|-Z0-9_]"|
|000055f0| 20 66 72 6f 6d 20 74 20 | 6d 65 73 73 61 67 65 20 | from t |message |
|00005600| 22 61 64 6a 75 73 74 69 | 6e 67 20 63 61 73 65 20 |"adjusti|ng case |
|00005610| 2e 2e 2e 20 25 35 64 20 | 63 68 61 72 61 63 74 65 |... %5d |characte|
|00005620| 72 73 20 6c 65 66 74 22 | 20 6c 6f 6f 6b 69 6e 67 |rs left"| looking|
|00005630| 2d 61 74 20 22 27 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |-at "'[a|-zA-Z0-9|
|00005640| 5f 5d 2b 5b 5e 27 5d 22 | 20 31 20 61 64 61 2d 69 |_]+[^']"| 1 ada-i|
|00005650| 6e 2d 73 74 72 69 6e 67 | 2d 6f 72 2d 63 6f 6d 6d |n-string|-or-comm|
|00005660| 65 6e 74 2d 70 20 61 64 | 61 2d 6b 65 79 77 6f 72 |ent-p ad|a-keywor|
|00005670| 64 73 20 22 5b 5e 5f 5d | 22 20 22 61 2d 7a 41 2d |ds "[^_]|" "a-zA-|
|00005680| 5a 30 2d 39 5f 22 20 61 | 64 61 2d 63 61 73 65 2d |Z0-9_" a|da-case-|
|00005690| 6b 65 79 77 6f 72 64 20 | 2d 31 20 61 64 61 2d 63 |keyword |-1 ada-c|
|000056a0| 61 73 65 2d 61 74 74 72 | 69 62 75 74 65 20 61 64 |ase-attr|ibute ad|
|000056b0| 61 2d 63 61 73 65 2d 69 | 64 65 6e 74 69 66 69 65 |a-case-i|dentifie|
|000056c0| 72 20 22 61 64 6a 75 73 | 74 69 6e 67 20 63 61 73 |r "adjus|ting cas|
|000056d0| 65 20 2e 2e 2e 20 64 6f | 6e 65 22 5d 20 34 20 28 |e ... do|ne"] 4 (|
|000056e0| 23 24 20 2e 20 32 31 35 | 35 33 29 20 22 2a 72 22 |#$ . 215|53) "*r"|
|000056f0| 5d 29 0a 23 40 31 31 36 | 20 41 64 6a 75 73 74 73 |]).#@116| Adjusts|
|00005700| 20 74 68 65 20 63 61 73 | 65 20 6f 66 20 61 6c 6c | the cas|e of all|
|00005710| 20 77 6f 72 64 73 20 69 | 6e 20 74 68 65 20 77 68 | words i|n the wh|
|00005720| 6f 6c 65 20 62 75 66 66 | 65 72 2e 0a 41 54 54 45 |ole buff|er..ATTE|
|00005730| 4e 54 49 4f 4e 3a 20 54 | 68 69 73 20 66 75 6e 63 |NTION: T|his func|
|00005740| 74 69 6f 6e 20 6d 69 67 | 68 74 20 74 61 6b 65 20 |tion mig|ht take |
|00005750| 76 65 72 79 20 6c 6f 6e | 67 20 66 6f 72 20 62 69 |very lon|g for bi|
|00005760| 67 20 62 75 66 66 65 72 | 73 20 21 1f 0a 28 64 65 |g buffer|s !..(de|
|00005770| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 61 64 6a 75 |falias '|ada-adju|
|00005780| 73 74 2d 63 61 73 65 2d | 62 75 66 66 65 72 20 23 |st-case-|buffer #|
|00005790| 5b 6e 69 6c 20 22 c0 65 | 64 5c 22 87 22 20 5b 61 |[nil ".e|d\"." [a|
|000057a0| 64 61 2d 61 64 6a 75 73 | 74 2d 63 61 73 65 2d 72 |da-adjus|t-case-r|
|000057b0| 65 67 69 6f 6e 5d 20 33 | 20 28 23 24 20 2e 20 32 |egion] 3| (#$ . 2|
|000057c0| 32 32 36 35 29 20 22 2a | 22 5d 29 0a 23 40 32 38 |2265) "*|"]).#@28|
|000057d0| 30 20 52 65 66 6f 72 6d | 61 74 73 20 61 20 70 61 |0 Reform|ats a pa|
|000057e0| 72 61 6d 65 74 65 72 20 | 6c 69 73 74 2e 0a 41 54 |rameter |list..AT|
|000057f0| 54 45 4e 54 49 4f 4e 3a | 20 20 31 29 20 43 6f 6d |TENTION:| 1) Com|
|00005800| 6d 65 6e 74 73 20 69 6e | 73 69 64 65 20 74 68 65 |ments in|side the|
|00005810| 20 6c 69 73 74 20 61 72 | 65 20 6b 69 6c 6c 65 64 | list ar|e killed|
|00005820| 20 21 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 32 | !. | 2|
|00005830| 29 20 49 66 20 74 68 65 | 20 73 79 6e 74 61 78 20 |) If the| syntax |
|00005840| 69 73 20 6e 6f 74 20 63 | 6f 72 72 65 63 74 20 28 |is not c|orrect (|
|00005850| 65 73 70 65 63 69 61 6c | 6c 79 2c 20 69 66 20 74 |especial|ly, if t|
|00005860| 68 65 72 65 20 61 72 65 | 0a 20 20 20 20 20 20 20 |here are|. |
|00005870| 20 20 20 20 20 20 20 20 | 73 65 6d 69 63 6f 6c 6f | |semicolo|
|00005880| 6e 73 20 6d 69 73 73 69 | 6e 67 29 2c 20 69 74 20 |ns missi|ng), it |
|00005890| 63 61 6e 20 67 65 74 20 | 74 6f 74 61 6c 6c 79 20 |can get |totally |
|000058a0| 63 6f 6e 66 75 73 65 64 | 20 21 0a 49 6e 20 73 75 |confused| !.In su|
|000058b0| 63 68 20 61 20 63 61 73 | 65 2c 20 75 73 65 20 60 |ch a cas|e, use `|
|000058c0| 75 6e 64 6f 27 2c 20 63 | 6f 72 72 65 63 74 20 74 |undo', c|orrect t|
|000058d0| 68 65 20 73 79 6e 74 61 | 78 20 61 6e 64 20 74 72 |he synta|x and tr|
|000058e0| 79 20 61 67 61 69 6e 2e | 1f 0a 28 64 65 66 61 6c |y again.|..(defal|
|000058f0| 69 61 73 20 27 61 64 61 | 2d 66 6f 72 6d 61 74 2d |ias 'ada|-format-|
|00005900| 70 61 72 61 6d 6c 69 73 | 74 20 23 5b 6e 69 6c 20 |paramlis|t #[nil |
|00005910| 22 c0 89 89 89 19 1a 1b | 1c c5 8e c6 0e 07 21 88 |".......|......!.|
|00005920| c8 20 ac 84 c9 ca 21 88 | cb 0e 0c cd 50 ce c0 23 |. ....!.|....P..#|
|00005930| 88 cb cf c0 89 ce 24 88 | d0 d1 21 88 60 14 d2 d1 |......$.|..!.`...|
|00005940| 21 88 60 12 d3 d4 21 88 | cb d5 ce c0 ce 24 88 d1 |!.`...!.|.....$..|
|00005950| 75 88 60 13 d6 0c 54 0b | 5c 22 11 0c 5c 6e 53 7c |u.`...T.|\"..\nS||
|00005960| 88 0c 62 88 d7 09 21 2d | 87 22 20 5b 6e 69 6c 20 |..b...!-|." [nil |
|00005970| 70 61 72 61 6d 6c 69 73 | 74 20 64 65 6c 65 6e 64 |paramlis|t delend|
|00005980| 20 65 6e 64 20 62 65 67 | 69 6e 20 28 28 73 65 74 | end beg|in ((set|
|00005990| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 61 64 |-syntax-|table ad|
|000059a0| 61 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |a-mode-s|yntax-ta|
|000059b0| 62 6c 65 29 29 20 73 65 | 74 2d 73 79 6e 74 61 78 |ble)) se|t-syntax|
|000059c0| 2d 74 61 62 6c 65 20 61 | 64 61 2d 6d 6f 64 65 2d |-table a|da-mode-|
|000059d0| 73 79 6d 62 6f 6c 2d 73 | 79 6e 74 61 78 2d 74 61 |symbol-s|yntax-ta|
|000059e0| 62 6c 65 20 61 64 61 2d | 69 6e 2d 70 61 72 61 6d |ble ada-|in-param|
|000059f0| 6c 69 73 74 2d 70 20 65 | 72 72 6f 72 20 22 6e 6f |list-p e|rror "no|
|00005a00| 74 20 69 6e 20 70 61 72 | 61 6d 65 74 65 72 20 6c |t in par|ameter l|
|00005a10| 69 73 74 22 20 61 64 61 | 2d 73 65 61 72 63 68 2d |ist" ada|-search-|
|00005a20| 69 67 6e 6f 72 65 2d 73 | 74 72 69 6e 67 2d 63 6f |ignore-s|tring-co|
|00005a30| 6d 6d 65 6e 74 20 61 64 | 61 2d 73 75 62 70 72 6f |mment ad|a-subpro|
|00005a40| 67 2d 73 74 61 72 74 2d | 72 65 20 22 5c 5c 7c 5c |g-start-|re "\\|\|
|00005a50| 5c 3c 62 6f 64 79 5c 5c | 3e 22 20 74 20 22 28 22 |\<body\\|>" t "("|
|00005a60| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 31 | backwar|d-char 1|
|00005a70| 20 66 6f 72 77 61 72 64 | 2d 73 65 78 70 20 64 65 | forward|-sexp de|
|00005a80| 6c 65 74 65 2d 63 68 61 | 72 20 2d 31 20 22 5b 5e |lete-cha|r -1 "[^|
|00005a90| 20 09 5c 6e 5d 22 20 61 | 64 61 2d 73 63 61 6e 2d | .\n]" a|da-scan-|
|00005aa0| 70 61 72 61 6d 6c 69 73 | 74 20 61 64 61 2d 69 6e |paramlis|t ada-in|
|00005ab0| 73 65 72 74 2d 70 61 72 | 61 6d 6c 69 73 74 5d 20 |sert-par|amlist] |
|00005ac0| 35 20 28 23 24 20 2e 20 | 32 32 34 38 32 29 20 6e |5 (#$ . |22482) n|
|00005ad0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00005ae0| 61 64 61 2d 73 63 61 6e | 2d 70 61 72 61 6d 6c 69 |ada-scan|-paramli|
|00005af0| 73 74 20 23 5b 28 62 65 | 67 69 6e 20 65 6e 64 29 |st #[(be|gin end)|
|00005b00| 20 22 c0 89 c1 c0 89 89 | 89 1a 1b 1c 1d 1e 06 1e | "......|........|
|00005b10| 07 1e 08 0e 09 62 88 0e | 06 83 d7 00 ca 20 88 60 |.....b..|..... .`|
|00005b20| 15 cb cc c0 0e 0d c1 24 | 89 12 ab 88 5c 6e 40 14 |.......$|....\n@.|
|00005b30| 5c 6e 41 13 aa 83 0e 0d | 14 0d 62 88 ce cf 21 88 |\nA.....|..b...!.|
|00005b40| d0 94 d0 95 7b 43 16 07 | cb d1 c0 0c c1 24 88 60 |....{C..|.....$.`|
|00005b50| 15 d2 0e 07 cb d3 c0 0c | c1 24 3a 43 5c 22 16 07 |........|.$:C\"..|
|00005b60| 0d 62 88 d2 0e 07 cb d4 | c0 0c c1 24 3a 43 5c 22 |.b......|...$:C\"|
|00005b70| 16 07 0d 62 88 d2 0e 07 | cb d5 c0 0c c1 24 3a 43 |...b....|.....$:C|
|00005b80| 5c 22 16 07 0d 62 88 ca | 20 88 ce d6 21 ab 88 d0 |\"...b..| ...!...|
|00005b90| 76 88 ca 20 88 aa 73 ce | d7 21 88 d2 0e 07 d8 94 |v.. ..s.|.!......|
|00005ba0| d8 95 7b 43 5c 22 16 07 | d8 95 89 15 62 88 d2 0e |..{C\"..|....b...|
|00005bb0| 07 cb d9 c0 0c c1 24 89 | 12 ad 84 5c 6e 40 0c 7b |......$.|...\n@.{|
|00005bc0| 43 5c 22 16 07 d2 0e 08 | 0e 07 43 5c 22 16 08 0c |C\".....|..C\"...|
|00005bd0| 0e 0d 61 ab 87 c0 89 16 | 06 82 17 00 0b 62 88 82 |..a.....|.....b..|
|00005be0| 15 00 da 0e 08 21 2e 07 | 87 22 20 5b 6e 69 6c 20 |.....!..|." [nil |
|00005bf0| 74 20 6d 61 74 63 68 2d | 63 6f 6e 73 20 73 65 6d |t match-|cons sem|
|00005c00| 69 70 6f 73 20 65 70 6f | 73 20 61 70 6f 73 20 6e |ipos epo|s apos n|
|00005c10| 6f 74 65 6e 64 20 70 61 | 72 61 6d 20 70 61 72 61 |otend pa|ram para|
|00005c20| 6d 6c 69 73 74 20 62 65 | 67 69 6e 20 61 64 61 2d |mlist be|gin ada-|
|00005c30| 67 6f 74 6f 2d 6e 65 78 | 74 2d 6e 6f 6e 2d 77 73 |goto-nex|t-non-ws|
|00005c40| 20 61 64 61 2d 73 65 61 | 72 63 68 2d 69 67 6e 6f | ada-sea|rch-igno|
|00005c50| 72 65 2d 73 74 72 69 6e | 67 2d 63 6f 6d 6d 65 6e |re-strin|g-commen|
|00005c60| 74 20 22 5b 20 09 5c 6e | 5d 2a 3b 22 20 65 6e 64 |t "[ .\n|]*;" end|
|00005c70| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5c 5c 28 | looking|-at "\\(|
|00005c80| 5b 61 2d 7a 41 2d 5a 30 | 2d 39 5f 2c 20 09 5c 6e |[a-zA-Z0|-9_, .\n|
|00005c90| 5d 2a 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 5d 5c 5c |]*[a-zA-|Z0-9_]\\|
|00005ca0| 29 5b 20 09 5c 6e 5d 2a | 3a 5b 5e 3d 5d 22 20 31 |)[ .\n]*|:[^=]" 1|
|00005cb0| 20 22 3a 22 20 61 70 70 | 65 6e 64 20 22 5c 5c 3c | ":" app|end "\\<|
|00005cc0| 69 6e 5c 5c 3e 22 20 22 | 5c 5c 3c 6f 75 74 5c 5c |in\\>" "|\\<out\\|
|00005cd0| 3e 22 20 22 5c 5c 3c 61 | 63 63 65 73 73 5c 5c 3e |>" "\\<a|ccess\\>|
|00005ce0| 22 20 22 5c 5c 3c 5c 5c | 28 69 6e 5c 5c 7c 6f 75 |" "\\<\\|(in\\|ou|
|00005cf0| 74 5c 5c 7c 61 63 63 65 | 73 73 5c 5c 29 5c 5c 3e |t\\|acce|ss\\)\\>|
|00005d00| 22 20 22 5c 5c 3c 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |" "\\<[a|-zA-Z0-9|
|00005d10| 5f 5c 5c 2e 5c 5c 27 5d | 2b 5c 5c 3e 22 20 30 20 |_\\.\\']|+\\>" 0 |
|00005d20| 22 3a 3d 22 20 72 65 76 | 65 72 73 65 5d 20 38 5d |":=" rev|erse] 8]|
|00005d30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |).(defal|ias 'ada|
|00005d40| 2d 69 6e 73 65 72 74 2d | 70 61 72 61 6d 6c 69 73 |-insert-|paramlis|
|00005d50| 74 20 23 5b 28 70 61 72 | 61 6d 6c 69 73 74 29 20 |t #[(par|amlist) |
|00005d60| 22 08 47 c1 89 89 c2 89 | 89 89 c1 c2 1b 1c 1d 1e |".G.....|........|
|00005d70| 06 1e 07 1e 08 1e 09 1e | 5c 6e 1e 0b 1e 0c 0e 0c |........|\n......|
|00005d80| c1 55 ac d8 0e 0c 53 16 | 0c 0e 0b 0e 0c 08 38 40 |.U....S.|......8@|
|00005d90| 47 89 16 09 58 ab 84 0e | 09 aa 82 0e 0b 16 0b 0e |G...X...|........|
|00005da0| 5c 6e cd 0e 0c 08 38 38 | 47 89 16 09 58 ab 84 0e |\n....88|G...X...|
|00005db0| 09 aa 82 0e 5c 6e 16 5c | 6e 0e 08 ae 86 0e 0c 08 |....\n.\|n.......|
|00005dc0| 38 41 40 16 08 0e 07 ae | 86 ce 0e 0c 08 38 38 16 |8A@.....|.....88.|
|00005dd0| 07 0e 06 ae 86 cf 0e 0c | 08 38 38 16 06 aa 5c 22 |........|.88...\"|
|00005de0| 8a d0 d1 c2 d2 23 88 d3 | d4 21 29 ab 85 d5 20 88 |.....#..|.!)... .|
|00005df0| aa 95 d5 20 88 d6 20 88 | d7 20 88 60 14 8a d8 20 |... .. .|. .`... |
|00005e00| 0c 21 29 89 15 6a 88 d9 | 63 88 69 13 08 47 16 0c |.!)..j..|c.i..G..|
|00005e10| 0e 0c c1 55 84 51 01 0e | 0c 53 16 0c 0b 15 0e 0c |...U.Q..|.S......|
|00005e20| 08 38 40 63 88 0d 0e 0b | 5c 5c da 5c 5c 6a 88 db |.8@c....|\\.\\j..|
|00005e30| 63 88 69 15 0e 0c 08 38 | 41 40 ab 85 dc 63 88 aa |c.i....8|A@...c..|
|00005e40| 93 0e 08 ac 84 0e 06 ab | 8b cf 0e 0c 08 38 38 ac |........|.....88.|
|00005e50| 83 dd 63 88 ce 0e 0c 08 | 38 38 ab 85 de 63 88 aa |..c.....|88...c..|
|00005e60| 93 0e 07 ac 84 0e 06 ab | 8b cf 0e 0c 08 38 38 ac |........|.....88.|
|00005e70| 83 df 63 88 cf 0e 0c 08 | 38 38 ab 83 e0 63 88 69 |..c.....|88...c.i|
|00005e80| 15 cd 0e 0c 08 38 38 63 | 88 e1 0e 0c 08 38 38 ab |.....88c|.....88.|
|00005e90| 90 0d 0e 5c 6e 5c 5c da | 5c 5c 6a 88 e1 0e 0c 08 |...\n\\.|\\j.....|
|00005ea0| 38 38 63 88 0e 0c c1 55 | ac 8c e2 63 88 d6 20 88 |88c....U|...c.. .|
|00005eb0| 0b 6a 88 82 aa 00 e3 63 | 88 82 aa 00 d3 e4 21 3f |.j.....c|......!?|
|00005ec0| ad 82 e5 20 2e 5c 6e 87 | 22 20 5b 70 61 72 61 6d |... .\n.|" [param|
|00005ed0| 6c 69 73 74 20 30 20 6e | 69 6c 20 66 69 72 73 74 |list 0 n|il first|
|00005ee0| 63 6f 6c 20 6f 72 67 70 | 6f 69 6e 74 20 63 6f 6c |col orgp|oint col|
|00005ef0| 75 6d 6e 20 61 63 63 65 | 73 73 70 20 6f 75 74 70 |umn acce|ssp outp|
|00005f00| 20 69 6e 70 20 74 65 6d | 70 20 74 79 70 6c 65 6e | inp tem|p typlen|
|00005f10| 20 70 61 72 6c 65 6e 20 | 69 20 34 20 32 20 33 20 | parlen |i 4 2 3 |
|00005f20| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00005f30| 72 64 20 22 5e 2e 5c 5c | 7c 5b 5e 20 09 5d 22 20 |rd "^.\\||[^ .]" |
|00005f40| 74 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5e 2e |t lookin|g-at "^.|
|00005f50| 22 20 61 64 61 2d 69 6e | 64 65 6e 74 2d 63 75 72 |" ada-in|dent-cur|
|00005f60| 72 65 6e 74 20 6e 65 77 | 6c 69 6e 65 20 64 65 6c |rent new|line del|
|00005f70| 65 74 65 2d 68 6f 72 69 | 7a 6f 6e 74 61 6c 2d 73 |ete-hori|zontal-s|
|00005f80| 70 61 63 65 20 61 64 61 | 2d 69 6e 64 65 6e 74 2d |pace ada|-indent-|
|00005f90| 66 75 6e 63 74 69 6f 6e | 20 22 28 22 20 31 20 22 |function| "(" 1 "|
|00005fa0| 3a 20 22 20 22 69 6e 20 | 22 20 22 20 20 20 22 20 |: " "in |" " " |
|00005fb0| 22 6f 75 74 20 22 20 22 | 20 20 20 20 22 20 22 61 |"out " "| " "a|
|00005fc0| 63 63 65 73 73 20 22 20 | 35 20 22 3b 22 20 22 29 |ccess " |5 ";" ")|
|00005fd0| 22 20 22 5b 20 09 5d 2a | 5b 3b 5c 6e 5d 22 20 61 |" "[ .]*|[;\n]" a|
|00005fe0| 64 61 2d 69 6e 64 65 6e | 74 2d 6e 65 77 6c 69 6e |da-inden|t-newlin|
|00005ff0| 65 2d 69 6e 64 65 6e 74 | 5d 20 31 31 5d 29 0a 23 |e-indent|] 11]).#|
|00006000| 40 36 35 20 4d 6f 76 65 | 73 20 70 6f 69 6e 74 20 |@65 Move|s point |
|00006010| 74 6f 20 74 68 65 20 6d | 61 74 63 68 69 6e 67 20 |to the m|atching |
|00006020| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 63 75 72 |start of| the cur|
|00006030| 72 65 6e 74 20 41 64 61 | 20 73 74 72 75 63 74 75 |rent Ada| structu|
|00006040| 72 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |re...(de|falias '|
|00006050| 61 64 61 2d 6d 6f 76 65 | 2d 74 6f 2d 73 74 61 72 |ada-move|-to-star|
|00006060| 74 20 23 5b 6e 69 6c 20 | 22 60 18 c1 8e c2 0b 21 |t #[nil |"`.....!|
|00006070| 88 c4 c5 21 88 8a c6 20 | ac b5 c7 c8 21 ac 84 c9 |...!... |....!...|
|00006080| ca 21 88 c7 c8 21 ac 84 | c9 ca 21 88 c7 c8 21 ac |.!...!..|..!...!.|
|00006090| 85 cb cc 21 ab 99 cd ca | 21 ab 94 60 89 10 ab 8f |...!....|!..`....|
|000060a0| 0e 0e ab 8b c7 cf 21 ab | 86 d0 20 ab 82 60 10 29 |......!.|.. ..`.)|
|000060b0| 08 62 88 c4 d1 21 2a 87 | 22 20 5b 70 6f 73 20 28 |.b...!*.|" [pos (|
|000060c0| 28 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |(set-syn|tax-tabl|
|000060d0| 65 20 61 64 61 2d 6d 6f | 64 65 2d 73 79 6e 74 61 |e ada-mo|de-synta|
|000060e0| 78 2d 74 61 62 6c 65 29 | 29 20 73 65 74 2d 73 79 |x-table)|) set-sy|
|000060f0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 61 64 61 2d 6d |ntax-tab|le ada-m|
|00006100| 6f 64 65 2d 73 79 6d 62 | 6f 6c 2d 73 79 6e 74 61 |ode-symb|ol-synta|
|00006110| 78 2d 74 61 62 6c 65 20 | 6d 65 73 73 61 67 65 20 |x-table |message |
|00006120| 22 73 65 61 72 63 68 69 | 6e 67 20 66 6f 72 20 62 |"searchi|ng for b|
|00006130| 6c 6f 63 6b 20 73 74 61 | 72 74 20 2e 2e 2e 22 20 |lock sta|rt ..." |
|00006140| 61 64 61 2d 69 6e 2d 73 | 74 72 69 6e 67 2d 6f 72 |ada-in-s|tring-or|
|00006150| 2d 63 6f 6d 6d 65 6e 74 | 2d 70 20 6c 6f 6f 6b 69 |-comment|-p looki|
|00006160| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 5c 5c 3c 65 |ng-at "[| .]*\\<e|
|00006170| 6e 64 5c 5c 3e 22 20 62 | 61 63 6b 77 61 72 64 2d |nd\\>" b|ackward-|
|00006180| 77 6f 72 64 20 31 20 65 | 72 72 6f 72 20 22 6e 6f |word 1 e|rror "no|
|00006190| 74 20 6f 6e 20 65 6e 64 | 20 2e 2e 2e 3b 22 20 61 |t on end| ...;" a|
|000061a0| 64 61 2d 67 6f 74 6f 2d | 6d 61 74 63 68 69 6e 67 |da-goto-|matching|
|000061b0| 2d 73 74 61 72 74 20 61 | 64 61 2d 6d 6f 76 65 2d |-start a|da-move-|
|000061c0| 74 6f 2d 64 65 63 6c 61 | 72 61 74 69 6f 6e 20 22 |to-decla|ration "|
|000061d0| 5c 5c 3c 62 65 67 69 6e | 5c 5c 3e 22 20 61 64 61 |\\<begin|\\>" ada|
|000061e0| 2d 67 6f 74 6f 2d 6d 61 | 74 63 68 69 6e 67 2d 64 |-goto-ma|tching-d|
|000061f0| 65 63 6c 2d 73 74 61 72 | 74 20 22 73 65 61 72 63 |ecl-star|t "searc|
|00006200| 68 69 6e 67 20 66 6f 72 | 20 62 6c 6f 63 6b 20 73 |hing for| block s|
|00006210| 74 61 72 74 20 2e 2e 2e | 20 64 6f 6e 65 22 5d 20 |tart ...| done"] |
|00006220| 32 20 28 23 24 20 2e 20 | 32 34 35 38 30 29 20 6e |2 (#$ . |24580) n|
|00006230| 69 6c 5d 29 0a 23 40 31 | 31 31 20 4d 6f 76 65 73 |il]).#@1|11 Moves|
|00006240| 20 70 6f 69 6e 74 20 74 | 6f 20 74 68 65 20 6d 61 | point t|o the ma|
|00006250| 74 63 68 69 6e 67 20 65 | 6e 64 20 6f 66 20 74 68 |tching e|nd of th|
|00006260| 65 20 63 75 72 72 65 6e | 74 20 62 6c 6f 63 6b 20 |e curren|t block |
|00006270| 61 72 6f 75 6e 64 20 70 | 6f 69 6e 74 2e 0a 4d 6f |around p|oint..Mo|
|00006280| 76 65 73 20 74 6f 20 27 | 62 65 67 69 6e 27 20 69 |ves to '|begin' i|
|00006290| 66 20 69 6e 20 61 20 64 | 65 63 6c 61 72 61 74 69 |f in a d|eclarati|
|000062a0| 76 65 20 70 61 72 74 2e | 1f 0a 28 64 65 66 61 6c |ve part.|..(defal|
|000062b0| 69 61 73 20 27 61 64 61 | 2d 6d 6f 76 65 2d 74 6f |ias 'ada|-move-to|
|000062c0| 2d 65 6e 64 20 23 5b 6e | 69 6c 20 22 60 c0 89 19 |-end #[n|il "`...|
|000062d0| 1a 1b c4 8e c5 0e 06 21 | 88 c7 c8 21 88 8a c9 75 |.......!|...!...u|
|000062e0| 88 8a ca 20 88 cb cc 21 | 29 ab 86 cd c9 21 88 aa |... ...!|)....!..|
|000062f0| ea 8a ce 20 ad 83 cb cf | 21 29 ab 86 d0 cc 21 88 |... ....|!)....!.|
|00006300| aa d9 8a ce 20 ad 97 cb | d1 21 ad 92 c9 76 ad 8e |.... ...|.!...v..|
|00006310| d0 d2 21 ad 89 d3 c9 21 | 3f ad 83 cb d4 21 29 ab |..!....!|?....!).|
|00006320| 86 d0 cc 21 88 aa b4 8a | ce 20 ad 83 cb d5 21 29 |...!....|. ....!)|
|00006330| ab 86 cd d6 21 88 aa a3 | 8a d7 d8 21 ad 83 cb d9 |....!...|...!....|
|00006340| 21 29 ab 86 cd c9 21 88 | aa 91 8a d7 d8 21 29 ab |!)....!.|.....!).|
|00006350| 86 d0 cc 21 88 aa 84 cd | c9 21 88 60 13 29 0b 62 |...!....|.!.`.).b|
|00006360| 88 c7 da 21 2c 87 22 20 | 5b 6e 69 6c 20 70 61 63 |...!,." |[nil pac|
|00006370| 6b 64 65 63 6c 20 64 65 | 63 73 74 61 72 74 20 70 |kdecl de|cstart p|
|00006380| 6f 73 20 28 28 73 65 74 | 2d 73 79 6e 74 61 78 2d |os ((set|-syntax-|
|00006390| 74 61 62 6c 65 20 61 64 | 61 2d 6d 6f 64 65 2d 73 |table ad|a-mode-s|
|000063a0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 29 29 20 73 65 |yntax-ta|ble)) se|
|000063b0| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 61 |t-syntax|-table a|
|000063c0| 64 61 2d 6d 6f 64 65 2d | 73 79 6d 62 6f 6c 2d 73 |da-mode-|symbol-s|
|000063d0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6d 65 73 73 |yntax-ta|ble mess|
|000063e0| 61 67 65 20 22 73 65 61 | 72 63 68 69 6e 67 20 66 |age "sea|rching f|
|000063f0| 6f 72 20 62 6c 6f 63 6b | 20 65 6e 64 20 2e 2e 2e |or block| end ...|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
