package syntaxhighlighter::ada;
$VERSION = '0.01';

sub load{

use Wx qw(wxSTC_LEX_ADA wxSTC_H_TAG);

 $_[0]->SetLexer( wxSTC_LEX_ADA );
 $_[0]->SetKeyWords(0,'abort abstract accept access aliased all array at begin body \
case constant declare delay delta digits do else elsif end entry exception exit for \
function generic goto if in is limited loop new null of others out package pragma \
private procedure protected raise range record renames requeue return reverse \
select separate subtype tagged task terminate then type until use when while with \
abs and mod not or rem xor');
# Keywords for operators in the last line

# $_[0]->StyleSetSpec( wxSTC_H_TAG, "fore:#000055" ); # Apply tag style for selected lexer (blue)


 $_[0]->StyleSetSpec( 0,"fore:#000000");				# Default
 $_[0]->StyleSetSpec( 1,"fore:#447744,bold");			# Keyword
 $_[0]->StyleSetSpec( 2,"fore:#3350ff");				# Identifiers
 $_[0]->StyleSetSpec( 3,"fore:#007f7f");				# Number
 $_[0]->StyleSetSpec( 4,"fore:#7f2020");				# Operators (delimiters)
 $_[0]->StyleSetSpec( 5,"fore:#208820");				# Character
 $_[0]->StyleSetSpec( 6,"fore:#882020,eolfilled");		# End of line where character is not closed
 $_[0]->StyleSetSpec( 7,"fore:#207474");				# String
 $_[0]->StyleSetSpec( 8,"fore:#209999,eolfilled");		# End of line where string is not closed
 $_[0]->StyleSetSpec( 9,"fore:#7F0000");				# Label
 $_[0]->StyleSetSpec(10,"fore:#aaaaaa");				# Comment
 $_[0]->StyleSetSpec(11,"fore:#FF0000");				# Illegal token
}

1;