blob: 74c3ddac0c4349f927148aff971971484cb5701e (plain)

ofs	hex dump	ascii
0000	0a 28 73 65 74 71 20 61 75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 28 63 6f 6e 73 20 28 63 6f	.(setq.auto-mode-alist.(cons.(co
0020	6e 73 20 22 5c 5c 2e 61 64 61 24 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6d 6f 64 65 29 29 20 61	ns."\\.ada$".(quote.ada-mode)).a
0040	75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 29 0a 0a 28 64 65 66 76 61 72 20 61 64 61 2d 6d 6f	uto-mode-alist))..(defvar.ada-mo
0060	64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61	de-syntax-table.nil."\.Syntax.ta
0080	62 6c 65 20 69 6e 20 75 73 65 20 69 6e 20 41 64 61 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 2e 22	ble.in.use.in.Ada-mode.buffers."
00a0	29 0a 0a 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62	)..(let.((table.(make-syntax-tab
00c0	6c 65 29 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 35 20 22 5f	le))).(modify-syntax-entry.95."_
00e0	22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 35	".table).(modify-syntax-entry.35
0100	20 22 5f 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79	."_".table).(modify-syntax-entry
0120	20 34 30 20 22 28 29 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65	.40."()".table).(modify-syntax-e
0140	6e 74 72 79 20 34 31 20 22 29 28 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74	ntry.41.")(".table).(modify-synt
0160	61 78 2d 65 6e 74 72 79 20 33 36 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73	ax-entry.36.".".table).(modify-s
0180	79 6e 74 61 78 2d 65 6e 74 72 79 20 34 32 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66	yntax-entry.42.".".table).(modif
01a0	79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 37 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f	y-syntax-entry.47.".".table).(mo
01c0	64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 33 20 22 2e 22 20 74 61 62 6c 65 29 20	dify-syntax-entry.43.".".table).
01e0	28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 35 20 22 2e 22 20 74 61 62 6c	(modify-syntax-entry.45.".".tabl
0200	65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 31 20 22 2e 22 20 74	e).(modify-syntax-entry.61.".".t
0220	61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 38 20 22 2e	able).(modify-syntax-entry.38.".
0240	22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32	".table).(modify-syntax-entry.12
0260	34 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72	4.".".table).(modify-syntax-entr
0280	79 20 36 30 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65	y.60.".".table).(modify-syntax-e
02a0	6e 74 72 79 20 36 32 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61	ntry.62.".".table).(modify-synta
02c0	78 2d 65 6e 74 72 79 20 39 31 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79	x-entry.91.".".table).(modify-sy
02e0	6e 74 61 78 2d 65 6e 74 72 79 20 39 33 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79	ntax-entry.93.".".table).(modify
0300	2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 33 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f	-syntax-entry.123.".".table).(mo
0320	64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 35 20 22 2e 22 20 74 61 62 6c 65 29	dify-syntax-entry.125.".".table)
0340	20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 36 20 22 2e 22 20 74 61 62	.(modify-syntax-entry.46.".".tab
0360	6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 2e 22 20	le).(modify-syntax-entry.92.".".
0380	74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 38 20 22	table).(modify-syntax-entry.58."
03a0	2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35	.".table).(modify-syntax-entry.5
03c0	39 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72	9.".".table).(modify-syntax-entr
03e0	79 20 33 39 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65	y.39.".".table).(modify-syntax-e
0400	6e 74 72 79 20 33 34 20 22 5c 22 22 20 74 61 62 6c 65 29 20 28 73 65 74 71 20 61 64 61 2d 6d 6f	ntry.34."\"".table).(setq.ada-mo
0420	64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 76 61 72	de-syntax-table.table))..(defvar
0440	20 61 64 61 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64	.ada-mode-map.nil."\.Keymap.used
0460	20 69 6e 20 41 64 61 20 6d 6f 64 65 2e 22 29 0a 0a 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b	.in.Ada.mode.")..(let.((map.(mak
0480	65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d	e-sparse-keymap))).(define-key.m
04a0	61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6e 65 77 6c 69 6e 65 29 29 20 28 64 65 66	ap.".".(quote.ada-newline)).(def
04c0	69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d	ine-key.map.".".(quote.backward-
04e0	64 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 29 29 20 28 64 65 66 69 6e 65 2d 6b	delete-char-untabify)).(define-k
0500	65 79 20 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 61 64 61 2d 74 61 62 29 29 20 28 64 65 66	ey.map.".".(quote.ada-tab)).(def
0520	69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 09 22 20 28 71 75 6f 74 65 20 61 64 61 2d 75 6e 74 61	ine-key.map."..".(quote.ada-unta
0540	62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 3c 22 20 28 71 75 6f 74 65 20	b)).(define-key.map.".<".(quote.
0560	61 64 61 2d 62 61 63 6b 77 61 72 64 2d 74 6f 2d 73 61 6d 65 2d 69 6e 64 65 6e 74 29 29 20 28 64	ada-backward-to-same-indent)).(d
0580	65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 3e 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66 6f	efine-key.map.".>".(quote.ada-fo
05a0	72 77 61 72 64 2d 74 6f 2d 73 61 6d 65 2d 69 6e 64 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b	rward-to-same-indent)).(define-k
05c0	65 79 20 6d 61 70 20 22 03 68 22 20 28 71 75 6f 74 65 20 61 64 61 2d 68 65 61 64 65 72 29 29 20	ey.map.".h".(quote.ada-header)).
05e0	28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 28 22 20 28 71 75 6f 74 65 20 61 64 61 2d	(define-key.map.".(".(quote.ada-
0600	70 61 69 72 65 64 2d 70 61 72 65 6e 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20	paired-parens)).(define-key.map.
0620	22 03 2d 22 20 28 71 75 6f 74 65 20 61 64 61 2d 69 6e 6c 69 6e 65 2d 63 6f 6d 6d 65 6e 74 29 29	".-".(quote.ada-inline-comment))
0640	20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 01 22 20 28 71 75 6f 74 65 20 61 64 61	.(define-key.map."..".(quote.ada
0660	2d 61 72 72 61 79 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 62 22 20 28 71	-array)).(define-key.map.".b".(q
0680	75 6f 74 65 20 61 64 61 2d 65 78 63 65 70 74 69 6f 6e 2d 62 6c 6f 63 6b 29 29 20 28 64 65 66 69	uote.ada-exception-block)).(defi
06a0	6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 64 22 20 28 71 75 6f 74 65 20 61 64 61 2d 64 65 63 6c 61	ne-key.map.".d".(quote.ada-decla
06c0	72 65 2d 62 6c 6f 63 6b 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 05 22 20	re-block)).(define-key.map."..".
06e0	28 71 75 6f 74 65 20 61 64 61 2d 65 78 63 65 70 74 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b	(quote.ada-exception)).(define-k
0700	65 79 20 6d 61 70 20 22 03 63 22 20 28 71 75 6f 74 65 20 61 64 61 2d 63 61 73 65 29 29 20 28 64	ey.map.".c".(quote.ada-case)).(d
0720	65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 0b 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 61	efine-key.map."..".(quote.ada-pa
0740	63 6b 61 67 65 2d 73 70 65 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 6b	ckage-spec)).(define-key.map.".k
0760	22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 61 63 6b 61 67 65 2d 62 6f 64 79 29 29 20 28 64 65 66	".(quote.ada-package-body)).(def
0780	69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 10 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 72 6f 63	ine-key.map."..".(quote.ada-proc
07a0	65 64 75 72 65 2d 73 70 65 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 70	edure-spec)).(define-key.map.".p
07c0	22 20 28 71 75 6f 74 65 20 61 64 61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 62 6f 64 79 29 29 20 28	".(quote.ada-subprogram-body)).(
07e0	64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 06 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66	define-key.map."..".(quote.ada-f
0800	75 6e 63 74 69 6f 6e 2d 73 70 65 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22	unction-spec)).(define-key.map."
0820	03 66 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66 6f 72 2d 6c 6f 6f 70 29 29 20 28 64 65 66 69 6e	.f".(quote.ada-for-loop)).(defin
0840	65 2d 6b 65 79 20 6d 61 70 20 22 03 6c 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6c 6f 6f 70 29 29	e-key.map.".l".(quote.ada-loop))
0860	20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 69 22 20 28 71 75 6f 74 65 20 61 64 61	.(define-key.map.".i".(quote.ada
0880	2d 69 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 49 22 20 28 71 75 6f 74	-if)).(define-key.map.".I".(quot
08a0	65 20 61 64 61 2d 65 6c 73 69 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03	e.ada-elsif)).(define-key.map.".
08c0	65 22 20 28 71 75 6f 74 65 20 61 64 61 2d 65 6c 73 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	e".(quote.ada-else)).(define-key
08e0	20 6d 61 70 20 22 03 16 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 72 69 76 61 74 65 29 29 20 28	.map."..".(quote.ada-private)).(
0900	64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 12 22 20 28 71 75 6f 74 65 20 61 64 61 2d 72	define-key.map."..".(quote.ada-r
0920	65 63 6f 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 13 22 20 28 71 75	ecord)).(define-key.map."..".(qu
0940	6f 74 65 20 61 64 61 2d 73 75 62 74 79 70 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61	ote.ada-subtype)).(define-key.ma
0960	70 20 22 03 73 22 20 28 71 75 6f 74 65 20 61 64 61 2d 73 65 70 61 72 61 74 65 29 29 20 28 64 65	p.".s".(quote.ada-separate)).(de
0980	66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 14 22 20 28 71 75 6f 74 65 20 61 64 61 2d 74 79 70	fine-key.map."..".(quote.ada-typ
09a0	65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 74 22 20 28 71 75 6f 74 65 20	e)).(define-key.map.".t".(quote.
09c0	61 64 61 2d 74 61 62 73 69 7a 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03	ada-tabsize)).(define-key.map.".
09e0	77 22 20 28 71 75 6f 74 65 20 61 64 61 2d 77 68 69 6c 65 2d 6c 6f 6f 70 29 29 20 28 64 65 66 69	w".(quote.ada-while-loop)).(defi
0a00	6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 17 22 20 28 71 75 6f 74 65 20 61 64 61 2d 77 68 65 6e 29	ne-key.map."..".(quote.ada-when)
0a20	29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 78 22 20 28 71 75 6f 74 65 20 61 64	).(define-key.map.".x".(quote.ad
0a40	61 2d 65 78 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 43 22 20 28 71	a-exit)).(define-key.map.".C".(q
0a60	75 6f 74 65 20 61 64 61 2d 63 6f 6d 70 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d	uote.ada-compile)).(define-key.m
0a80	61 70 20 22 03 42 22 20 28 71 75 6f 74 65 20 61 64 61 2d 62 69 6e 64 29 29 20 28 64 65 66 69 6e	ap.".B".(quote.ada-bind)).(defin
0aa0	65 2d 6b 65 79 20 6d 61 70 20 22 03 45 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66 69 6e 64 2d 6c	e-key.map.".E".(quote.ada-find-l
0ac0	69 73 74 69 6e 67 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 4c 22 20 28 71	isting)).(define-key.map.".L".(q
0ae0	75 6f 74 65 20 61 64 61 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 29 29 20 28 64 65 66 69 6e 65 2d	uote.ada-library-name)).(define-
0b00	6b 65 79 20 6d 61 70 20 22 03 4f 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6f 70 74 69 6f 6e 73 2d	key.map.".O".(quote.ada-options-
0b20	66 6f 72 2d 62 69 6e 64 29 29 20 28 73 65 74 71 20 61 64 61 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61	for-bind)).(setq.ada-mode-map.ma
0b40	70 29 29 0a 0a 28 64 65 66 76 61 72 20 61 64 61 2d 69 6e 64 65 6e 74 20 34 20 22 5c 0a 2a 56 61	p))..(defvar.ada-indent.4."\.*Va
0b60	6c 75 65 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 74 6f 20	lue.is.the.number.of.columns.to.
0b80	69 6e 64 65 6e 74 20 69 6e 20 41 64 61 2d 4d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 61 64	indent.in.Ada-Mode.")..(defun.ad
0ba0	61 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 69 73 20 61 20 6d 6f 64 65 20 69 6e 74	a-mode.nil."\.This.is.a.mode.int
0bc0	65 6e 64 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 70 72 6f 67 72 61 6d 20 64 65 76 65 6c 6f 70	ended.to.support.program.develop
0be0	6d 65 6e 74 20 69 6e 20 41 64 61 2e 0a 4d 6f 73 74 20 63 6f 6e 74 72 6f 6c 20 63 6f 6e 73 74 72	ment.in.Ada..Most.control.constr
0c00	75 63 74 73 20 61 6e 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 41 64 61 20 63 61 6e	ucts.and.declarations.of.Ada.can
0c20	20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 62 79 20 74 79	.be.inserted.in.the.buffer.by.ty
0c40	70 69 6e 67 20 43 6f 6e 74 72 6f 6c 2d 43 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 63 68 61	ping.Control-C.followed.by.a.cha
0c60	72 61 63 74 65 72 20 6d 6e 65 6d 6f 6e 69 63 20 66 6f 72 20 74 68 65 20 63 6f 6e 73 74 72 75 63	racter.mnemonic.for.the.construc
0c80	74 2e 0a 0a 43 2d 63 20 43 2d 61 20 20 61 72 72 61 79 20 20 20 20 20 20 20 20 20 09 43 2d 63 20	t...C-c.C-a..array..........C-c.
0ca0	62 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 62 6c 6f 63 6b 0a 43 2d 63 20 43 2d 65 20 20 65 78	b....exception.block.C-c.C-e..ex
0cc0	63 65 70 74 69 6f 6e 20 20 20 20 20 20 43 2d 63 20 64 20 20 20 20 64 65 63 6c 61 72 65 20 62 6c	ception......C-c.d....declare.bl
0ce0	6f 63 6b 0a 43 2d 63 20 43 2d 6b 20 20 70 61 63 6b 61 67 65 20 73 70 65 63 20 20 20 43 2d 63 20	ock.C-c.C-k..package.spec...C-c.
0d00	6b 20 20 20 20 70 61 63 6b 61 67 65 20 62 6f 64 79 0a 43 2d 63 20 43 2d 70 20 20 70 72 6f 63 65	k....package.body.C-c.C-p..proce
0d20	64 75 72 65 20 73 70 65 63 20 43 2d 63 20 70 20 20 20 20 70 72 6f 63 2f 66 75 6e 63 20 62 6f 64	dure.spec.C-c.p....proc/func.bod
0d40	79 0a 43 2d 63 20 43 2d 66 20 20 66 75 6e 63 20 73 70 65 63 20 20 20 20 20 20 43 2d 63 20 66 20	y.C-c.C-f..func.spec......C-c.f.
0d60	20 20 20 66 6f 72 20 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	...for.loop.....................
0d80	20 20 20 20 43 2d 63 20 69 20 20 20 20 69 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	....C-c.i....if.................
0da0	20 20 20 20 20 20 20 20 43 2d 63 20 49 20 20 20 20 65 6c 73 69 66 0a 20 20 20 20 20 20 20 20 20	........C-c.I....elsif..........
0dc0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 2d 63 20 65 20 20 20 20 65 6c 73 65 0a 43 2d 63	...............C-c.e....else.C-c
0de0	20 43 2d 76 20 20 70 72 69 76 61 74 65 20 20 20 20 20 20 20 20 43 2d 63 20 6c 20 20 20 20 6c 6f	.C-v..private........C-c.l....lo
0e00	6f 70 0a 43 2d 63 20 43 2d 72 20 20 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 20 43 2d 63 20 63	op.C-c.C-r..record.........C-c.c
0e20	20 20 20 20 63 61 73 65 0a 43 2d 63 20 43 2d 73 20 20 73 75 62 74 79 70 65 20 20 20 20 20 20 20	....case.C-c.C-s..subtype.......
0e40	20 43 2d 63 20 73 20 20 20 20 73 65 70 61 72 61 74 65 0a 43 2d 63 20 43 2d 74 20 20 74 79 70 65	.C-c.s....separate.C-c.C-t..type
0e60	20 20 20 20 20 20 20 20 20 20 20 43 2d 63 20 74 20 20 20 20 74 61 62 20 73 70 61 63 69 6e 67 20	...........C-c.t....tab.spacing.
0e80	66 6f 72 20 69 6e 64 65 6e 74 73 0a 43 2d 63 20 43 2d 77 20 20 77 68 65 6e 20 20 20 20 20 20 20	for.indents.C-c.C-w..when.......
0ea0	20 20 20 20 43 2d 63 20 77 20 20 20 20 77 68 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	....C-c.w....while..............
0ec0	20 20 20 20 20 20 20 20 20 20 20 43 2d 63 20 78 20 20 20 20 65 78 69 74 0a 43 2d 63 20 28 20 20	...........C-c.x....exit.C-c.(..
0ee0	20 20 70 61 69 72 65 64 20 70 61 72 65 6e 73 20 20 43 2d 63 20 2d 20 20 20 20 69 6e 6c 69 6e 65	..paired.parens..C-c.-....inline
0f00	20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.comment........................
0f20	20 43 2d 63 20 68 20 20 20 20 68 65 61 64 65 72 20 73 65 63 0a 43 2d 63 20 43 20 20 20 20 63 6f	.C-c.h....header.sec.C-c.C....co
0f40	6d 70 69 6c 65 20 20 20 20 20 20 20 20 43 2d 63 20 42 20 20 20 20 62 69 6e 64 0a 43 2d 63 20 45	mpile........C-c.B....bind.C-c.E
0f60	20 20 20 20 66 69 6e 64 20 65 72 72 6f 72 20 6c 69 73 74 0a 43 2d 63 20 4c 20 20 20 20 6e 61 6d	....find.error.list.C-c.L....nam
0f80	65 20 6c 69 62 72 61 72 79 20 20 20 43 2d 63 20 4f 20 20 20 20 6f 70 74 69 6f 6e 73 20 66 6f 72	e.library...C-c.O....options.for
0fa0	20 62 69 6e 64 0a 0a 43 2d 63 20 3c 20 61 6e 64 20 43 2d 63 20 3e 20 6d 6f 76 65 20 62 61 63 6b	.bind..C-c.<.and.C-c.>.move.back
0fc0	77 61 72 64 20 61 6e 64 20 66 6f 72 77 61 72 64 20 72 65 73 70 65 63 74 69 76 65 6c 79 20 74 6f	ward.and.forward.respectively.to
0fe0	20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 0a 68 61 76 69 6e 67 20 74 68 65 20 73 61 6d 65 20 28	.the.next.line.having.the.same.(
1000	6f 72 20 6c 65 73 73 65 72 29 20 6c 65 76 65 6c 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e	or.lesser).level.of.indentation.
1020	0a 0a 56 61 72 69 61 62 6c 65 20 61 64 61 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 72 6f 6c 73 20 74	..Variable.ada-indent.controls.t
1040	68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 66 6f 72 20 69 6e 64 65 6e 74 2f 75	he.number.of.spaces.for.indent/u
1060	6e 64 65 6e 74 2e 0a 0a 5c 5c 7b 61 64 61 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 22 20 28 69 6e 74 65	ndent...\\{ada-mode-map}.".(inte
1080	72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 d1 88 d2 20 88 d3 08 21 88 d4 89	ractive).(byte-code.".......!...
10a0	11 88 d5 89 12 88 d6 c3 21 88 d7 89 13 88 d6 c4 21 88 d8 89 14 88 d9 0d 21 88 d6 c6 21 88 da 0e	........!.......!.......!...!...
10c0	07 50 89 16 06 88 d6 c8 21 88 0e 06 89 16 08 88 d6 c9 21 88 ca 89 16 09 88 d6 cb 21 88 ca 89 16	.P......!.........!........!....
10e0	0b 88 d6 cc 21 88 db 89 16 0c 88 d6 cd 21 88 dc 89 16 0d 88 d6 c3 21 88 d7 89 13 88 d6 ce 21 88	....!........!........!.......!.
1100	dd 89 16 0e 88 d6 cf 21 88 de 89 16 0f 88 d6 d0 21 88 ca 89 16 10 88 df e0 21 87 22 20 5b 61 64	.......!........!........!.".[ad
1120	61 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20	a-mode-map.major-mode.mode-name.
1140	63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 65 6e 64 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d	comment-column.end-comment-colum
1160	6e 20 61 64 61 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 70 61 72 61 67 72 61 70	n.ada-mode-syntax-table.paragrap
1180	68 2d 73 74 61 72 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 70 61 72 61 67 72 61 70 68	h-start.page-delimiter.paragraph
11a0	2d 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 2d 69 67 6e 6f 72 65 2d 66 69 6c 6c 2d	-separate.paragraph-ignore-fill-
11c0	70 72 65 66 69 78 20 74 20 72 65 71 75 69 72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c 69 6e 65 20 63	prefix.t.require-final-newline.c
11e0	6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 65 6e 64 20 63 6f 6d 6d 65 6e 74	omment-start.comment-end.comment
1200	2d 73 74 61 72 74 2d 73 6b 69 70 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20	-start-skip.comment-indent-hook.
1220	70 61 72 73 65 2d 73 65 78 70 2d 69 67 6e 6f 72 65 2d 63 6f 6d 6d 65 6e 74 73 20 6e 69 6c 20 6b	parse-sexp-ignore-comments.nil.k
1240	69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61	ill-all-local-variables.use-loca
1260	6c 2d 6d 61 70 20 61 64 61 2d 6d 6f 64 65 20 22 41 64 61 22 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d	l-map.ada-mode."Ada".make-local-
1280	76 61 72 69 61 62 6c 65 20 34 31 20 37 32 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20	variable.41.72.set-syntax-table.
12a0	22 5e 24 5c 5c 7c 22 20 22 2d 2d 22 20 22 0a 22 20 22 2d 2d 2b 20 2a 22 20 63 2d 63 6f 6d 6d 65	"^$\\|"."--"."."."--+.*".c-comme
12c0	6e 74 2d 69 6e 64 65 6e 74 20 72 75 6e 2d 68 6f 6f 6b 73 20 61 64 61 2d 6d 6f 64 65 2d 68 6f 6f	nt-indent.run-hooks.ada-mode-hoo
12e0	6b 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 74 61 62 73 69 7a 65 20 28 73 29 20	k].17))..(defun.ada-tabsize.(s).
1300	22 5c 0a 63 68 61 6e 67 65 73 20 73 70 61 63 69 6e 67 20 75 73 65 64 20 66 6f 72 20 69 6e 64 65	"\.changes.spacing.used.for.inde
1320	6e 74 61 74 69 6f 6e 2e 20 52 65 61 64 73 20 73 70 61 63 69 6e 67 20 66 72 6f 6d 20 6d 69 6e 69	ntation..Reads.spacing.from.mini
1340	62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 6e 6e 65 77 20 69 6e 64 65	buffer.".(interactive."nnew.inde
1360	6e 74 61 74 69 6f 6e 20 73 70 61 63 69 6e 67 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	ntation.spacing:.").(byte-code."
1380	c2 88 09 89 10 87 22 20 5b 61 64 61 2d 69 6e 64 65 6e 74 20 73 20 6e 69 6c 5d 20 32 29 29 0a 0a	......".[ada-indent.s.nil].2))..
13a0	28 64 65 66 75 6e 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 53 74 61 72 74 20	(defun.ada-newline.nil."\.Start.
13c0	6e 65 77 20 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65 6e 74 20 74 6f 20 63 75 72 72 65 6e 74 20 74	new.line.and.indent.to.current.t
13e0	61 62 20 73 74 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f	ab.stop.".(interactive).(byte-co
1400	64 65 20 22 c1 88 c2 20 18 c3 20 88 08 6a 29 87 22 20 5b 61 64 61 2d 63 63 20 6e 69 6c 20 63 75	de.".........j).".[ada-cc.nil.cu
1420	72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 65 77 6c 69 6e 65 5d 20 33 29 29 0a 0a	rrent-indentation.newline].3))..
1440	28 64 65 66 75 6e 20 61 64 61 2d 74 61 62 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 74 6f 20	(defun.ada-tab.nil."\.Indent.to.
1460	6e 65 78 74 20 74 61 62 20 73 74 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	next.tab.stop.".(interactive).(b
1480	79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 54 08 5c 22 6a 87 22 20 5b 61 64 61 2d	yte-code.".......\"T.\"j.".[ada-
14a0	69 6e 64 65 6e 74 20 6e 69 6c 20 2a 20 2f 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69	indent.nil.*./.current-indentati
14c0	6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 75 6e 74 61 62 20 6e 69 6c 20 22 5c	on].5))..(defun.ada-untab.nil."\
14e0	0a 44 65 6c 65 74 65 20 62 61 63 6b 77 61 72 64 73 20 74 6f 20 70 72 65 76 69 6f 75 73 20 74 61	.Delete.backwards.to.previous.ta
1500	62 20 73 74 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64	b.stop.".(interactive).(byte-cod
1520	65 20 22 c1 88 c2 08 c1 5c 22 87 22 20 5b 61 64 61 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 62 61 63	e.".....\".".[ada-indent.nil.bac
1540	6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 5d 20 33 29 29 0a	kward-delete-char-untabify].3)).
1560	0a 28 64 65 66 75 6e 20 61 64 61 2d 67 6f 2d 74 6f 2d 74 68 69 73 2d 69 6e 64 65 6e 74 20 28 73	.(defun.ada-go-to-this-indent.(s
1580	74 65 70 20 69 6e 64 65 6e 74 2d 6c 65 76 65 6c 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20	tep.indent-level)."\.Move.point.
15a0	72 65 70 65 61 74 65 64 6c 79 20 62 79 20 3c 73 74 65 70 3e 20 6c 69 6e 65 73 20 74 69 6c 6c 20	repeatedly.by.<step>.lines.till.
15c0	74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 0a 68 61 73 20 67 69 76 65 6e 20 69 6e 64 65 6e	the.current.line.has.given.inden
15e0	74 2d 6c 65 76 65 6c 20 6f 72 20 6c 65 73 73 2c 20 6f 72 20 74 68 65 20 73 74 61 72 74 2f 65 6e	t-level.or.less,.or.the.start/en
1600	64 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 68 69 74 2e 0a 49 67 6e 6f 72 65 20 62	d.of.the.buffer.is.hit..Ignore.b
1620	6c 61 6e 6b 20 6c 69 6e 65 73 2c 20 73 74 61 74 65 6d 65 6e 74 20 6c 61 62 65 6c 73 2c 20 62 6c	lank.lines,.statement.labels,.bl
1640	6f 63 6b 2f 6c 6f 6f 70 20 6e 61 6d 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 08	ock/loop.names.".(byte-code."...
1660	21 21 85 24 00 c5 c6 21 86 24 00 c5 c7 21 86 24 00 c5 c8 21 86 24 00 c5 c9 21 86 24 00 ca 20 09	!!.$...!.$...!.$...!.$...!.$....
1680	56 85 2c 00 c2 88 82 00 00 87 22 20 5b 73 74 65 70 20 69 6e 64 65 6e 74 2d 6c 65 76 65 6c 20 6e	V.,.......".[step.indent-level.n
16a0	69 6c 20 7a 65 72 6f 70 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74	il.zerop.forward-line.looking-at
16c0	20 22 5e 5b 20 09 5d 2a 24 22 20 22 5e 5b 20 09 5d 2a 2d 2d 22 20 22 5e 3c 3c 5b 41 2d 5a 61 2d	."^[..]*$"."^[..]*--"."^<<[A-Za-
16e0	7a 30 2d 39 5f 5d 2b 3e 3e 22 20 22 5e 5b 41 2d 5a 61 2d 7a 30 2d 39 5f 5d 2b 3a 22 20 63 75 72	z0-9_]+>>"."^[A-Za-z0-9_]+:".cur
1700	72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 64	rent-indentation].9))..(defun.ad
1720	61 2d 62 61 63 6b 77 61 72 64 2d 74 6f 2d 73 61 6d 65 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c	a-backward-to-same-indent.nil."\
1740	0a 4d 6f 76 65 20 70 6f 69 6e 74 20 62 61 63 6b 77 61 72 64 73 20 74 6f 20 6e 65 61 72 65 73 74	.Move.point.backwards.to.nearest
1760	20 6c 69 6e 65 20 77 69 74 68 20 73 61 6d 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 72 20 6c	.line.with.same.indentation.or.l
1780	65 73 73 2e 0a 49 66 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 70 6f 69 6e 74 20 69 73 20 6c 65 66 74	ess..If.not.found,.point.is.left
17a0	20 61 74 20 74 6f 70 20 6f 66 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65	.at.top.of.buffer.".(interactive
17c0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 20 5c 22 88 c4 20 87 22 20 5b 6e 69 6c	).(byte-code."......\"....".[nil
17e0	20 61 64 61 2d 67 6f 2d 74 6f 2d 74 68 69 73 2d 69 6e 64 65 6e 74 20 2d 31 20 63 75 72 72 65 6e	.ada-go-to-this-indent.-1.curren
1800	74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f	t-indentation.back-to-indentatio
1820	6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 66 6f 72 77 61 72 64 2d 74 6f 2d 73 61	n].4))..(defun.ada-forward-to-sa
1840	6d 65 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 66 6f 72 77	me-indent.nil."\.Move.point.forw
1860	61 72 64 73 20 74 6f 20 6e 65 61 72 65 73 74 20 6c 69 6e 65 20 77 69 74 68 20 73 61 6d 65 20 69	ards.to.nearest.line.with.same.i
1880	6e 64 65 6e 74 61 74 69 6f 6e 20 6f 72 20 6c 65 73 73 2e 0a 49 66 20 6e 6f 74 20 66 6f 75 6e 64	ndentation.or.less..If.not.found
18a0	2c 20 70 6f 69 6e 74 20 69 73 20 6c 65 66 74 20 61 74 20 73 74 61 72 74 20 6f 66 20 6c 61 73 74	,.point.is.left.at.start.of.last
18c0	20 6c 69 6e 65 20 69 6e 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20	.line.in.buffer.".(interactive).
18e0	28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 20 5c 22 88 c4 20 87 22 20 5b 6e 69 6c 20 61	(byte-code."......\"....".[nil.a
1900	64 61 2d 67 6f 2d 74 6f 2d 74 68 69 73 2d 69 6e 64 65 6e 74 20 31 20 63 75 72 72 65 6e 74 2d 69	da-go-to-this-indent.1.current-i
1920	6e 64 65 6e 74 61 74 69 6f 6e 20 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20	ndentation.back-to-indentation].
1940	34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 61 72 72 61 79 20 6e 69 6c 20 22 5c 0a 49 6e 73	4))..(defun.ada-array.nil."\.Ins
1960	65 72 74 20 61 72 72 61 79 20 74 79 70 65 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 70 72 6f 6d 70	ert.array.type.definition,.promp
1980	74 69 6e 67 20 66 6f 72 20 63 6f 6d 70 6f 6e 65 6e 74 20 74 79 70 65 2c 0a 6c 65 61 76 69 6e 67	ting.for.component.type,.leaving
19a0	20 74 68 65 20 75 73 65 72 20 74 6f 20 74 79 70 65 20 69 6e 20 74 68 65 20 69 6e 64 65 78 20 73	.the.user.to.type.in.the.index.s
19c0	75 62 74 79 70 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f	ubtypes.".(interactive).(byte-co
19e0	64 65 20 22 c0 88 c1 63 88 c2 20 88 c3 c4 21 63 88 c5 20 88 c6 63 88 c2 20 88 c3 c7 21 63 88 c5	de."...c......!c.....c......!c..
1a00	20 87 22 20 5b 6e 69 6c 20 22 61 72 72 61 79 20 28 29 22 20 62 61 63 6b 77 61 72 64 2d 63 68 61	..".[nil."array.()".backward-cha
1a20	72 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 69 6e 64 65 78 20 73 75 62 74 79 70 65 5b 73 5d 3a	r.read-string."index.subtype[s]:
1a40	20 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 20 6f 66 20 3b 22 20 22 63 6f 6d 70 6f 6e 65 6e	.".end-of-line.".of.;"."componen
1a60	74 2d 74 79 70 65 3a 20 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 63 61 73 65 20	t-type:."].7))..(defun.ada-case.
1a80	6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 63 61 73 65 20 73 74 61 74 6d	nil."\.Build.skeleton.case.statm
1aa0	65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 65 20 73 65 6c 65 63 74 6f 72 20	ent,.prompting.for.the.selector.
1ac0	65 78 70 72 65 73 73 69 6f 6e 2e 0a 73 74 61 72 74 73 20 75 70 20 74 68 65 20 66 69 72 73 74 20	expression..starts.up.the.first.
1ae0	77 68 65 6e 20 63 6c 61 75 73 65 2c 20 74 6f 6f 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29	when.clause,.too.".(interactive)
1b00	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 c4 21 c5 5c 22 88 c6 20 88 c6 20 88	.(byte-code."...c....!.\".......
1b20	c7 63 88 c8 c9 21 88 ca 20 88 ca 20 88 cb 20 87 22 20 5b 6e 69 6c 20 22 63 61 73 65 20 22 20 69	.c...!..........".[nil."case.".i
1b40	6e 73 65 72 74 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 73 65 6c 65 63 74 6f 72 20 65 78 70 72	nsert.read-string."selector.expr
1b60	65 73 73 69 6f 6e 3a 20 22 20 22 20 69 73 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e 64	ession:.".".is".ada-newline."end
1b80	20 63 61 73 65 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 61 64 61 2d 74 61 62 20 61 64	.case;".end-of-line.0.ada-tab.ad
1ba0	61 2d 77 68 65 6e 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 64 65 63 6c 61 72 65 2d	a-when].9))..(defun.ada-declare-
1bc0	62 6c 6f 63 6b 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 62 6c 6f 63 6b 20 77 69 74 68	block.nil."\.Insert.a.block.with
1be0	20 61 20 64 65 63 6c 61 72 65 20 70 61 72 74 20 61 6e 64 20 69 6e 64 65 6e 74 20 66 6f 72 20 74	.a.declare.part.and.indent.for.t
1c00	68 65 20 31 73 74 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	he.1st.declaration.".(interactiv
1c20	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 21 18 c4 63 88 c5 08 c6 5c 22 3f 85 23	e).(byte-code."....!..c....\"?.#
1c40	00 c7 20 88 c8 c9 21 88 ca 08 cb 5c 22 88 cc c9 21 88 cd 20 88 ce 20 88 ce 20 88 cf 63 88 ce 20	......!....\"...!...........c...
1c60	88 ce 20 88 c5 08 c6 5c 22 83 3f 00 d0 63 82 44 00 ca d1 08 d2 23 29 88 cd d3 21 88 d4 20 87 22	.......\".?..c.D.....#)...!...."
1c80	20 5b 61 64 61 2d 62 6c 6f 63 6b 2d 6e 61 6d 65 20 6e 69 6c 20 72 65 61 64 2d 73 74 72 69 6e 67	.[ada-block-name.nil.read-string
1ca0	20 22 5b 62 6c 6f 63 6b 20 6e 61 6d 65 5d 3a 20 22 20 22 64 65 63 6c 61 72 65 22 20 73 74 72 69	."[block.name]:."."declare".stri
1cc0	6e 67 2d 65 71 75 61 6c 20 22 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6f 70	ng-equal."".beginning-of-line.op
1ce0	65 6e 2d 6c 69 6e 65 20 31 20 69 6e 73 65 72 74 20 22 3a 22 20 6e 65 78 74 2d 6c 69 6e 65 20 65	en-line.1.insert.":".next-line.e
1d00	6e 64 2d 6f 66 2d 6c 69 6e 65 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 62 65 67 69 6e 22 20 22	nd-of-line.ada-newline."begin"."
1d20	65 6e 64 3b 22 20 22 65 6e 64 20 22 20 22 3b 22 20 2d 32 20 61 64 61 2d 74 61 62 5d 20 31 36 29	end;"."end.".";".-2.ada-tab].16)
1d40	29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 65 78 63 65 70 74 69 6f 6e 2d 62 6c 6f 63 6b 20 6e 69	)..(defun.ada-exception-block.ni
1d60	6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 62 6c 6f 63 6b 20 77 69 74 68 20 61 6e 20 65 78 63 65	l."\.Insert.a.block.with.an.exce
1d80	70 74 69 6f 6e 20 70 61 72 74 20 61 6e 64 20 69 6e 64 65 6e 74 20 66 6f 72 20 74 68 65 20 31 73	ption.part.and.indent.for.the.1s
1da0	74 20 6c 69 6e 65 20 6f 66 20 63 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28	t.line.of.code.".(interactive).(
1dc0	62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 21 18 c5 63 88 c6 08 c7 5c 22 3f 85 23 00 c8 20 88	byte-code."....!..c....\"?.#....
1de0	c9 ca 21 88 cb 08 cc 5c 22 88 cd ca 21 88 ce 20 88 cf 20 88 cf 20 88 d0 63 88 cf 20 88 cf 20 88	..!....\"...!...........c.......
1e00	c6 08 c7 5c 22 83 3f 00 d1 63 82 44 00 cb d2 08 d3 23 29 88 ce d4 21 88 d5 20 87 22 20 5b 62 6c	...\".?..c.D.....#)...!....".[bl
1e20	6f 63 6b 2d 6e 61 6d 65 20 74 20 6e 69 6c 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 5b 62 6c 6f	ock-name.t.nil.read-string."[blo
1e40	63 6b 20 6e 61 6d 65 5d 3a 20 22 20 22 62 65 67 69 6e 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c	ck.name]:."."begin".string-equal
1e60	20 22 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6f 70 65 6e 2d 6c 69 6e 65 20	."".beginning-of-line.open-line.
1e80	31 20 69 6e 73 65 72 74 20 22 3a 22 20 6e 65 78 74 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69	1.insert.":".next-line.end-of-li
1ea0	6e 65 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 78 63 65 70 74 69 6f 6e 22 20 22 65 6e 64 3b	ne.ada-newline."exception"."end;
1ec0	22 20 22 65 6e 64 20 22 20 22 3b 22 20 2d 32 20 61 64 61 2d 74 61 62 5d 20 31 36 29 29 0a 0a 28	"."end.".";".-2.ada-tab].16))..(
1ee0	64 65 66 75 6e 20 61 64 61 2d 65 78 63 65 70 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 55 6e 64 65 6e	defun.ada-exception.nil."\.Unden
1f00	74 20 61 6e 64 20 69 6e 73 65 72 74 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 70 61 72 74 20 69	t.and.insert.an.exception.part.i
1f20	6e 74 6f 20 61 20 62 6c 6f 63 6b 2e 20 52 65 69 6e 64 65 6e 74 2e 22 20 28 69 6e 74 65 72 61 63	nto.a.block..Reindent.".(interac
1f40	74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 63 88 c3 20 88 c4 20 87	tive).(byte-code."......c.......
1f60	22 20 5b 6e 69 6c 20 61 64 61 2d 75 6e 74 61 62 20 22 65 78 63 65 70 74 69 6f 6e 22 20 61 64 61	".[nil.ada-untab."exception".ada
1f80	2d 6e 65 77 6c 69 6e 65 20 61 64 61 2d 74 61 62 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64	-newline.ada-tab].4))..(defun.ad
1fa0	61 2d 65 6c 73 65 20 6e 69 6c 20 22 5c 0a 41 64 64 20 61 6e 20 65 6c 73 65 20 63 6c 61 75 73 65	a-else.nil."\.Add.an.else.clause
1fc0	20 69 6e 73 69 64 65 20 61 6e 20 69 66 2d 74 68 65 6e 2d 65 6e 64 2d 69 66 20 63 6c 61 75 73 65	.inside.an.if-then-end-if.clause
1fe0	2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1	.".(interactive).(byte-code."...
2000	20 88 c2 63 88 c3 20 88 c4 20 87 22 20 5b 6e 69 6c 20 61 64 61 2d 75 6e 74 61 62 20 22 65 6c 73	...c.......".[nil.ada-untab."els
2020	65 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 61 64 61 2d 74 61 62 5d 20 34 29 29 0a 0a 28 64 65	e".ada-newline.ada-tab].4))..(de
2040	66 75 6e 20 61 64 61 2d 65 78 69 74 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 6e 20 65 78	fun.ada-exit.nil."\.Insert.an.ex
2060	69 74 20 73 74 61 74 65 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 6c 6f 6f 70	it.statement,.prompting.for.loop
2080	20 6e 61 6d 65 20 61 6e 64 20 63 6f 6e 64 69 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69	.name.and.condition.".(interacti
20a0	76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 63 88 c4 c5 21 18 c6 08 c7 5c 22 3f 85	ve).(byte-code."...c...!....\"?.
20c0	15 00 c8 c9 08 5c 22 29 88 c4 ca 21 19 c6 09 c7 5c 22 3f 85 35 00 cb cc 09 5c 22 83 31 00 c8 c9	.....\")...!....\"?.5....\".1...
20e0	09 5c 22 82 35 00 c8 cd 09 5c 22 29 88 ce 63 87 22 20 5b 61 64 61 2d 6c 6f 6f 70 2d 6e 61 6d 65	.\".5....\")..c.".[ada-loop-name
2100	20 61 64 61 2d 65 78 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 6e 69 6c 20 22 65 78 69 74 22 20 72	.ada-exit-condition.nil."exit".r
2120	65 61 64 2d 73 74 72 69 6e 67 20 22 5b 6e 61 6d 65 20 6f 66 20 6c 6f 6f 70 20 74 6f 20 65 78 69	ead-string."[name.of.loop.to.exi
2140	74 5d 3a 20 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 69 6e 73 65 72 74 20 22 20 22	t]:.".string-equal."".insert."."
2160	20 22 5b 65 78 69 74 20 63 6f 6e 64 69 74 69 6f 6e 5d 3a 20 22 20 73 74 72 69 6e 67 2d 6d 61 74	."[exit.condition]:.".string-mat
2180	63 68 20 22 5e 20 2a 5b 57 77 5d 5b 48 68 5d 5b 45 65 5d 5b 4e 6e 5d 20 2b 22 20 22 20 77 68 65	ch."^.*[Ww][Hh][Ee][Nn].+".".whe
21a0	6e 20 22 20 22 3b 22 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 77 68 65 6e 20 6e	n.".";"].10))..(defun.ada-when.n
21c0	69 6c 20 22 5c 0a 53 74 61 72 74 20 61 20 63 61 73 65 20 73 74 61 74 65 6d 65 6e 74 20 61 6c 74	il."\.Start.a.case.statement.alt
21e0	65 72 6e 61 74 69 76 65 20 77 69 74 68 20 61 20 77 68 65 6e 20 63 6c 61 75 73 65 2e 22 20 28 69	ernative.with.a.when.clause.".(i
2200	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 63 88	nteractive).(byte-code."......c.
2220	c3 c4 c5 21 c6 5c 22 88 c7 20 88 c8 20 87 22 20 5b 6e 69 6c 20 61 64 61 2d 75 6e 74 61 62 20 22	...!.\".......".[nil.ada-untab."
2240	77 68 65 6e 20 22 20 69 6e 73 65 72 74 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 27 7c 27 2d 64	when.".insert.read-string."'|'-d
2260	65 6c 69 6d 69 74 65 64 20 63 68 6f 69 63 65 20 6c 69 73 74 3a 20 22 20 22 20 3d 3e 22 20 61 64	elimited.choice.list:.".".=>".ad
2280	61 2d 6e 65 77 6c 69 6e 65 20 61 64 61 2d 74 61 62 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 61	a-newline.ada-tab].6))..(defun.a
22a0	64 61 2d 66 6f 72 2d 6c 6f 6f 70 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 61 20 73 6b 65 6c 65	da-for-loop.nil."\.Build.a.skele
22c0	74 6f 6e 20 66 6f 72 2d 6c 6f 6f 70 20 73 74 61 74 65 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e	ton.for-loop.statement,.promptin
22e0	67 20 66 6f 72 20 74 68 65 20 6c 6f 6f 70 20 70 61 72 61 6d 65 74 65 72 73 2e 22 20 28 69 6e 74	g.for.the.loop.parameters.".(int
2300	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 63 88 c4 c5 21 18 c6	eractive).(byte-code."...c...!..
2320	08 c7 5c 22 3f 19 09 85 26 00 c8 20 88 c9 ca 21 88 cb 08 cc 5c 22 88 cd ca 21 88 ce ca 21 88 cb	..\"?...&......!....\"...!...!..
2340	c4 cf 21 d0 5c 22 88 cb c4 d1 21 d2 5c 22 88 d3 20 88 d3 20 88 d4 63 88 09 85 46 00 cb d5 08 5c	..!.\"....!.\"........c...F....\
2360	22 88 d6 63 2a 88 ce d7 21 88 d8 20 87 22 20 5b 61 64 61 2d 6c 6f 6f 70 2d 6e 61 6d 65 20 61 64	"..c*...!....".[ada-loop-name.ad
2380	61 2d 6c 6f 6f 70 2d 69 73 2d 6e 61 6d 65 64 20 6e 69 6c 20 22 66 6f 72 20 22 20 72 65 61 64 2d	a-loop-is-named.nil."for.".read-
23a0	73 74 72 69 6e 67 20 22 5b 6c 6f 6f 70 20 6e 61 6d 65 5d 3a 20 22 20 73 74 72 69 6e 67 2d 65 71	string."[loop.name]:.".string-eq
23c0	75 61 6c 20 22 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6f 70 65 6e 2d 6c 69	ual."".beginning-of-line.open-li
23e0	6e 65 20 31 20 69 6e 73 65 72 74 20 22 3a 22 20 6e 65 78 74 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66	ne.1.insert.":".next-line.end-of
2400	2d 6c 69 6e 65 20 22 6c 6f 6f 70 20 76 61 72 69 61 62 6c 65 3a 20 22 20 22 20 69 6e 20 22 20 22	-line."loop.variable:.".".in."."
2420	72 61 6e 67 65 3a 20 22 20 22 20 6c 6f 6f 70 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e	range:.".".loop".ada-newline."en
2440	64 20 6c 6f 6f 70 22 20 22 20 22 20 22 3b 22 20 30 20 61 64 61 2d 74 61 62 5d 20 31 37 29 29 0a	d.loop".".".";".0.ada-tab].17)).
2460	0a 28 64 65 66 75 6e 20 61 64 61 2d 68 65 61 64 65 72 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74	.(defun.ada-header.nil."\.Insert
2480	20 61 20 63 6f 6d 6d 65 6e 74 20 62 6c 6f 63 6b 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20	.a.comment.block.containing.the.
24a0	6d 6f 64 75 6c 65 20 74 69 74 6c 65 2c 20 61 75 74 68 6f 72 2c 20 65 74 63 2e 22 20 28 69 6e 74	module.title,.author,.etc.".(int
24c0	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 21 63 88	eractive).(byte-code."...c...!c.
24e0	c4 c5 c6 20 5c 22 88 c4 c7 c8 20 5c 22 88 c4 c9 ca 20 cb cc 20 cd 25 87 22 20 5b 6e 69 6c 20 22	....\".....\".........%.".[nil."
2500	2d 2d 0a 2d 2d 20 20 54 69 74 6c 65 3a 20 09 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 54 69	--.--..Title:..".read-string."Ti
2520	74 6c 65 3a 20 22 20 69 6e 73 65 72 74 20 22 0a 2d 2d 20 20 43 72 65 61 74 65 64 3a 09 22 20 63	tle:.".insert.".--..Created:.".c
2540	75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 22 0a 2d 2d 20 20 41 75 74 68 6f 72 3a	urrent-time-string.".--..Author:
2560	20 09 22 20 75 73 65 72 2d 66 75 6c 6c 2d 6e 61 6d 65 20 22 0a 2d 2d 09 09 3c 22 20 75 73 65 72	..".user-full-name.".--..<".user
2580	2d 6c 6f 67 69 6e 2d 6e 61 6d 65 20 22 40 22 20 73 79 73 74 65 6d 2d 6e 61 6d 65 20 22 3e 0a 2d	-login-name."@".system-name.">.-
25a0	2d 0a 22 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 69 66 20 6e 69 6c 20 22 5c 0a	-."].13))..(defun.ada-if.nil."\.
25c0	49 6e 73 65 72 74 20 73 6b 65 6c 65 74 6f 6e 20 69 66 20 73 74 61 74 6d 65 6e 74 2c 20 70 72 6f	Insert.skeleton.if.statment,.pro
25e0	6d 70 74 69 6e 67 20 66 6f 72 20 61 20 62 6f 6f 6c 65 61 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2e	mpting.for.a.boolean-expression.
2600	22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63	".(interactive).(byte-code."...c
2620	88 c2 c3 c4 21 c5 5c 22 88 c6 20 88 c6 20 88 c7 63 88 c8 c9 21 88 ca 20 87 22 20 5b 6e 69 6c 20	....!.\"........c...!....".[nil.
2640	22 69 66 20 22 20 69 6e 73 65 72 74 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 63 6f 6e 64 69 74	"if.".insert.read-string."condit
2660	69 6f 6e 3a 20 22 20 22 20 74 68 65 6e 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e 64 20	ion:.".".then".ada-newline."end.
2680	69 66 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 61 64 61 2d 74 61 62 5d 20 37 29 29 0a	if;".end-of-line.0.ada-tab].7)).
26a0	0a 28 64 65 66 75 6e 20 61 64 61 2d 65 6c 73 69 66 20 6e 69 6c 20 22 5c 0a 41 64 64 20 61 6e 20	.(defun.ada-elsif.nil."\.Add.an.
26c0	65 6c 73 69 66 20 63 6c 61 75 73 65 20 74 6f 20 61 6e 20 69 66 20 73 74 61 74 65 6d 65 6e 74 2c	elsif.clause.to.an.if.statement,
26e0	20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 65 20 62 6f 6f 6c 65 61 6e 2d 65 78 70 72 65	.prompting.for.the.boolean-expre
2700	73 73 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65	ssion.".(interactive).(byte-code
2720	20 22 c0 88 c1 20 88 c2 63 88 c3 c4 c5 21 c6 5c 22 88 c7 20 88 c8 20 87 22 20 5b 6e 69 6c 20 61	."......c....!.\".......".[nil.a
2740	64 61 2d 75 6e 74 61 62 20 22 65 6c 73 69 66 20 22 20 69 6e 73 65 72 74 20 72 65 61 64 2d 73 74	da-untab."elsif.".insert.read-st
2760	72 69 6e 67 20 22 63 6f 6e 64 69 74 69 6f 6e 3a 20 22 20 22 20 74 68 65 6e 22 20 61 64 61 2d 6e	ring."condition:.".".then".ada-n
2780	65 77 6c 69 6e 65 20 61 64 61 2d 74 61 62 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d	ewline.ada-tab].6))..(defun.ada-
27a0	6c 6f 6f 70 20 6e 69 6c 20 22 5c 0a 69 6e 73 65 72 74 20 61 20 73 6b 65 6c 65 74 6f 6e 20 6c 6f	loop.nil."\.insert.a.skeleton.lo
27c0	6f 70 20 73 74 61 74 65 6d 65 6e 74 2e 20 20 65 78 69 74 20 73 74 61 74 65 6d 65 6e 74 20 61 64	op.statement...exit.statement.ad
27e0	64 65 64 20 62 79 20 68 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74	ded.by.hand.".(interactive).(byt
2800	65 2d 63 6f 64 65 20 22 c2 88 c3 63 88 c4 c5 21 18 c6 08 c7 5c 22 3f 19 09 85 26 00 c8 20 88 c9	e-code."...c...!....\"?...&.....
2820	ca 21 88 cb 08 cc 5c 22 88 cd ca 21 88 ce ca 21 88 cf 20 88 cf 20 88 d0 63 88 09 85 38 00 cb d1	.!....\"...!...!........c...8...
2840	08 5c 22 88 d2 63 2a 88 ce d3 21 88 d4 20 87 22 20 5b 61 64 61 2d 6c 6f 6f 70 2d 6e 61 6d 65 20	.\"..c*...!....".[ada-loop-name.
2860	61 64 61 2d 6c 6f 6f 70 2d 69 73 2d 6e 61 6d 65 64 20 6e 69 6c 20 22 6c 6f 6f 70 20 22 20 72 65	ada-loop-is-named.nil."loop.".re
2880	61 64 2d 73 74 72 69 6e 67 20 22 5b 6c 6f 6f 70 20 6e 61 6d 65 5d 3a 20 22 20 73 74 72 69 6e 67	ad-string."[loop.name]:.".string
28a0	2d 65 71 75 61 6c 20 22 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6f 70 65 6e	-equal."".beginning-of-line.open
28c0	2d 6c 69 6e 65 20 31 20 69 6e 73 65 72 74 20 22 3a 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20	-line.1.insert.":".forward-line.
28e0	65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e 64 20 6c 6f 6f	end-of-line.ada-newline."end.loo
2900	70 22 20 22 20 22 20 22 3b 22 20 30 20 61 64 61 2d 74 61 62 5d 20 31 33 29 29 0a 0a 28 64 65 66	p".".".";".0.ada-tab].13))..(def
2920	75 6e 20 61 64 61 2d 70 61 63 6b 61 67 65 2d 73 70 65 63 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72	un.ada-package-spec.nil."\.Inser
2940	74 20 61 20 73 6b 65 6c 65 74 6f 6e 20 70 61 63 6b 61 67 65 20 73 70 65 63 69 66 69 63 61 74 69	t.a.skeleton.package.specificati
2960	6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1	on.".(interactive).(byte-code.".
2980	88 c2 63 88 c3 c4 21 18 c5 08 c6 5c 22 88 c7 20 88 c7 20 88 c5 c8 08 c9 23 88 ca cb 21 88 cc 20	..c...!....\"...........#...!...
29a0	29 87 22 20 5b 61 64 61 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 6e 69 6c 20 22 70 61 63 6b 61	).".[ada-package-name.nil."packa
29c0	67 65 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 70 61 63 6b 61 67 65 20 6e 61 6d 65 3a 20	ge.".read-string."package.name:.
29e0	22 20 69 6e 73 65 72 74 20 22 20 69 73 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e 64 20	".insert.".is".ada-newline."end.
2a00	22 20 22 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 61 64 61 2d 74 61 62 5d 20 38 29 29	".";".end-of-line.0.ada-tab].8))
2a20	0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 70 61 63 6b 61 67 65 2d 62 6f 64 79 20 6e 69 6c 20 22 5c	..(defun.ada-package-body.nil."\
2a40	0a 49 6e 73 65 72 74 20 61 20 73 6b 65 6c 65 74 6f 6e 20 70 61 63 6b 61 67 65 20 62 6f 64 79 20	.Insert.a.skeleton.package.body.
2a60	2d 2d 20 20 69 6e 63 6c 75 64 65 73 20 61 20 62 65 67 69 6e 20 73 74 61 74 65 6d 65 6e 74 2e 22	--..includes.a.begin.statement."
2a80	20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 63 88	.(interactive).(byte-code."...c.
2aa0	c3 c4 21 18 c5 08 c6 5c 22 88 c7 20 88 c7 20 88 c8 63 88 c7 20 88 c5 c9 08 ca 23 88 cb cc 21 88	..!....\"........c........#...!.
2ac0	cd 20 29 87 22 20 5b 61 64 61 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 6e 69 6c 20 22 70 61 63	..).".[ada-package-name.nil."pac
2ae0	6b 61 67 65 20 62 6f 64 79 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 70 61 63 6b 61 67 65	kage.body.".read-string."package
2b00	20 6e 61 6d 65 3a 20 22 20 69 6e 73 65 72 74 20 22 20 69 73 22 20 61 64 61 2d 6e 65 77 6c 69 6e	.name:.".insert.".is".ada-newlin
2b20	65 20 22 62 65 67 69 6e 22 20 22 65 6e 64 20 22 20 22 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65	e."begin"."end.".";".end-of-line
2b40	20 2d 31 20 61 64 61 2d 74 61 62 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 70 72 69	.-1.ada-tab].9))..(defun.ada-pri
2b60	76 61 74 65 20 6e 69 6c 20 22 5c 0a 55 6e 64 65 6e 74 20 61 6e 64 20 73 74 61 72 74 20 61 20 70	vate.nil."\.Undent.and.start.a.p
2b80	72 69 76 61 74 65 20 73 65 63 74 69 6f 6e 20 6f 66 20 61 20 70 61 63 6b 61 67 65 20 73 70 65 63	rivate.section.of.a.package.spec
2ba0	2e 20 52 65 69 6e 64 65 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65	..Reindent.".(interactive).(byte
2bc0	2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 63 88 c3 20 88 c4 20 87 22 20 5b 6e 69 6c 20 61 64 61 2d	-code."......c.......".[nil.ada-
2be0	75 6e 74 61 62 20 22 70 72 69 76 61 74 65 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 61 64 61 2d	untab."private".ada-newline.ada-
2c00	74 61 62 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 67 65 74 2d 61 72 67 2d 6c 69 73	tab].4))..(defun.ada-get-arg-lis
2c20	74 20 6e 69 6c 20 22 5c 0a 52 65 61 64 20 66 72 6f 6d 20 75 73 65 72 20 61 20 70 72 6f 63 65 64	t.nil."\.Read.from.user.a.proced
2c40	75 72 65 20 6f 72 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 2e 0a 41	ure.or.function.argument.list..A
2c60	64 64 20 70 61 72 65 6e 73 20 75 6e 6c 65 73 73 20 61 72 67 75 6d 65 6e 74 73 20 61 62 73 65 6e	dd.parens.unless.arguments.absen
2c80	74 2c 20 61 6e 64 20 69 6e 73 65 72 74 20 69 6e 74 6f 20 62 75 66 66 65 72 2e 0a 49 6e 64 69 76	t,.and.insert.into.buffer..Indiv
2ca0	69 64 75 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 61 72 72 61 6e 67 65 64 20 76 65 72	idual.arguments.are.arranged.ver
2cc0	74 69 63 61 6c 6c 79 20 69 66 20 65 6e 74 65 72 65 64 20 6f 6e 65 2d 61 74 2d 61 2d 74 69 6d 65	tically.if.entered.one-at-a-time
2ce0	2e 0a 41 72 67 75 6d 65 6e 74 73 20 65 6e 64 69 6e 67 20 77 69 74 68 20 27 3b 27 20 61 72 65 20	..Arguments.ending.with.';'.are.
2d00	70 72 65 73 75 6d 65 64 20 73 69 6e 67 6c 65 20 61 6e 64 20 73 74 61 63 6b 65 64 2e 22 20 28 62	presumed.single.and.stacked.".(b
2d20	79 74 65 2d 63 6f 64 65 20 22 c2 63 88 69 c3 c4 21 19 18 c5 09 c6 5c 22 83 16 00 c7 c8 21 82 34	yte-code.".c.i..!.....\".....!.4
2d40	00 c9 ca 09 5c 22 85 2f 00 09 63 88 cb 20 88 08 6a 88 c3 cc 21 89 11 88 82 16 00 88 cd 09 ce 5c	....\"./..c.....j...!..........\
2d60	22 2a 87 22 20 5b 61 64 61 2d 61 72 67 2d 69 6e 64 65 6e 74 20 61 64 61 2d 61 72 67 73 20 22 20	"*.".[ada-arg-indent.ada-args.".
2d80	28 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 5b 61 72 67 75 6d 65 6e 74 73 5d 3a 20 22 20 73	(".read-string."[arguments]:.".s
2da0	74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63	tring-equal."".backward-delete-c
2dc0	68 61 72 20 32 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 3b 24 22 20 6e 65 77 6c 69 6e 65 20	har.2.string-match.";$".newline.
2de0	22 6e 65 78 74 20 61 72 67 75 6d 65 6e 74 3a 20 22 20 69 6e 73 65 72 74 20 22 29 22 5d 20 39 29	"next.argument:.".insert.")"].9)
2e00	29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 66 75 6e 63 74 69 6f 6e 2d 73 70 65 63 20 6e 69 6c 20	)..(defun.ada-function-spec.nil.
2e20	22 5c 0a 49 6e 73 65 72 74 20 61 20 66 75 6e 63 74 69 6f 6e 20 73 70 65 63 69 66 69 63 61 74 69	"\.Insert.a.function.specificati
2e40	6f 6e 2e 20 20 50 72 6f 6d 70 74 73 20 66 6f 72 20 6e 61 6d 65 20 61 6e 64 20 61 72 67 75 6d 65	on...Prompts.for.name.and.argume
2e60	6e 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	nts.".(interactive).(byte-code."
2e80	c0 88 c1 63 88 c2 c3 21 63 88 c4 20 88 c5 63 88 c2 c6 21 63 87 22 20 5b 6e 69 6c 20 22 66 75 6e	...c...!c.....c...!c.".[nil."fun
2ea0	63 74 69 6f 6e 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 66 75 6e 63 74 69 6f 6e 20 6e 61	ction.".read-string."function.na
2ec0	6d 65 3a 20 22 20 61 64 61 2d 67 65 74 2d 61 72 67 2d 6c 69 73 74 20 22 20 72 65 74 75 72 6e 20	me:.".ada-get-arg-list.".return.
2ee0	22 20 22 72 65 73 75 6c 74 20 74 79 70 65 3a 20 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61	"."result.type:."].4))..(defun.a
2f00	64 61 2d 70 72 6f 63 65 64 75 72 65 2d 73 70 65 63 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20	da-procedure-spec.nil."\.Insert.
2f20	61 20 70 72 6f 63 65 64 75 72 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2c 20 70 72 6f 6d 70	a.procedure.specification,.promp
2f40	74 69 6e 67 20 66 6f 72 20 69 74 73 20 6e 61 6d 65 20 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 2e	ting.for.its.name.and.arguments.
2f60	22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63	".(interactive).(byte-code."...c
2f80	88 c2 c3 21 63 88 c4 20 87 22 20 5b 6e 69 6c 20 22 70 72 6f 63 65 64 75 72 65 20 22 20 72 65 61	...!c....".[nil."procedure.".rea
2fa0	64 2d 73 74 72 69 6e 67 20 22 70 72 6f 63 65 64 75 72 65 20 6e 61 6d 65 3a 20 22 20 61 64 61 2d	d-string."procedure.name:.".ada-
2fc0	67 65 74 2d 61 72 67 2d 6c 69 73 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 61 64	get-arg-list].3))..(defun.get-ad
2fe0	61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20	a-subprogram-name.nil."\.Return.
3000	28 77 69 74 68 6f 75 74 20 6d 6f 76 69 6e 67 20 70 6f 69 6e 74 20 6f 72 20 6d 61 72 6b 29 20 61	(without.moving.point.or.mark).a
3020	20 70 61 69 72 20 77 68 6f 73 65 20 43 41 52 20 69 73 0a 74 68 65 20 6e 61 6d 65 20 6f 66 20 74	.pair.whose.CAR.is.the.name.of.t
3040	68 65 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 70 72 6f 63 65 64 75 72 65 20 77 68 6f 73 65 20 73	he.function.or.procedure.whose.s
3060	70 65 63 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 70 72 65 63 65 64 65 73 20 70 6f 69 6e 74 2c 0a	pec.immediately.precedes.point,.
3080	61 6e 64 20 77 68 6f 73 65 20 43 44 52 20 69 73 20 74 68 65 20 63 6f 6c 75 6d 6e 20 6e 62 72 20	and.whose.CDR.is.the.column.nbr.
30a0	74 68 65 20 70 72 6f 63 65 64 75 72 65 2f 66 75 6e 63 74 69 6f 6e 20 6b 65 79 77 6f 72 64 20 77	the.procedure/function.keyword.w
30c0	61 73 20 66 6f 75 6e 64 20 61 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c4 18 c5 c6 c1	as.found.at.".(byte-code."......
30e0	c2 23 83 34 00 c7 c8 21 86 14 00 c7 c9 21 83 2f 00 69 89 10 88 ca cb 21 88 60 1b ca cc 21 88 cd	.#.4...!.....!./.i.....!.`...!..
3100	60 0b 5c 22 08 42 29 82 31 00 ce 20 82 37 00 cf 08 42 29 29 87 22 20 5b 61 64 61 2d 70 72 6f 63	`.\".B).1....7...B)).".[ada-proc
3120	2d 69 6e 64 65 6e 74 20 6e 69 6c 20 74 20 70 32 20 30 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63	-indent.nil.t.p2.0.re-search-bac
3140	6b 77 61 72 64 20 22 5b 50 70 46 66 5d 5b 52 72 55 75 5d 5b 4f 6f 4e 6e 5d 5b 43 63 5d 5b 45 65	kward."[PpFf][RrUu][OoNn][Cc][Ee
3160	54 74 5d 5b 44 64 49 69 5d 5b 55 75 4f 6f 5d 5b 52 72 4e 6e 5d 22 20 6c 6f 6f 6b 69 6e 67 2d 61	Tt][DdIi][UuOo][RrNn]".looking-a
3180	74 20 22 5c 5c 3c 5b 50 70 5d 5b 52 72 5d 5b 4f 6f 5d 5b 43 63 5d 5b 45 65 5d 5b 44 64 5d 5b 55	t."\\<[Pp][Rr][Oo][Cc][Ee][Dd][U
31a0	75 5d 5b 52 72 5d 5b 45 65 5d 5c 5c 3e 22 20 22 5c 5c 3c 5b 46 66 5d 5b 55 75 5d 5b 4e 6e 5d 5b	u][Rr][Ee]\\>"."\\<[Ff][Uu][Nn][
31c0	43 63 5d 5b 54 74 5d 5b 49 69 5d 5b 4f 6f 5d 5b 4e 6e 5d 5c 5c 3e 22 20 66 6f 72 77 61 72 64 2d	Cc][Tt][Ii][Oo][Nn]\\>".forward-
31e0	77 6f 72 64 20 32 20 2d 31 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 67 65 74 2d 61	word.2.-1.buffer-substring.get-a
3200	64 61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 20 22 4e 41 4d 45 3f 22 5d 20 39 29 29 0a	da-subprogram-name."NAME?"].9)).
3220	0a 28 64 65 66 75 6e 20 61 64 61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 62 6f 64 79 20 6e 69 6c 20	.(defun.ada-subprogram-body.nil.
3240	22 5c 0a 49 6e 73 65 72 74 20 66 72 61 6d 65 20 66 6f 72 20 73 75 62 70 72 6f 67 72 61 6d 20 62	"\.Insert.frame.for.subprogram.b
3260	6f 64 79 2e 0a 49 6e 76 6f 6b 65 20 72 69 67 68 74 20 61 66 74 65 72 20 61 64 61 2d 66 75 6e 63	ody..Invoke.right.after.ada-func
3280	74 69 6f 6e 2d 73 70 65 63 20 6f 72 20 61 64 61 2d 70 72 6f 63 65 64 75 72 65 2d 73 70 65 63 2e	tion-spec.or.ada-procedure-spec.
32a0	22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 63	".(interactive).(byte-code."...c
32c0	88 c3 20 18 c4 20 88 08 41 6a 88 c5 20 88 c6 63 88 c5 20 88 c5 20 88 c7 c8 08 40 c9 23 29 88 ca	........Aj.....c..........@.#)..
32e0	cb 21 88 cc 20 87 22 20 5b 61 64 61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 2d 63 6f 6c	.!....".[ada-subprogram-name-col
3300	20 6e 69 6c 20 22 20 69 73 22 20 67 65 74 2d 61 64 61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 6e 61	.nil.".is".get-ada-subprogram-na
3320	6d 65 20 6e 65 77 6c 69 6e 65 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 62 65 67 69 6e 22 20 69	me.newline.ada-newline."begin".i
3340	6e 73 65 72 74 20 22 65 6e 64 20 22 20 22 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 2d 32 20	nsert."end.".";".end-of-line.-2.
3360	61 64 61 2d 74 61 62 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 73 65 70 61 72 61 74	ada-tab].9))..(defun.ada-separat
3380	65 20 6e 69 6c 20 22 5c 0a 46 69 6e 69 73 68 20 61 20 62 6f 64 79 20 73 74 75 62 20 77 69 74 68	e.nil."\.Finish.a.body.stub.with
33a0	20 27 69 73 20 73 65 70 61 72 61 74 65 27 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28	.'is.separate'.".(interactive).(
33c0	62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c3 20 88 c4 63 88 c2 20 88 c5 20 87 22	byte-code."...c........c......."
33e0	20 5b 6e 69 6c 20 22 20 69 73 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 61 64 61 2d 74 61 62 20	.[nil.".is".ada-newline.ada-tab.
3400	22 73 65 70 61 72 61 74 65 3b 22 20 61 64 61 2d 75 6e 74 61 62 5d 20 35 29 29 0a 0a 28 64 65 66	"separate;".ada-untab].5))..(def
3420	75 6e 20 61 64 61 2d 72 65 63 6f 72 64 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 73 6b	un.ada-record.nil."\.Insert.a.sk
3440	65 6c 65 74 6f 6e 20 72 65 63 6f 72 64 20 74 79 70 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 22	eleton.record.type.declaration."
3460	20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88	.(interactive).(byte-code."...c.
3480	c2 20 88 c2 20 88 c3 63 88 c4 c5 21 88 c6 20 87 22 20 5b 6e 69 6c 20 22 72 65 63 6f 72 64 22 20	.......c...!....".[nil."record".
34a0	61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e 64 20 72 65 63 6f 72 64 3b 22 20 65 6e 64 2d 6f 66	ada-newline."end.record;".end-of
34c0	2d 6c 69 6e 65 20 30 20 61 64 61 2d 74 61 62 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61	-line.0.ada-tab].5))..(defun.ada
34e0	2d 73 75 62 74 79 70 65 20 6e 69 6c 20 22 5c 0a 53 74 61 72 74 20 69 6e 73 65 72 74 69 6f 6e 20	-subtype.nil."\.Start.insertion.
3500	6f 66 20 61 20 73 75 62 74 79 70 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2c 20 70 72 6f 6d 70 74	of.a.subtype.declaration,.prompt
3520	69 6e 67 20 66 6f 72 20 74 68 65 20 73 75 62 74 79 70 65 20 6e 61 6d 65 2e 22 20 28 69 6e 74 65	ing.for.the.subtype.name.".(inte
3540	72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 c4 21 c5 23 88 c6	ractive).(byte-code."......!.#..
3560	20 88 c7 c8 21 87 22 20 5b 6e 69 6c 20 69 6e 73 65 72 74 20 22 73 75 62 74 79 70 65 20 22 20 72	....!.".[nil.insert."subtype.".r
3580	65 61 64 2d 73 74 72 69 6e 67 20 22 73 75 62 74 79 70 65 20 6e 61 6d 65 3a 20 22 20 22 20 69 73	ead-string."subtype.name:.".".is
35a0	20 3b 22 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 6d 65 73 73 61 67 65 20 22 69 6e 73 65 72	.;".backward-char.message."inser
35c0	74 20 73 75 62 74 79 70 65 20 69 6e 64 69 63 61 74 69 6f 6e 2e 22 5d 20 35 29 29 0a 0a 28 64 65	t.subtype.indication."].5))..(de
35e0	66 75 6e 20 61 64 61 2d 74 79 70 65 20 6e 69 6c 20 22 5c 0a 53 74 61 72 74 20 69 6e 73 65 72 74	fun.ada-type.nil."\.Start.insert
3600	69 6f 6e 20 6f 66 20 61 20 74 79 70 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2c 20 70 72 6f 6d 70	ion.of.a.type.declaration,.promp
3620	74 69 6e 67 20 66 6f 72 20 74 68 65 20 74 79 70 65 20 6e 61 6d 65 2e 22 20 28 69 6e 74 65 72 61	ting.for.the.type.name.".(intera
3640	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 c5 21 5c 22 88 c4 c6 21	ctive).(byte-code."......!\"...!
3660	18 c7 08 c8 5c 22 3f 85 1a 00 c2 c9 08 ca 23 29 88 cb 63 88 cc cd 21 87 22 20 5b 64 69 73 63 2d	....\"?.......#)..c...!.".[disc-
3680	70 61 72 74 20 6e 69 6c 20 69 6e 73 65 72 74 20 22 74 79 70 65 20 22 20 72 65 61 64 2d 73 74 72	part.nil.insert."type.".read-str
36a0	69 6e 67 20 22 74 79 70 65 20 6e 61 6d 65 3a 20 22 20 22 64 69 73 63 72 69 6d 69 6e 61 6e 74 20	ing."type.name:."."discriminant.
36c0	73 70 65 63 73 3a 20 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 22 28 22 20 22 29 22	specs:.".string-equal.""."(".")"
36e0	20 22 20 69 73 20 22 20 6d 65 73 73 61 67 65 20 22 69 6e 73 65 72 74 20 74 79 70 65 20 64 65 66	.".is.".message."insert.type.def
3700	69 6e 69 74 69 6f 6e 2e 22 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 77 68 69 6c 65	inition."].8))..(defun.ada-while
3720	2d 6c 6f 6f 70 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f	-loop.nil.(interactive).(byte-co
3740	64 65 20 22 c2 88 c3 63 88 c4 c5 21 18 c6 08 c7 5c 22 3f 19 09 85 26 00 c8 20 88 c9 ca 21 88 cb	de."...c...!....\"?...&......!..
3760	08 cc 5c 22 88 cd ca 21 88 ce ca 21 88 cb c4 cf 21 d0 5c 22 88 d1 20 88 d1 20 88 d2 63 88 09 85	..\"...!...!....!.\"........c...
3780	3f 00 cb d3 08 5c 22 88 d4 63 2a 88 ce d5 21 88 d6 20 87 22 20 5b 61 64 61 2d 6c 6f 6f 70 2d 6e	?....\"..c*...!....".[ada-loop-n
37a0	61 6d 65 20 61 64 61 2d 6c 6f 6f 70 2d 69 73 2d 6e 61 6d 65 64 20 6e 69 6c 20 22 77 68 69 6c 65	ame.ada-loop-is-named.nil."while
37c0	20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 6c 6f 6f 70 20 6e 61 6d 65 3a 20 22 20 73 74 72	.".read-string."loop.name:.".str
37e0	69 6e 67 2d 65 71 75 61 6c 20 22 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6f	ing-equal."".beginning-of-line.o
3800	70 65 6e 2d 6c 69 6e 65 20 31 20 69 6e 73 65 72 74 20 22 3a 22 20 6e 65 78 74 2d 6c 69 6e 65 20	pen-line.1.insert.":".next-line.
3820	65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 65 6e 74 72 79 20 63 6f 6e 64 69 74 69 6f 6e 3a 20 22 20	end-of-line."entry.condition:.".
3840	22 20 6c 6f 6f 70 22 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 22 65 6e 64 20 6c 6f 6f 70 22 20 22	".loop".ada-newline."end.loop"."
3860	20 22 20 22 3b 22 20 30 20 61 64 61 2d 74 61 62 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 61	.".";".0.ada-tab].15))..(defun.a
3880	64 61 2d 70 61 69 72 65 64 2d 70 61 72 65 6e 73 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61	da-paired-parens.nil."\.Insert.a
38a0	20 70 61 69 72 20 6f 66 20 72 6f 75 6e 64 20 70 61 72 65 6e 74 68 65 73 65 73 2c 20 70 6c 61 63	.pair.of.round.parentheses,.plac
38c0	69 6e 67 20 70 6f 69 6e 74 20 62 65 74 77 65 65 6e 20 74 68 65 6d 2e 22 20 28 69 6e 74 65 72 61	ing.point.between.them.".(intera
38e0	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 20 87 22 20 5b 6e 69	ctive).(byte-code."...c....".[ni
3900	6c 20 22 28 29 22 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 5d 20 32 29 29 0a 0a 28 64 65 66 75	l."()".backward-char].2))..(defu
3920	6e 20 61 64 61 2d 69 6e 6c 69 6e 65 2d 63 6f 6d 6d 65 6e 74 20 6e 69 6c 20 22 5c 0a 53 74 61 72	n.ada-inline-comment.nil."\.Star
3940	74 20 61 20 63 6f 6d 6d 65 6e 74 20 61 66 74 65 72 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65	t.a.comment.after.the.end.of.the
3960	20 6c 69 6e 65 2c 20 69 6e 64 65 6e 74 65 64 20 61 74 20 6c 65 61 73 74 20 43 4f 4d 4d 45 4e 54	.line,.indented.at.least.COMMENT
3980	2d 43 4f 4c 55 4d 4e 2e 0a 49 66 20 73 74 61 72 74 69 6e 67 20 61 66 74 65 72 20 45 4e 44 2d 43	-COLUMN..If.starting.after.END-C
39a0	4f 4d 4d 45 4e 54 2d 43 4f 4c 55 4d 4e 2c 20 73 74 61 72 74 20 61 20 6e 65 77 20 6c 69 6e 65 2e	OMMENT-COLUMN,.start.a.new.line.
39c0	22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 20	".(interactive).(byte-code."....
39e0	88 69 08 56 85 0d 00 c4 20 88 69 09 57 85 16 00 09 6a 88 c5 63 87 22 20 5b 65 6e 64 2d 63 6f 6d	.i.V......i.W....j..c.".[end-com
3a00	6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 20 65	ment-column.comment-column.nil.e
3a20	6e 64 2d 6f 66 2d 6c 69 6e 65 20 6e 65 77 6c 69 6e 65 20 22 20 2d 2d 20 22 5d 20 34 29 29 0a 0a	nd-of-line.newline.".--."].4))..
3a40	28 64 65 66 75 6e 20 61 64 61 2d 64 69 73 70 6c 61 79 2d 63 6f 6d 6d 65 6e 74 20 6e 69 6c 20 22	(defun.ada-display-comment.nil."
3a60	5c 0a 49 6e 73 65 72 74 73 20 33 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 65 73 2c 20 6d 61 6b 69 6e	\.Inserts.3.comment.lines,.makin
3a80	67 20 61 20 64 69 73 70 6c 61 79 20 63 6f 6d 6d 65 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69	g.a.display.comment.".(interacti
3aa0	76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 21 87 22 20 5b 6e 69 6c 20	ve).(byte-code."...c...!.".[nil.
3ac0	22 2d 2d 0a 2d 2d 20 0a 2d 2d 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 5d 20 32 29 29 0a 0a	"--.--..--".end-of-line.0].2))..
3ae0	28 64 65 66 76 61 72 20 61 64 61 2d 6c 69 62 2d 64 69 72 2d 6e 61 6d 65 20 22 6c 69 62 22 20 22	(defvar.ada-lib-dir-name."lib"."
3b00	5c 0a 2a 43 75 72 72 65 6e 74 20 61 64 61 20 70 72 6f 67 72 61 6d 20 6c 69 62 72 61 72 79 20 64	\.*Current.ada.program.library.d
3b20	69 72 65 63 74 6f 72 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 61 64 61 2d 62 69 6e 64 2d 6f 70	irectory.")..(defvar.ada-bind-op
3b40	74 73 20 22 22 20 22 5c 0a 2a 4f 70 74 69 6f 6e 73 20 74 6f 20 73 75 70 70 6c 79 20 66 6f 72 20	ts.""."\.*Options.to.supply.for.
3b60	62 69 6e 64 69 6e 67 2e 22 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 6c 69 62 72 61 72 79 2d 6e	binding.")..(defun.ada-library-n
3b80	61 6d 65 20 28 61 64 61 2d 6c 69 62 2d 6e 61 6d 65 29 20 22 5c 0a 53 70 65 63 69 66 79 20 6e 61	ame.(ada-lib-name)."\.Specify.na
3ba0	6d 65 20 6f 66 20 61 64 61 20 6c 69 62 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20	me.of.ada.library.directory.for.
3bc0	6c 61 74 65 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	later.compilations.".(interactiv
3be0	65 20 22 44 6e 61 6d 65 20 6f 66 20 61 64 61 20 6c 69 62 72 61 72 79 20 64 69 72 65 63 74 6f 72	e."Dname.of.ada.library.director
3c00	79 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 09 89 10 87 22 20 5b 61 64 61 2d 6c	y:.").(byte-code."......".[ada-l
3c20	69 62 2d 64 69 72 2d 6e 61 6d 65 20 61 64 61 2d 6c 69 62 2d 6e 61 6d 65 20 6e 69 6c 5d 20 32 29	ib-dir-name.ada-lib-name.nil].2)
3c40	29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 6f 70 74 69 6f 6e 73 2d 66 6f 72 2d 62 69 6e 64 20 6e	)..(defun.ada-options-for-bind.n
3c60	69 6c 20 22 5c 0a 53 70 65 63 69 66 79 20 6f 70 74 69 6f 6e 73 2c 20 73 75 63 68 20 61 73 20 2d	il."\.Specify.options,.such.as.-
3c80	6d 20 61 6e 64 20 2d 69 2c 20 6e 65 65 64 65 64 20 66 6f 72 20 61 64 61 62 69 6e 64 2e 22 20 28	m.and.-i,.needed.for.adabind.".(
3ca0	62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 21 89 10 87 22 20 5b 61 64 61 2d 62 69 6e 64 2d 6f 70 74	byte-code."..!...".[ada-bind-opt
3cc0	73 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 2d 6d 20 61 6e 64 20 2d 69 20 6f 70 74 69 6f 6e 73	s.read-string."-m.and.-i.options
3ce0	20 66 6f 72 20 61 64 61 62 69 6e 64 3a 20 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61	.for.adabind:."].3))..(defun.ada
3d00	2d 63 6f 6d 70 69 6c 65 20 28 61 64 61 2d 70 72 65 66 69 78 2d 61 72 67 29 20 22 5c 0a 53 61 76	-compile.(ada-prefix-arg)."\.Sav
3d20	65 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 6e 64 20 63 6f 6d 70 69 6c 65	e.the.current.buffer.and.compile
3d40	20 69 74 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 67 72 61 6d 20 6c 69 62	.it.into.the.current.program.lib
3d60	72 61 72 79 2e 0a 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6c 69 62 72 61 72 79 20 69 66 20	rary..Initialize.the.library.if.
3d80	61 20 70 72 65 66 69 78 20 61 72 67 20 69 73 20 67 69 76 65 6e 2e 22 20 28 69 6e 74 65 72 61 63	a.prefix.arg.is.given.".(interac
3da0	74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 09 3f 83 0b 00 c5 82 0c	tive."P").(byte-code."...?......
3dc0	00 c6 18 c7 20 1a c8 c9 ca 08 cb 0b cc 0a 26 06 21 2a 87 22 20 5b 61 64 61 2d 69 6e 69 74 20 61	..............&.!*.".[ada-init.a
3de0	64 61 2d 70 72 65 66 69 78 2d 61 72 67 20 61 64 61 2d 73 6f 75 72 63 65 2d 66 69 6c 65 20 61 64	da-prefix-arg.ada-source-file.ad
3e00	61 2d 6c 69 62 2d 64 69 72 2d 6e 61 6d 65 20 6e 69 6c 20 22 22 20 22 2d 6e 20 22 20 62 75 66 66	a-lib-dir-name.nil.""."-n.".buff
3e20	65 72 2d 6e 61 6d 65 20 63 6f 6d 70 69 6c 65 20 63 6f 6e 63 61 74 20 22 61 64 61 63 6f 6d 70 20	er-name.compile.concat."adacomp.
3e40	22 20 22 2d 6c 20 22 20 22 20 22 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 66 69 6e	"."-l."."."].9))..(defun.ada-fin
3e60	64 2d 6c 69 73 74 69 6e 67 20 6e 69 6c 20 22 5c 0a 46 69 6e 64 20 6c 69 73 74 69 6e 67 20 66 69	d-listing.nil."\.Find.listing.fi
3e80	6c 65 20 66 6f 72 20 61 64 61 20 73 6f 75 72 63 65 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66	le.for.ada.source.in.current.buf
3ea0	66 65 72 2c 20 75 73 69 6e 67 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72	fer,.using.other.window.".(inter
3ec0	61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 20 c3 c4 4f c5 50 21 88	active).(byte-code.".......O.P!.
3ee0	c6 c7 21 87 22 20 5b 6e 69 6c 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f	..!.".[nil.find-file-other-windo
3f00	77 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 30 20 2d 34 20 22 2e 6c 69 73 22 20 73 65 61 72 63 68	w.buffer-name.0.-4.".lis".search
3f20	2d 66 6f 72 77 61 72 64 20 22 2a 2a 2a 20 45 52 52 4f 52 22 5d 20 35 29 29 0a 0a 28 64 65 66 75	-forward."***.ERROR"].5))..(defu
3f40	6e 20 61 64 61 2d 62 69 6e 64 20 6e 69 6c 20 22 5c 0a 42 69 6e 64 20 74 68 65 20 63 75 72 72 65	n.ada-bind.nil."\.Bind.the.curre
3f60	6e 74 20 70 72 6f 67 72 61 6d 20 6c 69 62 72 61 72 79 2c 20 75 73 69 6e 67 20 74 68 65 20 63 75	nt.program.library,.using.the.cu
3f80	72 72 65 6e 74 20 62 69 6e 64 69 6e 67 20 6f 70 74 69 6f 6e 73 2e 22 20 28 69 6e 74 65 72 61 63	rrent.binding.options.".(interac
3fa0	74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 08 c5 09 52 21 87 22 20 5b 61	tive).(byte-code.".......R!.".[a
3fc0	64 61 2d 62 69 6e 64 2d 6f 70 74 73 20 61 64 61 2d 6c 69 62 2d 64 69 72 2d 6e 61 6d 65 20 6e 69	da-bind-opts.ada-lib-dir-name.ni
3fe0	6c 20 63 6f 6d 70 69 6c 65 20 22 61 64 61 62 69 6e 64 20 22 20 22 20 22 5d 20 35 29 29 0a	l.compile."adabind."."."].5)).