/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / modes / 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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 36 3a 33 38 20 |Feb  1 1|8:56:38 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 6d 6f 64 | 65 73 2f 61 64 61 2e 65 |lisp/mod|es/ada.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 34 | 2e 31 33 20 4c 75 63 69 |ion 19.4|.13 Luci|
|000000a0| 64 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |d..;;; b|ytecomp |
|000000b0| 76 65 72 73 69 6f 6e 20 | 32 2e 31 30 3b 20 20 31 |version |2.10;  1|
|000000c0| 2d 66 65 62 2d 39 33 2e | 0a 3b 3b 3b 20 6f 70 74 |-feb-93.|.;;; opt|
|000000d0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000e0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000f0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000100| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000110| 6e 20 45 6d 61 63 73 31 | 38 2e 0a 0a 28 69 66 20 |n Emacs1|8...(if |
|00000120| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000130| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000140| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000150| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000160| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000170| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000180| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000190| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|000001a0| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001b0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001c0| 72 20 45 6d 61 63 73 31 | 39 2e 22 29 29 0a 0a 28 |r Emacs1|9."))..(|
|000001d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 42 5c 6e |byte-cod|e "..B\n|
|000001e0| 42 12 c1 87 22 20 5b 22 | 5c 5c 2e 61 64 61 24 22 |B..." ["|\\.ada$"|
|000001f0| 20 61 64 61 2d 6d 6f 64 | 65 20 61 75 74 6f 2d 6d | ada-mod|e auto-m|
|00000200| 6f 64 65 2d 61 6c 69 73 | 74 5d 20 32 29 0a 28 64 |ode-alis|t] 2).(d|
|00000210| 65 66 76 61 72 20 61 64 | 61 2d 6d 6f 64 65 2d 73 |efvar ad|a-mode-s|
|00000220| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6e 69 6c 20 |yntax-ta|ble nil |
|00000230| 22 5c 0a 53 79 6e 74 61 | 78 20 74 61 62 6c 65 20 |"\.Synta|x table |
|00000240| 69 6e 20 75 73 65 20 69 | 6e 20 41 64 61 2d 6d 6f |in use i|n Ada-mo|
|00000250| 64 65 20 62 75 66 66 65 | 72 73 2e 22 29 0a 28 62 |de buffe|rs.").(b|
|00000260| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 19 c2 c3 c4 |yte-code| ". ....|
|00000270| 09 23 88 c2 c5 c4 09 23 | 88 c2 c6 c7 09 23 88 c2 |.#.....#|.....#..|
|00000280| c8 c9 09 23 88 c2 ca cb | 09 23 88 c2 cc cb 09 23 |...#....|.#.....#|
|00000290| 88 c2 cd cb 09 23 88 c2 | ce cb 09 23 88 c2 cf cb |.....#..|...#....|
|000002a0| 09 23 88 c2 d0 cb 09 23 | 88 c2 d1 cb 09 23 88 c2 |.#.....#|.....#..|
|000002b0| d2 cb 09 23 88 c2 d3 cb | 09 23 88 c2 d4 cb 09 23 |...#....|.#.....#|
|000002c0| 88 c2 d5 cb 09 23 88 c2 | d6 cb 09 23 88 c2 d7 cb |.....#..|...#....|
|000002d0| 09 23 88 c2 d8 cb 09 23 | 88 c2 d9 cb 09 23 88 c2 |.#.....#|.....#..|
|000002e0| da cb 09 23 88 c2 db cb | 09 23 88 c2 dc cb 09 23 |...#....|.#.....#|
|000002f0| 88 c2 dd cb 09 23 88 c2 | de df 09 23 88 09 16 20 |.....#..|...#... |
|00000300| 29 c0 87 22 20 5b 6d 61 | 6b 65 2d 73 79 6e 74 61 |).." [ma|ke-synta|
|00000310| 78 2d 74 61 62 6c 65 20 | 74 61 62 6c 65 20 6d 6f |x-table |table mo|
|00000320| 64 69 66 79 2d 73 79 6e | 74 61 78 2d 65 6e 74 72 |dify-syn|tax-entr|
|00000330| 79 20 39 35 20 22 5f 22 | 20 33 35 20 34 30 20 22 |y 95 "_"| 35 40 "|
|00000340| 28 29 22 20 34 31 20 22 | 29 28 22 20 33 36 20 22 |()" 41 "|)(" 36 "|
|00000350| 2e 22 20 34 32 20 34 37 | 20 34 33 20 34 35 20 36 |." 42 47| 43 45 6|
|00000360| 31 20 33 38 20 31 32 34 | 20 36 30 20 36 32 20 39 |1 38 124| 60 62 9|
|00000370| 31 20 39 33 20 31 32 33 | 20 31 32 35 20 34 36 20 |1 93 123| 125 46 |
|00000380| 39 32 20 35 38 20 35 39 | 20 33 39 20 33 34 20 22 |92 58 59| 39 34 "|
|00000390| 5c 22 22 20 61 64 61 2d | 6d 6f 64 65 2d 73 79 6e |\"" ada-|mode-syn|
|000003a0| 74 61 78 2d 74 61 62 6c | 65 5d 20 34 29 0a 28 64 |tax-tabl|e] 4).(d|
|000003b0| 65 66 76 61 72 20 61 64 | 61 2d 6d 6f 64 65 2d 6d |efvar ad|a-mode-m|
|000003c0| 61 70 20 6e 69 6c 20 22 | 5c 0a 4b 65 79 6d 61 70 |ap nil "|\.Keymap|
|000003d0| 20 75 73 65 64 20 69 6e | 20 41 64 61 20 6d 6f 64 | used in| Ada mod|
|000003e0| 65 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e.").(by|te-code |
|000003f0| 22 c0 20 19 c2 09 c3 c4 | 23 88 c2 09 c5 c6 23 88 |". .....|#.....#.|
|00000400| c2 09 c7 c8 23 88 c2 09 | c9 ca 23 88 c2 09 cb cc |....#...|..#.....|
|00000410| 23 88 c2 09 cd ce 23 88 | c2 09 cf d0 23 88 c2 09 |#.....#.|....#...|
|00000420| d1 d2 23 88 c2 09 d3 d4 | 23 88 c2 09 d5 d6 23 88 |..#.....|#.....#.|
|00000430| c2 09 d7 d8 23 88 c2 09 | d9 da 23 88 c2 09 db dc |....#...|..#.....|
|00000440| 23 88 c2 09 dd de 23 88 | c2 09 df e0 23 88 c2 09 |#.....#.|....#...|
|00000450| e1 e2 23 88 c2 09 e3 e4 | 23 88 c2 09 e5 e6 23 88 |..#.....|#.....#.|
|00000460| c2 09 e7 e8 23 88 c2 09 | e9 ea 23 88 c2 09 eb ec |....#...|..#.....|
|00000470| 23 88 c2 09 ed ee 23 88 | c2 09 ef f0 23 88 c2 09 |#.....#.|....#...|
|00000480| f1 f2 23 88 c2 09 f3 f4 | 23 88 c2 09 f5 f6 23 88 |..#.....|#.....#.|
|00000490| c2 09 f7 f8 23 88 c2 09 | f9 fa 23 88 c2 09 fb fc |....#...|..#.....|
|000004a0| 23 88 c2 09 fd fe 23 88 | c2 09 ff 81 40 00 23 88 |#.....#.|....@.#.|
|000004b0| c2 09 81 41 00 81 42 00 | 23 88 c2 09 81 43 00 81 |...A..B.|#....C..|
|000004c0| 44 00 23 88 c2 09 81 45 | 00 81 46 00 23 88 c2 09 |D.#....E|..F.#...|
|000004d0| 81 47 00 81 48 00 23 88 | c2 09 81 49 00 81 4a 00 |.G..H.#.|...I..J.|
|000004e0| 23 88 c2 09 81 4b 00 81 | 4c 00 23 88 c2 09 81 4d |#....K..|L.#....M|
|000004f0| 00 81 4e 00 23 88 09 16 | 4f 29 c0 87 22 20 5b 6d |..N.#...|O).." [m|
|00000500| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|00000510| 70 20 6d 61 70 20 64 65 | 66 69 6e 65 2d 6b 65 79 |p map de|fine-key|
|00000520| 20 22 0d 22 20 61 64 61 | 2d 6e 65 77 6c 69 6e 65 | "." ada|-newline|
|00000530| 20 22 7f 22 20 62 61 63 | 6b 77 61 72 64 2d 64 65 | "." bac|kward-de|
|00000540| 6c 65 74 65 2d 63 68 61 | 72 2d 75 6e 74 61 62 69 |lete-cha|r-untabi|
|00000550| 66 79 20 22 09 22 20 61 | 64 61 2d 74 61 62 20 22 |fy "." a|da-tab "|
|00000560| 03 09 22 20 61 64 61 2d | 75 6e 74 61 62 20 22 03 |.." ada-|untab ".|
|00000570| 3c 22 20 61 64 61 2d 62 | 61 63 6b 77 61 72 64 2d |<" ada-b|ackward-|
|00000580| 74 6f 2d 73 61 6d 65 2d | 69 6e 64 65 6e 74 20 22 |to-same-|indent "|
|00000590| 03 3e 22 20 61 64 61 2d | 66 6f 72 77 61 72 64 2d |.>" ada-|forward-|
|000005a0| 74 6f 2d 73 61 6d 65 2d | 69 6e 64 65 6e 74 20 22 |to-same-|indent "|
|000005b0| 03 68 22 20 61 64 61 2d | 68 65 61 64 65 72 20 22 |.h" ada-|header "|
|000005c0| 03 28 22 20 61 64 61 2d | 70 61 69 72 65 64 2d 70 |.(" ada-|paired-p|
|000005d0| 61 72 65 6e 73 20 22 03 | 2d 22 20 61 64 61 2d 69 |arens ".|-" ada-i|
|000005e0| 6e 6c 69 6e 65 2d 63 6f | 6d 6d 65 6e 74 20 22 03 |nline-co|mment ".|
|000005f0| 01 22 20 61 64 61 2d 61 | 72 72 61 79 20 22 03 62 |." ada-a|rray ".b|
|00000600| 22 20 61 64 61 2d 65 78 | 63 65 70 74 69 6f 6e 2d |" ada-ex|ception-|
|00000610| 62 6c 6f 63 6b 20 22 03 | 64 22 20 61 64 61 2d 64 |block ".|d" ada-d|
|00000620| 65 63 6c 61 72 65 2d 62 | 6c 6f 63 6b 20 22 03 05 |eclare-b|lock "..|
|00000630| 22 20 61 64 61 2d 65 78 | 63 65 70 74 69 6f 6e 20 |" ada-ex|ception |
|00000640| 22 03 63 22 20 61 64 61 | 2d 63 61 73 65 20 22 03 |".c" ada|-case ".|
|00000650| 0b 22 20 61 64 61 2d 70 | 61 63 6b 61 67 65 2d 73 |." ada-p|ackage-s|
|00000660| 70 65 63 20 22 03 6b 22 | 20 61 64 61 2d 70 61 63 |pec ".k"| ada-pac|
|00000670| 6b 61 67 65 2d 62 6f 64 | 79 20 22 03 10 22 20 61 |kage-bod|y ".." a|
|00000680| 64 61 2d 70 72 6f 63 65 | 64 75 72 65 2d 73 70 65 |da-proce|dure-spe|
|00000690| 63 20 22 03 70 22 20 61 | 64 61 2d 73 75 62 70 72 |c ".p" a|da-subpr|
|000006a0| 6f 67 72 61 6d 2d 62 6f | 64 79 20 22 03 06 22 20 |ogram-bo|dy ".." |
|000006b0| 61 64 61 2d 66 75 6e 63 | 74 69 6f 6e 2d 73 70 65 |ada-func|tion-spe|
|000006c0| 63 20 22 03 66 22 20 61 | 64 61 2d 66 6f 72 2d 6c |c ".f" a|da-for-l|
|000006d0| 6f 6f 70 20 22 03 6c 22 | 20 61 64 61 2d 6c 6f 6f |oop ".l"| ada-loo|
|000006e0| 70 20 22 03 69 22 20 61 | 64 61 2d 69 66 20 22 03 |p ".i" a|da-if ".|
|000006f0| 49 22 20 61 64 61 2d 65 | 6c 73 69 66 20 22 03 65 |I" ada-e|lsif ".e|
|00000700| 22 20 61 64 61 2d 65 6c | 73 65 20 22 03 16 22 20 |" ada-el|se ".." |
|00000710| 61 64 61 2d 70 72 69 76 | 61 74 65 20 22 03 12 22 |ada-priv|ate ".."|
|00000720| 20 61 64 61 2d 72 65 63 | 6f 72 64 20 22 03 13 22 | ada-rec|ord ".."|
|00000730| 20 61 64 61 2d 73 75 62 | 74 79 70 65 20 22 03 73 | ada-sub|type ".s|
|00000740| 22 20 61 64 61 2d 73 65 | 70 61 72 61 74 65 20 22 |" ada-se|parate "|
|00000750| 03 14 22 20 61 64 61 2d | 74 79 70 65 20 22 03 74 |.." ada-|type ".t|
|00000760| 22 20 61 64 61 2d 74 61 | 62 73 69 7a 65 20 22 03 |" ada-ta|bsize ".|
|00000770| 77 22 20 61 64 61 2d 77 | 68 69 6c 65 2d 6c 6f 6f |w" ada-w|hile-loo|
|00000780| 70 20 22 03 17 22 20 61 | 64 61 2d 77 68 65 6e 20 |p ".." a|da-when |
|00000790| 22 03 78 22 20 61 64 61 | 2d 65 78 69 74 20 22 03 |".x" ada|-exit ".|
|000007a0| 43 22 20 61 64 61 2d 63 | 6f 6d 70 69 6c 65 20 22 |C" ada-c|ompile "|
|000007b0| 03 42 22 20 61 64 61 2d | 62 69 6e 64 20 22 03 45 |.B" ada-|bind ".E|
|000007c0| 22 20 61 64 61 2d 66 69 | 6e 64 2d 6c 69 73 74 69 |" ada-fi|nd-listi|
|000007d0| 6e 67 20 22 03 4c 22 20 | 61 64 61 2d 6c 69 62 72 |ng ".L" |ada-libr|
|000007e0| 61 72 79 2d 6e 61 6d 65 | 20 22 03 4f 22 20 61 64 |ary-name| ".O" ad|
|000007f0| 61 2d 6f 70 74 69 6f 6e | 73 2d 66 6f 72 2d 62 69 |a-option|s-for-bi|
|00000800| 6e 64 20 61 64 61 2d 6d | 6f 64 65 2d 6d 61 70 5d |nd ada-m|ode-map]|
|00000810| 20 34 29 0a 28 64 65 66 | 76 61 72 20 61 64 61 2d | 4).(def|var ada-|
|00000820| 69 6e 64 65 6e 74 20 34 | 20 22 5c 0a 2a 56 61 6c |indent 4| "\.*Val|
|00000830| 75 65 20 69 73 20 74 68 | 65 20 6e 75 6d 62 65 72 |ue is th|e number|
|00000840| 20 6f 66 20 63 6f 6c 75 | 6d 6e 73 20 74 6f 20 69 | of colu|mns to i|
|00000850| 6e 64 65 6e 74 20 69 6e | 20 41 64 61 2d 4d 6f 64 |ndent in| Ada-Mod|
|00000860| 65 2e 22 29 0a 28 66 73 | 65 74 20 27 61 64 61 2d |e.").(fs|et 'ada-|
|00000870| 6d 6f 64 65 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |mode #[n|il ". ..|
|00000880| 5c 6e 21 88 c3 14 c5 16 | 06 c7 c8 21 88 c9 16 08 |\n!.....|...!....|
|00000890| c7 ca 21 88 cb 16 5c 6e | cc 0e 0d 21 88 c7 ce 21 |..!...\n|...!...!|
|000008a0| 88 cf 0e 10 50 16 0e c7 | d1 21 88 0e 0e 16 11 c7 |....P...|.!......|
|000008b0| d2 21 88 d3 16 12 c7 d4 | 21 88 d3 16 14 c7 d5 21 |.!......|!......!|
|000008c0| 88 d6 16 15 c7 d7 21 88 | d8 16 17 c7 c8 21 88 c9 |......!.|.....!..|
|000008d0| 16 08 c7 d9 21 88 da 16 | 19 c7 db 21 88 dc 16 1b |....!...|...!....|
|000008e0| c7 dd 21 88 d3 16 1d de | df 21 87 22 20 5b 6b 69 |..!.....|.!." [ki|
|000008f0| 6c 6c 2d 61 6c 6c 2d 6c | 6f 63 61 6c 2d 76 61 72 |ll-all-l|ocal-var|
|00000900| 69 61 62 6c 65 73 20 75 | 73 65 2d 6c 6f 63 61 6c |iables u|se-local|
|00000910| 2d 6d 61 70 20 61 64 61 | 2d 6d 6f 64 65 2d 6d 61 |-map ada|-mode-ma|
|00000920| 70 20 61 64 61 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |p ada-mo|de major|
|00000930| 2d 6d 6f 64 65 20 22 41 | 64 61 22 20 6d 6f 64 65 |-mode "A|da" mode|
|00000940| 2d 6e 61 6d 65 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |-name ma|ke-local|
|00000950| 2d 76 61 72 69 61 62 6c | 65 20 63 6f 6d 6d 65 6e |-variabl|e commen|
|00000960| 74 2d 63 6f 6c 75 6d 6e | 20 34 31 20 65 6e 64 2d |t-column| 41 end-|
|00000970| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 20 37 |comment-|column 7|
|00000980| 32 20 73 65 74 2d 73 79 | 6e 74 61 78 2d 74 61 62 |2 set-sy|ntax-tab|
|00000990| 6c 65 20 61 64 61 2d 6d | 6f 64 65 2d 73 79 6e 74 |le ada-m|ode-synt|
|000009a0| 61 78 2d 74 61 62 6c 65 | 20 70 61 72 61 67 72 61 |ax-table| paragra|
|000009b0| 70 68 2d 73 74 61 72 74 | 20 22 5e 24 5c 5c 7c 22 |ph-start| "^$\\|"|
|000009c0| 20 70 61 67 65 2d 64 65 | 6c 69 6d 69 74 65 72 20 | page-de|limiter |
|000009d0| 70 61 72 61 67 72 61 70 | 68 2d 73 65 70 61 72 61 |paragrap|h-separa|
|000009e0| 74 65 20 70 61 72 61 67 | 72 61 70 68 2d 69 67 6e |te parag|raph-ign|
|000009f0| 6f 72 65 2d 66 69 6c 6c | 2d 70 72 65 66 69 78 20 |ore-fill|-prefix |
|00000a00| 74 20 72 65 71 75 69 72 | 65 2d 66 69 6e 61 6c 2d |t requir|e-final-|
|00000a10| 6e 65 77 6c 69 6e 65 20 | 63 6f 6d 6d 65 6e 74 2d |newline |comment-|
|00000a20| 73 74 61 72 74 20 22 2d | 2d 22 20 63 6f 6d 6d 65 |start "-|-" comme|
|00000a30| 6e 74 2d 65 6e 64 20 22 | 22 20 63 6f 6d 6d 65 6e |nt-end "|" commen|
|00000a40| 74 2d 73 74 61 72 74 2d | 73 6b 69 70 20 22 2d 2d |t-start-|skip "--|
|00000a50| 2b 20 2a 22 20 63 6f 6d | 6d 65 6e 74 2d 69 6e 64 |+ *" com|ment-ind|
|00000a60| 65 6e 74 2d 68 6f 6f 6b | 20 63 2d 63 6f 6d 6d 65 |ent-hook| c-comme|
|00000a70| 6e 74 2d 69 6e 64 65 6e | 74 20 70 61 72 73 65 2d |nt-inden|t parse-|
|00000a80| 73 65 78 70 2d 69 67 6e | 6f 72 65 2d 63 6f 6d 6d |sexp-ign|ore-comm|
|00000a90| 65 6e 74 73 20 72 75 6e | 2d 68 6f 6f 6b 73 20 61 |ents run|-hooks a|
|00000aa0| 64 61 2d 6d 6f 64 65 2d | 68 6f 6f 6b 5d 20 32 20 |da-mode-|hook] 2 |
|00000ab0| 22 5c 0a 54 68 69 73 20 | 69 73 20 61 20 6d 6f 64 |"\.This |is a mod|
|00000ac0| 65 20 69 6e 74 65 6e 64 | 65 64 20 74 6f 20 73 75 |e intend|ed to su|
|00000ad0| 70 70 6f 72 74 20 70 72 | 6f 67 72 61 6d 20 64 65 |pport pr|ogram de|
|00000ae0| 76 65 6c 6f 70 6d 65 6e | 74 20 69 6e 20 41 64 61 |velopmen|t in Ada|
|00000af0| 2e 0a 4d 6f 73 74 20 63 | 6f 6e 74 72 6f 6c 20 63 |..Most c|ontrol c|
|00000b00| 6f 6e 73 74 72 75 63 74 | 73 20 61 6e 64 20 64 65 |onstruct|s and de|
|00000b10| 63 6c 61 72 61 74 69 6f | 6e 73 20 6f 66 20 41 64 |claratio|ns of Ad|
|00000b20| 61 20 63 61 6e 20 62 65 | 20 69 6e 73 65 72 74 65 |a can be| inserte|
|00000b30| 64 20 69 6e 20 74 68 65 | 20 62 75 66 66 65 72 0a |d in the| buffer.|
|00000b40| 62 79 20 74 79 70 69 6e | 67 20 43 6f 6e 74 72 6f |by typin|g Contro|
|00000b50| 6c 2d 43 20 66 6f 6c 6c | 6f 77 65 64 20 62 79 20 |l-C foll|owed by |
|00000b60| 61 20 63 68 61 72 61 63 | 74 65 72 20 6d 6e 65 6d |a charac|ter mnem|
|00000b70| 6f 6e 69 63 20 66 6f 72 | 20 74 68 65 20 63 6f 6e |onic for| the con|
|00000b80| 73 74 72 75 63 74 2e 0a | 0a 43 2d 63 20 43 2d 61 |struct..|.C-c C-a|
|00000b90| 20 20 61 72 72 61 79 20 | 20 20 20 20 20 20 20 20 |  array |        |
|00000ba0| 09 43 2d 63 20 62 20 20 | 20 20 65 78 63 65 70 74 |.C-c b  |  except|
|00000bb0| 69 6f 6e 20 62 6c 6f 63 | 6b 0a 43 2d 63 20 43 2d |ion bloc|k.C-c C-|
|00000bc0| 65 20 20 65 78 63 65 70 | 74 69 6f 6e 20 20 20 20 |e  excep|tion    |
|00000bd0| 20 20 43 2d 63 20 64 20 | 20 20 20 64 65 63 6c 61 |  C-c d |   decla|
|00000be0| 72 65 20 62 6c 6f 63 6b | 0a 43 2d 63 20 43 2d 6b |re block|.C-c C-k|
|00000bf0| 20 20 70 61 63 6b 61 67 | 65 20 73 70 65 63 20 20 |  packag|e spec  |
|00000c00| 20 43 2d 63 20 6b 20 20 | 20 20 70 61 63 6b 61 67 | C-c k  |  packag|
|00000c10| 65 20 62 6f 64 79 0a 43 | 2d 63 20 43 2d 70 20 20 |e body.C|-c C-p  |
|00000c20| 70 72 6f 63 65 64 75 72 | 65 20 73 70 65 63 20 43 |procedur|e spec C|
|00000c30| 2d 63 20 70 20 20 20 20 | 70 72 6f 63 2f 66 75 6e |-c p    |proc/fun|
|00000c40| 63 20 62 6f 64 79 0a 43 | 2d 63 20 43 2d 66 20 20 |c body.C|-c C-f  |
|00000c50| 66 75 6e 63 20 73 70 65 | 63 20 20 20 20 20 20 43 |func spe|c      C|
|00000c60| 2d 63 20 66 20 20 20 20 | 66 6f 72 20 6c 6f 6f 70 |-c f    |for loop|
|00000c70| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000c80| 20 20 20 20 20 20 20 20 | 20 43 2d 63 20 69 20 20 |        | C-c i  |
|00000c90| 20 20 69 66 0a 20 20 20 | 20 20 20 20 20 20 20 20 |  if.   |        |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 2d 63 |        |     C-c|
|00000cb0| 20 49 20 20 20 20 65 6c | 73 69 66 0a 20 20 20 20 | I    el|sif.    |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cd0| 20 20 20 20 43 2d 63 20 | 65 20 20 20 20 65 6c 73 |    C-c |e    els|
|00000ce0| 65 0a 43 2d 63 20 43 2d | 76 20 20 70 72 69 76 61 |e.C-c C-|v  priva|
|00000cf0| 74 65 20 20 20 20 20 20 | 20 20 43 2d 63 20 6c 20 |te      |  C-c l |
|00000d00| 20 20 20 6c 6f 6f 70 0a | 43 2d 63 20 43 2d 72 20 |   loop.|C-c C-r |
|00000d10| 20 72 65 63 6f 72 64 20 | 20 20 20 20 20 20 20 20 | record |        |
|00000d20| 43 2d 63 20 63 20 20 20 | 20 63 61 73 65 0a 43 2d |C-c c   | case.C-|
|00000d30| 63 20 43 2d 73 20 20 73 | 75 62 74 79 70 65 20 20 |c C-s  s|ubtype  |
|00000d40| 20 20 20 20 20 20 43 2d | 63 20 73 20 20 20 20 73 |      C-|c s    s|
|00000d50| 65 70 61 72 61 74 65 0a | 43 2d 63 20 43 2d 74 20 |eparate.|C-c C-t |
|00000d60| 20 74 79 70 65 20 20 20 | 20 20 20 20 20 20 20 20 | type   |        |
|00000d70| 43 2d 63 20 74 20 20 20 | 20 74 61 62 20 73 70 61 |C-c t   | tab spa|
|00000d80| 63 69 6e 67 20 66 6f 72 | 20 69 6e 64 65 6e 74 73 |cing for| indents|
|00000d90| 0a 43 2d 63 20 43 2d 77 | 20 20 77 68 65 6e 20 20 |.C-c C-w|  when  |
|00000da0| 20 20 20 20 20 20 20 20 | 20 43 2d 63 20 77 20 20 |        | C-c w  |
|00000db0| 20 20 77 68 69 6c 65 0a | 20 20 20 20 20 20 20 20 |  while.|        |
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000dd0| 43 2d 63 20 78 20 20 20 | 20 65 78 69 74 0a 43 2d |C-c x   | exit.C-|
|00000de0| 63 20 28 20 20 20 20 70 | 61 69 72 65 64 20 70 61 |c (    p|aired pa|
|00000df0| 72 65 6e 73 20 20 43 2d | 63 20 2d 20 20 20 20 69 |rens  C-|c -    i|
|00000e00| 6e 6c 69 6e 65 20 63 6f | 6d 6d 65 6e 74 0a 20 20 |nline co|mment.  |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e20| 20 20 20 20 20 20 43 2d | 63 20 68 20 20 20 20 68 |      C-|c h    h|
|00000e30| 65 61 64 65 72 20 73 65 | 63 0a 43 2d 63 20 43 20 |eader se|c.C-c C |
|00000e40| 20 20 20 63 6f 6d 70 69 | 6c 65 20 20 20 20 20 20 |   compi|le      |
|00000e50| 20 20 43 2d 63 20 42 20 | 20 20 20 62 69 6e 64 0a |  C-c B |   bind.|
|00000e60| 43 2d 63 20 45 20 20 20 | 20 66 69 6e 64 20 65 72 |C-c E   | find er|
|00000e70| 72 6f 72 20 6c 69 73 74 | 0a 43 2d 63 20 4c 20 20 |ror list|.C-c L  |
|00000e80| 20 20 6e 61 6d 65 20 6c | 69 62 72 61 72 79 20 20 |  name l|ibrary  |
|00000e90| 20 43 2d 63 20 4f 20 20 | 20 20 6f 70 74 69 6f 6e | C-c O  |  option|
|00000ea0| 73 20 66 6f 72 20 62 69 | 6e 64 0a 0a 43 2d 63 20 |s for bi|nd..C-c |
|00000eb0| 3c 20 61 6e 64 20 43 2d | 63 20 3e 20 6d 6f 76 65 |< and C-|c > move|
|00000ec0| 20 62 61 63 6b 77 61 72 | 64 20 61 6e 64 20 66 6f | backwar|d and fo|
|00000ed0| 72 77 61 72 64 20 72 65 | 73 70 65 63 74 69 76 65 |rward re|spective|
|00000ee0| 6c 79 20 74 6f 20 74 68 | 65 20 6e 65 78 74 20 6c |ly to th|e next l|
|00000ef0| 69 6e 65 0a 68 61 76 69 | 6e 67 20 74 68 65 20 73 |ine.havi|ng the s|
|00000f00| 61 6d 65 20 28 6f 72 20 | 6c 65 73 73 65 72 29 20 |ame (or |lesser) |
|00000f10| 6c 65 76 65 6c 20 6f 66 | 20 69 6e 64 65 6e 74 61 |level of| indenta|
|00000f20| 74 69 6f 6e 2e 0a 0a 56 | 61 72 69 61 62 6c 65 20 |tion...V|ariable |
|00000f30| 61 64 61 2d 69 6e 64 65 | 6e 74 20 63 6f 6e 74 72 |ada-inde|nt contr|
|00000f40| 6f 6c 73 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |ols the |number o|
|00000f50| 66 20 73 70 61 63 65 73 | 20 66 6f 72 20 69 6e 64 |f spaces| for ind|
|00000f60| 65 6e 74 2f 75 6e 64 65 | 6e 74 2e 0a 0a 5c 5c 7b |ent/unde|nt...\\{|
|00000f70| 61 64 61 2d 6d 6f 64 65 | 2d 6d 61 70 7d 0a 22 20 |ada-mode|-map}." |
|00000f80| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 61 64 61 |nil]).(f|set 'ada|
|00000f90| 2d 74 61 62 73 69 7a 65 | 20 23 5b 28 73 29 20 22 |-tabsize| #[(s) "|
|00000fa0| 08 89 11 87 22 20 5b 73 | 20 61 64 61 2d 69 6e 64 |...." [s| ada-ind|
|00000fb0| 65 6e 74 5d 20 32 20 22 | 5c 0a 63 68 61 6e 67 65 |ent] 2 "|\.change|
|00000fc0| 73 20 73 70 61 63 69 6e | 67 20 75 73 65 64 20 66 |s spacin|g used f|
|00000fd0| 6f 72 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2e 20 |or inden|tation. |
|00000fe0| 52 65 61 64 73 20 73 70 | 61 63 69 6e 67 20 66 72 |Reads sp|acing fr|
|00000ff0| 6f 6d 20 6d 69 6e 69 62 | 75 66 66 65 72 2e 22 20 |om minib|uffer." |
|00001000| 22 6e 6e 65 77 20 69 6e | 64 65 6e 74 61 74 69 6f |"nnew in|dentatio|
|00001010| 6e 20 73 70 61 63 69 6e | 67 3a 20 22 5d 29 0a 28 |n spacin|g: "]).(|
|00001020| 66 73 65 74 20 27 61 64 | 61 2d 6e 65 77 6c 69 6e |fset 'ad|a-newlin|
|00001030| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 19 c2 20 88 09 |e #[nil |". .. ..|
|00001040| 6a 29 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 69 6e |j)." [cu|rrent-in|
|00001050| 64 65 6e 74 61 74 69 6f | 6e 20 61 64 61 2d 63 63 |dentatio|n ada-cc|
|00001060| 20 6e 65 77 6c 69 6e 65 | 5d 20 31 20 22 5c 0a 53 | newline|] 1 "\.S|
|00001070| 74 61 72 74 20 6e 65 77 | 20 6c 69 6e 65 20 61 6e |tart new| line an|
|00001080| 64 20 69 6e 64 65 6e 74 | 20 74 6f 20 63 75 72 72 |d indent| to curr|
|00001090| 65 6e 74 20 74 61 62 20 | 73 74 6f 70 2e 22 20 6e |ent tab |stop." n|
|000010a0| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 61 64 61 2d |il]).(fs|et 'ada-|
|000010b0| 74 61 62 20 23 5b 6e 69 | 6c 20 22 c0 20 09 a5 54 |tab #[ni|l ". ..T|
|000010c0| 09 5f 6a 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 69 |._j." [c|urrent-i|
|000010d0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 61 64 61 2d 69 |ndentati|on ada-i|
|000010e0| 6e 64 65 6e 74 5d 20 32 | 20 22 5c 0a 49 6e 64 65 |ndent] 2| "\.Inde|
|000010f0| 6e 74 20 74 6f 20 6e 65 | 78 74 20 74 61 62 20 73 |nt to ne|xt tab s|
|00001100| 74 6f 70 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |top." ni|l]).(fse|
|00001110| 74 20 27 61 64 61 2d 75 | 6e 74 61 62 20 23 5b 6e |t 'ada-u|ntab #[n|
|00001120| 69 6c 20 22 c0 09 c2 5c | 22 87 22 20 5b 62 61 63 |il "...\|"." [bac|
|00001130| 6b 77 61 72 64 2d 64 65 | 6c 65 74 65 2d 63 68 61 |kward-de|lete-cha|
|00001140| 72 2d 75 6e 74 61 62 69 | 66 79 20 61 64 61 2d 69 |r-untabi|fy ada-i|
|00001150| 6e 64 65 6e 74 20 6e 69 | 6c 5d 20 33 20 22 5c 0a |ndent ni|l] 3 "\.|
|00001160| 44 65 6c 65 74 65 20 62 | 61 63 6b 77 61 72 64 73 |Delete b|ackwards|
|00001170| 20 74 6f 20 70 72 65 76 | 69 6f 75 73 20 74 61 62 | to prev|ious tab|
|00001180| 20 73 74 6f 70 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 | stop." |nil]).(f|
|00001190| 73 65 74 20 27 61 64 61 | 2d 67 6f 2d 74 6f 2d 74 |set 'ada|-go-to-t|
|000011a0| 68 69 73 2d 69 6e 64 65 | 6e 74 20 23 5b 28 73 74 |his-inde|nt #[(st|
|000011b0| 65 70 20 69 6e 64 65 6e | 74 2d 6c 65 76 65 6c 29 |ep inden|t-level)|
|000011c0| 20 22 08 79 c1 55 ad 9d | c2 c3 21 ac 75 c2 c4 21 | ".y.U..|..!.u..!|
|000011d0| ac 70 c2 c5 21 ac 6b c2 | c6 21 ac 66 c7 20 0e 08 |.p..!.k.|.!.f. ..|
|000011e0| 56 ad 82 aa 5d 87 22 20 | 5b 73 74 65 70 20 30 20 |V...]." |[step 0 |
|000011f0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5e 5b 20 09 |looking-|at "^[ .|
|00001200| 5d 2a 24 22 20 22 5e 5b | 20 09 5d 2a 2d 2d 22 20 |]*$" "^[| .]*--" |
|00001210| 22 5e 3c 3c 5b 41 2d 5a | 61 2d 7a 30 2d 39 5f 5d |"^<<[A-Z|a-z0-9_]|
|00001220| 2b 3e 3e 22 20 22 5e 5b | 41 2d 5a 61 2d 7a 30 2d |+>>" "^[|A-Za-z0-|
|00001230| 39 5f 5d 2b 3a 22 20 63 | 75 72 72 65 6e 74 2d 69 |9_]+:" c|urrent-i|
|00001240| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 69 6e 64 65 6e |ndentati|on inden|
|00001250| 74 2d 6c 65 76 65 6c 5d | 20 32 20 22 5c 0a 4d 6f |t-level]| 2 "\.Mo|
|00001260| 76 65 20 70 6f 69 6e 74 | 20 72 65 70 65 61 74 65 |ve point| repeate|
|00001270| 64 6c 79 20 62 79 20 3c | 73 74 65 70 3e 20 6c 69 |dly by <|step> li|
|00001280| 6e 65 73 20 74 69 6c 6c | 20 74 68 65 20 63 75 72 |nes till| the cur|
|00001290| 72 65 6e 74 20 6c 69 6e | 65 0a 68 61 73 20 67 69 |rent lin|e.has gi|
|000012a0| 76 65 6e 20 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c |ven inde|nt-level|
|000012b0| 20 6f 72 20 6c 65 73 73 | 2c 20 6f 72 20 74 68 65 | or less|, or the|
|000012c0| 20 73 74 61 72 74 2f 65 | 6e 64 20 6f 66 20 74 68 | start/e|nd of th|
|000012d0| 65 20 62 75 66 66 65 72 | 20 69 73 20 68 69 74 2e |e buffer| is hit.|
|000012e0| 0a 49 67 6e 6f 72 65 20 | 62 6c 61 6e 6b 20 6c 69 |.Ignore |blank li|
|000012f0| 6e 65 73 2c 20 73 74 61 | 74 65 6d 65 6e 74 20 6c |nes, sta|tement l|
|00001300| 61 62 65 6c 73 2c 20 62 | 6c 6f 63 6b 2f 6c 6f 6f |abels, b|lock/loo|
|00001310| 70 20 6e 61 6d 65 73 2e | 22 5d 29 0a 28 66 73 65 |p names.|"]).(fse|
|00001320| 74 20 27 61 64 61 2d 62 | 61 63 6b 77 61 72 64 2d |t 'ada-b|ackward-|
|00001330| 74 6f 2d 73 61 6d 65 2d | 69 6e 64 65 6e 74 20 23 |to-same-|indent #|
|00001340| 5b 6e 69 6c 20 22 c0 c1 | c2 20 5c 22 88 c3 20 87 |[nil "..|. \".. .|
|00001350| 22 20 5b 61 64 61 2d 67 | 6f 2d 74 6f 2d 74 68 69 |" [ada-g|o-to-thi|
|00001360| 73 2d 69 6e 64 65 6e 74 | 20 2d 31 20 63 75 72 72 |s-indent| -1 curr|
|00001370| 65 6e 74 2d 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |ent-inde|ntation |
|00001380| 62 61 63 6b 2d 74 6f 2d | 69 6e 64 65 6e 74 61 74 |back-to-|indentat|
|00001390| 69 6f 6e 5d 20 33 20 22 | 5c 0a 4d 6f 76 65 20 70 |ion] 3 "|\.Move p|
|000013a0| 6f 69 6e 74 20 62 61 63 | 6b 77 61 72 64 73 20 74 |oint bac|kwards t|
|000013b0| 6f 20 6e 65 61 72 65 73 | 74 20 6c 69 6e 65 20 77 |o neares|t line w|
|000013c0| 69 74 68 20 73 61 6d 65 | 20 69 6e 64 65 6e 74 61 |ith same| indenta|
|000013d0| 74 69 6f 6e 20 6f 72 20 | 6c 65 73 73 2e 0a 49 66 |tion or |less..If|
|000013e0| 20 6e 6f 74 20 66 6f 75 | 6e 64 2c 20 70 6f 69 6e | not fou|nd, poin|
|000013f0| 74 20 69 73 20 6c 65 66 | 74 20 61 74 20 74 6f 70 |t is lef|t at top|
|00001400| 20 6f 66 20 62 75 66 66 | 65 72 2e 22 20 6e 69 6c | of buff|er." nil|
|00001410| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 61 2d 66 6f |]).(fset| 'ada-fo|
|00001420| 72 77 61 72 64 2d 74 6f | 2d 73 61 6d 65 2d 69 6e |rward-to|-same-in|
|00001430| 64 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 20 |dent #[n|il "... |
|00001440| 5c 22 88 c3 20 87 22 20 | 5b 61 64 61 2d 67 6f 2d |\".. ." |[ada-go-|
|00001450| 74 6f 2d 74 68 69 73 2d | 69 6e 64 65 6e 74 20 31 |to-this-|indent 1|
|00001460| 20 63 75 72 72 65 6e 74 | 2d 69 6e 64 65 6e 74 61 | current|-indenta|
|00001470| 74 69 6f 6e 20 62 61 63 | 6b 2d 74 6f 2d 69 6e 64 |tion bac|k-to-ind|
|00001480| 65 6e 74 61 74 69 6f 6e | 5d 20 33 20 22 5c 0a 4d |entation|] 3 "\.M|
|00001490| 6f 76 65 20 70 6f 69 6e | 74 20 66 6f 72 77 61 72 |ove poin|t forwar|
|000014a0| 64 73 20 74 6f 20 6e 65 | 61 72 65 73 74 20 6c 69 |ds to ne|arest li|
|000014b0| 6e 65 20 77 69 74 68 20 | 73 61 6d 65 20 69 6e 64 |ne with |same ind|
|000014c0| 65 6e 74 61 74 69 6f 6e | 20 6f 72 20 6c 65 73 73 |entation| or less|
|000014d0| 2e 0a 49 66 20 6e 6f 74 | 20 66 6f 75 6e 64 2c 20 |..If not| found, |
|000014e0| 70 6f 69 6e 74 20 69 73 | 20 6c 65 66 74 20 61 74 |point is| left at|
|000014f0| 20 73 74 61 72 74 20 6f | 66 20 6c 61 73 74 20 6c | start o|f last l|
|00001500| 69 6e 65 20 69 6e 20 62 | 75 66 66 65 72 2e 22 20 |ine in b|uffer." |
|00001510| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 61 64 61 |nil]).(f|set 'ada|
|00001520| 2d 61 72 72 61 79 20 23 | 5b 6e 69 6c 20 22 c0 63 |-array #|[nil ".c|
|00001530| 88 c1 20 88 c2 c3 21 63 | 88 c4 7f 88 c5 63 88 c1 |.. ...!c|.....c..|
|00001540| 20 88 c2 c6 21 63 88 c4 | 7f 87 22 20 5b 22 61 72 | ...!c..|.." ["ar|
|00001550| 72 61 79 20 28 29 22 20 | 62 61 63 6b 77 61 72 64 |ray ()" |backward|
|00001560| 2d 63 68 61 72 20 72 65 | 61 64 2d 73 74 72 69 6e |-char re|ad-strin|
|00001570| 67 20 22 69 6e 64 65 78 | 20 73 75 62 74 79 70 65 |g "index| subtype|
|00001580| 5b 73 5d 3a 20 22 20 6e | 69 6c 20 22 20 6f 66 20 |[s]: " n|il " of |
|00001590| 3b 22 20 22 63 6f 6d 70 | 6f 6e 65 6e 74 2d 74 79 |;" "comp|onent-ty|
|000015a0| 70 65 3a 20 22 5d 20 32 | 20 22 5c 0a 49 6e 73 65 |pe: "] 2| "\.Inse|
|000015b0| 72 74 20 61 72 72 61 79 | 20 74 79 70 65 20 64 65 |rt array| type de|
|000015c0| 66 69 6e 69 74 69 6f 6e | 2c 20 70 72 6f 6d 70 74 |finition|, prompt|
|000015d0| 69 6e 67 20 66 6f 72 20 | 63 6f 6d 70 6f 6e 65 6e |ing for |componen|
|000015e0| 74 20 74 79 70 65 2c 0a | 6c 65 61 76 69 6e 67 20 |t type,.|leaving |
|000015f0| 74 68 65 20 75 73 65 72 | 20 74 6f 20 74 79 70 65 |the user| to type|
|00001600| 20 69 6e 20 74 68 65 20 | 69 6e 64 65 78 20 73 75 | in the |index su|
|00001610| 62 74 79 70 65 73 2e 22 | 20 6e 69 6c 5d 29 0a 28 |btypes."| nil]).(|
|00001620| 66 73 65 74 20 27 61 64 | 61 2d 63 61 73 65 20 23 |fset 'ad|a-case #|
|00001630| 5b 6e 69 6c 20 22 c0 63 | 88 c1 c2 21 c3 b1 02 88 |[nil ".c|...!....|
|00001640| c4 20 88 c4 20 88 c5 63 | 88 c6 7f 88 c7 20 88 c7 |. .. ..c|..... ..|
|00001650| 20 88 c8 20 87 22 20 5b | 22 63 61 73 65 20 22 20 | .. ." [|"case " |
|00001660| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 73 65 6c |read-str|ing "sel|
|00001670| 65 63 74 6f 72 20 65 78 | 70 72 65 73 73 69 6f 6e |ector ex|pression|
|00001680| 3a 20 22 20 22 20 69 73 | 22 20 61 64 61 2d 6e 65 |: " " is|" ada-ne|
|00001690| 77 6c 69 6e 65 20 22 65 | 6e 64 20 63 61 73 65 3b |wline "e|nd case;|
|000016a0| 22 20 30 20 61 64 61 2d | 74 61 62 20 61 64 61 2d |" 0 ada-|tab ada-|
|000016b0| 77 68 65 6e 5d 20 32 20 | 22 5c 0a 42 75 69 6c 64 |when] 2 |"\.Build|
|000016c0| 20 73 6b 65 6c 65 74 6f | 6e 20 63 61 73 65 20 73 | skeleto|n case s|
|000016d0| 74 61 74 6d 65 6e 74 2c | 20 70 72 6f 6d 70 74 69 |tatment,| prompti|
|000016e0| 6e 67 20 66 6f 72 20 74 | 68 65 20 73 65 6c 65 63 |ng for t|he selec|
|000016f0| 74 6f 72 20 65 78 70 72 | 65 73 73 69 6f 6e 2e 0a |tor expr|ession..|
|00001700| 73 74 61 72 74 73 20 75 | 70 20 74 68 65 20 66 69 |starts u|p the fi|
|00001710| 72 73 74 20 77 68 65 6e | 20 63 6c 61 75 73 65 2c |rst when| clause,|
|00001720| 20 74 6f 6f 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 | too." n|il]).(fs|
|00001730| 65 74 20 27 61 64 61 2d | 64 65 63 6c 61 72 65 2d |et 'ada-|declare-|
|00001740| 62 6c 6f 63 6b 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |block #[|nil "..!|
|00001750| 1a c3 63 88 5c 6e c4 98 | ac 93 c5 79 88 c6 c7 21 |..c.\n..|...y...!|
|00001760| 88 5c 6e c8 b1 02 88 c9 | c7 21 88 ca 7f 88 cb 20 |.\n.....|.!..... |
|00001770| 88 cb 20 88 cc 63 88 cb | 20 88 cb 20 88 5c 6e c4 |.. ..c..| .. .\n.|
|00001780| 98 ab 85 cd 63 88 aa 86 | ce 5c 6e cf b1 03 88 29 |....c...|.\n....)|
|00001790| d0 7f 88 d1 20 87 22 20 | 5b 72 65 61 64 2d 73 74 |.... ." |[read-st|
|000017a0| 72 69 6e 67 20 22 5b 62 | 6c 6f 63 6b 20 6e 61 6d |ring "[b|lock nam|
|000017b0| 65 5d 3a 20 22 20 61 64 | 61 2d 62 6c 6f 63 6b 2d |e]: " ad|a-block-|
|000017c0| 6e 61 6d 65 20 22 64 65 | 63 6c 61 72 65 22 20 22 |name "de|clare" "|
|000017d0| 22 20 30 20 6f 70 65 6e | 2d 6c 69 6e 65 20 31 20 |" 0 open|-line 1 |
|000017e0| 22 3a 22 20 6e 65 78 74 | 2d 6c 69 6e 65 20 6e 69 |":" next|-line ni|
|000017f0| 6c 20 61 64 61 2d 6e 65 | 77 6c 69 6e 65 20 22 62 |l ada-ne|wline "b|
|00001800| 65 67 69 6e 22 20 22 65 | 6e 64 3b 22 20 22 65 6e |egin" "e|nd;" "en|
|00001810| 64 20 22 20 22 3b 22 20 | 2d 32 20 61 64 61 2d 74 |d " ";" |-2 ada-t|
|00001820| 61 62 5d 20 33 20 22 5c | 0a 49 6e 73 65 72 74 20 |ab] 3 "\|.Insert |
|00001830| 61 20 62 6c 6f 63 6b 20 | 77 69 74 68 20 61 20 64 |a block |with a d|
|00001840| 65 63 6c 61 72 65 20 70 | 61 72 74 20 61 6e 64 20 |eclare p|art and |
|00001850| 69 6e 64 65 6e 74 20 66 | 6f 72 20 74 68 65 20 31 |indent f|or the 1|
|00001860| 73 74 20 64 65 63 6c 61 | 72 61 74 69 6f 6e 2e 22 |st decla|ration."|
|00001870| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 61 64 | nil]).(|fset 'ad|
|00001880| 61 2d 65 78 63 65 70 74 | 69 6f 6e 2d 62 6c 6f 63 |a-except|ion-bloc|
|00001890| 6b 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 1a c3 63 88 |k #[nil |"..!..c.|
|000018a0| 5c 6e c4 98 ac 93 c5 79 | 88 c6 c7 21 88 5c 6e c8 |\n.....y|...!.\n.|
|000018b0| b1 02 88 c9 c7 21 88 ca | 7f 88 cb 20 88 cb 20 88 |.....!..|... .. .|
|000018c0| cc 63 88 cb 20 88 cb 20 | 88 5c 6e c4 98 ab 85 cd |.c.. .. |.\n.....|
|000018d0| 63 88 aa 86 ce 5c 6e cf | b1 03 88 29 d0 7f 88 d1 |c....\n.|...)....|
|000018e0| 20 87 22 20 5b 72 65 61 | 64 2d 73 74 72 69 6e 67 | ." [rea|d-string|
|000018f0| 20 22 5b 62 6c 6f 63 6b | 20 6e 61 6d 65 5d 3a 20 | "[block| name]: |
|00001900| 22 20 62 6c 6f 63 6b 2d | 6e 61 6d 65 20 22 62 65 |" block-|name "be|
|00001910| 67 69 6e 22 20 22 22 20 | 30 20 6f 70 65 6e 2d 6c |gin" "" |0 open-l|
|00001920| 69 6e 65 20 31 20 22 3a | 22 20 6e 65 78 74 2d 6c |ine 1 ":|" next-l|
|00001930| 69 6e 65 20 6e 69 6c 20 | 61 64 61 2d 6e 65 77 6c |ine nil |ada-newl|
|00001940| 69 6e 65 20 22 65 78 63 | 65 70 74 69 6f 6e 22 20 |ine "exc|eption" |
|00001950| 22 65 6e 64 3b 22 20 22 | 65 6e 64 20 22 20 22 3b |"end;" "|end " ";|
|00001960| 22 20 2d 32 20 61 64 61 | 2d 74 61 62 5d 20 33 20 |" -2 ada|-tab] 3 |
|00001970| 22 5c 0a 49 6e 73 65 72 | 74 20 61 20 62 6c 6f 63 |"\.Inser|t a bloc|
|00001980| 6b 20 77 69 74 68 20 61 | 6e 20 65 78 63 65 70 74 |k with a|n except|
|00001990| 69 6f 6e 20 70 61 72 74 | 20 61 6e 64 20 69 6e 64 |ion part| and ind|
|000019a0| 65 6e 74 20 66 6f 72 20 | 74 68 65 20 31 73 74 20 |ent for |the 1st |
|000019b0| 6c 69 6e 65 20 6f 66 20 | 63 6f 64 65 2e 22 20 6e |line of |code." n|
|000019c0| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 61 64 61 2d |il]).(fs|et 'ada-|
|000019d0| 65 78 63 65 70 74 69 6f | 6e 20 23 5b 6e 69 6c 20 |exceptio|n #[nil |
|000019e0| 22 c0 20 88 c1 63 88 c2 | 20 88 c3 20 87 22 20 5b |". ..c..| .. ." [|
|000019f0| 61 64 61 2d 75 6e 74 61 | 62 20 22 65 78 63 65 70 |ada-unta|b "excep|
|00001a00| 74 69 6f 6e 22 20 61 64 | 61 2d 6e 65 77 6c 69 6e |tion" ad|a-newlin|
|00001a10| 65 20 61 64 61 2d 74 61 | 62 5d 20 31 20 22 5c 0a |e ada-ta|b] 1 "\.|
|00001a20| 55 6e 64 65 6e 74 20 61 | 6e 64 20 69 6e 73 65 72 |Undent a|nd inser|
|00001a30| 74 20 61 6e 20 65 78 63 | 65 70 74 69 6f 6e 20 70 |t an exc|eption p|
|00001a40| 61 72 74 20 69 6e 74 6f | 20 61 20 62 6c 6f 63 6b |art into| a block|
|00001a50| 2e 20 52 65 69 6e 64 65 | 6e 74 2e 22 20 6e 69 6c |. Reinde|nt." nil|
|00001a60| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 61 2d 65 6c |]).(fset| 'ada-el|
|00001a70| 73 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 63 88 |se #[nil| ". ..c.|
|00001a80| c2 20 88 c3 20 87 22 20 | 5b 61 64 61 2d 75 6e 74 |. .. ." |[ada-unt|
|00001a90| 61 62 20 22 65 6c 73 65 | 22 20 61 64 61 2d 6e 65 |ab "else|" ada-ne|
|00001aa0| 77 6c 69 6e 65 20 61 64 | 61 2d 74 61 62 5d 20 31 |wline ad|a-tab] 1|
|00001ab0| 20 22 5c 0a 41 64 64 20 | 61 6e 20 65 6c 73 65 20 | "\.Add |an else |
|00001ac0| 63 6c 61 75 73 65 20 69 | 6e 73 69 64 65 20 61 6e |clause i|nside an|
|00001ad0| 20 69 66 2d 74 68 65 6e | 2d 65 6e 64 2d 69 66 20 | if-then|-end-if |
|00001ae0| 63 6c 61 75 73 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |clause."| nil]).(|
|00001af0| 66 73 65 74 20 27 61 64 | 61 2d 65 78 69 74 20 23 |fset 'ad|a-exit #|
|00001b00| 5b 6e 69 6c 20 22 c0 63 | 88 c1 c2 21 89 1b c4 98 |[nil ".c|...!....|
|00001b10| ac 85 c5 0b b1 02 88 29 | c1 c6 21 89 1e 07 c4 98 |.......)|..!.....|
|00001b20| ac 95 c8 c9 0e 07 5c 22 | ab 88 c5 0e 07 b1 02 88 |......\"|........|
|00001b30| aa 86 ca 0e 07 b1 02 88 | 29 cb 63 87 22 20 5b 22 |........|).c." ["|
|00001b40| 65 78 69 74 22 20 72 65 | 61 64 2d 73 74 72 69 6e |exit" re|ad-strin|
|00001b50| 67 20 22 5b 6e 61 6d 65 | 20 6f 66 20 6c 6f 6f 70 |g "[name| of loop|
|00001b60| 20 74 6f 20 65 78 69 74 | 5d 3a 20 22 20 61 64 61 | to exit|]: " ada|
|00001b70| 2d 6c 6f 6f 70 2d 6e 61 | 6d 65 20 22 22 20 22 20 |-loop-na|me "" " |
|00001b80| 22 20 22 5b 65 78 69 74 | 20 63 6f 6e 64 69 74 69 |" "[exit| conditi|
|00001b90| 6f 6e 5d 3a 20 22 20 61 | 64 61 2d 65 78 69 74 2d |on]: " a|da-exit-|
|00001ba0| 63 6f 6e 64 69 74 69 6f | 6e 20 73 74 72 69 6e 67 |conditio|n string|
|00001bb0| 2d 6d 61 74 63 68 20 22 | 5e 20 2a 5b 57 77 5d 5b |-match "|^ *[Ww][|
|00001bc0| 48 68 5d 5b 45 65 5d 5b | 4e 6e 5d 20 2b 22 20 22 |Hh][Ee][|Nn] +" "|
|00001bd0| 20 77 68 65 6e 20 22 20 | 22 3b 22 5d 20 34 20 22 | when " |";"] 4 "|
|00001be0| 5c 0a 49 6e 73 65 72 74 | 20 61 6e 20 65 78 69 74 |\.Insert| an exit|
|00001bf0| 20 73 74 61 74 65 6d 65 | 6e 74 2c 20 70 72 6f 6d | stateme|nt, prom|
|00001c00| 70 74 69 6e 67 20 66 6f | 72 20 6c 6f 6f 70 20 6e |pting fo|r loop n|
|00001c10| 61 6d 65 20 61 6e 64 20 | 63 6f 6e 64 69 74 69 6f |ame and |conditio|
|00001c20| 6e 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |n." nil]|).(fset |
|00001c30| 27 61 64 61 2d 77 68 65 | 6e 20 23 5b 6e 69 6c 20 |'ada-whe|n #[nil |
|00001c40| 22 c0 20 88 c1 63 88 c2 | c3 21 c4 b1 02 88 c5 20 |". ..c..|.!..... |
|00001c50| 88 c6 20 87 22 20 5b 61 | 64 61 2d 75 6e 74 61 62 |.. ." [a|da-untab|
|00001c60| 20 22 77 68 65 6e 20 22 | 20 72 65 61 64 2d 73 74 | "when "| read-st|
|00001c70| 72 69 6e 67 20 22 27 7c | 27 2d 64 65 6c 69 6d 69 |ring "'||'-delimi|
|00001c80| 74 65 64 20 63 68 6f 69 | 63 65 20 6c 69 73 74 3a |ted choi|ce list:|
|00001c90| 20 22 20 22 20 3d 3e 22 | 20 61 64 61 2d 6e 65 77 | " " =>"| ada-new|
|00001ca0| 6c 69 6e 65 20 61 64 61 | 2d 74 61 62 5d 20 32 20 |line ada|-tab] 2 |
|00001cb0| 22 5c 0a 53 74 61 72 74 | 20 61 20 63 61 73 65 20 |"\.Start| a case |
|00001cc0| 73 74 61 74 65 6d 65 6e | 74 20 61 6c 74 65 72 6e |statemen|t altern|
|00001cd0| 61 74 69 76 65 20 77 69 | 74 68 20 61 20 77 68 65 |ative wi|th a whe|
|00001ce0| 6e 20 63 6c 61 75 73 65 | 2e 22 20 6e 69 6c 5d 29 |n clause|." nil])|
|00001cf0| 0a 28 66 73 65 74 20 27 | 61 64 61 2d 66 6f 72 2d |.(fset '|ada-for-|
|00001d00| 6c 6f 6f 70 20 23 5b 6e | 69 6c 20 22 c0 63 88 c1 |loop #[n|il ".c..|
|00001d10| c2 21 89 1b c4 98 3f 89 | 1d ab 93 c6 79 88 c7 c8 |.!....?.|....y...|
|00001d20| 21 88 0b c9 b1 02 88 ca | c8 21 88 c8 7f 88 c1 cb |!.......|.!......|
|00001d30| 21 cc b1 02 88 c1 cd 21 | ce b1 02 88 cf 20 88 cf |!......!|..... ..|
|00001d40| 20 88 d0 63 88 0d ab 85 | d1 0b b1 02 88 d2 63 88 | ..c....|......c.|
|00001d50| 2a c6 7f 88 d3 20 87 22 | 20 5b 22 66 6f 72 20 22 |*.... ."| ["for "|
|00001d60| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 5b 6c | read-st|ring "[l|
|00001d70| 6f 6f 70 20 6e 61 6d 65 | 5d 3a 20 22 20 61 64 61 |oop name|]: " ada|
|00001d80| 2d 6c 6f 6f 70 2d 6e 61 | 6d 65 20 22 22 20 61 64 |-loop-na|me "" ad|
|00001d90| 61 2d 6c 6f 6f 70 2d 69 | 73 2d 6e 61 6d 65 64 20 |a-loop-i|s-named |
|00001da0| 30 20 6f 70 65 6e 2d 6c | 69 6e 65 20 31 20 22 3a |0 open-l|ine 1 ":|
|00001db0| 22 20 6e 65 78 74 2d 6c | 69 6e 65 20 22 6c 6f 6f |" next-l|ine "loo|
|00001dc0| 70 20 76 61 72 69 61 62 | 6c 65 3a 20 22 20 22 20 |p variab|le: " " |
|00001dd0| 69 6e 20 22 20 22 72 61 | 6e 67 65 3a 20 22 20 22 |in " "ra|nge: " "|
|00001de0| 20 6c 6f 6f 70 22 20 61 | 64 61 2d 6e 65 77 6c 69 | loop" a|da-newli|
|00001df0| 6e 65 20 22 65 6e 64 20 | 6c 6f 6f 70 22 20 22 20 |ne "end |loop" " |
|00001e00| 22 20 22 3b 22 20 61 64 | 61 2d 74 61 62 5d 20 33 |" ";" ad|a-tab] 3|
|00001e10| 20 22 5c 0a 42 75 69 6c | 64 20 61 20 73 6b 65 6c | "\.Buil|d a skel|
|00001e20| 65 74 6f 6e 20 66 6f 72 | 2d 6c 6f 6f 70 20 73 74 |eton for|-loop st|
|00001e30| 61 74 65 6d 65 6e 74 2c | 20 70 72 6f 6d 70 74 69 |atement,| prompti|
|00001e40| 6e 67 20 66 6f 72 20 74 | 68 65 20 6c 6f 6f 70 20 |ng for t|he loop |
|00001e50| 70 61 72 61 6d 65 74 65 | 72 73 2e 22 20 6e 69 6c |paramete|rs." nil|
|00001e60| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 61 2d 68 65 |]).(fset| 'ada-he|
|00001e70| 61 64 65 72 20 23 5b 6e | 69 6c 20 22 c0 63 88 c1 |ader #[n|il ".c..|
|00001e80| c2 21 63 88 c3 c4 20 b1 | 02 88 c5 c6 20 b1 02 88 |.!c... .|.... ...|
|00001e90| c7 c8 20 c9 ca 20 cb b1 | 05 87 22 20 5b 22 2d 2d |.. .. ..|.." ["--|
|00001ea0| 5c 6e 2d 2d 20 20 54 69 | 74 6c 65 3a 20 09 22 20 |\n--  Ti|tle: ." |
|00001eb0| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 54 69 74 |read-str|ing "Tit|
|00001ec0| 6c 65 3a 20 22 20 22 5c | 6e 2d 2d 20 20 43 72 65 |le: " "\|n--  Cre|
|00001ed0| 61 74 65 64 3a 09 22 20 | 63 75 72 72 65 6e 74 2d |ated:." |current-|
|00001ee0| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 22 5c 6e 2d |time-str|ing "\n-|
|00001ef0| 2d 20 20 41 75 74 68 6f | 72 3a 20 09 22 20 75 73 |-  Autho|r: ." us|
|00001f00| 65 72 2d 66 75 6c 6c 2d | 6e 61 6d 65 20 22 5c 6e |er-full-|name "\n|
|00001f10| 2d 2d 09 09 3c 22 20 75 | 73 65 72 2d 6c 6f 67 69 |--..<" u|ser-logi|
|00001f20| 6e 2d 6e 61 6d 65 20 22 | 40 22 20 73 79 73 74 65 |n-name "|@" syste|
|00001f30| 6d 2d 6e 61 6d 65 20 22 | 3e 5c 6e 2d 2d 5c 6e 22 |m-name "|>\n--\n"|
|00001f40| 5d 20 35 20 22 5c 0a 49 | 6e 73 65 72 74 20 61 20 |] 5 "\.I|nsert a |
|00001f50| 63 6f 6d 6d 65 6e 74 20 | 62 6c 6f 63 6b 20 63 6f |comment |block co|
|00001f60| 6e 74 61 69 6e 69 6e 67 | 20 74 68 65 20 6d 6f 64 |ntaining| the mod|
|00001f70| 75 6c 65 20 74 69 74 6c | 65 2c 20 61 75 74 68 6f |ule titl|e, autho|
|00001f80| 72 2c 20 65 74 63 2e 22 | 20 6e 69 6c 5d 29 0a 28 |r, etc."| nil]).(|
|00001f90| 66 73 65 74 20 27 61 64 | 61 2d 69 66 20 23 5b 6e |fset 'ad|a-if #[n|
|00001fa0| 69 6c 20 22 c0 63 88 c1 | c2 21 c3 b1 02 88 c4 20 |il ".c..|.!..... |
|00001fb0| 88 c4 20 88 c5 63 88 c6 | 7f 88 c7 20 87 22 20 5b |.. ..c..|... ." [|
|00001fc0| 22 69 66 20 22 20 72 65 | 61 64 2d 73 74 72 69 6e |"if " re|ad-strin|
|00001fd0| 67 20 22 63 6f 6e 64 69 | 74 69 6f 6e 3a 20 22 20 |g "condi|tion: " |
|00001fe0| 22 20 74 68 65 6e 22 20 | 61 64 61 2d 6e 65 77 6c |" then" |ada-newl|
|00001ff0| 69 6e 65 20 22 65 6e 64 | 20 69 66 3b 22 20 30 20 |ine "end| if;" 0 |
|00002000| 61 64 61 2d 74 61 62 5d | 20 32 20 22 5c 0a 49 6e |ada-tab]| 2 "\.In|
|00002010| 73 65 72 74 20 73 6b 65 | 6c 65 74 6f 6e 20 69 66 |sert ske|leton if|
|00002020| 20 73 74 61 74 6d 65 6e | 74 2c 20 70 72 6f 6d 70 | statmen|t, promp|
|00002030| 74 69 6e 67 20 66 6f 72 | 20 61 20 62 6f 6f 6c 65 |ting for| a boole|
|00002040| 61 6e 2d 65 78 70 72 65 | 73 73 69 6f 6e 2e 22 20 |an-expre|ssion." |
|00002050| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 61 64 61 |nil]).(f|set 'ada|
|00002060| 2d 65 6c 73 69 66 20 23 | 5b 6e 69 6c 20 22 c0 20 |-elsif #|[nil ". |
|00002070| 88 c1 63 88 c2 c3 21 c4 | b1 02 88 c5 20 88 c6 20 |..c...!.|.... .. |
|00002080| 87 22 20 5b 61 64 61 2d | 75 6e 74 61 62 20 22 65 |." [ada-|untab "e|
|00002090| 6c 73 69 66 20 22 20 72 | 65 61 64 2d 73 74 72 69 |lsif " r|ead-stri|
|000020a0| 6e 67 20 22 63 6f 6e 64 | 69 74 69 6f 6e 3a 20 22 |ng "cond|ition: "|
|000020b0| 20 22 20 74 68 65 6e 22 | 20 61 64 61 2d 6e 65 77 | " then"| ada-new|
|000020c0| 6c 69 6e 65 20 61 64 61 | 2d 74 61 62 5d 20 32 20 |line ada|-tab] 2 |
|000020d0| 22 5c 0a 41 64 64 20 61 | 6e 20 65 6c 73 69 66 20 |"\.Add a|n elsif |
|000020e0| 63 6c 61 75 73 65 20 74 | 6f 20 61 6e 20 69 66 20 |clause t|o an if |
|000020f0| 73 74 61 74 65 6d 65 6e | 74 2c 20 70 72 6f 6d 70 |statemen|t, promp|
|00002100| 74 69 6e 67 20 66 6f 72 | 20 74 68 65 20 62 6f 6f |ting for| the boo|
|00002110| 6c 65 61 6e 2d 65 78 70 | 72 65 73 73 69 6f 6e 2e |lean-exp|ression.|
|00002120| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 61 |" nil]).|(fset 'a|
|00002130| 64 61 2d 6c 6f 6f 70 20 | 23 5b 6e 69 6c 20 22 c0 |da-loop |#[nil ".|
|00002140| 63 88 c1 c2 21 89 1b c4 | 98 3f 89 1d ab 92 c6 79 |c...!...|.?.....y|
|00002150| 88 c7 c8 21 88 0b c9 b1 | 02 88 c8 79 88 c8 7f 88 |...!....|...y....|
|00002160| ca 20 88 ca 20 88 cb 63 | 88 0d ab 85 cc 0b b1 02 |. .. ..c|........|
|00002170| 88 cd 63 88 2a c6 7f 88 | ce 20 87 22 20 5b 22 6c |..c.*...|. ." ["l|
|00002180| 6f 6f 70 20 22 20 72 65 | 61 64 2d 73 74 72 69 6e |oop " re|ad-strin|
|00002190| 67 20 22 5b 6c 6f 6f 70 | 20 6e 61 6d 65 5d 3a 20 |g "[loop| name]: |
|000021a0| 22 20 61 64 61 2d 6c 6f | 6f 70 2d 6e 61 6d 65 20 |" ada-lo|op-name |
|000021b0| 22 22 20 61 64 61 2d 6c | 6f 6f 70 2d 69 73 2d 6e |"" ada-l|oop-is-n|
|000021c0| 61 6d 65 64 20 30 20 6f | 70 65 6e 2d 6c 69 6e 65 |amed 0 o|pen-line|
|000021d0| 20 31 20 22 3a 22 20 61 | 64 61 2d 6e 65 77 6c 69 | 1 ":" a|da-newli|
|000021e0| 6e 65 20 22 65 6e 64 20 | 6c 6f 6f 70 22 20 22 20 |ne "end |loop" " |
|000021f0| 22 20 22 3b 22 20 61 64 | 61 2d 74 61 62 5d 20 33 |" ";" ad|a-tab] 3|
|00002200| 20 22 5c 0a 69 6e 73 65 | 72 74 20 61 20 73 6b 65 | "\.inse|rt a ske|
|00002210| 6c 65 74 6f 6e 20 6c 6f | 6f 70 20 73 74 61 74 65 |leton lo|op state|
|00002220| 6d 65 6e 74 2e 20 20 65 | 78 69 74 20 73 74 61 74 |ment.  e|xit stat|
|00002230| 65 6d 65 6e 74 20 61 64 | 64 65 64 20 62 79 20 68 |ement ad|ded by h|
|00002240| 61 6e 64 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |and." ni|l]).(fse|
|00002250| 74 20 27 61 64 61 2d 70 | 61 63 6b 61 67 65 2d 73 |t 'ada-p|ackage-s|
|00002260| 70 65 63 20 23 5b 6e 69 | 6c 20 22 c0 63 88 c1 c2 |pec #[ni|l ".c...|
|00002270| 21 89 1b c4 b1 02 88 c5 | 20 88 c5 20 88 c6 0b c7 |!.......| .. ....|
|00002280| b1 03 88 c8 7f 88 c9 20 | 29 87 22 20 5b 22 70 61 |....... |)." ["pa|
|00002290| 63 6b 61 67 65 20 22 20 | 72 65 61 64 2d 73 74 72 |ckage " |read-str|
|000022a0| 69 6e 67 20 22 70 61 63 | 6b 61 67 65 20 6e 61 6d |ing "pac|kage nam|
|000022b0| 65 3a 20 22 20 61 64 61 | 2d 70 61 63 6b 61 67 65 |e: " ada|-package|
|000022c0| 2d 6e 61 6d 65 20 22 20 | 69 73 22 20 61 64 61 2d |-name " |is" ada-|
|000022d0| 6e 65 77 6c 69 6e 65 20 | 22 65 6e 64 20 22 20 22 |newline |"end " "|
|000022e0| 3b 22 20 30 20 61 64 61 | 2d 74 61 62 5d 20 34 20 |;" 0 ada|-tab] 4 |
|000022f0| 22 5c 0a 49 6e 73 65 72 | 74 20 61 20 73 6b 65 6c |"\.Inser|t a skel|
|00002300| 65 74 6f 6e 20 70 61 63 | 6b 61 67 65 20 73 70 65 |eton pac|kage spe|
|00002310| 63 69 66 69 63 61 74 69 | 6f 6e 2e 22 20 6e 69 6c |cificati|on." nil|
|00002320| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 61 2d 70 61 |]).(fset| 'ada-pa|
|00002330| 63 6b 61 67 65 2d 62 6f | 64 79 20 23 5b 6e 69 6c |ckage-bo|dy #[nil|
|00002340| 20 22 c0 63 88 c1 c2 21 | 89 1b c4 b1 02 88 c5 20 | ".c...!|....... |
|00002350| 88 c5 20 88 c6 63 88 c5 | 20 88 c7 0b c8 b1 03 88 |.. ..c..| .......|
|00002360| c9 7f 88 ca 20 29 87 22 | 20 5b 22 70 61 63 6b 61 |.... )."| ["packa|
|00002370| 67 65 20 62 6f 64 79 20 | 22 20 72 65 61 64 2d 73 |ge body |" read-s|
|00002380| 74 72 69 6e 67 20 22 70 | 61 63 6b 61 67 65 20 6e |tring "p|ackage n|
|00002390| 61 6d 65 3a 20 22 20 61 | 64 61 2d 70 61 63 6b 61 |ame: " a|da-packa|
|000023a0| 67 65 2d 6e 61 6d 65 20 | 22 20 69 73 22 20 61 64 |ge-name |" is" ad|
|000023b0| 61 2d 6e 65 77 6c 69 6e | 65 20 22 62 65 67 69 6e |a-newlin|e "begin|
|000023c0| 22 20 22 65 6e 64 20 22 | 20 22 3b 22 20 2d 31 20 |" "end "| ";" -1 |
|000023d0| 61 64 61 2d 74 61 62 5d | 20 34 20 22 5c 0a 49 6e |ada-tab]| 4 "\.In|
|000023e0| 73 65 72 74 20 61 20 73 | 6b 65 6c 65 74 6f 6e 20 |sert a s|keleton |
|000023f0| 70 61 63 6b 61 67 65 20 | 62 6f 64 79 20 2d 2d 20 |package |body -- |
|00002400| 20 69 6e 63 6c 75 64 65 | 73 20 61 20 62 65 67 69 | include|s a begi|
|00002410| 6e 20 73 74 61 74 65 6d | 65 6e 74 2e 22 20 6e 69 |n statem|ent." ni|
|00002420| 6c 5d 29 0a 28 66 73 65 | 74 20 27 61 64 61 2d 70 |l]).(fse|t 'ada-p|
|00002430| 72 69 76 61 74 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |rivate #|[nil ". |
|00002440| 88 c1 63 88 c2 20 88 c3 | 20 87 22 20 5b 61 64 61 |..c.. ..| ." [ada|
|00002450| 2d 75 6e 74 61 62 20 22 | 70 72 69 76 61 74 65 22 |-untab "|private"|
|00002460| 20 61 64 61 2d 6e 65 77 | 6c 69 6e 65 20 61 64 61 | ada-new|line ada|
|00002470| 2d 74 61 62 5d 20 31 20 | 22 5c 0a 55 6e 64 65 6e |-tab] 1 |"\.Unden|
|00002480| 74 20 61 6e 64 20 73 74 | 61 72 74 20 61 20 70 72 |t and st|art a pr|
|00002490| 69 76 61 74 65 20 73 65 | 63 74 69 6f 6e 20 6f 66 |ivate se|ction of|
|000024a0| 20 61 20 70 61 63 6b 61 | 67 65 20 73 70 65 63 2e | a packa|ge spec.|
|000024b0| 20 52 65 69 6e 64 65 6e | 74 2e 22 20 6e 69 6c 5d | Reinden|t." nil]|
|000024c0| 29 0a 28 66 73 65 74 20 | 27 61 64 61 2d 67 65 74 |).(fset |'ada-get|
|000024d0| 2d 61 72 67 2d 6c 69 73 | 74 20 23 5b 6e 69 6c 20 |-arg-lis|t #[nil |
|000024e0| 22 c0 63 88 69 c1 c2 21 | 1b 1c 0b c5 98 ab 85 c6 |".c.i..!|........|
|000024f0| c7 21 aa 99 c8 c9 0b 5c | 22 ab 8f 0b 63 88 ca 20 |.!.....\|"...c.. |
|00002500| 88 0c 6a 88 c1 cb 21 13 | aa 6b 0b cc b1 02 2a 87 |..j...!.|.k....*.|
|00002510| 22 20 5b 22 20 28 22 20 | 72 65 61 64 2d 73 74 72 |" [" (" |read-str|
|00002520| 69 6e 67 20 22 5b 61 72 | 67 75 6d 65 6e 74 73 5d |ing "[ar|guments]|
|00002530| 3a 20 22 20 61 64 61 2d | 61 72 67 73 20 61 64 61 |: " ada-|args ada|
|00002540| 2d 61 72 67 2d 69 6e 64 | 65 6e 74 20 22 22 20 62 |-arg-ind|ent "" b|
|00002550| 61 63 6b 77 61 72 64 2d | 64 65 6c 65 74 65 2d 63 |ackward-|delete-c|
|00002560| 68 61 72 20 32 20 73 74 | 72 69 6e 67 2d 6d 61 74 |har 2 st|ring-mat|
|00002570| 63 68 20 22 3b 24 22 20 | 6e 65 77 6c 69 6e 65 20 |ch ";$" |newline |
|00002580| 22 6e 65 78 74 20 61 72 | 67 75 6d 65 6e 74 3a 20 |"next ar|gument: |
|00002590| 22 20 22 29 22 5d 20 33 | 20 22 5c 0a 52 65 61 64 |" ")"] 3| "\.Read|
|000025a0| 20 66 72 6f 6d 20 75 73 | 65 72 20 61 20 70 72 6f | from us|er a pro|
|000025b0| 63 65 64 75 72 65 20 6f | 72 20 66 75 6e 63 74 69 |cedure o|r functi|
|000025c0| 6f 6e 20 61 72 67 75 6d | 65 6e 74 20 6c 69 73 74 |on argum|ent list|
|000025d0| 2e 0a 41 64 64 20 70 61 | 72 65 6e 73 20 75 6e 6c |..Add pa|rens unl|
|000025e0| 65 73 73 20 61 72 67 75 | 6d 65 6e 74 73 20 61 62 |ess argu|ments ab|
|000025f0| 73 65 6e 74 2c 20 61 6e | 64 20 69 6e 73 65 72 74 |sent, an|d insert|
|00002600| 20 69 6e 74 6f 20 62 75 | 66 66 65 72 2e 0a 49 6e | into bu|ffer..In|
|00002610| 64 69 76 69 64 75 61 6c | 20 61 72 67 75 6d 65 6e |dividual| argumen|
|00002620| 74 73 20 61 72 65 20 61 | 72 72 61 6e 67 65 64 20 |ts are a|rranged |
|00002630| 76 65 72 74 69 63 61 6c | 6c 79 20 69 66 20 65 6e |vertical|ly if en|
|00002640| 74 65 72 65 64 20 6f 6e | 65 2d 61 74 2d 61 2d 74 |tered on|e-at-a-t|
|00002650| 69 6d 65 2e 0a 41 72 67 | 75 6d 65 6e 74 73 20 65 |ime..Arg|uments e|
|00002660| 6e 64 69 6e 67 20 77 69 | 74 68 20 27 3b 27 20 61 |nding wi|th ';' a|
|00002670| 72 65 20 70 72 65 73 75 | 6d 65 64 20 73 69 6e 67 |re presu|med sing|
|00002680| 6c 65 20 61 6e 64 20 73 | 74 61 63 6b 65 64 2e 22 |le and s|tacked."|
|00002690| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 61 2d 66 75 |]).(fset| 'ada-fu|
|000026a0| 6e 63 74 69 6f 6e 2d 73 | 70 65 63 20 23 5b 6e 69 |nction-s|pec #[ni|
|000026b0| 6c 20 22 c0 63 88 c1 c2 | 21 63 88 c3 20 88 c4 63 |l ".c...|!c.. ..c|
|000026c0| 88 c1 c5 21 63 87 22 20 | 5b 22 66 75 6e 63 74 69 |...!c." |["functi|
|000026d0| 6f 6e 20 22 20 72 65 61 | 64 2d 73 74 72 69 6e 67 |on " rea|d-string|
|000026e0| 20 22 66 75 6e 63 74 69 | 6f 6e 20 6e 61 6d 65 3a | "functi|on name:|
|000026f0| 20 22 20 61 64 61 2d 67 | 65 74 2d 61 72 67 2d 6c | " ada-g|et-arg-l|
|00002700| 69 73 74 20 22 20 72 65 | 74 75 72 6e 20 22 20 22 |ist " re|turn " "|
|00002710| 72 65 73 75 6c 74 20 74 | 79 70 65 3a 20 22 5d 20 |result t|ype: "] |
|00002720| 32 20 22 5c 0a 49 6e 73 | 65 72 74 20 61 20 66 75 |2 "\.Ins|ert a fu|
|00002730| 6e 63 74 69 6f 6e 20 73 | 70 65 63 69 66 69 63 61 |nction s|pecifica|
|00002740| 74 69 6f 6e 2e 20 20 50 | 72 6f 6d 70 74 73 20 66 |tion.  P|rompts f|
|00002750| 6f 72 20 6e 61 6d 65 20 | 61 6e 64 20 61 72 67 75 |or name |and argu|
|00002760| 6d 65 6e 74 73 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |ments." |nil]).(f|
|00002770| 73 65 74 20 27 61 64 61 | 2d 70 72 6f 63 65 64 75 |set 'ada|-procedu|
|00002780| 72 65 2d 73 70 65 63 20 | 23 5b 6e 69 6c 20 22 c0 |re-spec |#[nil ".|
|00002790| 63 88 c1 c2 21 63 88 c3 | 20 87 22 20 5b 22 70 72 |c...!c..| ." ["pr|
|000027a0| 6f 63 65 64 75 72 65 20 | 22 20 72 65 61 64 2d 73 |ocedure |" read-s|
|000027b0| 74 72 69 6e 67 20 22 70 | 72 6f 63 65 64 75 72 65 |tring "p|rocedure|
|000027c0| 20 6e 61 6d 65 3a 20 22 | 20 61 64 61 2d 67 65 74 | name: "| ada-get|
|000027d0| 2d 61 72 67 2d 6c 69 73 | 74 5d 20 32 20 22 5c 0a |-arg-lis|t] 2 "\.|
|000027e0| 49 6e 73 65 72 74 20 61 | 20 70 72 6f 63 65 64 75 |Insert a| procedu|
|000027f0| 72 65 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |re speci|fication|
|00002800| 2c 20 70 72 6f 6d 70 74 | 69 6e 67 20 66 6f 72 20 |, prompt|ing for |
|00002810| 69 74 73 20 6e 61 6d 65 | 20 61 6e 64 20 61 72 67 |its name| and arg|
|00002820| 75 6d 65 6e 74 73 2e 22 | 20 6e 69 6c 5d 29 0a 28 |uments."| nil]).(|
|00002830| 66 73 65 74 20 27 67 65 | 74 2d 61 64 61 2d 73 75 |fset 'ge|t-ada-su|
|00002840| 62 70 72 6f 67 72 61 6d | 2d 6e 61 6d 65 20 23 5b |bprogram|-name #[|
|00002850| 6e 69 6c 20 22 8a c0 19 | c2 c3 c4 c5 23 ab a2 c6 |nil "...|....#...|
|00002860| c7 21 ac 85 c6 c8 21 ab | 94 69 11 c9 76 88 60 1e |.!....!.|.i..v.`.|
|00002870| 5c 6e cb 76 88 60 0e 5c | 6e 7b 09 29 42 aa 87 cc |\n.v.`.\|n{.)B...|
|00002880| 20 aa 83 cd 09 42 2a 87 | 22 20 5b 30 20 61 64 61 | ....B*.|" [0 ada|
|00002890| 2d 70 72 6f 63 2d 69 6e | 64 65 6e 74 20 72 65 2d |-proc-in|dent re-|
|000028a0| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|000028b0| 22 5b 50 70 46 66 5d 5b | 52 72 55 75 5d 5b 4f 6f |"[PpFf][|RrUu][Oo|
|000028c0| 4e 6e 5d 5b 43 63 5d 5b | 45 65 54 74 5d 5b 44 64 |Nn][Cc][|EeTt][Dd|
|000028d0| 49 69 5d 5b 55 75 4f 6f | 5d 5b 52 72 4e 6e 5d 22 |Ii][UuOo|][RrNn]"|
|000028e0| 20 6e 69 6c 20 74 20 6c | 6f 6f 6b 69 6e 67 2d 61 | nil t l|ooking-a|
|000028f0| 74 20 22 5c 5c 3c 5b 50 | 70 5d 5b 52 72 5d 5b 4f |t "\\<[P|p][Rr][O|
|00002900| 6f 5d 5b 43 63 5d 5b 45 | 65 5d 5b 44 64 5d 5b 55 |o][Cc][E|e][Dd][U|
|00002910| 75 5d 5b 52 72 5d 5b 45 | 65 5d 5c 5c 3e 22 20 22 |u][Rr][E|e]\\>" "|
|00002920| 5c 5c 3c 5b 46 66 5d 5b | 55 75 5d 5b 4e 6e 5d 5b |\\<[Ff][|Uu][Nn][|
|00002930| 43 63 5d 5b 54 74 5d 5b | 49 69 5d 5b 4f 6f 5d 5b |Cc][Tt][|Ii][Oo][|
|00002940| 4e 6e 5d 5c 5c 3e 22 20 | 32 20 70 32 20 2d 31 20 |Nn]\\>" |2 p2 -1 |
|00002950| 67 65 74 2d 61 64 61 2d | 73 75 62 70 72 6f 67 72 |get-ada-|subprogr|
|00002960| 61 6d 2d 6e 61 6d 65 20 | 22 4e 41 4d 45 3f 22 5d |am-name |"NAME?"]|
|00002970| 20 34 20 22 5c 0a 52 65 | 74 75 72 6e 20 28 77 69 | 4 "\.Re|turn (wi|
|00002980| 74 68 6f 75 74 20 6d 6f | 76 69 6e 67 20 70 6f 69 |thout mo|ving poi|
|00002990| 6e 74 20 6f 72 20 6d 61 | 72 6b 29 20 61 20 70 61 |nt or ma|rk) a pa|
|000029a0| 69 72 20 77 68 6f 73 65 | 20 43 41 52 20 69 73 0a |ir whose| CAR is.|
|000029b0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|000029c0| 66 75 6e 63 74 69 6f 6e | 20 6f 72 20 70 72 6f 63 |function| or proc|
|000029d0| 65 64 75 72 65 20 77 68 | 6f 73 65 20 73 70 65 63 |edure wh|ose spec|
|000029e0| 20 69 6d 6d 65 64 69 61 | 74 65 6c 79 20 70 72 65 | immedia|tely pre|
|000029f0| 63 65 64 65 73 20 70 6f | 69 6e 74 2c 0a 61 6e 64 |cedes po|int,.and|
|00002a00| 20 77 68 6f 73 65 20 43 | 44 52 20 69 73 20 74 68 | whose C|DR is th|
|00002a10| 65 20 63 6f 6c 75 6d 6e | 20 6e 62 72 20 74 68 65 |e column| nbr the|
|00002a20| 20 70 72 6f 63 65 64 75 | 72 65 2f 66 75 6e 63 74 | procedu|re/funct|
|00002a30| 69 6f 6e 20 6b 65 79 77 | 6f 72 64 20 77 61 73 20 |ion keyw|ord was |
|00002a40| 66 6f 75 6e 64 20 61 74 | 2e 22 5d 29 0a 28 66 73 |found at|."]).(fs|
|00002a50| 65 74 20 27 61 64 61 2d | 73 75 62 70 72 6f 67 72 |et 'ada-|subprogr|
|00002a60| 61 6d 2d 62 6f 64 79 20 | 23 5b 6e 69 6c 20 22 c0 |am-body |#[nil ".|
|00002a70| 63 88 c1 20 1a c3 20 88 | 5c 6e 41 6a 88 c4 20 88 |c.. .. .|\nAj.. .|
|00002a80| c5 63 88 c4 20 88 c4 20 | 88 c6 5c 6e 40 c7 b1 03 |.c.. .. |..\n@...|
|00002a90| 88 29 c8 7f 88 c9 20 87 | 22 20 5b 22 20 69 73 22 |.).... .|" [" is"|
|00002aa0| 20 67 65 74 2d 61 64 61 | 2d 73 75 62 70 72 6f 67 | get-ada|-subprog|
|00002ab0| 72 61 6d 2d 6e 61 6d 65 | 20 61 64 61 2d 73 75 62 |ram-name| ada-sub|
|00002ac0| 70 72 6f 67 72 61 6d 2d | 6e 61 6d 65 2d 63 6f 6c |program-|name-col|
|00002ad0| 20 6e 65 77 6c 69 6e 65 | 20 61 64 61 2d 6e 65 77 | newline| ada-new|
|00002ae0| 6c 69 6e 65 20 22 62 65 | 67 69 6e 22 20 22 65 6e |line "be|gin" "en|
|00002af0| 64 20 22 20 22 3b 22 20 | 2d 32 20 61 64 61 2d 74 |d " ";" |-2 ada-t|
|00002b00| 61 62 5d 20 33 20 22 5c | 0a 49 6e 73 65 72 74 20 |ab] 3 "\|.Insert |
|00002b10| 66 72 61 6d 65 20 66 6f | 72 20 73 75 62 70 72 6f |frame fo|r subpro|
|00002b20| 67 72 61 6d 20 62 6f 64 | 79 2e 0a 49 6e 76 6f 6b |gram bod|y..Invok|
|00002b30| 65 20 72 69 67 68 74 20 | 61 66 74 65 72 20 61 64 |e right |after ad|
|00002b40| 61 2d 66 75 6e 63 74 69 | 6f 6e 2d 73 70 65 63 20 |a-functi|on-spec |
|00002b50| 6f 72 20 61 64 61 2d 70 | 72 6f 63 65 64 75 72 65 |or ada-p|rocedure|
|00002b60| 2d 73 70 65 63 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |-spec." |nil]).(f|
|00002b70| 73 65 74 20 27 61 64 61 | 2d 73 65 70 61 72 61 74 |set 'ada|-separat|
|00002b80| 65 20 23 5b 6e 69 6c 20 | 22 c0 63 88 c1 20 88 c2 |e #[nil |".c.. ..|
|00002b90| 20 88 c3 63 88 c1 20 88 | c4 20 87 22 20 5b 22 20 | ..c.. .|. ." [" |
|00002ba0| 69 73 22 20 61 64 61 2d | 6e 65 77 6c 69 6e 65 20 |is" ada-|newline |
|00002bb0| 61 64 61 2d 74 61 62 20 | 22 73 65 70 61 72 61 74 |ada-tab |"separat|
|00002bc0| 65 3b 22 20 61 64 61 2d | 75 6e 74 61 62 5d 20 31 |e;" ada-|untab] 1|
|00002bd0| 20 22 5c 0a 46 69 6e 69 | 73 68 20 61 20 62 6f 64 | "\.Fini|sh a bod|
|00002be0| 79 20 73 74 75 62 20 77 | 69 74 68 20 27 69 73 20 |y stub w|ith 'is |
|00002bf0| 73 65 70 61 72 61 74 65 | 27 2e 22 20 6e 69 6c 5d |separate|'." nil]|
|00002c00| 29 0a 28 66 73 65 74 20 | 27 61 64 61 2d 72 65 63 |).(fset |'ada-rec|
|00002c10| 6f 72 64 20 23 5b 6e 69 | 6c 20 22 c0 63 88 c1 20 |ord #[ni|l ".c.. |
|00002c20| 88 c1 20 88 c2 63 88 c3 | 7f 88 c4 20 87 22 20 5b |.. ..c..|... ." [|
|00002c30| 22 72 65 63 6f 72 64 22 | 20 61 64 61 2d 6e 65 77 |"record"| ada-new|
|00002c40| 6c 69 6e 65 20 22 65 6e | 64 20 72 65 63 6f 72 64 |line "en|d record|
|00002c50| 3b 22 20 30 20 61 64 61 | 2d 74 61 62 5d 20 31 20 |;" 0 ada|-tab] 1 |
|00002c60| 22 5c 0a 49 6e 73 65 72 | 74 20 61 20 73 6b 65 6c |"\.Inser|t a skel|
|00002c70| 65 74 6f 6e 20 72 65 63 | 6f 72 64 20 74 79 70 65 |eton rec|ord type|
|00002c80| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 2e 22 20 6e | declara|tion." n|
|00002c90| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 61 64 61 2d |il]).(fs|et 'ada-|
|00002ca0| 73 75 62 74 79 70 65 20 | 23 5b 6e 69 6c 20 22 c0 |subtype |#[nil ".|
|00002cb0| c1 c2 21 c3 b1 03 88 c4 | 20 88 c5 c6 21 87 22 20 |..!.....| ...!." |
|00002cc0| 5b 22 73 75 62 74 79 70 | 65 20 22 20 72 65 61 64 |["subtyp|e " read|
|00002cd0| 2d 73 74 72 69 6e 67 20 | 22 73 75 62 74 79 70 65 |-string |"subtype|
|00002ce0| 20 6e 61 6d 65 3a 20 22 | 20 22 20 69 73 20 3b 22 | name: "| " is ;"|
|00002cf0| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 6d | backwar|d-char m|
|00002d00| 65 73 73 61 67 65 20 22 | 69 6e 73 65 72 74 20 73 |essage "|insert s|
|00002d10| 75 62 74 79 70 65 20 69 | 6e 64 69 63 61 74 69 6f |ubtype i|ndicatio|
|00002d20| 6e 2e 22 5d 20 33 20 22 | 5c 0a 53 74 61 72 74 20 |n."] 3 "|\.Start |
|00002d30| 69 6e 73 65 72 74 69 6f | 6e 20 6f 66 20 61 20 73 |insertio|n of a s|
|00002d40| 75 62 74 79 70 65 20 64 | 65 63 6c 61 72 61 74 69 |ubtype d|eclarati|
|00002d50| 6f 6e 2c 20 70 72 6f 6d | 70 74 69 6e 67 20 66 6f |on, prom|pting fo|
|00002d60| 72 20 74 68 65 20 73 75 | 62 74 79 70 65 20 6e 61 |r the su|btype na|
|00002d70| 6d 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |me." nil|]).(fset|
|00002d80| 20 27 61 64 61 2d 74 79 | 70 65 20 23 5b 6e 69 6c | 'ada-ty|pe #[nil|
|00002d90| 20 22 c0 c1 c2 21 b1 02 | 88 c1 c3 21 89 1c c5 98 | "...!..|...!....|
|00002da0| ac 86 c6 0c c7 b1 03 88 | 29 c8 63 88 c9 ca 21 87 |........|).c...!.|
|00002db0| 22 20 5b 22 74 79 70 65 | 20 22 20 72 65 61 64 2d |" ["type| " read-|
|00002dc0| 73 74 72 69 6e 67 20 22 | 74 79 70 65 20 6e 61 6d |string "|type nam|
|00002dd0| 65 3a 20 22 20 22 64 69 | 73 63 72 69 6d 69 6e 61 |e: " "di|scrimina|
|00002de0| 6e 74 20 73 70 65 63 73 | 3a 20 22 20 64 69 73 63 |nt specs|: " disc|
|00002df0| 2d 70 61 72 74 20 22 22 | 20 22 28 22 20 22 29 22 |-part ""| "(" ")"|
|00002e00| 20 22 20 69 73 20 22 20 | 6d 65 73 73 61 67 65 20 | " is " |message |
|00002e10| 22 69 6e 73 65 72 74 20 | 74 79 70 65 20 64 65 66 |"insert |type def|
|00002e20| 69 6e 69 74 69 6f 6e 2e | 22 5d 20 34 20 22 5c 0a |inition.|"] 4 "\.|
|00002e30| 53 74 61 72 74 20 69 6e | 73 65 72 74 69 6f 6e 20 |Start in|sertion |
|00002e40| 6f 66 20 61 20 74 79 70 | 65 20 64 65 63 6c 61 72 |of a typ|e declar|
|00002e50| 61 74 69 6f 6e 2c 20 70 | 72 6f 6d 70 74 69 6e 67 |ation, p|rompting|
|00002e60| 20 66 6f 72 20 74 68 65 | 20 74 79 70 65 20 6e 61 | for the| type na|
|00002e70| 6d 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |me." nil|]).(fset|
|00002e80| 20 27 61 64 61 2d 77 68 | 69 6c 65 2d 6c 6f 6f 70 | 'ada-wh|ile-loop|
|00002e90| 20 23 5b 6e 69 6c 20 22 | c0 63 88 c1 c2 21 89 1b | #[nil "|.c...!..|
|00002ea0| c4 98 3f 89 1d ab 93 c6 | 79 88 c7 c8 21 88 0b c9 |..?.....|y...!...|
|00002eb0| b1 02 88 ca c8 21 88 c8 | 7f 88 c1 cb 21 cc b1 02 |.....!..|....!...|
|00002ec0| 88 cd 20 88 cd 20 88 ce | 63 88 0d ab 85 cf 0b b1 |.. .. ..|c.......|
|00002ed0| 02 88 d0 63 88 2a c6 7f | 88 d1 20 87 22 20 5b 22 |...c.*..|.. ." ["|
|00002ee0| 77 68 69 6c 65 20 22 20 | 72 65 61 64 2d 73 74 72 |while " |read-str|
|00002ef0| 69 6e 67 20 22 6c 6f 6f | 70 20 6e 61 6d 65 3a 20 |ing "loo|p name: |
|00002f00| 22 20 61 64 61 2d 6c 6f | 6f 70 2d 6e 61 6d 65 20 |" ada-lo|op-name |
|00002f10| 22 22 20 61 64 61 2d 6c | 6f 6f 70 2d 69 73 2d 6e |"" ada-l|oop-is-n|
|00002f20| 61 6d 65 64 20 30 20 6f | 70 65 6e 2d 6c 69 6e 65 |amed 0 o|pen-line|
|00002f30| 20 31 20 22 3a 22 20 6e | 65 78 74 2d 6c 69 6e 65 | 1 ":" n|ext-line|
|00002f40| 20 22 65 6e 74 72 79 20 | 63 6f 6e 64 69 74 69 6f | "entry |conditio|
|00002f50| 6e 3a 20 22 20 22 20 6c | 6f 6f 70 22 20 61 64 61 |n: " " l|oop" ada|
|00002f60| 2d 6e 65 77 6c 69 6e 65 | 20 22 65 6e 64 20 6c 6f |-newline| "end lo|
|00002f70| 6f 70 22 20 22 20 22 20 | 22 3b 22 20 61 64 61 2d |op" " " |";" ada-|
|00002f80| 74 61 62 5d 20 33 20 6e | 69 6c 20 6e 69 6c 5d 29 |tab] 3 n|il nil])|
|00002f90| 0a 28 66 73 65 74 20 27 | 61 64 61 2d 70 61 69 72 |.(fset '|ada-pair|
|00002fa0| 65 64 2d 70 61 72 65 6e | 73 20 23 5b 6e 69 6c 20 |ed-paren|s #[nil |
|00002fb0| 22 c0 63 88 c1 20 87 22 | 20 5b 22 28 29 22 20 62 |".c.. ."| ["()" b|
|00002fc0| 61 63 6b 77 61 72 64 2d | 63 68 61 72 5d 20 31 20 |ackward-|char] 1 |
|00002fd0| 22 5c 0a 49 6e 73 65 72 | 74 20 61 20 70 61 69 72 |"\.Inser|t a pair|
|00002fe0| 20 6f 66 20 72 6f 75 6e | 64 20 70 61 72 65 6e 74 | of roun|d parent|
|00002ff0| 68 65 73 65 73 2c 20 70 | 6c 61 63 69 6e 67 20 70 |heses, p|lacing p|
|00003000| 6f 69 6e 74 20 62 65 74 | 77 65 65 6e 20 74 68 65 |oint bet|ween the|
|00003010| 6d 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |m." nil]|).(fset |
|00003020| 27 61 64 61 2d 69 6e 6c | 69 6e 65 2d 63 6f 6d 6d |'ada-inl|ine-comm|
|00003030| 65 6e 74 20 23 5b 6e 69 | 6c 20 22 c0 7f 88 69 09 |ent #[ni|l "...i.|
|00003040| 56 ab 83 c2 20 88 69 0b | 57 ab 83 0b 6a 88 c4 63 |V... .i.|W...j..c|
|00003050| 87 22 20 5b 6e 69 6c 20 | 65 6e 64 2d 63 6f 6d 6d |." [nil |end-comm|
|00003060| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 20 6e 65 77 6c 69 |ent-colu|mn newli|
|00003070| 6e 65 20 63 6f 6d 6d 65 | 6e 74 2d 63 6f 6c 75 6d |ne comme|nt-colum|
|00003080| 6e 20 22 20 2d 2d 20 22 | 5d 20 32 20 22 5c 0a 53 |n " -- "|] 2 "\.S|
|00003090| 74 61 72 74 20 61 20 63 | 6f 6d 6d 65 6e 74 20 61 |tart a c|omment a|
|000030a0| 66 74 65 72 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |fter the| end of |
|000030b0| 74 68 65 20 6c 69 6e 65 | 2c 20 69 6e 64 65 6e 74 |the line|, indent|
|000030c0| 65 64 20 61 74 20 6c 65 | 61 73 74 20 43 4f 4d 4d |ed at le|ast COMM|
|000030d0| 45 4e 54 2d 43 4f 4c 55 | 4d 4e 2e 0a 49 66 20 73 |ENT-COLU|MN..If s|
|000030e0| 74 61 72 74 69 6e 67 20 | 61 66 74 65 72 20 45 4e |tarting |after EN|
|000030f0| 44 2d 43 4f 4d 4d 45 4e | 54 2d 43 4f 4c 55 4d 4e |D-COMMEN|T-COLUMN|
|00003100| 2c 20 73 74 61 72 74 20 | 61 20 6e 65 77 20 6c 69 |, start |a new li|
|00003110| 6e 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ne." nil|]).(fset|
|00003120| 20 27 61 64 61 2d 64 69 | 73 70 6c 61 79 2d 63 6f | 'ada-di|splay-co|
|00003130| 6d 6d 65 6e 74 20 23 5b | 6e 69 6c 20 22 c0 63 88 |mment #[|nil ".c.|
|00003140| c1 7f 87 22 20 5b 22 2d | 2d 5c 6e 2d 2d 20 5c 6e |..." ["-|-\n-- \n|
|00003150| 2d 2d 22 20 30 5d 20 31 | 20 22 5c 0a 49 6e 73 65 |--" 0] 1| "\.Inse|
|00003160| 72 74 73 20 33 20 63 6f | 6d 6d 65 6e 74 20 6c 69 |rts 3 co|mment li|
|00003170| 6e 65 73 2c 20 6d 61 6b | 69 6e 67 20 61 20 64 69 |nes, mak|ing a di|
|00003180| 73 70 6c 61 79 20 63 6f | 6d 6d 65 6e 74 2e 22 20 |splay co|mment." |
|00003190| 6e 69 6c 5d 29 0a 28 64 | 65 66 76 61 72 20 61 64 |nil]).(d|efvar ad|
|000031a0| 61 2d 6c 69 62 2d 64 69 | 72 2d 6e 61 6d 65 20 22 |a-lib-di|r-name "|
|000031b0| 6c 69 62 22 20 22 5c 0a | 2a 43 75 72 72 65 6e 74 |lib" "\.|*Current|
|000031c0| 20 61 64 61 20 70 72 6f | 67 72 61 6d 20 6c 69 62 | ada pro|gram lib|
|000031d0| 72 61 72 79 20 64 69 72 | 65 63 74 6f 72 79 2e 22 |rary dir|ectory."|
|000031e0| 29 0a 28 64 65 66 76 61 | 72 20 61 64 61 2d 62 69 |).(defva|r ada-bi|
|000031f0| 6e 64 2d 6f 70 74 73 20 | 22 22 20 22 5c 0a 2a 4f |nd-opts |"" "\.*O|
|00003200| 70 74 69 6f 6e 73 20 74 | 6f 20 73 75 70 70 6c 79 |ptions t|o supply|
|00003210| 20 66 6f 72 20 62 69 6e | 64 69 6e 67 2e 22 29 0a | for bin|ding.").|
|00003220| 28 66 73 65 74 20 27 61 | 64 61 2d 6c 69 62 72 61 |(fset 'a|da-libra|
|00003230| 72 79 2d 6e 61 6d 65 20 | 23 5b 28 61 64 61 2d 6c |ry-name |#[(ada-l|
|00003240| 69 62 2d 6e 61 6d 65 29 | 20 22 08 89 11 87 22 20 |ib-name)| "...." |
|00003250| 5b 61 64 61 2d 6c 69 62 | 2d 6e 61 6d 65 20 61 64 |[ada-lib|-name ad|
|00003260| 61 2d 6c 69 62 2d 64 69 | 72 2d 6e 61 6d 65 5d 20 |a-lib-di|r-name] |
|00003270| 32 20 22 5c 0a 53 70 65 | 63 69 66 79 20 6e 61 6d |2 "\.Spe|cify nam|
|00003280| 65 20 6f 66 20 61 64 61 | 20 6c 69 62 72 61 72 79 |e of ada| library|
|00003290| 20 64 69 72 65 63 74 6f | 72 79 20 66 6f 72 20 6c | directo|ry for l|
|000032a0| 61 74 65 72 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |ater com|pilation|
|000032b0| 73 2e 22 20 22 44 6e 61 | 6d 65 20 6f 66 20 61 64 |s." "Dna|me of ad|
|000032c0| 61 20 6c 69 62 72 61 72 | 79 20 64 69 72 65 63 74 |a librar|y direct|
|000032d0| 6f 72 79 3a 20 22 5d 29 | 0a 28 66 73 65 74 20 27 |ory: "])|.(fset '|
|000032e0| 61 64 61 2d 6f 70 74 69 | 6f 6e 73 2d 66 6f 72 2d |ada-opti|ons-for-|
|000032f0| 62 69 6e 64 20 23 5b 6e | 69 6c 20 22 c0 c1 21 89 |bind #[n|il "..!.|
|00003300| 12 87 22 20 5b 72 65 61 | 64 2d 73 74 72 69 6e 67 |.." [rea|d-string|
|00003310| 20 22 2d 6d 20 61 6e 64 | 20 2d 69 20 6f 70 74 69 | "-m and| -i opti|
|00003320| 6f 6e 73 20 66 6f 72 20 | 61 64 61 62 69 6e 64 3a |ons for |adabind:|
|00003330| 20 22 20 61 64 61 2d 62 | 69 6e 64 2d 6f 70 74 73 | " ada-b|ind-opts|
|00003340| 5d 20 32 20 22 5c 0a 53 | 70 65 63 69 66 79 20 6f |] 2 "\.S|pecify o|
|00003350| 70 74 69 6f 6e 73 2c 20 | 73 75 63 68 20 61 73 20 |ptions, |such as |
|00003360| 2d 6d 20 61 6e 64 20 2d | 69 2c 20 6e 65 65 64 65 |-m and -|i, neede|
|00003370| 64 20 66 6f 72 20 61 64 | 61 62 69 6e 64 2e 22 5d |d for ad|abind."]|
|00003380| 29 0a 28 66 73 65 74 20 | 27 61 64 61 2d 63 6f 6d |).(fset |'ada-com|
|00003390| 70 69 6c 65 20 23 5b 28 | 61 64 61 2d 70 72 65 66 |pile #[(|ada-pref|
|000033a0| 69 78 2d 61 72 67 29 20 | 22 08 ac 83 c1 aa 81 c2 |ix-arg) |".......|
|000033b0| 1b c4 20 1d c6 c7 0b c8 | 0e 09 ca 0d b0 06 21 2a |.. .....|......!*|
|000033c0| 87 22 20 5b 61 64 61 2d | 70 72 65 66 69 78 2d 61 |." [ada-|prefix-a|
|000033d0| 72 67 20 22 22 20 22 2d | 6e 20 22 20 61 64 61 2d |rg "" "-|n " ada-|
|000033e0| 69 6e 69 74 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |init buf|fer-name|
|000033f0| 20 61 64 61 2d 73 6f 75 | 72 63 65 2d 66 69 6c 65 | ada-sou|rce-file|
|00003400| 20 63 6f 6d 70 69 6c 65 | 20 22 61 64 61 63 6f 6d | compile| "adacom|
|00003410| 70 20 22 20 22 2d 6c 20 | 22 20 61 64 61 2d 6c 69 |p " "-l |" ada-li|
|00003420| 62 2d 64 69 72 2d 6e 61 | 6d 65 20 22 20 22 5d 20 |b-dir-na|me " "] |
|00003430| 37 20 22 5c 0a 53 61 76 | 65 20 74 68 65 20 63 75 |7 "\.Sav|e the cu|
|00003440| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 61 6e 64 |rrent bu|ffer and|
|00003450| 20 63 6f 6d 70 69 6c 65 | 20 69 74 20 69 6e 74 6f | compile| it into|
|00003460| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 70 72 6f | the cur|rent pro|
|00003470| 67 72 61 6d 20 6c 69 62 | 72 61 72 79 2e 0a 49 6e |gram lib|rary..In|
|00003480| 69 74 69 61 6c 69 7a 65 | 20 74 68 65 20 6c 69 62 |itialize| the lib|
|00003490| 72 61 72 79 20 69 66 20 | 61 20 70 72 65 66 69 78 |rary if |a prefix|
|000034a0| 20 61 72 67 20 69 73 20 | 67 69 76 65 6e 2e 22 20 | arg is |given." |
|000034b0| 22 50 22 5d 29 0a 28 66 | 73 65 74 20 27 61 64 61 |"P"]).(f|set 'ada|
|000034c0| 2d 66 69 6e 64 2d 6c 69 | 73 74 69 6e 67 20 23 5b |-find-li|sting #[|
|000034d0| 6e 69 6c 20 22 c0 c1 20 | c2 c3 4f c4 50 21 88 c5 |nil ".. |..O.P!..|
|000034e0| c6 21 87 22 20 5b 66 69 | 6e 64 2d 66 69 6c 65 2d |.!." [fi|nd-file-|
|000034f0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 62 75 66 |other-wi|ndow buf|
|00003500| 66 65 72 2d 6e 61 6d 65 | 20 30 20 2d 34 20 22 2e |fer-name| 0 -4 ".|
|00003510| 6c 69 73 22 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |lis" sea|rch-forw|
|00003520| 61 72 64 20 22 2a 2a 2a | 20 45 52 52 4f 52 22 5d |ard "***| ERROR"]|
|00003530| 20 34 20 22 5c 0a 46 69 | 6e 64 20 6c 69 73 74 69 | 4 "\.Fi|nd listi|
|00003540| 6e 67 20 66 69 6c 65 20 | 66 6f 72 20 61 64 61 20 |ng file |for ada |
|00003550| 73 6f 75 72 63 65 20 69 | 6e 20 63 75 72 72 65 6e |source i|n curren|
|00003560| 74 20 62 75 66 66 65 72 | 2c 20 75 73 69 6e 67 20 |t buffer|, using |
|00003570| 6f 74 68 65 72 20 77 69 | 6e 64 6f 77 2e 22 20 6e |other wi|ndow." n|
|00003580| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 61 64 61 2d |il]).(fs|et 'ada-|
|00003590| 62 69 6e 64 20 23 5b 6e | 69 6c 20 22 c0 c1 5c 6e |bind #[n|il "..\n|
|000035a0| c3 0c 52 21 87 22 20 5b | 63 6f 6d 70 69 6c 65 20 |..R!." [|compile |
|000035b0| 22 61 64 61 62 69 6e 64 | 20 22 20 61 64 61 2d 62 |"adabind| " ada-b|
|000035c0| 69 6e 64 2d 6f 70 74 73 | 20 22 20 22 20 61 64 61 |ind-opts| " " ada|
|000035d0| 2d 6c 69 62 2d 64 69 72 | 2d 6e 61 6d 65 5d 20 35 |-lib-dir|-name] 5|
|000035e0| 20 22 5c 0a 42 69 6e 64 | 20 74 68 65 20 63 75 72 | "\.Bind| the cur|
|000035f0| 72 65 6e 74 20 70 72 6f | 67 72 61 6d 20 6c 69 62 |rent pro|gram lib|
|00003600| 72 61 72 79 2c 20 75 73 | 69 6e 67 20 74 68 65 20 |rary, us|ing the |
|00003610| 63 75 72 72 65 6e 74 20 | 62 69 6e 64 69 6e 67 20 |current |binding |
|00003620| 6f 70 74 69 6f 6e 73 2e | 22 20 6e 69 6c 5d 29 0a |options.|" nil]).|
+--------+-------------------------+-------------------------+--------+--------+