/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / ada.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 30 35 3a 31 | 39 20 31 39 39 33 0a 3b | 22:05:1|9 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 61 64 61 | 2e 65 6c 0a 3b 3b 3b 20 |lisp/ada|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 31 35 2e 31 36 2e 0a | 3b 3b 3b 20 62 79 74 65 |.15.16..|;;; byte|
|000000a0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000b0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000c0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000d0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000e0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|000000f0| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000100| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000110| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000120| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000130| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000140| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000160| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000170| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000180| 20 22 31 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "19")))|.    (er|
|00000190| 72 6f 72 20 22 54 68 69 | 73 20 66 69 6c 65 20 77 |ror "Thi|s file w|
|000001a0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001b0| 45 6d 61 63 73 20 31 39 | 22 29 29 0a 0a 28 62 79 |Emacs 19|"))..(by|
|000001c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 42 5c 6e 42 12 |te-code |"..B\nB.|
|000001d0| c1 87 22 20 5b 22 5c 5c | 2e 61 64 61 24 22 20 61 |.." ["\\|.ada$" a|
|000001e0| 64 61 2d 6d 6f 64 65 20 | 61 75 74 6f 2d 6d 6f 64 |da-mode |auto-mod|
|000001f0| 65 2d 61 6c 69 73 74 5d | 20 32 29 0a 28 64 65 66 |e-alist]| 2).(def|
|00000200| 76 61 72 20 61 64 61 2d | 6d 6f 64 65 2d 73 79 6e |var ada-|mode-syn|
|00000210| 74 61 78 2d 74 61 62 6c | 65 20 6e 69 6c 20 22 5c |tax-tabl|e nil "\|
|00000220| 0a 53 79 6e 74 61 78 20 | 74 61 62 6c 65 20 69 6e |.Syntax |table in|
|00000230| 20 75 73 65 20 69 6e 20 | 41 64 61 2d 6d 6f 64 65 | use in |Ada-mode|
|00000240| 20 62 75 66 66 65 72 73 | 2e 22 29 0a 28 62 79 74 | buffers|.").(byt|
|00000250| 65 2d 63 6f 64 65 20 22 | c0 20 19 c2 c3 c4 09 23 |e-code "|. .....#|
|00000260| 88 c2 c5 c4 09 23 88 c2 | c6 c7 09 23 88 c2 c8 c9 |.....#..|...#....|
|00000270| 09 23 88 c2 ca cb 09 23 | 88 c2 cc cb 09 23 88 c2 |.#.....#|.....#..|
|00000280| cd cb 09 23 88 c2 ce cb | 09 23 88 c2 cf cb 09 23 |...#....|.#.....#|
|00000290| 88 c2 d0 cb 09 23 88 c2 | d1 cb 09 23 88 c2 d2 cb |.....#..|...#....|
|000002a0| 09 23 88 c2 d3 cb 09 23 | 88 c2 d4 cb 09 23 88 c2 |.#.....#|.....#..|
|000002b0| d5 cb 09 23 88 c2 d6 cb | 09 23 88 c2 d7 cb 09 23 |...#....|.#.....#|
|000002c0| 88 c2 d8 cb 09 23 88 c2 | d9 cb 09 23 88 c2 da cb |.....#..|...#....|
|000002d0| 09 23 88 c2 db cb 09 23 | 88 c2 dc cb 09 23 88 c2 |.#.....#|.....#..|
|000002e0| dd cb 09 23 88 c2 de df | 09 23 88 09 16 20 29 c0 |...#....|.#... ).|
|000002f0| 87 22 20 5b 6d 61 6b 65 | 2d 73 79 6e 74 61 78 2d |." [make|-syntax-|
|00000300| 74 61 62 6c 65 20 74 61 | 62 6c 65 20 6d 6f 64 69 |table ta|ble modi|
|00000310| 66 79 2d 73 79 6e 74 61 | 78 2d 65 6e 74 72 79 20 |fy-synta|x-entry |
|00000320| 39 35 20 22 5f 22 20 33 | 35 20 34 30 20 22 28 29 |95 "_" 3|5 40 "()|
|00000330| 22 20 34 31 20 22 29 28 | 22 20 33 36 20 22 2e 22 |" 41 ")(|" 36 "."|
|00000340| 20 34 32 20 34 37 20 34 | 33 20 34 35 20 36 31 20 | 42 47 4|3 45 61 |
|00000350| 33 38 20 31 32 34 20 36 | 30 20 36 32 20 39 31 20 |38 124 6|0 62 91 |
|00000360| 39 33 20 31 32 33 20 31 | 32 35 20 34 36 20 39 32 |93 123 1|25 46 92|
|00000370| 20 35 38 20 35 39 20 33 | 39 20 33 34 20 22 5c 22 | 58 59 3|9 34 "\"|
|00000380| 22 20 61 64 61 2d 6d 6f | 64 65 2d 73 79 6e 74 61 |" ada-mo|de-synta|
|00000390| 78 2d 74 61 62 6c 65 5d | 20 34 29 0a 28 64 65 66 |x-table]| 4).(def|
|000003a0| 76 61 72 20 61 64 61 2d | 6d 6f 64 65 2d 6d 61 70 |var ada-|mode-map|
|000003b0| 20 6e 69 6c 20 22 5c 0a | 4b 65 79 6d 61 70 20 75 | nil "\.|Keymap u|
|000003c0| 73 65 64 20 69 6e 20 41 | 64 61 20 6d 6f 64 65 2e |sed in A|da mode.|
|000003d0| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|000003e0| 20 19 c2 09 c3 c4 23 88 | c2 09 c5 c6 23 88 c2 09 | .....#.|....#...|
|000003f0| c7 c8 23 88 c2 09 c9 ca | 23 88 c2 09 cb cc 23 88 |..#.....|#.....#.|
|00000400| c2 09 cd ce 23 88 c2 09 | cf d0 23 88 c2 09 d1 d2 |....#...|..#.....|
|00000410| 23 88 c2 09 d3 d4 23 88 | c2 09 d5 d6 23 88 c2 09 |#.....#.|....#...|
|00000420| d7 d8 23 88 c2 09 d9 da | 23 88 c2 09 db dc 23 88 |..#.....|#.....#.|
|00000430| c2 09 dd de 23 88 c2 09 | df e0 23 88 c2 09 e1 e2 |....#...|..#.....|
|00000440| 23 88 c2 09 e3 e4 23 88 | c2 09 e5 e6 23 88 c2 09 |#.....#.|....#...|
|00000450| e7 e8 23 88 c2 09 e9 ea | 23 88 c2 09 eb ec 23 88 |..#.....|#.....#.|
|00000460| c2 09 ed ee 23 88 c2 09 | ef f0 23 88 c2 09 f1 f2 |....#...|..#.....|
|00000470| 23 88 c2 09 f3 f4 23 88 | c2 09 f5 f6 23 88 c2 09 |#.....#.|....#...|
|00000480| f7 f8 23 88 c2 09 f9 fa | 23 88 c2 09 fb fc 23 88 |..#.....|#.....#.|
|00000490| c2 09 fd fe 23 88 c2 09 | ff 81 40 00 23 88 c2 09 |....#...|..@.#...|
|000004a0| 81 41 00 81 42 00 23 88 | c2 09 81 43 00 81 44 00 |.A..B.#.|...C..D.|
|000004b0| 23 88 c2 09 81 45 00 81 | 46 00 23 88 c2 09 81 47 |#....E..|F.#....G|
|000004c0| 00 81 48 00 23 88 c2 09 | 81 49 00 81 4a 00 23 88 |..H.#...|.I..J.#.|
|000004d0| c2 09 81 4b 00 81 4c 00 | 23 88 c2 09 81 4d 00 81 |...K..L.|#....M..|
|000004e0| 4e 00 23 88 09 16 4f 29 | c0 87 22 20 5b 6d 61 6b |N.#...O)|.." [mak|
|000004f0| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|00000500| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|00000510| 0d 22 20 61 64 61 2d 6e | 65 77 6c 69 6e 65 20 22 |." ada-n|ewline "|
|00000520| 7f 22 20 62 61 63 6b 77 | 61 72 64 2d 64 65 6c 65 |." backw|ard-dele|
|00000530| 74 65 2d 63 68 61 72 2d | 75 6e 74 61 62 69 66 79 |te-char-|untabify|
|00000540| 20 22 09 22 20 61 64 61 | 2d 74 61 62 20 22 03 09 | "." ada|-tab "..|
|00000550| 22 20 61 64 61 2d 75 6e | 74 61 62 20 22 03 3c 22 |" ada-un|tab ".<"|
|00000560| 20 61 64 61 2d 62 61 63 | 6b 77 61 72 64 2d 74 6f | ada-bac|kward-to|
|00000570| 2d 73 61 6d 65 2d 69 6e | 64 65 6e 74 20 22 03 3e |-same-in|dent ".>|
|00000580| 22 20 61 64 61 2d 66 6f | 72 77 61 72 64 2d 74 6f |" ada-fo|rward-to|
|00000590| 2d 73 61 6d 65 2d 69 6e | 64 65 6e 74 20 22 03 68 |-same-in|dent ".h|
|000005a0| 22 20 61 64 61 2d 68 65 | 61 64 65 72 20 22 03 28 |" ada-he|ader ".(|
|000005b0| 22 20 61 64 61 2d 70 61 | 69 72 65 64 2d 70 61 72 |" ada-pa|ired-par|
|000005c0| 65 6e 73 20 22 03 2d 22 | 20 61 64 61 2d 69 6e 6c |ens ".-"| ada-inl|
|000005d0| 69 6e 65 2d 63 6f 6d 6d | 65 6e 74 20 22 03 01 22 |ine-comm|ent ".."|
|000005e0| 20 61 64 61 2d 61 72 72 | 61 79 20 22 03 62 22 20 | ada-arr|ay ".b" |
|000005f0| 61 64 61 2d 65 78 63 65 | 70 74 69 6f 6e 2d 62 6c |ada-exce|ption-bl|
|00000600| 6f 63 6b 20 22 03 64 22 | 20 61 64 61 2d 64 65 63 |ock ".d"| ada-dec|
|00000610| 6c 61 72 65 2d 62 6c 6f | 63 6b 20 22 03 05 22 20 |lare-blo|ck ".." |
|00000620| 61 64 61 2d 65 78 63 65 | 70 74 69 6f 6e 20 22 03 |ada-exce|ption ".|
|00000630| 63 22 20 61 64 61 2d 63 | 61 73 65 20 22 03 0b 22 |c" ada-c|ase ".."|
|00000640| 20 61 64 61 2d 70 61 63 | 6b 61 67 65 2d 73 70 65 | ada-pac|kage-spe|
|00000650| 63 20 22 03 6b 22 20 61 | 64 61 2d 70 61 63 6b 61 |c ".k" a|da-packa|
|00000660| 67 65 2d 62 6f 64 79 20 | 22 03 10 22 20 61 64 61 |ge-body |".." ada|
|00000670| 2d 70 72 6f 63 65 64 75 | 72 65 2d 73 70 65 63 20 |-procedu|re-spec |
|00000680| 22 03 70 22 20 61 64 61 | 2d 73 75 62 70 72 6f 67 |".p" ada|-subprog|
|00000690| 72 61 6d 2d 62 6f 64 79 | 20 22 03 06 22 20 61 64 |ram-body| ".." ad|
|000006a0| 61 2d 66 75 6e 63 74 69 | 6f 6e 2d 73 70 65 63 20 |a-functi|on-spec |
|000006b0| 22 03 66 22 20 61 64 61 | 2d 66 6f 72 2d 6c 6f 6f |".f" ada|-for-loo|
|000006c0| 70 20 22 03 6c 22 20 61 | 64 61 2d 6c 6f 6f 70 20 |p ".l" a|da-loop |
|000006d0| 22 03 69 22 20 61 64 61 | 2d 69 66 20 22 03 49 22 |".i" ada|-if ".I"|
|000006e0| 20 61 64 61 2d 65 6c 73 | 69 66 20 22 03 65 22 20 | ada-els|if ".e" |
|000006f0| 61 64 61 2d 65 6c 73 65 | 20 22 03 16 22 20 61 64 |ada-else| ".." ad|
|00000700| 61 2d 70 72 69 76 61 74 | 65 20 22 03 12 22 20 61 |a-privat|e ".." a|
|00000710| 64 61 2d 72 65 63 6f 72 | 64 20 22 03 13 22 20 61 |da-recor|d ".." a|
|00000720| 64 61 2d 73 75 62 74 79 | 70 65 20 22 03 73 22 20 |da-subty|pe ".s" |
|00000730| 61 64 61 2d 73 65 70 61 | 72 61 74 65 20 22 03 14 |ada-sepa|rate "..|
|00000740| 22 20 61 64 61 2d 74 79 | 70 65 20 22 03 74 22 20 |" ada-ty|pe ".t" |
|00000750| 61 64 61 2d 74 61 62 73 | 69 7a 65 20 22 03 77 22 |ada-tabs|ize ".w"|
|00000760| 20 61 64 61 2d 77 68 69 | 6c 65 2d 6c 6f 6f 70 20 | ada-whi|le-loop |
|00000770| 22 03 17 22 20 61 64 61 | 2d 77 68 65 6e 20 22 03 |".." ada|-when ".|
|00000780| 78 22 20 61 64 61 2d 65 | 78 69 74 20 22 03 43 22 |x" ada-e|xit ".C"|
|00000790| 20 61 64 61 2d 63 6f 6d | 70 69 6c 65 20 22 03 42 | ada-com|pile ".B|
|000007a0| 22 20 61 64 61 2d 62 69 | 6e 64 20 22 03 45 22 20 |" ada-bi|nd ".E" |
|000007b0| 61 64 61 2d 66 69 6e 64 | 2d 6c 69 73 74 69 6e 67 |ada-find|-listing|
|000007c0| 20 22 03 4c 22 20 61 64 | 61 2d 6c 69 62 72 61 72 | ".L" ad|a-librar|
|000007d0| 79 2d 6e 61 6d 65 20 22 | 03 4f 22 20 61 64 61 2d |y-name "|.O" ada-|
|000007e0| 6f 70 74 69 6f 6e 73 2d | 66 6f 72 2d 62 69 6e 64 |options-|for-bind|
|000007f0| 20 61 64 61 2d 6d 6f 64 | 65 2d 6d 61 70 5d 20 34 | ada-mod|e-map] 4|
|00000800| 29 0a 28 64 65 66 76 61 | 72 20 61 64 61 2d 69 6e |).(defva|r ada-in|
|00000810| 64 65 6e 74 20 34 20 22 | 5c 0a 2a 56 61 6c 75 65 |dent 4 "|\.*Value|
|00000820| 20 69 73 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f | is the |number o|
|00000830| 66 20 63 6f 6c 75 6d 6e | 73 20 74 6f 20 69 6e 64 |f column|s to ind|
|00000840| 65 6e 74 20 69 6e 20 41 | 64 61 2d 4d 6f 64 65 2e |ent in A|da-Mode.|
|00000850| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 64 |").(defa|lias 'ad|
|00000860| 61 2d 6d 6f 64 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |a-mode #|[nil ". |
|00000870| 88 c1 5c 6e 21 88 c3 14 | c5 16 06 c7 c8 21 88 c9 |..\n!...|.....!..|
|00000880| 16 08 c7 ca 21 88 cb 16 | 5c 6e cc 0e 0d 21 88 c7 |....!...|\n...!..|
|00000890| ce 21 88 cf 0e 10 50 16 | 0e c7 d1 21 88 0e 0e 16 |.!....P.|...!....|
|000008a0| 11 c7 d2 21 88 d3 16 12 | c7 d4 21 88 d3 16 14 c7 |...!....|..!.....|
|000008b0| d5 21 88 d6 16 15 c7 d7 | 21 88 d8 16 17 c7 c8 21 |.!......|!......!|
|000008c0| 88 c9 16 08 c7 d9 21 88 | da 16 19 c7 db 21 88 dc |......!.|.....!..|
|000008d0| 16 1b c7 dd 21 88 d3 16 | 1d de df 21 87 22 20 5b |....!...|...!." [|
|000008e0| 6b 69 6c 6c 2d 61 6c 6c | 2d 6c 6f 63 61 6c 2d 76 |kill-all|-local-v|
|000008f0| 61 72 69 61 62 6c 65 73 | 20 75 73 65 2d 6c 6f 63 |ariables| use-loc|
|00000900| 61 6c 2d 6d 61 70 20 61 | 64 61 2d 6d 6f 64 65 2d |al-map a|da-mode-|
|00000910| 6d 61 70 20 61 64 61 2d | 6d 6f 64 65 20 6d 61 6a |map ada-|mode maj|
|00000920| 6f 72 2d 6d 6f 64 65 20 | 22 41 64 61 22 20 6d 6f |or-mode |"Ada" mo|
|00000930| 64 65 2d 6e 61 6d 65 20 | 6d 61 6b 65 2d 6c 6f 63 |de-name |make-loc|
|00000940| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 63 6f 6d 6d |al-varia|ble comm|
|00000950| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 20 34 31 20 65 6e |ent-colu|mn 41 en|
|00000960| 64 2d 63 6f 6d 6d 65 6e | 74 2d 63 6f 6c 75 6d 6e |d-commen|t-column|
|00000970| 20 37 32 20 73 65 74 2d | 73 79 6e 74 61 78 2d 74 | 72 set-|syntax-t|
|00000980| 61 62 6c 65 20 61 64 61 | 2d 6d 6f 64 65 2d 73 79 |able ada|-mode-sy|
|00000990| 6e 74 61 78 2d 74 61 62 | 6c 65 20 70 61 72 61 67 |ntax-tab|le parag|
|000009a0| 72 61 70 68 2d 73 74 61 | 72 74 20 22 5e 24 5c 5c |raph-sta|rt "^$\\|
|000009b0| 7c 22 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 ||" page-|delimite|
|000009c0| 72 20 70 61 72 61 67 72 | 61 70 68 2d 73 65 70 61 |r paragr|aph-sepa|
|000009d0| 72 61 74 65 20 70 61 72 | 61 67 72 61 70 68 2d 69 |rate par|agraph-i|
|000009e0| 67 6e 6f 72 65 2d 66 69 | 6c 6c 2d 70 72 65 66 69 |gnore-fi|ll-prefi|
|000009f0| 78 20 74 20 72 65 71 75 | 69 72 65 2d 66 69 6e 61 |x t requ|ire-fina|
|00000a00| 6c 2d 6e 65 77 6c 69 6e | 65 20 63 6f 6d 6d 65 6e |l-newlin|e commen|
|00000a10| 74 2d 73 74 61 72 74 20 | 22 2d 2d 22 20 63 6f 6d |t-start |"--" com|
|00000a20| 6d 65 6e 74 2d 65 6e 64 | 20 22 22 20 63 6f 6d 6d |ment-end| "" comm|
|00000a30| 65 6e 74 2d 73 74 61 72 | 74 2d 73 6b 69 70 20 22 |ent-star|t-skip "|
|00000a40| 2d 2d 2b 20 2a 22 20 63 | 6f 6d 6d 65 6e 74 2d 69 |--+ *" c|omment-i|
|00000a50| 6e 64 65 6e 74 2d 66 75 | 6e 63 74 69 6f 6e 20 63 |ndent-fu|nction c|
|00000a60| 2d 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 20 |-comment|-indent |
|00000a70| 70 61 72 73 65 2d 73 65 | 78 70 2d 69 67 6e 6f 72 |parse-se|xp-ignor|
|00000a80| 65 2d 63 6f 6d 6d 65 6e | 74 73 20 72 75 6e 2d 68 |e-commen|ts run-h|
|00000a90| 6f 6f 6b 73 20 61 64 61 | 2d 6d 6f 64 65 2d 68 6f |ooks ada|-mode-ho|
|00000aa0| 6f 6b 5d 20 32 20 22 5c | 0a 54 68 69 73 20 69 73 |ok] 2 "\|.This is|
|00000ab0| 20 61 20 6d 6f 64 65 20 | 69 6e 74 65 6e 64 65 64 | a mode |intended|
|00000ac0| 20 74 6f 20 73 75 70 70 | 6f 72 74 20 70 72 6f 67 | to supp|ort prog|
|00000ad0| 72 61 6d 20 64 65 76 65 | 6c 6f 70 6d 65 6e 74 20 |ram deve|lopment |
|00000ae0| 69 6e 20 41 64 61 2e 0a | 4d 6f 73 74 20 63 6f 6e |in Ada..|Most con|
|00000af0| 74 72 6f 6c 20 63 6f 6e | 73 74 72 75 63 74 73 20 |trol con|structs |
|00000b00| 61 6e 64 20 64 65 63 6c | 61 72 61 74 69 6f 6e 73 |and decl|arations|
|00000b10| 20 6f 66 20 41 64 61 20 | 63 61 6e 20 62 65 20 69 | of Ada |can be i|
|00000b20| 6e 73 65 72 74 65 64 20 | 69 6e 20 74 68 65 20 62 |nserted |in the b|
|00000b30| 75 66 66 65 72 0a 62 79 | 20 74 79 70 69 6e 67 20 |uffer.by| typing |
|00000b40| 43 6f 6e 74 72 6f 6c 2d | 43 20 66 6f 6c 6c 6f 77 |Control-|C follow|
|00000b50| 65 64 20 62 79 20 61 20 | 63 68 61 72 61 63 74 65 |ed by a |characte|
|00000b60| 72 20 6d 6e 65 6d 6f 6e | 69 63 20 66 6f 72 20 74 |r mnemon|ic for t|
|00000b70| 68 65 20 63 6f 6e 73 74 | 72 75 63 74 2e 0a 0a 5c |he const|ruct...\|
|00000b80| 5c 3c 61 64 61 2d 6d 6f | 64 65 2d 6d 61 70 3e 5c |\<ada-mo|de-map>\|
|00000b90| 5c 5b 61 64 61 2d 61 72 | 72 61 79 5d 20 61 72 72 |\[ada-ar|ray] arr|
|00000ba0| 61 79 20 20 20 20 20 20 | 20 20 20 09 5c 5c 5b 61 |ay      |   .\\[a|
|00000bb0| 64 61 2d 65 78 63 65 70 | 74 69 6f 6e 2d 62 6c 6f |da-excep|tion-blo|
|00000bc0| 63 6b 5d 20 20 20 20 65 | 78 63 65 70 74 69 6f 6e |ck]    e|xception|
|00000bd0| 20 62 6c 6f 63 6b 0a 5c | 5c 5b 61 64 61 2d 65 78 | block.\|\[ada-ex|
|00000be0| 63 65 70 74 69 6f 6e 5d | 20 20 65 78 63 65 70 74 |ception]|  except|
|00000bf0| 69 6f 6e 20 20 20 20 20 | 20 5c 5c 5b 61 64 61 2d |ion     | \\[ada-|
|00000c00| 64 65 63 6c 61 72 65 2d | 62 6c 6f 63 6b 5d 20 20 |declare-|block]  |
|00000c10| 20 20 64 65 63 6c 61 72 | 65 20 62 6c 6f 63 6b 0a |  declar|e block.|
|00000c20| 5c 5c 5b 61 64 61 2d 70 | 61 63 6b 61 67 65 2d 73 |\\[ada-p|ackage-s|
|00000c30| 70 65 63 5d 20 20 70 61 | 63 6b 61 67 65 20 73 70 |pec]  pa|ckage sp|
|00000c40| 65 63 20 20 20 5c 5c 5b | 61 64 61 2d 70 61 63 6b |ec   \\[|ada-pack|
|00000c50| 61 67 65 2d 62 6f 64 79 | 5d 20 20 20 20 70 61 63 |age-body|]    pac|
|00000c60| 6b 61 67 65 20 62 6f 64 | 79 0a 5c 5c 5b 61 64 61 |kage bod|y.\\[ada|
|00000c70| 2d 70 72 6f 63 65 64 75 | 72 65 2d 73 70 65 63 5d |-procedu|re-spec]|
|00000c80| 20 20 70 72 6f 63 65 64 | 75 72 65 20 73 70 65 63 |  proced|ure spec|
|00000c90| 20 5c 5c 5b 61 64 61 2d | 73 75 62 70 72 6f 67 72 | \\[ada-|subprogr|
|00000ca0| 61 6d 2d 62 6f 64 79 5d | 20 20 20 20 70 72 6f 63 |am-body]|    proc|
|00000cb0| 2f 66 75 6e 63 20 62 6f | 64 79 0a 5c 5c 5b 61 64 |/func bo|dy.\\[ad|
|00000cc0| 61 2d 66 75 6e 63 74 69 | 6f 6e 2d 73 70 65 63 5d |a-functi|on-spec]|
|00000cd0| 20 20 66 75 6e 63 20 73 | 70 65 63 20 20 20 20 20 |  func s|pec     |
|00000ce0| 20 5c 5c 5b 61 64 61 2d | 66 6f 72 2d 6c 6f 6f 70 | \\[ada-|for-loop|
|00000cf0| 5d 20 20 20 20 66 6f 72 | 20 6c 6f 6f 70 0a 20 20 |]    for| loop.  |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d10| 20 20 20 20 20 20 5c 5c | 5b 61 64 61 2d 69 66 5d |      \\|[ada-if]|
|00000d20| 20 20 20 20 69 66 0a 20 | 20 20 20 20 20 20 20 20 |    if. |        |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000d40| 5c 5b 61 64 61 2d 65 6c | 73 69 66 5d 20 20 20 20 |\[ada-el|sif]    |
|00000d50| 65 6c 73 69 66 0a 20 20 | 20 20 20 20 20 20 20 20 |elsif.  |        |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 5c |        |      \\|
|00000d70| 5b 61 64 61 2d 65 6c 73 | 65 5d 20 20 20 20 65 6c |[ada-els|e]    el|
|00000d80| 73 65 0a 5c 5c 5b 61 64 | 61 2d 70 72 69 76 61 74 |se.\\[ad|a-privat|
|00000d90| 65 5d 20 20 70 72 69 76 | 61 74 65 20 20 20 20 20 |e]  priv|ate     |
|00000da0| 20 20 20 5c 5c 5b 61 64 | 61 2d 6c 6f 6f 70 5d 20 |   \\[ad|a-loop] |
|00000db0| 20 20 20 6c 6f 6f 70 0a | 5c 5c 5b 61 64 61 2d 72 |   loop.|\\[ada-r|
|00000dc0| 65 63 6f 72 64 5d 20 20 | 72 65 63 6f 72 64 20 20 |ecord]  |record  |
|00000dd0| 20 20 20 20 20 20 20 5c | 5c 5b 61 64 61 2d 63 61 |       \|\[ada-ca|
|00000de0| 73 65 5d 20 20 20 20 63 | 61 73 65 0a 5c 5c 5b 61 |se]    c|ase.\\[a|
|00000df0| 64 61 2d 73 75 62 74 79 | 70 65 5d 20 20 73 75 62 |da-subty|pe]  sub|
|00000e00| 74 79 70 65 20 20 20 20 | 20 20 20 20 5c 5c 5b 61 |type    |    \\[a|
|00000e10| 64 61 2d 73 65 70 61 72 | 61 74 65 5d 20 20 20 20 |da-separ|ate]    |
|00000e20| 73 65 70 61 72 61 74 65 | 0a 5c 5c 5b 61 64 61 2d |separate|.\\[ada-|
|00000e30| 74 79 70 65 5d 20 20 74 | 79 70 65 20 20 20 20 20 |type]  t|ype     |
|00000e40| 20 20 20 20 20 20 5c 5c | 5b 61 64 61 2d 74 61 62 |      \\|[ada-tab|
|00000e50| 73 69 7a 65 5d 20 20 20 | 20 74 61 62 20 73 70 61 |size]   | tab spa|
|00000e60| 63 69 6e 67 20 66 6f 72 | 20 69 6e 64 65 6e 74 73 |cing for| indents|
|00000e70| 0a 5c 5c 5b 61 64 61 2d | 77 68 65 6e 5d 20 20 77 |.\\[ada-|when]  w|
|00000e80| 68 65 6e 20 20 20 20 20 | 20 20 20 20 20 20 5c 5c |hen     |      \\|
|00000e90| 5b 61 64 61 2d 77 68 69 | 6c 65 5d 20 20 20 20 77 |[ada-whi|le]    w|
|00000ea0| 68 69 6c 65 0a 20 20 20 | 20 20 20 20 20 20 20 20 |hile.   |        |
|00000eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 5c 5b |        |     \\[|
|00000ec0| 61 64 61 2d 65 78 69 74 | 5d 20 20 20 20 65 78 69 |ada-exit|]    exi|
|00000ed0| 74 0a 5c 5c 5b 61 64 61 | 2d 70 61 69 72 65 64 2d |t.\\[ada|-paired-|
|00000ee0| 70 61 72 65 6e 73 5d 20 | 20 20 20 70 61 69 72 65 |parens] |   paire|
|00000ef0| 64 20 70 61 72 65 6e 73 | 20 20 5c 5c 5b 61 64 61 |d parens|  \\[ada|
|00000f00| 2d 69 6e 6c 69 6e 65 2d | 63 6f 6d 6d 65 6e 74 5d |-inline-|comment]|
|00000f10| 20 20 20 20 69 6e 6c 69 | 6e 65 20 63 6f 6d 6d 65 |    inli|ne comme|
|00000f20| 6e 74 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nt.     |        |
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 5c 5c 5b 61 64 |        |   \\[ad|
|00000f40| 61 2d 68 65 61 64 65 72 | 5d 20 20 20 20 68 65 61 |a-header|]    hea|
|00000f50| 64 65 72 20 73 70 65 63 | 0a 5c 5c 5b 61 64 61 2d |der spec|.\\[ada-|
|00000f60| 63 6f 6d 70 69 6c 65 5d | 20 20 20 20 63 6f 6d 70 |compile]|    comp|
|00000f70| 69 6c 65 20 20 20 20 20 | 20 20 20 5c 5c 5b 61 64 |ile     |   \\[ad|
|00000f80| 61 2d 62 69 6e 64 5d 20 | 20 20 20 62 69 6e 64 0a |a-bind] |   bind.|
|00000f90| 5c 5c 5b 61 64 61 2d 66 | 69 6e 64 2d 6c 69 73 74 |\\[ada-f|ind-list|
|00000fa0| 69 6e 67 5d 20 20 20 20 | 66 69 6e 64 20 65 72 72 |ing]    |find err|
|00000fb0| 6f 72 20 6c 69 73 74 0a | 5c 5c 5b 61 64 61 2d 6c |or list.|\\[ada-l|
|00000fc0| 69 62 72 61 72 79 2d 6e | 61 6d 65 5d 20 20 20 20 |ibrary-n|ame]    |
|00000fd0| 6e 61 6d 65 20 6c 69 62 | 72 61 72 79 20 20 20 5c |name lib|rary   \|
|00000fe0| 5c 5b 61 64 61 2d 6f 70 | 74 69 6f 6e 73 2d 66 6f |\[ada-op|tions-fo|
|00000ff0| 72 2d 62 69 6e 64 5d 20 | 20 20 20 6f 70 74 69 6f |r-bind] |   optio|
|00001000| 6e 73 20 66 6f 72 20 62 | 69 6e 64 0a 0a 5c 5c 5b |ns for b|ind..\\[|
|00001010| 61 64 61 2d 62 61 63 6b | 77 61 72 64 2d 74 6f 2d |ada-back|ward-to-|
|00001020| 73 61 6d 65 2d 69 6e 64 | 65 6e 74 5d 20 61 6e 64 |same-ind|ent] and|
|00001030| 20 5c 5c 5b 61 64 61 2d | 66 6f 72 77 61 72 64 2d | \\[ada-|forward-|
|00001040| 74 6f 2d 73 61 6d 65 2d | 69 6e 64 65 6e 74 5d 20 |to-same-|indent] |
|00001050| 6d 6f 76 65 20 62 61 63 | 6b 77 61 72 64 20 61 6e |move bac|kward an|
|00001060| 64 20 66 6f 72 77 61 72 | 64 20 72 65 73 70 65 63 |d forwar|d respec|
|00001070| 74 69 76 65 6c 79 20 74 | 6f 20 74 68 65 20 6e 65 |tively t|o the ne|
|00001080| 78 74 20 6c 69 6e 65 0a | 68 61 76 69 6e 67 20 74 |xt line.|having t|
|00001090| 68 65 20 73 61 6d 65 20 | 28 6f 72 20 6c 65 73 73 |he same |(or less|
|000010a0| 65 72 29 20 6c 65 76 65 | 6c 20 6f 66 20 69 6e 64 |er) leve|l of ind|
|000010b0| 65 6e 74 61 74 69 6f 6e | 2e 0a 0a 56 61 72 69 61 |entation|...Varia|
|000010c0| 62 6c 65 20 60 61 64 61 | 2d 69 6e 64 65 6e 74 27 |ble `ada|-indent'|
|000010d0| 20 63 6f 6e 74 72 6f 6c | 73 20 74 68 65 20 6e 75 | control|s the nu|
|000010e0| 6d 62 65 72 20 6f 66 20 | 73 70 61 63 65 73 20 66 |mber of |spaces f|
|000010f0| 6f 72 20 69 6e 64 65 6e | 74 2f 75 6e 64 65 6e 74 |or inden|t/undent|
|00001100| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|00001110| 61 73 20 27 61 64 61 2d | 74 61 62 73 69 7a 65 20 |as 'ada-|tabsize |
|00001120| 23 5b 28 73 29 20 22 08 | 89 11 87 22 20 5b 73 20 |#[(s) ".|..." [s |
|00001130| 61 64 61 2d 69 6e 64 65 | 6e 74 5d 20 32 20 22 5c |ada-inde|nt] 2 "\|
|00001140| 0a 43 68 61 6e 67 65 73 | 20 73 70 61 63 69 6e 67 |.Changes| spacing|
|00001150| 20 75 73 65 64 20 66 6f | 72 20 69 6e 64 65 6e 74 | used fo|r indent|
|00001160| 61 74 69 6f 6e 2e 0a 54 | 68 65 20 70 72 65 66 69 |ation..T|he prefi|
|00001170| 78 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 75 73 |x argume|nt is us|
|00001180| 65 64 20 61 73 20 74 68 | 65 20 6e 65 77 20 73 70 |ed as th|e new sp|
|00001190| 61 63 69 6e 67 2e 22 20 | 22 70 22 5d 29 0a 28 64 |acing." |"p"]).(d|
|000011a0| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 6e 65 77 |efalias |'ada-new|
|000011b0| 6c 69 6e 65 20 23 5b 6e | 69 6c 20 22 c0 20 19 c2 |line #[n|il ". ..|
|000011c0| 20 88 09 6a 29 87 22 20 | 5b 63 75 72 72 65 6e 74 | ..j)." |[current|
|000011d0| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 61 64 61 |-indenta|tion ada|
|000011e0| 2d 63 63 20 6e 65 77 6c | 69 6e 65 5d 20 31 20 22 |-cc newl|ine] 1 "|
|000011f0| 5c 0a 53 74 61 72 74 20 | 6e 65 77 20 6c 69 6e 65 |\.Start |new line|
|00001200| 20 61 6e 64 20 69 6e 64 | 65 6e 74 20 74 6f 20 63 | and ind|ent to c|
|00001210| 75 72 72 65 6e 74 20 74 | 61 62 20 73 74 6f 70 2e |urrent t|ab stop.|
|00001220| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00001230| 73 20 27 61 64 61 2d 74 | 61 62 20 23 5b 6e 69 6c |s 'ada-t|ab #[nil|
|00001240| 20 22 c0 20 09 a5 54 09 | 5f 6a 87 22 20 5b 63 75 | ". ..T.|_j." [cu|
|00001250| 72 72 65 6e 74 2d 69 6e | 64 65 6e 74 61 74 69 6f |rrent-in|dentatio|
|00001260| 6e 20 61 64 61 2d 69 6e | 64 65 6e 74 5d 20 32 20 |n ada-in|dent] 2 |
|00001270| 22 5c 0a 49 6e 64 65 6e | 74 20 74 6f 20 6e 65 78 |"\.Inden|t to nex|
|00001280| 74 20 74 61 62 20 73 74 | 6f 70 2e 22 20 6e 69 6c |t tab st|op." nil|
|00001290| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 64 |]).(defa|lias 'ad|
|000012a0| 61 2d 75 6e 74 61 62 20 | 23 5b 6e 69 6c 20 22 c0 |a-untab |#[nil ".|
|000012b0| 09 c2 5c 22 87 22 20 5b | 62 61 63 6b 77 61 72 64 |..\"." [|backward|
|000012c0| 2d 64 65 6c 65 74 65 2d | 63 68 61 72 2d 75 6e 74 |-delete-|char-unt|
|000012d0| 61 62 69 66 79 20 61 64 | 61 2d 69 6e 64 65 6e 74 |abify ad|a-indent|
|000012e0| 20 6e 69 6c 5d 20 33 20 | 22 5c 0a 44 65 6c 65 74 | nil] 3 |"\.Delet|
|000012f0| 65 20 62 61 63 6b 77 61 | 72 64 73 20 74 6f 20 70 |e backwa|rds to p|
|00001300| 72 65 76 69 6f 75 73 20 | 74 61 62 20 73 74 6f 70 |revious |tab stop|
|00001310| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|00001320| 61 73 20 27 61 64 61 2d | 67 6f 2d 74 6f 2d 74 68 |as 'ada-|go-to-th|
|00001330| 69 73 2d 69 6e 64 65 6e | 74 20 23 5b 28 73 74 65 |is-inden|t #[(ste|
|00001340| 70 20 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 29 20 |p indent|-level) |
|00001350| 22 08 79 c1 55 85 2a 00 | c2 c3 21 84 00 00 c2 c4 |".y.U.*.|..!.....|
|00001360| 21 84 00 00 c2 c5 21 84 | 00 00 c2 c6 21 84 00 00 |!.....!.|....!...|
|00001370| c7 20 0e 08 56 85 2a 00 | 82 00 00 87 22 20 5b 73 |. ..V.*.|...." [s|
|00001380| 74 65 70 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |tep 0 lo|oking-at|
|00001390| 20 22 5e 5b 20 09 5d 2a | 24 22 20 22 5e 5b 20 09 | "^[ .]*|$" "^[ .|
|000013a0| 5d 2a 2d 2d 22 20 22 5e | 3c 3c 5b 41 2d 5a 61 2d |]*--" "^|<<[A-Za-|
|000013b0| 7a 30 2d 39 5f 5d 2b 3e | 3e 22 20 22 5e 5b 41 2d |z0-9_]+>|>" "^[A-|
|000013c0| 5a 61 2d 7a 30 2d 39 5f | 5d 2b 3a 22 20 63 75 72 |Za-z0-9_|]+:" cur|
|000013d0| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|000013e0| 20 69 6e 64 65 6e 74 2d | 6c 65 76 65 6c 5d 20 32 | indent-|level] 2|
|000013f0| 20 22 5c 0a 4d 6f 76 65 | 20 70 6f 69 6e 74 20 72 | "\.Move| point r|
|00001400| 65 70 65 61 74 65 64 6c | 79 20 62 79 20 53 54 45 |epeatedl|y by STE|
|00001410| 50 20 6c 69 6e 65 73 20 | 75 6e 74 69 6c 20 74 68 |P lines |until th|
|00001420| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 20 68 |e curren|t line h|
|00001430| 61 73 0a 67 69 76 65 6e | 20 49 4e 44 45 4e 54 2d |as.given| INDENT-|
|00001440| 4c 45 56 45 4c 20 6f 72 | 20 6c 65 73 73 2c 20 6f |LEVEL or| less, o|
|00001450| 72 20 74 68 65 20 73 74 | 61 72 74 20 6f 72 20 65 |r the st|art or e|
|00001460| 6e 64 20 6f 66 20 74 68 | 65 20 62 75 66 66 65 72 |nd of th|e buffer|
|00001470| 20 69 73 20 72 65 61 63 | 68 65 64 2e 0a 49 67 6e | is reac|hed..Ign|
|00001480| 6f 72 65 20 62 6c 61 6e | 6b 20 6c 69 6e 65 73 2c |ore blan|k lines,|
|00001490| 20 73 74 61 74 65 6d 65 | 6e 74 20 6c 61 62 65 6c | stateme|nt label|
|000014a0| 73 20 61 6e 64 20 62 6c | 6f 63 6b 20 6f 72 20 6c |s and bl|ock or l|
|000014b0| 6f 6f 70 20 6e 61 6d 65 | 73 2e 22 5d 29 0a 28 64 |oop name|s."]).(d|
|000014c0| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 62 61 63 |efalias |'ada-bac|
|000014d0| 6b 77 61 72 64 2d 74 6f | 2d 73 61 6d 65 2d 69 6e |kward-to|-same-in|
|000014e0| 64 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 20 |dent #[n|il "... |
|000014f0| 5c 22 88 c3 20 87 22 20 | 5b 61 64 61 2d 67 6f 2d |\".. ." |[ada-go-|
|00001500| 74 6f 2d 74 68 69 73 2d | 69 6e 64 65 6e 74 20 2d |to-this-|indent -|
|00001510| 31 20 63 75 72 72 65 6e | 74 2d 69 6e 64 65 6e 74 |1 curren|t-indent|
|00001520| 61 74 69 6f 6e 20 62 61 | 63 6b 2d 74 6f 2d 69 6e |ation ba|ck-to-in|
|00001530| 64 65 6e 74 61 74 69 6f | 6e 5d 20 33 20 22 5c 0a |dentatio|n] 3 "\.|
|00001540| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 62 61 63 6b 77 |Move poi|nt backw|
|00001550| 61 72 64 73 20 74 6f 20 | 6e 65 61 72 65 73 74 20 |ards to |nearest |
|00001560| 6c 69 6e 65 20 77 69 74 | 68 20 73 61 6d 65 20 69 |line wit|h same i|
|00001570| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6f 72 20 6c 65 |ndentati|on or le|
|00001580| 73 73 2e 0a 49 66 20 6e | 6f 74 20 66 6f 75 6e 64 |ss..If n|ot found|
|00001590| 2c 20 70 6f 69 6e 74 20 | 69 73 20 6c 65 66 74 20 |, point |is left |
|000015a0| 61 74 20 74 68 65 20 74 | 6f 70 20 6f 66 20 74 68 |at the t|op of th|
|000015b0| 65 20 62 75 66 66 65 72 | 2e 22 20 6e 69 6c 5d 29 |e buffer|." nil])|
|000015c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 64 61 2d |.(defali|as 'ada-|
|000015d0| 66 6f 72 77 61 72 64 2d | 74 6f 2d 73 61 6d 65 2d |forward-|to-same-|
|000015e0| 69 6e 64 65 6e 74 20 23 | 5b 6e 69 6c 20 22 c0 c1 |indent #|[nil "..|
|000015f0| c2 20 5c 22 88 c3 20 87 | 22 20 5b 61 64 61 2d 67 |. \".. .|" [ada-g|
|00001600| 6f 2d 74 6f 2d 74 68 69 | 73 2d 69 6e 64 65 6e 74 |o-to-thi|s-indent|
|00001610| 20 31 20 63 75 72 72 65 | 6e 74 2d 69 6e 64 65 6e | 1 curre|nt-inden|
|00001620| 74 61 74 69 6f 6e 20 62 | 61 63 6b 2d 74 6f 2d 69 |tation b|ack-to-i|
|00001630| 6e 64 65 6e 74 61 74 69 | 6f 6e 5d 20 33 20 22 5c |ndentati|on] 3 "\|
|00001640| 0a 4d 6f 76 65 20 70 6f | 69 6e 74 20 66 6f 72 77 |.Move po|int forw|
|00001650| 61 72 64 73 20 74 6f 20 | 6e 65 61 72 65 73 74 20 |ards to |nearest |
|00001660| 6c 69 6e 65 20 77 69 74 | 68 20 73 61 6d 65 20 69 |line wit|h same i|
|00001670| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6f 72 20 6c 65 |ndentati|on or le|
|00001680| 73 73 2e 0a 49 66 20 6e | 6f 74 20 66 6f 75 6e 64 |ss..If n|ot found|
|00001690| 2c 20 70 6f 69 6e 74 20 | 69 73 20 6c 65 66 74 20 |, point |is left |
|000016a0| 61 74 20 74 68 65 20 73 | 74 61 72 74 20 6f 66 20 |at the s|tart of |
|000016b0| 74 68 65 20 6c 61 73 74 | 20 6c 69 6e 65 20 69 6e |the last| line in|
|000016c0| 20 74 68 65 20 62 75 66 | 66 65 72 2e 22 20 6e 69 | the buf|fer." ni|
|000016d0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |l]).(def|alias 'a|
|000016e0| 64 61 2d 61 72 72 61 79 | 20 23 5b 6e 69 6c 20 22 |da-array| #[nil "|
|000016f0| c0 63 88 c1 20 88 c2 c3 | 21 63 88 c4 7f 88 c5 63 |.c.. ...|!c.....c|
|00001700| 88 c1 20 88 c2 c6 21 63 | 88 c4 7f 87 22 20 5b 22 |.. ...!c|...." ["|
|00001710| 61 72 72 61 79 20 28 29 | 22 20 62 61 63 6b 77 61 |array ()|" backwa|
|00001720| 72 64 2d 63 68 61 72 20 | 72 65 61 64 2d 73 74 72 |rd-char |read-str|
|00001730| 69 6e 67 20 22 69 6e 64 | 65 78 20 73 75 62 74 79 |ing "ind|ex subty|
|00001740| 70 65 5b 73 5d 3a 20 22 | 20 6e 69 6c 20 22 20 6f |pe[s]: "| nil " o|
|00001750| 66 20 3b 22 20 22 63 6f | 6d 70 6f 6e 65 6e 74 2d |f ;" "co|mponent-|
|00001760| 74 79 70 65 3a 20 22 5d | 20 32 20 22 5c 0a 49 6e |type: "]| 2 "\.In|
|00001770| 73 65 72 74 20 61 72 72 | 61 79 20 74 79 70 65 20 |sert arr|ay type |
|00001780| 64 65 66 69 6e 69 74 69 | 6f 6e 2e 20 20 55 73 65 |definiti|on.  Use|
|00001790| 73 20 74 68 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |s the mi|nibuffer|
|000017a0| 20 74 6f 20 70 72 6f 6d | 70 74 0a 66 6f 72 20 63 | to prom|pt.for c|
|000017b0| 6f 6d 70 6f 6e 65 6e 74 | 20 74 79 70 65 20 61 6e |omponent| type an|
|000017c0| 64 20 69 6e 64 65 78 20 | 73 75 62 74 79 70 65 73 |d index |subtypes|
|000017d0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|000017e0| 61 73 20 27 61 64 61 2d | 63 61 73 65 20 23 5b 6e |as 'ada-|case #[n|
|000017f0| 69 6c 20 22 c0 63 88 c1 | c2 21 c3 b1 02 88 c4 20 |il ".c..|.!..... |
|00001800| 88 c4 20 88 c5 63 88 c6 | 7f 88 c7 20 88 c7 20 88 |.. ..c..|... .. .|
|00001810| c8 20 87 22 20 5b 22 63 | 61 73 65 20 22 20 72 65 |. ." ["c|ase " re|
|00001820| 61 64 2d 73 74 72 69 6e | 67 20 22 73 65 6c 65 63 |ad-strin|g "selec|
|00001830| 74 6f 72 20 65 78 70 72 | 65 73 73 69 6f 6e 3a 20 |tor expr|ession: |
|00001840| 22 20 22 20 69 73 22 20 | 61 64 61 2d 6e 65 77 6c |" " is" |ada-newl|
|00001850| 69 6e 65 20 22 65 6e 64 | 20 63 61 73 65 3b 22 20 |ine "end| case;" |
|00001860| 30 20 61 64 61 2d 74 61 | 62 20 61 64 61 2d 77 68 |0 ada-ta|b ada-wh|
|00001870| 65 6e 5d 20 32 20 22 5c | 0a 42 75 69 6c 64 20 73 |en] 2 "\|.Build s|
|00001880| 6b 65 6c 65 74 6f 6e 20 | 63 61 73 65 20 73 74 61 |keleton |case sta|
|00001890| 74 65 6d 65 6e 74 2e 0a | 55 73 65 73 20 74 68 65 |tement..|Uses the|
|000018a0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 74 6f 20 70 | minibuf|fer to p|
|000018b0| 72 6f 6d 70 74 20 66 6f | 72 20 74 68 65 20 73 65 |rompt fo|r the se|
|000018c0| 6c 65 63 74 6f 72 20 65 | 78 70 72 65 73 73 69 6f |lector e|xpressio|
|000018d0| 6e 2e 0a 41 6c 73 6f 20 | 62 75 69 6c 64 73 20 74 |n..Also |builds t|
|000018e0| 68 65 20 66 69 72 73 74 | 20 77 68 65 6e 20 63 6c |he first| when cl|
|000018f0| 61 75 73 65 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ause." n|il]).(de|
|00001900| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 64 65 63 6c |falias '|ada-decl|
|00001910| 61 72 65 2d 62 6c 6f 63 | 6b 20 23 5b 6e 69 6c 20 |are-bloc|k #[nil |
|00001920| 22 c0 c1 21 1a c3 63 88 | 5c 6e c4 98 84 20 00 c5 |"..!..c.|\n... ..|
|00001930| 79 88 c6 c7 21 88 5c 6e | c8 b1 02 88 c9 c7 21 88 |y...!.\n|......!.|
|00001940| ca 7f 88 cb 20 88 cb 20 | 88 cc 63 88 cb 20 88 cb |.... .. |..c.. ..|
|00001950| 20 88 5c 6e c4 98 83 3b | 00 cd 63 88 82 41 00 ce | .\n...;|..c..A..|
|00001960| 5c 6e cf b1 03 88 29 d0 | 7f 88 d1 20 87 22 20 5b |\n....).|... ." [|
|00001970| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 5b 62 6c |read-str|ing "[bl|
|00001980| 6f 63 6b 20 6e 61 6d 65 | 5d 3a 20 22 20 61 64 61 |ock name|]: " ada|
|00001990| 2d 62 6c 6f 63 6b 2d 6e | 61 6d 65 20 22 64 65 63 |-block-n|ame "dec|
|000019a0| 6c 61 72 65 22 20 22 22 | 20 30 20 6f 70 65 6e 2d |lare" ""| 0 open-|
|000019b0| 6c 69 6e 65 20 31 20 22 | 3a 22 20 6e 65 78 74 2d |line 1 "|:" next-|
|000019c0| 6c 69 6e 65 20 6e 69 6c | 20 61 64 61 2d 6e 65 77 |line nil| ada-new|
|000019d0| 6c 69 6e 65 20 22 62 65 | 67 69 6e 22 20 22 65 6e |line "be|gin" "en|
|000019e0| 64 3b 22 20 22 65 6e 64 | 20 22 20 22 3b 22 20 2d |d;" "end| " ";" -|
|000019f0| 32 20 61 64 61 2d 74 61 | 62 5d 20 33 20 22 5c 0a |2 ada-ta|b] 3 "\.|
|00001a00| 49 6e 73 65 72 74 20 61 | 20 62 6c 6f 63 6b 20 77 |Insert a| block w|
|00001a10| 69 74 68 20 61 20 64 65 | 63 6c 61 72 65 20 70 61 |ith a de|clare pa|
|00001a20| 72 74 2e 0a 49 6e 64 65 | 6e 74 20 66 6f 72 20 74 |rt..Inde|nt for t|
|00001a30| 68 65 20 66 69 72 73 74 | 20 64 65 63 6c 61 72 61 |he first| declara|
|00001a40| 74 69 6f 6e 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |tion." n|il]).(de|
|00001a50| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 65 78 63 65 |falias '|ada-exce|
|00001a60| 70 74 69 6f 6e 2d 62 6c | 6f 63 6b 20 23 5b 6e 69 |ption-bl|ock #[ni|
|00001a70| 6c 20 22 c0 c1 21 1a c3 | 63 88 5c 6e c4 98 84 20 |l "..!..|c.\n... |
|00001a80| 00 c5 79 88 c6 c7 21 88 | 5c 6e c8 b1 02 88 c9 c7 |..y...!.|\n......|
|00001a90| 21 88 ca 7f 88 cb 20 88 | cb 20 88 cc 63 88 cb 20 |!..... .|. ..c.. |
|00001aa0| 88 cb 20 88 5c 6e c4 98 | 83 3b 00 cd 63 88 82 41 |.. .\n..|.;..c..A|
|00001ab0| 00 ce 5c 6e cf b1 03 88 | 29 d0 7f 88 d1 20 87 22 |..\n....|).... ."|
|00001ac0| 20 5b 72 65 61 64 2d 73 | 74 72 69 6e 67 20 22 5b | [read-s|tring "[|
|00001ad0| 62 6c 6f 63 6b 20 6e 61 | 6d 65 5d 3a 20 22 20 62 |block na|me]: " b|
|00001ae0| 6c 6f 63 6b 2d 6e 61 6d | 65 20 22 62 65 67 69 6e |lock-nam|e "begin|
|00001af0| 22 20 22 22 20 30 20 6f | 70 65 6e 2d 6c 69 6e 65 |" "" 0 o|pen-line|
|00001b00| 20 31 20 22 3a 22 20 6e | 65 78 74 2d 6c 69 6e 65 | 1 ":" n|ext-line|
|00001b10| 20 6e 69 6c 20 61 64 61 | 2d 6e 65 77 6c 69 6e 65 | nil ada|-newline|
|00001b20| 20 22 65 78 63 65 70 74 | 69 6f 6e 22 20 22 65 6e | "except|ion" "en|
|00001b30| 64 3b 22 20 22 65 6e 64 | 20 22 20 22 3b 22 20 2d |d;" "end| " ";" -|
|00001b40| 32 20 61 64 61 2d 74 61 | 62 5d 20 33 20 22 5c 0a |2 ada-ta|b] 3 "\.|
|00001b50| 49 6e 73 65 72 74 20 61 | 20 62 6c 6f 63 6b 20 77 |Insert a| block w|
|00001b60| 69 74 68 20 61 6e 20 65 | 78 63 65 70 74 69 6f 6e |ith an e|xception|
|00001b70| 20 70 61 72 74 2e 0a 49 | 6e 64 65 6e 74 20 66 6f | part..I|ndent fo|
|00001b80| 72 20 74 68 65 20 66 69 | 72 73 74 20 6c 69 6e 65 |r the fi|rst line|
|00001b90| 20 6f 66 20 63 6f 64 65 | 2e 22 20 6e 69 6c 5d 29 | of code|." nil])|
|00001ba0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 64 61 2d |.(defali|as 'ada-|
|00001bb0| 65 78 63 65 70 74 69 6f | 6e 20 23 5b 6e 69 6c 20 |exceptio|n #[nil |
|00001bc0| 22 c0 20 88 c1 63 88 c2 | 20 88 c3 20 87 22 20 5b |". ..c..| .. ." [|
|00001bd0| 61 64 61 2d 75 6e 74 61 | 62 20 22 65 78 63 65 70 |ada-unta|b "excep|
|00001be0| 74 69 6f 6e 22 20 61 64 | 61 2d 6e 65 77 6c 69 6e |tion" ad|a-newlin|
|00001bf0| 65 20 61 64 61 2d 74 61 | 62 5d 20 31 20 22 5c 0a |e ada-ta|b] 1 "\.|
|00001c00| 49 6e 73 65 72 74 20 61 | 6e 20 69 6e 64 65 6e 74 |Insert a|n indent|
|00001c10| 65 64 20 65 78 63 65 70 | 74 69 6f 6e 20 70 61 72 |ed excep|tion par|
|00001c20| 74 20 69 6e 74 6f 20 61 | 20 62 6c 6f 63 6b 2e 22 |t into a| block."|
|00001c30| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00001c40| 20 27 61 64 61 2d 65 6c | 73 65 20 23 5b 6e 69 6c | 'ada-el|se #[nil|
|00001c50| 20 22 c0 20 88 c1 63 88 | c2 20 88 c3 20 87 22 20 | ". ..c.|. .. ." |
|00001c60| 5b 61 64 61 2d 75 6e 74 | 61 62 20 22 65 6c 73 65 |[ada-unt|ab "else|
|00001c70| 22 20 61 64 61 2d 6e 65 | 77 6c 69 6e 65 20 61 64 |" ada-ne|wline ad|
|00001c80| 61 2d 74 61 62 5d 20 31 | 20 22 5c 0a 41 64 64 20 |a-tab] 1| "\.Add |
|00001c90| 61 6e 20 65 6c 73 65 20 | 63 6c 61 75 73 65 20 69 |an else |clause i|
|00001ca0| 6e 73 69 64 65 20 61 6e | 20 69 66 2d 74 68 65 6e |nside an| if-then|
|00001cb0| 2d 65 6e 64 2d 69 66 20 | 63 6c 61 75 73 65 2e 22 |-end-if |clause."|
|00001cc0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00001cd0| 20 27 61 64 61 2d 65 78 | 69 74 20 23 5b 6e 69 6c | 'ada-ex|it #[nil|
|00001ce0| 20 22 c0 63 88 c1 c2 21 | 89 1b c4 98 84 12 00 c5 | ".c...!|........|
|00001cf0| 0b b1 02 88 29 c1 c6 21 | 89 1e 07 c4 98 84 35 00 |....)..!|......5.|
|00001d00| c8 c9 0e 07 5c 22 83 2f | 00 c5 0e 07 b1 02 88 82 |....\"./|........|
|00001d10| 35 00 ca 0e 07 b1 02 88 | 29 cb 63 87 22 20 5b 22 |5.......|).c." ["|
|00001d20| 65 78 69 74 22 20 72 65 | 61 64 2d 73 74 72 69 6e |exit" re|ad-strin|
|00001d30| 67 20 22 5b 6e 61 6d 65 | 20 6f 66 20 6c 6f 6f 70 |g "[name| of loop|
|00001d40| 20 74 6f 20 65 78 69 74 | 5d 3a 20 22 20 61 64 61 | to exit|]: " ada|
|00001d50| 2d 6c 6f 6f 70 2d 6e 61 | 6d 65 20 22 22 20 22 20 |-loop-na|me "" " |
|00001d60| 22 20 22 5b 65 78 69 74 | 20 63 6f 6e 64 69 74 69 |" "[exit| conditi|
|00001d70| 6f 6e 5d 3a 20 22 20 61 | 64 61 2d 65 78 69 74 2d |on]: " a|da-exit-|
|00001d80| 63 6f 6e 64 69 74 69 6f | 6e 20 73 74 72 69 6e 67 |conditio|n string|
|00001d90| 2d 6d 61 74 63 68 20 22 | 5e 20 2a 5b 57 77 5d 5b |-match "|^ *[Ww][|
|00001da0| 48 68 5d 5b 45 65 5d 5b | 4e 6e 5d 20 2b 22 20 22 |Hh][Ee][|Nn] +" "|
|00001db0| 20 77 68 65 6e 20 22 20 | 22 3b 22 5d 20 34 20 22 | when " |";"] 4 "|
|00001dc0| 5c 0a 49 6e 73 65 72 74 | 20 61 6e 20 65 78 69 74 |\.Insert| an exit|
|00001dd0| 20 73 74 61 74 65 6d 65 | 6e 74 2c 20 70 72 6f 6d | stateme|nt, prom|
|00001de0| 70 74 69 6e 67 20 66 6f | 72 20 6c 6f 6f 70 20 6e |pting fo|r loop n|
|00001df0| 61 6d 65 20 61 6e 64 20 | 63 6f 6e 64 69 74 69 6f |ame and |conditio|
|00001e00| 6e 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |n." nil]|).(defal|
|00001e10| 69 61 73 20 27 61 64 61 | 2d 77 68 65 6e 20 23 5b |ias 'ada|-when #[|
|00001e20| 6e 69 6c 20 22 c0 20 88 | c1 63 88 c2 c3 21 c4 b1 |nil ". .|.c...!..|
|00001e30| 02 88 c5 20 88 c6 20 87 | 22 20 5b 61 64 61 2d 75 |... .. .|" [ada-u|
|00001e40| 6e 74 61 62 20 22 77 68 | 65 6e 20 22 20 72 65 61 |ntab "wh|en " rea|
|00001e50| 64 2d 73 74 72 69 6e 67 | 20 22 27 7c 27 2d 64 65 |d-string| "'|'-de|
|00001e60| 6c 69 6d 69 74 65 64 20 | 63 68 6f 69 63 65 20 6c |limited |choice l|
|00001e70| 69 73 74 3a 20 22 20 22 | 20 3d 3e 22 20 61 64 61 |ist: " "| =>" ada|
|00001e80| 2d 6e 65 77 6c 69 6e 65 | 20 61 64 61 2d 74 61 62 |-newline| ada-tab|
|00001e90| 5d 20 32 20 22 5c 0a 53 | 74 61 72 74 20 61 20 63 |] 2 "\.S|tart a c|
|00001ea0| 61 73 65 20 73 74 61 74 | 65 6d 65 6e 74 20 61 6c |ase stat|ement al|
|00001eb0| 74 65 72 6e 61 74 69 76 | 65 20 77 69 74 68 20 61 |ternativ|e with a|
|00001ec0| 20 77 68 65 6e 20 63 6c | 61 75 73 65 2e 22 20 6e | when cl|ause." n|
|00001ed0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00001ee0| 61 64 61 2d 66 6f 72 2d | 6c 6f 6f 70 20 23 5b 6e |ada-for-|loop #[n|
|00001ef0| 69 6c 20 22 c0 63 88 c1 | c2 21 89 1b c4 98 3f 89 |il ".c..|.!....?.|
|00001f00| 1d 83 23 00 c6 79 88 c7 | c8 21 88 0b c9 b1 02 88 |..#..y..|.!......|
|00001f10| ca c8 21 88 c8 7f 88 c1 | cb 21 cc b1 02 88 c1 cd |..!.....|.!......|
|00001f20| 21 ce b1 02 88 cf 20 88 | cf 20 88 d0 63 88 0d 83 |!..... .|. ..c...|
|00001f30| 43 00 d1 0b b1 02 88 d2 | 63 88 2a c6 7f 88 d3 20 |C.......|c.*.... |
|00001f40| 87 22 20 5b 22 66 6f 72 | 20 22 20 72 65 61 64 2d |." ["for| " read-|
|00001f50| 73 74 72 69 6e 67 20 22 | 5b 6c 6f 6f 70 20 6e 61 |string "|[loop na|
|00001f60| 6d 65 5d 3a 20 22 20 61 | 64 61 2d 6c 6f 6f 70 2d |me]: " a|da-loop-|
|00001f70| 6e 61 6d 65 20 22 22 20 | 61 64 61 2d 6c 6f 6f 70 |name "" |ada-loop|
|00001f80| 2d 69 73 2d 6e 61 6d 65 | 64 20 30 20 6f 70 65 6e |-is-name|d 0 open|
|00001f90| 2d 6c 69 6e 65 20 31 20 | 22 3a 22 20 6e 65 78 74 |-line 1 |":" next|
|00001fa0| 2d 6c 69 6e 65 20 22 6c | 6f 6f 70 20 76 61 72 69 |-line "l|oop vari|
|00001fb0| 61 62 6c 65 3a 20 22 20 | 22 20 69 6e 20 22 20 22 |able: " |" in " "|
|00001fc0| 72 61 6e 67 65 3a 20 22 | 20 22 20 6c 6f 6f 70 22 |range: "| " loop"|
|00001fd0| 20 61 64 61 2d 6e 65 77 | 6c 69 6e 65 20 22 65 6e | ada-new|line "en|
|00001fe0| 64 20 6c 6f 6f 70 22 20 | 22 20 22 20 22 3b 22 20 |d loop" |" " ";" |
|00001ff0| 61 64 61 2d 74 61 62 5d | 20 33 20 22 5c 0a 42 75 |ada-tab]| 3 "\.Bu|
|00002000| 69 6c 64 20 61 20 73 6b | 65 6c 65 74 6f 6e 20 66 |ild a sk|eleton f|
|00002010| 6f 72 2d 6c 6f 6f 70 20 | 73 74 61 74 65 6d 65 6e |or-loop |statemen|
|00002020| 74 2c 20 70 72 6f 6d 70 | 74 69 6e 67 20 66 6f 72 |t, promp|ting for|
|00002030| 20 74 68 65 20 6c 6f 6f | 70 20 70 61 72 61 6d 65 | the loo|p parame|
|00002040| 74 65 72 73 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ters." n|il]).(de|
|00002050| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 68 65 61 64 |falias '|ada-head|
|00002060| 65 72 20 23 5b 6e 69 6c | 20 22 c0 63 88 c1 c2 21 |er #[nil| ".c...!|
|00002070| 63 88 c3 c4 20 b1 02 88 | c5 c6 20 b1 02 88 c7 c8 |c... ...|.. .....|
|00002080| 20 c9 ca 20 cb b1 05 87 | 22 20 5b 22 2d 2d 5c 6e | .. ....|" ["--\n|
|00002090| 2d 2d 20 20 54 69 74 6c | 65 3a 20 09 22 20 72 65 |--  Titl|e: ." re|
|000020a0| 61 64 2d 73 74 72 69 6e | 67 20 22 54 69 74 6c 65 |ad-strin|g "Title|
|000020b0| 3a 20 22 20 22 5c 6e 2d | 2d 20 20 43 72 65 61 74 |: " "\n-|-  Creat|
|000020c0| 65 64 3a 09 22 20 63 75 | 72 72 65 6e 74 2d 74 69 |ed:." cu|rrent-ti|
|000020d0| 6d 65 2d 73 74 72 69 6e | 67 20 22 5c 6e 2d 2d 20 |me-strin|g "\n-- |
|000020e0| 20 41 75 74 68 6f 72 3a | 20 09 22 20 75 73 65 72 | Author:| ." user|
|000020f0| 2d 66 75 6c 6c 2d 6e 61 | 6d 65 20 22 5c 6e 2d 2d |-full-na|me "\n--|
|00002100| 09 09 3c 22 20 75 73 65 | 72 2d 6c 6f 67 69 6e 2d |..<" use|r-login-|
|00002110| 6e 61 6d 65 20 22 40 22 | 20 73 79 73 74 65 6d 2d |name "@"| system-|
|00002120| 6e 61 6d 65 20 22 3e 5c | 6e 2d 2d 5c 6e 22 5d 20 |name ">\|n--\n"] |
|00002130| 35 20 22 5c 0a 49 6e 73 | 65 72 74 20 61 20 63 6f |5 "\.Ins|ert a co|
|00002140| 6d 6d 65 6e 74 20 62 6c | 6f 63 6b 20 63 6f 6e 74 |mment bl|ock cont|
|00002150| 61 69 6e 69 6e 67 20 74 | 68 65 20 6d 6f 64 75 6c |aining t|he modul|
|00002160| 65 20 74 69 74 6c 65 2c | 20 61 75 74 68 6f 72 2c |e title,| author,|
|00002170| 20 65 74 63 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 | etc." n|il]).(de|
|00002180| 66 61 6c 69 61 73 20 27 | 61 64 61 2d 69 66 20 23 |falias '|ada-if #|
|00002190| 5b 6e 69 6c 20 22 c0 63 | 88 c1 c2 21 c3 b1 02 88 |[nil ".c|...!....|
|000021a0| c4 20 88 c4 20 88 c5 63 | 88 c6 7f 88 c7 20 87 22 |. .. ..c|..... ."|
|000021b0| 20 5b 22 69 66 20 22 20 | 72 65 61 64 2d 73 74 72 | ["if " |read-str|
|000021c0| 69 6e 67 20 22 63 6f 6e | 64 69 74 69 6f 6e 3a 20 |ing "con|dition: |
|000021d0| 22 20 22 20 74 68 65 6e | 22 20 61 64 61 2d 6e 65 |" " then|" ada-ne|
|000021e0| 77 6c 69 6e 65 20 22 65 | 6e 64 20 69 66 3b 22 20 |wline "e|nd if;" |
|000021f0| 30 20 61 64 61 2d 74 61 | 62 5d 20 32 20 22 5c 0a |0 ada-ta|b] 2 "\.|
|00002200| 49 6e 73 65 72 74 20 73 | 6b 65 6c 65 74 6f 6e 20 |Insert s|keleton |
|00002210| 69 66 20 73 74 61 74 6d | 65 6e 74 2c 20 70 72 6f |if statm|ent, pro|
|00002220| 6d 70 74 69 6e 67 20 66 | 6f 72 20 61 20 62 6f 6f |mpting f|or a boo|
|00002230| 6c 65 61 6e 2d 65 78 70 | 72 65 73 73 69 6f 6e 2e |lean-exp|ression.|
|00002240| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00002250| 73 20 27 61 64 61 2d 65 | 6c 73 69 66 20 23 5b 6e |s 'ada-e|lsif #[n|
|00002260| 69 6c 20 22 c0 20 88 c1 | 63 88 c2 c3 21 c4 b1 02 |il ". ..|c...!...|
|00002270| 88 c5 20 88 c6 20 87 22 | 20 5b 61 64 61 2d 75 6e |.. .. ."| [ada-un|
|00002280| 74 61 62 20 22 65 6c 73 | 69 66 20 22 20 72 65 61 |tab "els|if " rea|
|00002290| 64 2d 73 74 72 69 6e 67 | 20 22 63 6f 6e 64 69 74 |d-string| "condit|
|000022a0| 69 6f 6e 3a 20 22 20 22 | 20 74 68 65 6e 22 20 61 |ion: " "| then" a|
|000022b0| 64 61 2d 6e 65 77 6c 69 | 6e 65 20 61 64 61 2d 74 |da-newli|ne ada-t|
|000022c0| 61 62 5d 20 32 20 22 5c | 0a 41 64 64 20 61 6e 20 |ab] 2 "\|.Add an |
|000022d0| 65 6c 73 69 66 20 63 6c | 61 75 73 65 20 74 6f 20 |elsif cl|ause to |
|000022e0| 61 6e 20 69 66 20 73 74 | 61 74 65 6d 65 6e 74 2c |an if st|atement,|
|000022f0| 20 70 72 6f 6d 70 74 69 | 6e 67 20 66 6f 72 20 74 | prompti|ng for t|
|00002300| 68 65 20 62 6f 6f 6c 65 | 61 6e 2d 65 78 70 72 65 |he boole|an-expre|
|00002310| 73 73 69 6f 6e 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |ssion." |nil]).(d|
|00002320| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 6c 6f 6f |efalias |'ada-loo|
|00002330| 70 20 23 5b 6e 69 6c 20 | 22 c0 63 88 c1 c2 21 89 |p #[nil |".c...!.|
|00002340| 1b c4 98 3f 89 1d 83 5c | 22 00 c6 79 88 c7 c8 21 |...?...\|"..y...!|
|00002350| 88 0b c9 b1 02 88 c8 79 | 88 c8 7f 88 ca 20 88 ca |.......y|..... ..|
|00002360| 20 88 cb 63 88 0d 83 34 | 00 cc 0b b1 02 88 cd 63 | ..c...4|.......c|
|00002370| 88 2a c6 7f 88 ce 20 87 | 22 20 5b 22 6c 6f 6f 70 |.*.... .|" ["loop|
|00002380| 20 22 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 22 | " read-|string "|
|00002390| 5b 6c 6f 6f 70 20 6e 61 | 6d 65 5d 3a 20 22 20 61 |[loop na|me]: " a|
|000023a0| 64 61 2d 6c 6f 6f 70 2d | 6e 61 6d 65 20 22 22 20 |da-loop-|name "" |
|000023b0| 61 64 61 2d 6c 6f 6f 70 | 2d 69 73 2d 6e 61 6d 65 |ada-loop|-is-name|
|000023c0| 64 20 30 20 6f 70 65 6e | 2d 6c 69 6e 65 20 31 20 |d 0 open|-line 1 |
|000023d0| 22 3a 22 20 61 64 61 2d | 6e 65 77 6c 69 6e 65 20 |":" ada-|newline |
|000023e0| 22 65 6e 64 20 6c 6f 6f | 70 22 20 22 20 22 20 22 |"end loo|p" " " "|
|000023f0| 3b 22 20 61 64 61 2d 74 | 61 62 5d 20 33 20 22 5c |;" ada-t|ab] 3 "\|
|00002400| 0a 49 6e 73 65 72 74 20 | 61 20 73 6b 65 6c 65 74 |.Insert |a skelet|
|00002410| 6f 6e 20 6c 6f 6f 70 20 | 73 74 61 74 65 6d 65 6e |on loop |statemen|
|00002420| 74 2e 20 20 54 68 65 20 | 65 78 69 74 20 73 74 61 |t.  The |exit sta|
|00002430| 74 65 6d 65 6e 74 20 69 | 73 20 61 64 64 65 64 20 |tement i|s added |
|00002440| 62 79 20 68 61 6e 64 2e | 22 20 6e 69 6c 5d 29 0a |by hand.|" nil]).|
|00002450| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 70 |(defalia|s 'ada-p|
|00002460| 61 63 6b 61 67 65 2d 73 | 70 65 63 20 23 5b 6e 69 |ackage-s|pec #[ni|
|00002470| 6c 20 22 c0 63 88 c1 c2 | 21 89 1b c4 b1 02 88 c5 |l ".c...|!.......|
|00002480| 20 88 c5 20 88 c6 0b c7 | b1 03 88 c8 7f 88 c9 20 | .. ....|....... |
|00002490| 29 87 22 20 5b 22 70 61 | 63 6b 61 67 65 20 22 20 |)." ["pa|ckage " |
|000024a0| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 70 61 63 |read-str|ing "pac|
|000024b0| 6b 61 67 65 20 6e 61 6d | 65 3a 20 22 20 61 64 61 |kage nam|e: " ada|
|000024c0| 2d 70 61 63 6b 61 67 65 | 2d 6e 61 6d 65 20 22 20 |-package|-name " |
|000024d0| 69 73 22 20 61 64 61 2d | 6e 65 77 6c 69 6e 65 20 |is" ada-|newline |
|000024e0| 22 65 6e 64 20 22 20 22 | 3b 22 20 30 20 61 64 61 |"end " "|;" 0 ada|
|000024f0| 2d 74 61 62 5d 20 34 20 | 22 5c 0a 49 6e 73 65 72 |-tab] 4 |"\.Inser|
|00002500| 74 20 61 20 73 6b 65 6c | 65 74 6f 6e 20 70 61 63 |t a skel|eton pac|
|00002510| 6b 61 67 65 20 73 70 65 | 63 69 66 69 63 61 74 69 |kage spe|cificati|
|00002520| 6f 6e 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |on." nil|]).(defa|
|00002530| 6c 69 61 73 20 27 61 64 | 61 2d 70 61 63 6b 61 67 |lias 'ad|a-packag|
|00002540| 65 2d 62 6f 64 79 20 23 | 5b 6e 69 6c 20 22 c0 63 |e-body #|[nil ".c|
|00002550| 88 c1 c2 21 89 1b c4 b1 | 02 88 c5 20 88 c5 20 88 |...!....|... .. .|
|00002560| c6 63 88 c5 20 88 c7 0b | c8 b1 03 88 c9 7f 88 ca |.c.. ...|........|
|00002570| 20 29 87 22 20 5b 22 70 | 61 63 6b 61 67 65 20 62 | )." ["p|ackage b|
|00002580| 6f 64 79 20 22 20 72 65 | 61 64 2d 73 74 72 69 6e |ody " re|ad-strin|
|00002590| 67 20 22 70 61 63 6b 61 | 67 65 20 6e 61 6d 65 3a |g "packa|ge name:|
|000025a0| 20 22 20 61 64 61 2d 70 | 61 63 6b 61 67 65 2d 6e | " ada-p|ackage-n|
|000025b0| 61 6d 65 20 22 20 69 73 | 22 20 61 64 61 2d 6e 65 |ame " is|" ada-ne|
|000025c0| 77 6c 69 6e 65 20 22 62 | 65 67 69 6e 22 20 22 65 |wline "b|egin" "e|
|000025d0| 6e 64 20 22 20 22 3b 22 | 20 2d 31 20 61 64 61 2d |nd " ";"| -1 ada-|
|000025e0| 74 61 62 5d 20 34 20 22 | 5c 0a 49 6e 73 65 72 74 |tab] 4 "|\.Insert|
|000025f0| 20 61 20 73 6b 65 6c 65 | 74 6f 6e 20 70 61 63 6b | a skele|ton pack|
|00002600| 61 67 65 20 62 6f 64 79 | 20 2d 2d 20 20 69 6e 63 |age body| --  inc|
|00002610| 6c 75 64 65 73 20 61 20 | 62 65 67 69 6e 20 73 74 |ludes a |begin st|
|00002620| 61 74 65 6d 65 6e 74 2e | 22 20 6e 69 6c 5d 29 0a |atement.|" nil]).|
|00002630| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 70 |(defalia|s 'ada-p|
|00002640| 72 69 76 61 74 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |rivate #|[nil ". |
|00002650| 88 c1 63 88 c2 20 88 c3 | 20 87 22 20 5b 61 64 61 |..c.. ..| ." [ada|
|00002660| 2d 75 6e 74 61 62 20 22 | 70 72 69 76 61 74 65 22 |-untab "|private"|
|00002670| 20 61 64 61 2d 6e 65 77 | 6c 69 6e 65 20 61 64 61 | ada-new|line ada|
|00002680| 2d 74 61 62 5d 20 31 20 | 22 5c 0a 55 6e 64 65 6e |-tab] 1 |"\.Unden|
|00002690| 74 20 61 6e 64 20 73 74 | 61 72 74 20 61 20 70 72 |t and st|art a pr|
|000026a0| 69 76 61 74 65 20 73 65 | 63 74 69 6f 6e 20 6f 66 |ivate se|ction of|
|000026b0| 20 61 20 70 61 63 6b 61 | 67 65 20 73 70 65 63 2e | a packa|ge spec.|
|000026c0| 20 52 65 69 6e 64 65 6e | 74 2e 22 20 6e 69 6c 5d | Reinden|t." nil]|
|000026d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |).(defal|ias 'ada|
|000026e0| 2d 67 65 74 2d 61 72 67 | 2d 6c 69 73 74 20 23 5b |-get-arg|-list #[|
|000026f0| 6e 69 6c 20 22 c0 63 88 | 69 c1 c2 21 1b 1c 0b c5 |nil ".c.|i..!....|
|00002700| 98 83 15 00 c6 c7 21 82 | 30 00 c8 c9 0b 5c 22 83 |......!.|0....\".|
|00002710| 2c 00 0b 63 88 ca 20 88 | 0c 6a 88 c1 cb 21 13 82 |,..c.. .|.j...!..|
|00002720| 15 00 0b cc b1 02 2a 87 | 22 20 5b 22 20 28 22 20 |......*.|" [" (" |
|00002730| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 5b 61 72 |read-str|ing "[ar|
|00002740| 67 75 6d 65 6e 74 73 5d | 3a 20 22 20 61 64 61 2d |guments]|: " ada-|
|00002750| 61 72 67 73 20 61 64 61 | 2d 61 72 67 2d 69 6e 64 |args ada|-arg-ind|
|00002760| 65 6e 74 20 22 22 20 62 | 61 63 6b 77 61 72 64 2d |ent "" b|ackward-|
|00002770| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 32 20 73 74 |delete-c|har 2 st|
|00002780| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 3b 24 22 20 |ring-mat|ch ";$" |
|00002790| 6e 65 77 6c 69 6e 65 20 | 22 6e 65 78 74 20 61 72 |newline |"next ar|
|000027a0| 67 75 6d 65 6e 74 3a 20 | 22 20 22 29 22 5d 20 33 |gument: |" ")"] 3|
|000027b0| 20 22 5c 0a 52 65 61 64 | 20 66 72 6f 6d 20 74 68 | "\.Read| from th|
|000027c0| 65 20 75 73 65 72 20 61 | 20 70 72 6f 63 65 64 75 |e user a| procedu|
|000027d0| 72 65 20 6f 72 20 66 75 | 6e 63 74 69 6f 6e 20 61 |re or fu|nction a|
|000027e0| 72 67 75 6d 65 6e 74 20 | 6c 69 73 74 2e 0a 41 64 |rgument |list..Ad|
|000027f0| 64 20 70 61 72 65 6e 73 | 20 75 6e 6c 65 73 73 20 |d parens| unless |
|00002800| 61 72 67 75 6d 65 6e 74 | 73 20 61 62 73 65 6e 74 |argument|s absent|
|00002810| 2c 20 61 6e 64 20 69 6e | 73 65 72 74 20 69 6e 74 |, and in|sert int|
|00002820| 6f 20 62 75 66 66 65 72 | 2e 0a 49 6e 64 69 76 69 |o buffer|..Indivi|
|00002830| 64 75 61 6c 20 61 72 67 | 75 6d 65 6e 74 73 20 61 |dual arg|uments a|
|00002840| 72 65 20 61 72 72 61 6e | 67 65 64 20 76 65 72 74 |re arran|ged vert|
|00002850| 69 63 61 6c 6c 79 20 69 | 66 20 65 6e 74 65 72 65 |ically i|f entere|
|00002860| 64 20 6f 6e 65 20 61 74 | 20 61 20 74 69 6d 65 2e |d one at| a time.|
|00002870| 0a 41 72 67 75 6d 65 6e | 74 73 20 65 6e 64 69 6e |.Argumen|ts endin|
|00002880| 67 20 77 69 74 68 20 60 | 3b 27 20 61 72 65 20 70 |g with `|;' are p|
|00002890| 72 65 73 75 6d 65 64 20 | 73 69 6e 67 6c 65 20 61 |resumed |single a|
|000028a0| 6e 64 20 73 74 61 63 6b | 65 64 2e 22 5d 29 0a 28 |nd stack|ed."]).(|
|000028b0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 61 2d 66 75 |defalias| 'ada-fu|
|000028c0| 6e 63 74 69 6f 6e 2d 73 | 70 65 63 20 23 5b 6e 69 |nction-s|pec #[ni|
|000028d0| 6c 20 22 c0 63 88 c1 c2 | 21 63 88 c3 20 88 c4 63 |l ".c...|!c.. ..c|
|000028e0| 88 c1 c5 21 63 87 22 20 | 5b 22 66 75 6e 63 74 69 |...!c." |["functi|
|000028f0| 6f 6e 20 22 20 72 65 61 | 64 2d 73 74 72 69 6e 67 |on " rea|d-string|
|00002900| 20 22 66 75 6e 63 74 69 | 6f 6e 20 6e 61 6d 65 3a | "functi|on name:|
|00002910| 20 22 20 61 64 61 2d 67 | 65 74 2d 61 72 67 2d 6c | " ada-g|et-arg-l|
|00002920| 69 73 74 20 22 20 72 65 | 74 75 72 6e 20 22 20 22 |ist " re|turn " "|
|00002930| 72 65 73 75 6c 74 20 74 | 79 70 65 3a 20 22 5d 20 |result t|ype: "] |
|00002940| 32 20 22 5c 0a 49 6e 73 | 65 72 74 20 61 20 66 75 |2 "\.Ins|ert a fu|
|00002950| 6e 63 74 69 6f 6e 20 73 | 70 65 63 69 66 69 63 61 |nction s|pecifica|
|00002960| 74 69 6f 6e 2e 20 20 50 | 72 6f 6d 70 74 73 20 66 |tion.  P|rompts f|
|00002970| 6f 72 20 6e 61 6d 65 20 | 61 6e 64 20 61 72 67 75 |or name |and argu|
|00002980| 6d 65 6e 74 73 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |ments." |nil]).(d|
|00002990| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 70 72 6f |efalias |'ada-pro|
|000029a0| 63 65 64 75 72 65 2d 73 | 70 65 63 20 23 5b 6e 69 |cedure-s|pec #[ni|
|000029b0| 6c 20 22 c0 63 88 c1 c2 | 21 63 88 c3 20 87 22 20 |l ".c...|!c.. ." |
|000029c0| 5b 22 70 72 6f 63 65 64 | 75 72 65 20 22 20 72 65 |["proced|ure " re|
|000029d0| 61 64 2d 73 74 72 69 6e | 67 20 22 70 72 6f 63 65 |ad-strin|g "proce|
|000029e0| 64 75 72 65 20 6e 61 6d | 65 3a 20 22 20 61 64 61 |dure nam|e: " ada|
|000029f0| 2d 67 65 74 2d 61 72 67 | 2d 6c 69 73 74 5d 20 32 |-get-arg|-list] 2|
|00002a00| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 70 72 6f | "\.Inse|rt a pro|
|00002a10| 63 65 64 75 72 65 20 73 | 70 65 63 69 66 69 63 61 |cedure s|pecifica|
|00002a20| 74 69 6f 6e 2c 20 70 72 | 6f 6d 70 74 69 6e 67 20 |tion, pr|ompting |
|00002a30| 66 6f 72 20 69 74 73 20 | 6e 61 6d 65 20 61 6e 64 |for its |name and|
|00002a40| 20 61 72 67 75 6d 65 6e | 74 73 2e 22 20 6e 69 6c | argumen|ts." nil|
|00002a50| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 65 |]).(defa|lias 'ge|
|00002a60| 74 2d 61 64 61 2d 73 75 | 62 70 72 6f 67 72 61 6d |t-ada-su|bprogram|
|00002a70| 2d 6e 61 6d 65 20 23 5b | 6e 69 6c 20 22 8a c0 19 |-name #[|nil "...|
|00002a80| c2 c3 c4 c5 23 83 31 00 | c6 c7 21 84 17 00 c6 c8 |....#.1.|..!.....|
|00002a90| 21 83 2c 00 69 11 c9 76 | 88 60 1e 5c 6e cb 76 88 |!.,.i..v|.`.\n.v.|
|00002aa0| 60 0e 5c 6e 7b 09 29 42 | 82 34 00 cc 20 82 34 00 |`.\n{.)B|.4.. .4.|
|00002ab0| cd 09 42 2a 87 22 20 5b | 30 20 61 64 61 2d 70 72 |..B*." [|0 ada-pr|
|00002ac0| 6f 63 2d 69 6e 64 65 6e | 74 20 72 65 2d 73 65 61 |oc-inden|t re-sea|
|00002ad0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 5b 50 |rch-back|ward "[P|
|00002ae0| 70 46 66 5d 5b 52 72 55 | 75 5d 5b 4f 6f 4e 6e 5d |pFf][RrU|u][OoNn]|
|00002af0| 5b 43 63 5d 5b 45 65 54 | 74 5d 5b 44 64 49 69 5d |[Cc][EeT|t][DdIi]|
|00002b00| 5b 55 75 4f 6f 5d 5b 52 | 72 4e 6e 5d 22 20 6e 69 |[UuOo][R|rNn]" ni|
|00002b10| 6c 20 74 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |l t look|ing-at "|
|00002b20| 5c 5c 3c 5b 50 70 5d 5b | 52 72 5d 5b 4f 6f 5d 5b |\\<[Pp][|Rr][Oo][|
|00002b30| 43 63 5d 5b 45 65 5d 5b | 44 64 5d 5b 55 75 5d 5b |Cc][Ee][|Dd][Uu][|
|00002b40| 52 72 5d 5b 45 65 5d 5c | 5c 3e 22 20 22 5c 5c 3c |Rr][Ee]\|\>" "\\<|
|00002b50| 5b 46 66 5d 5b 55 75 5d | 5b 4e 6e 5d 5b 43 63 5d |[Ff][Uu]|[Nn][Cc]|
|00002b60| 5b 54 74 5d 5b 49 69 5d | 5b 4f 6f 5d 5b 4e 6e 5d |[Tt][Ii]|[Oo][Nn]|
|00002b70| 5c 5c 3e 22 20 32 20 70 | 32 20 2d 31 20 67 65 74 |\\>" 2 p|2 -1 get|
|00002b80| 2d 61 64 61 2d 73 75 62 | 70 72 6f 67 72 61 6d 2d |-ada-sub|program-|
|00002b90| 6e 61 6d 65 20 22 4e 41 | 4d 45 3f 22 5d 20 34 20 |name "NA|ME?"] 4 |
|00002ba0| 22 5c 0a 52 65 74 75 72 | 6e 20 28 77 69 74 68 6f |"\.Retur|n (witho|
|00002bb0| 75 74 20 6d 6f 76 69 6e | 67 20 70 6f 69 6e 74 20 |ut movin|g point |
|00002bc0| 6f 72 20 6d 61 72 6b 29 | 20 61 20 70 61 69 72 20 |or mark)| a pair |
|00002bd0| 77 68 6f 73 65 20 43 41 | 52 20 69 73 20 74 68 65 |whose CA|R is the|
|00002be0| 20 6e 61 6d 65 20 6f 66 | 0a 74 68 65 20 66 75 6e | name of|.the fun|
|00002bf0| 63 74 69 6f 6e 20 6f 72 | 20 70 72 6f 63 65 64 75 |ction or| procedu|
|00002c00| 72 65 20 77 68 6f 73 65 | 20 73 70 65 63 20 69 6d |re whose| spec im|
|00002c10| 6d 65 64 69 61 74 65 6c | 79 20 70 72 65 63 65 64 |mediatel|y preced|
|00002c20| 65 73 20 70 6f 69 6e 74 | 2c 20 61 6e 64 20 77 68 |es point|, and wh|
|00002c30| 6f 73 65 0a 43 44 52 20 | 69 73 20 74 68 65 20 63 |ose.CDR |is the c|
|00002c40| 6f 6c 75 6d 6e 20 6e 75 | 6d 62 65 72 20 77 68 65 |olumn nu|mber whe|
|00002c50| 72 65 20 74 68 65 20 70 | 72 6f 63 65 64 75 72 65 |re the p|rocedure|
|00002c60| 2f 66 75 6e 63 74 69 6f | 6e 20 6b 65 79 77 6f 72 |/functio|n keywor|
|00002c70| 64 20 77 61 73 20 66 6f | 75 6e 64 2e 22 5d 29 0a |d was fo|und."]).|
|00002c80| 28 64 65 66 61 6c 69 61 | 73 20 27 61 64 61 2d 73 |(defalia|s 'ada-s|
|00002c90| 75 62 70 72 6f 67 72 61 | 6d 2d 62 6f 64 79 20 23 |ubprogra|m-body #|
|00002ca0| 5b 6e 69 6c 20 22 c0 63 | 88 c1 20 1a c3 20 88 5c |[nil ".c|.. .. .\|
|00002cb0| 6e 41 6a 88 c4 20 88 c5 | 63 88 c4 20 88 c4 20 88 |nAj.. ..|c.. .. .|
|00002cc0| c6 5c 6e 40 c7 b1 03 88 | 29 c8 7f 88 c9 20 87 22 |.\n@....|).... ."|
|00002cd0| 20 5b 22 20 69 73 22 20 | 67 65 74 2d 61 64 61 2d | [" is" |get-ada-|
|00002ce0| 73 75 62 70 72 6f 67 72 | 61 6d 2d 6e 61 6d 65 20 |subprogr|am-name |
|00002cf0| 61 64 61 2d 73 75 62 70 | 72 6f 67 72 61 6d 2d 6e |ada-subp|rogram-n|
|00002d00| 61 6d 65 2d 63 6f 6c 20 | 6e 65 77 6c 69 6e 65 20 |ame-col |newline |
|00002d10| 61 64 61 2d 6e 65 77 6c | 69 6e 65 20 22 62 65 67 |ada-newl|ine "beg|
|00002d20| 69 6e 22 20 22 65 6e 64 | 20 22 20 22 3b 22 20 2d |in" "end| " ";" -|
|00002d30| 32 20 61 64 61 2d 74 61 | 62 5d 20 33 20 22 5c 0a |2 ada-ta|b] 3 "\.|
|00002d40| 49 6e 73 65 72 74 20 66 | 72 61 6d 65 20 66 6f 72 |Insert f|rame for|
|00002d50| 20 73 75 62 70 72 6f 67 | 72 61 6d 20 62 6f 64 79 | subprog|ram body|
|00002d60| 2e 0a 49 6e 76 6f 6b 65 | 20 72 69 67 68 74 20 61 |..Invoke| right a|
|00002d70| 66 74 65 72 20 60 61 64 | 61 2d 66 75 6e 63 74 69 |fter `ad|a-functi|
|00002d80| 6f 6e 2d 73 70 65 63 27 | 20 6f 72 20 60 61 64 61 |on-spec'| or `ada|
|00002d90| 2d 70 72 6f 63 65 64 75 | 72 65 2d 73 70 65 63 27 |-procedu|re-spec'|
|00002da0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|00002db0| 61 73 20 27 61 64 61 2d | 73 65 70 61 72 61 74 65 |as 'ada-|separate|
|00002dc0| 20 23 5b 6e 69 6c 20 22 | c0 63 88 c1 20 88 c2 20 | #[nil "|.c.. .. |
|00002dd0| 88 c3 63 88 c1 20 88 c4 | 20 87 22 20 5b 22 20 69 |..c.. ..| ." [" i|
|00002de0| 73 22 20 61 64 61 2d 6e | 65 77 6c 69 6e 65 20 61 |s" ada-n|ewline a|
|00002df0| 64 61 2d 74 61 62 20 22 | 73 65 70 61 72 61 74 65 |da-tab "|separate|
|00002e00| 3b 22 20 61 64 61 2d 75 | 6e 74 61 62 5d 20 31 20 |;" ada-u|ntab] 1 |
|00002e10| 22 5c 0a 46 69 6e 69 73 | 68 20 61 20 62 6f 64 79 |"\.Finis|h a body|
|00002e20| 20 73 74 75 62 20 77 69 | 74 68 20 60 69 73 20 73 | stub wi|th `is s|
|00002e30| 65 70 61 72 61 74 65 27 | 2e 22 20 6e 69 6c 5d 29 |eparate'|." nil])|
|00002e40| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 64 61 2d |.(defali|as 'ada-|
|00002e50| 72 65 63 6f 72 64 20 23 | 5b 6e 69 6c 20 22 c0 63 |record #|[nil ".c|
|00002e60| 88 c1 20 88 c1 20 88 c2 | 63 88 c3 7f 88 c4 20 87 |.. .. ..|c..... .|
|00002e70| 22 20 5b 22 72 65 63 6f | 72 64 22 20 61 64 61 2d |" ["reco|rd" ada-|
|00002e80| 6e 65 77 6c 69 6e 65 20 | 22 65 6e 64 20 72 65 63 |newline |"end rec|
|00002e90| 6f 72 64 3b 22 20 30 20 | 61 64 61 2d 74 61 62 5d |ord;" 0 |ada-tab]|
|00002ea0| 20 31 20 22 5c 0a 49 6e | 73 65 72 74 20 61 20 73 | 1 "\.In|sert a s|
|00002eb0| 6b 65 6c 65 74 6f 6e 20 | 72 65 63 6f 72 64 20 74 |keleton |record t|
|00002ec0| 79 70 65 20 64 65 63 6c | 61 72 61 74 69 6f 6e 2e |ype decl|aration.|
|00002ed0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00002ee0| 73 20 27 61 64 61 2d 73 | 75 62 74 79 70 65 20 23 |s 'ada-s|ubtype #|
|00002ef0| 5b 6e 69 6c 20 22 c0 c1 | c2 21 c3 b1 03 88 c4 20 |[nil "..|.!..... |
|00002f00| 88 c5 c6 21 87 22 20 5b | 22 73 75 62 74 79 70 65 |...!." [|"subtype|
|00002f10| 20 22 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 22 | " read-|string "|
|00002f20| 73 75 62 74 79 70 65 20 | 6e 61 6d 65 3a 20 22 20 |subtype |name: " |
|00002f30| 22 20 69 73 20 3b 22 20 | 62 61 63 6b 77 61 72 64 |" is ;" |backward|
|00002f40| 2d 63 68 61 72 20 6d 65 | 73 73 61 67 65 20 22 69 |-char me|ssage "i|
|00002f50| 6e 73 65 72 74 20 73 75 | 62 74 79 70 65 20 69 6e |nsert su|btype in|
|00002f60| 64 69 63 61 74 69 6f 6e | 2e 22 5d 20 33 20 22 5c |dication|."] 3 "\|
|00002f70| 0a 53 74 61 72 74 20 69 | 6e 73 65 72 74 69 6f 6e |.Start i|nsertion|
|00002f80| 20 6f 66 20 61 20 73 75 | 62 74 79 70 65 20 64 65 | of a su|btype de|
|00002f90| 63 6c 61 72 61 74 69 6f | 6e 2c 20 70 72 6f 6d 70 |claratio|n, promp|
|00002fa0| 74 69 6e 67 20 66 6f 72 | 20 74 68 65 20 73 75 62 |ting for| the sub|
|00002fb0| 74 79 70 65 20 6e 61 6d | 65 2e 22 20 6e 69 6c 5d |type nam|e." nil]|
|00002fc0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 61 |).(defal|ias 'ada|
|00002fd0| 2d 74 79 70 65 20 23 5b | 6e 69 6c 20 22 c0 c1 c2 |-type #[|nil "...|
|00002fe0| 21 b1 02 88 c1 c3 21 89 | 1c c5 98 84 17 00 c6 0c |!.....!.|........|
|00002ff0| c7 b1 03 88 29 c8 63 88 | c9 ca 21 87 22 20 5b 22 |....).c.|..!." ["|
|00003000| 74 79 70 65 20 22 20 72 | 65 61 64 2d 73 74 72 69 |type " r|ead-stri|
|00003010| 6e 67 20 22 74 79 70 65 | 20 6e 61 6d 65 3a 20 22 |ng "type| name: "|
|00003020| 20 22 64 69 73 63 72 69 | 6d 69 6e 61 6e 74 20 73 | "discri|minant s|
|00003030| 70 65 63 73 3a 20 22 20 | 64 69 73 63 2d 70 61 72 |pecs: " |disc-par|
|00003040| 74 20 22 22 20 22 28 22 | 20 22 29 22 20 22 20 69 |t "" "("| ")" " i|
|00003050| 73 20 22 20 6d 65 73 73 | 61 67 65 20 22 69 6e 73 |s " mess|age "ins|
|00003060| 65 72 74 20 74 79 70 65 | 20 64 65 66 69 6e 69 74 |ert type| definit|
|00003070| 69 6f 6e 2e 22 5d 20 34 | 20 22 5c 0a 53 74 61 72 |ion."] 4| "\.Star|
|00003080| 74 20 69 6e 73 65 72 74 | 69 6f 6e 20 6f 66 20 61 |t insert|ion of a|
|00003090| 20 74 79 70 65 20 64 65 | 63 6c 61 72 61 74 69 6f | type de|claratio|
|000030a0| 6e 2c 20 70 72 6f 6d 70 | 74 69 6e 67 20 66 6f 72 |n, promp|ting for|
|000030b0| 20 74 68 65 20 74 79 70 | 65 20 6e 61 6d 65 2e 22 | the typ|e name."|
|000030c0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000030d0| 20 28 71 75 6f 74 65 20 | 61 64 61 2d 77 68 69 6c | (quote |ada-whil|
|000030e0| 65 2d 6c 6f 6f 70 29 20 | 23 5b 6e 69 6c 20 22 c0 |e-loop) |#[nil ".|
|000030f0| 63 88 c1 c2 21 89 1b c4 | 98 3f 89 1d 83 23 00 c6 |c...!...|.?...#..|
|00003100| 79 88 c7 c8 21 88 0b c9 | b1 02 88 ca c8 21 88 c8 |y...!...|.....!..|
|00003110| 7f 88 c1 cb 21 cc b1 02 | 88 cd 20 88 cd 20 88 ce |....!...|.. .. ..|
|00003120| 63 88 0d 83 3c 00 cf 0b | b1 02 88 d0 63 88 2a c6 |c...<...|....c.*.|
|00003130| 7f 88 d1 20 87 22 20 5b | 22 77 68 69 6c 65 20 22 |... ." [|"while "|
|00003140| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 6c 6f | read-st|ring "lo|
|00003150| 6f 70 20 6e 61 6d 65 3a | 20 22 20 61 64 61 2d 6c |op name:| " ada-l|
|00003160| 6f 6f 70 2d 6e 61 6d 65 | 20 22 22 20 61 64 61 2d |oop-name| "" ada-|
|00003170| 6c 6f 6f 70 2d 69 73 2d | 6e 61 6d 65 64 20 30 20 |loop-is-|named 0 |
|00003180| 6f 70 65 6e 2d 6c 69 6e | 65 20 31 20 22 3a 22 20 |open-lin|e 1 ":" |
|00003190| 6e 65 78 74 2d 6c 69 6e | 65 20 22 65 6e 74 72 79 |next-lin|e "entry|
|000031a0| 20 63 6f 6e 64 69 74 69 | 6f 6e 3a 20 22 20 22 20 | conditi|on: " " |
|000031b0| 6c 6f 6f 70 22 20 61 64 | 61 2d 6e 65 77 6c 69 6e |loop" ad|a-newlin|
|000031c0| 65 20 22 65 6e 64 20 6c | 6f 6f 70 22 20 22 20 22 |e "end l|oop" " "|
|000031d0| 20 22 3b 22 20 61 64 61 | 2d 74 61 62 5d 20 33 20 | ";" ada|-tab] 3 |
|000031e0| 6e 69 6c 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |nil nil]|).(defal|
|000031f0| 69 61 73 20 27 61 64 61 | 2d 70 61 69 72 65 64 2d |ias 'ada|-paired-|
|00003200| 70 61 72 65 6e 73 20 23 | 5b 6e 69 6c 20 22 c0 63 |parens #|[nil ".c|
|00003210| 88 c1 20 87 22 20 5b 22 | 28 29 22 20 62 61 63 6b |.. ." ["|()" back|
|00003220| 77 61 72 64 2d 63 68 61 | 72 5d 20 31 20 22 5c 0a |ward-cha|r] 1 "\.|
|00003230| 49 6e 73 65 72 74 20 61 | 20 70 61 69 72 20 6f 66 |Insert a| pair of|
|00003240| 20 72 6f 75 6e 64 20 70 | 61 72 65 6e 74 68 65 73 | round p|arenthes|
|00003250| 65 73 2c 20 70 6c 61 63 | 69 6e 67 20 70 6f 69 6e |es, plac|ing poin|
|00003260| 74 20 62 65 74 77 65 65 | 6e 20 74 68 65 6d 2e 22 |t betwee|n them."|
|00003270| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00003280| 20 27 61 64 61 2d 69 6e | 6c 69 6e 65 2d 63 6f 6d | 'ada-in|line-com|
|00003290| 6d 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 7f 88 69 |ment #[n|il "...i|
|000032a0| 09 56 83 0c 00 c2 20 88 | 69 0b 57 83 15 00 0b 6a |.V.... .|i.W....j|
|000032b0| 88 c4 63 87 22 20 5b 6e | 69 6c 20 65 6e 64 2d 63 |..c." [n|il end-c|
|000032c0| 6f 6d 6d 65 6e 74 2d 63 | 6f 6c 75 6d 6e 20 6e 65 |omment-c|olumn ne|
|000032d0| 77 6c 69 6e 65 20 63 6f | 6d 6d 65 6e 74 2d 63 6f |wline co|mment-co|
|000032e0| 6c 75 6d 6e 20 22 20 2d | 2d 20 22 5d 20 32 20 22 |lumn " -|- "] 2 "|
|000032f0| 5c 0a 53 74 61 72 74 20 | 61 20 63 6f 6d 6d 65 6e |\.Start |a commen|
|00003300| 74 20 61 66 74 65 72 20 | 74 68 65 20 65 6e 64 20 |t after |the end |
|00003310| 6f 66 20 74 68 65 20 6c | 69 6e 65 2c 20 69 6e 64 |of the l|ine, ind|
|00003320| 65 6e 74 65 64 20 61 74 | 20 6c 65 61 73 74 0a 60 |ented at| least.`|
|00003330| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 27 20 |comment-|column' |
|00003340| 73 70 61 63 65 73 2e 20 | 20 49 66 20 73 74 61 72 |spaces. | If star|
|00003350| 74 69 6e 67 20 61 66 74 | 65 72 20 60 65 6e 64 2d |ting aft|er `end-|
|00003360| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 27 2c |comment-|column',|
|00003370| 0a 73 74 61 72 74 20 61 | 20 6e 65 77 20 6c 69 6e |.start a| new lin|
|00003380| 65 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |e." nil]|).(defal|
|00003390| 69 61 73 20 27 61 64 61 | 2d 64 69 73 70 6c 61 79 |ias 'ada|-display|
|000033a0| 2d 63 6f 6d 6d 65 6e 74 | 20 23 5b 6e 69 6c 20 22 |-comment| #[nil "|
|000033b0| c0 63 88 c1 7f 87 22 20 | 5b 22 2d 2d 5c 6e 2d 2d |.c...." |["--\n--|
|000033c0| 20 5c 6e 2d 2d 22 20 30 | 5d 20 31 20 22 5c 0a 49 | \n--" 0|] 1 "\.I|
|000033d0| 6e 73 65 72 74 73 20 74 | 68 72 65 65 20 63 6f 6d |nserts t|hree com|
|000033e0| 6d 65 6e 74 20 6c 69 6e | 65 73 2c 20 6d 61 6b 69 |ment lin|es, maki|
|000033f0| 6e 67 20 61 20 64 69 73 | 70 6c 61 79 20 63 6f 6d |ng a dis|play com|
|00003400| 6d 65 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ment." n|il]).(de|
|00003410| 66 76 61 72 20 61 64 61 | 2d 6c 69 62 2d 64 69 72 |fvar ada|-lib-dir|
|00003420| 2d 6e 61 6d 65 20 22 6c | 69 62 22 20 22 5c 0a 2a |-name "l|ib" "\.*|
|00003430| 43 75 72 72 65 6e 74 20 | 41 64 61 20 70 72 6f 67 |Current |Ada prog|
|00003440| 72 61 6d 20 6c 69 62 72 | 61 72 79 20 64 69 72 65 |ram libr|ary dire|
|00003450| 63 74 6f 72 79 2e 22 29 | 0a 28 64 65 66 76 61 72 |ctory.")|.(defvar|
|00003460| 20 61 64 61 2d 62 69 6e | 64 2d 6f 70 74 73 20 22 | ada-bin|d-opts "|
|00003470| 22 20 22 5c 0a 2a 4f 70 | 74 69 6f 6e 73 20 74 6f |" "\.*Op|tions to|
|00003480| 20 73 75 70 70 6c 79 20 | 66 6f 72 20 62 69 6e 64 | supply |for bind|
|00003490| 69 6e 67 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |ing.").(|defalias|
|000034a0| 20 27 61 64 61 2d 6c 69 | 62 72 61 72 79 2d 6e 61 | 'ada-li|brary-na|
|000034b0| 6d 65 20 23 5b 28 61 64 | 61 2d 6c 69 62 2d 6e 61 |me #[(ad|a-lib-na|
|000034c0| 6d 65 29 20 22 08 89 11 | 87 22 20 5b 61 64 61 2d |me) "...|." [ada-|
|000034d0| 6c 69 62 2d 6e 61 6d 65 | 20 61 64 61 2d 6c 69 62 |lib-name| ada-lib|
|000034e0| 2d 64 69 72 2d 6e 61 6d | 65 5d 20 32 20 22 5c 0a |-dir-nam|e] 2 "\.|
|000034f0| 53 70 65 63 69 66 79 20 | 6e 61 6d 65 20 6f 66 20 |Specify |name of |
|00003500| 41 64 61 20 6c 69 62 72 | 61 72 79 20 64 69 72 65 |Ada libr|ary dire|
|00003510| 63 74 6f 72 79 20 66 6f | 72 20 6c 61 74 65 72 20 |ctory fo|r later |
|00003520| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 73 2e 22 20 22 |compilat|ions." "|
|00003530| 44 4e 61 6d 65 20 6f 66 | 20 41 64 61 20 6c 69 62 |DName of| Ada lib|
|00003540| 72 61 72 79 20 64 69 72 | 65 63 74 6f 72 79 3a 20 |rary dir|ectory: |
|00003550| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |"]).(def|alias 'a|
|00003560| 64 61 2d 6f 70 74 69 6f | 6e 73 2d 66 6f 72 2d 62 |da-optio|ns-for-b|
|00003570| 69 6e 64 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 89 12 |ind #[ni|l "..!..|
|00003580| 87 22 20 5b 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |." [read|-string |
|00003590| 22 2d 6d 20 61 6e 64 20 | 2d 69 20 6f 70 74 69 6f |"-m and |-i optio|
|000035a0| 6e 73 20 66 6f 72 20 60 | 61 64 61 2d 62 69 6e 64 |ns for `|ada-bind|
|000035b0| 27 3a 20 22 20 61 64 61 | 2d 62 69 6e 64 2d 6f 70 |': " ada|-bind-op|
|000035c0| 74 73 5d 20 32 20 22 5c | 0a 53 70 65 63 69 66 79 |ts] 2 "\|.Specify|
|000035d0| 20 6f 70 74 69 6f 6e 73 | 2c 20 73 75 63 68 20 61 | options|, such a|
|000035e0| 73 20 2d 6d 20 61 6e 64 | 20 2d 69 2c 20 6e 65 65 |s -m and| -i, nee|
|000035f0| 64 65 64 20 66 6f 72 20 | 60 61 64 61 2d 62 69 6e |ded for |`ada-bin|
|00003600| 64 27 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |d'."]).(|defalias|
|00003610| 20 27 61 64 61 2d 63 6f | 6d 70 69 6c 65 20 23 5b | 'ada-co|mpile #[|
|00003620| 28 61 72 67 29 20 22 08 | 84 08 00 c1 82 09 00 c2 |(arg) ".|........|
|00003630| 1b c4 20 1d c6 c7 0b c8 | 0e 09 ca 0d b0 06 21 2a |.. .....|......!*|
|00003640| 87 22 20 5b 61 72 67 20 | 22 22 20 22 2d 6e 20 22 |." [arg |"" "-n "|
|00003650| 20 61 64 61 2d 69 6e 69 | 74 20 62 75 66 66 65 72 | ada-ini|t buffer|
|00003660| 2d 6e 61 6d 65 20 61 64 | 61 2d 73 6f 75 72 63 65 |-name ad|a-source|
|00003670| 2d 66 69 6c 65 20 63 6f | 6d 70 69 6c 65 20 22 61 |-file co|mpile "a|
|00003680| 64 61 63 6f 6d 70 20 22 | 20 22 2d 6c 20 22 20 61 |dacomp "| "-l " a|
|00003690| 64 61 2d 6c 69 62 2d 64 | 69 72 2d 6e 61 6d 65 20 |da-lib-d|ir-name |
|000036a0| 22 20 22 5d 20 37 20 22 | 5c 0a 53 61 76 65 20 74 |" "] 7 "|\.Save t|
|000036b0| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|000036c0| 72 20 61 6e 64 20 63 6f | 6d 70 69 6c 65 20 69 74 |r and co|mpile it|
|000036d0| 20 69 6e 74 6f 20 74 68 | 65 20 63 75 72 72 65 6e | into th|e curren|
|000036e0| 74 20 70 72 6f 67 72 61 | 6d 20 6c 69 62 72 61 72 |t progra|m librar|
|000036f0| 79 2e 0a 49 6e 69 74 69 | 61 6c 69 7a 65 20 74 68 |y..Initi|alize th|
|00003700| 65 20 6c 69 62 72 61 72 | 79 20 69 66 20 61 20 70 |e librar|y if a p|
|00003710| 72 65 66 69 78 20 61 72 | 67 20 69 73 20 67 69 76 |refix ar|g is giv|
|00003720| 65 6e 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |en." "P"|]).(defa|
|00003730| 6c 69 61 73 20 27 61 64 | 61 2d 66 69 6e 64 2d 6c |lias 'ad|a-find-l|
|00003740| 69 73 74 69 6e 67 20 23 | 5b 6e 69 6c 20 22 c0 c1 |isting #|[nil "..|
|00003750| 20 c2 c3 4f c4 50 21 88 | c5 c6 21 87 22 20 5b 66 | ..O.P!.|..!." [f|
|00003760| 69 6e 64 2d 66 69 6c 65 | 2d 6f 74 68 65 72 2d 77 |ind-file|-other-w|
|00003770| 69 6e 64 6f 77 20 62 75 | 66 66 65 72 2d 6e 61 6d |indow bu|ffer-nam|
|00003780| 65 20 30 20 2d 34 20 22 | 2e 6c 69 73 22 20 73 65 |e 0 -4 "|.lis" se|
|00003790| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 2a 2a |arch-for|ward "**|
|000037a0| 2a 20 45 52 52 4f 52 22 | 5d 20 34 20 22 5c 0a 46 |* ERROR"|] 4 "\.F|
|000037b0| 69 6e 64 20 6c 69 73 74 | 69 6e 67 20 66 69 6c 65 |ind list|ing file|
|000037c0| 20 66 6f 72 20 61 64 61 | 20 73 6f 75 72 63 65 20 | for ada| source |
|000037d0| 69 6e 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |in curre|nt buffe|
|000037e0| 72 2c 20 75 73 69 6e 67 | 20 6f 74 68 65 72 20 77 |r, using| other w|
|000037f0| 69 6e 64 6f 77 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |indow." |nil]).(d|
|00003800| 65 66 61 6c 69 61 73 20 | 27 61 64 61 2d 62 69 6e |efalias |'ada-bin|
|00003810| 64 20 23 5b 6e 69 6c 20 | 22 c0 c1 5c 6e c3 0c 52 |d #[nil |"..\n..R|
|00003820| 21 87 22 20 5b 63 6f 6d | 70 69 6c 65 20 22 61 64 |!." [com|pile "ad|
|00003830| 61 62 69 6e 64 20 22 20 | 61 64 61 2d 62 69 6e 64 |abind " |ada-bind|
|00003840| 2d 6f 70 74 73 20 22 20 | 22 20 61 64 61 2d 6c 69 |-opts " |" ada-li|
|00003850| 62 2d 64 69 72 2d 6e 61 | 6d 65 5d 20 35 20 22 5c |b-dir-na|me] 5 "\|
|00003860| 0a 42 69 6e 64 20 74 68 | 65 20 63 75 72 72 65 6e |.Bind th|e curren|
|00003870| 74 20 70 72 6f 67 72 61 | 6d 20 6c 69 62 72 61 72 |t progra|m librar|
|00003880| 79 2c 20 75 73 69 6e 67 | 20 74 68 65 20 63 75 72 |y, using| the cur|
|00003890| 72 65 6e 74 20 62 69 6e | 64 69 6e 67 20 6f 70 74 |rent bin|ding opt|
|000038a0| 69 6f 6e 73 2e 22 20 6e | 69 6c 5d 29 0a          |ions." n|il]).   |
+--------+-------------------------+-------------------------+--------+--------+