The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package syntaxhighlighter::baan;
$VERSION = '0.01';

use Wx qw(wxSTC_LEX_BAAN);

sub load {
 $_[0]->SetLexer( wxSTC_LEX_BAAN );
 $_[0]->SetKeyWords(0,'');

 $_[0]->StyleSetSpec( 0,"fore:#808080");			# White space
 $_[0]->StyleSetSpec( 1,"fore:#aaaaaa");			# Comment
 $_[0]->StyleSetSpec( 2,"fore:#aaaaaa,back:#E0C0E0");# Doc comment
 $_[0]->StyleSetSpec( 3,"fore:#007f7f");			# Number
 $_[0]->StyleSetSpec( 4,"fore:#000077,bold");		# Keyword
 $_[0]->StyleSetSpec( 5,"fore:#ee7b00,back:#fff8f8");# Double quoted string
 $_[0]->StyleSetSpec( 6,"fore:#800080");			# Preprocessor
 $_[0]->StyleSetSpec( 7,"fore:#B06000");			# Operators
 $_[0]->StyleSetSpec( 8,"fore:#000077");			# Identifiers
 $_[0]->StyleSetSpec( 9,"fore:#000000,back:#E0C0E0,eolfilled");# End of line where string is not closed
 $_[0]->StyleSetSpec(10,"fore:#B00040");			# Operator: * ? < > |
 $_[0]->StyleSetSpec(32,"fore:#000000");			# Default
}

1;