text/x-ada;text/x-adasrc
*.adb;*.ads
--
"
"
""
'.'
package
pragma
use
with
function
procedure
return
abort
abs
accept
all
and
begin
body
case
declare
delay
do
else
elsif
end
entry
exception
exit
for
generic
goto
if
in
is
loop
mod
new
not
null
or
others
out
protected
raise
record
rem
renames
requeue
reverse
select
separate
subtype
task
terminate
then
type
until
when
while
xor
abstract
access
aliased
array
at
constant
delta
digits
interface
limited
of
private
range
tagged
synchronized
boolean
character
count
duration
float
integer
long_float
long_integer
priority
short_float
short_integer
string
[0-9a-f][0-9a-f_]*
[Ee][+-]?[0-9][0-9_]*
(?<![\w\.])
[0-9][0-9_]*\#\%{hexnum}(\.\%{hexnum})?\#\%{exponent}?
(?![\w\.])
(?<![\w\.])
[0-9][0-9_]*\.[0-9][0-9_]*\%{exponent}?
(?![\w\.])
(?<![\w\.])
[0-9][0-9_]*(E[+]?[0-9][0-9_]*)?
(?![\w\.])
true
false