package syntaxhighlighter::batch;
$VERSION = '0.01';
use Wx qw(wxSTC_LEX_BATCH);
sub load{
$_[0]->SetLexer( wxSTC_LEX_BATCH );
$_[0]->SetKeyWords(0,'rem set if exist errorlevel for in do \
break call chcp cd chdir choice cls country ctty date del erase dir echo \
exit goto loadfix loadhigh mkdir md move path pause prompt rename ren \
rmdir rd shift time type ver verify vol \
com con lpt nul \
color copy defined else not start');
$_[0]->StyleSetSpec( 0,"fore:#000000"); # Default
$_[0]->StyleSetSpec( 1,"fore:#aaaaaa"); # Comment (rem or ::)
$_[0]->StyleSetSpec( 2,"fore:#000077,bold"); # Keywords
$_[0]->StyleSetSpec( 3,"fore:#ee7b00"); # Label (line beginning with ':')
$_[0]->StyleSetSpec( 4,"fore:#7F007F"); # Hide command character ('@')
$_[0]->StyleSetSpec( 5,"fore:#007090,bold"); # External commands
$_[0]->StyleSetSpec( 6,"fore:#800080"); # Variable: %%x (x is almost whatever, except space and %), %n (n in [0-9]), %EnvironmentVar%
$_[0]->StyleSetSpec( 7,"fore:#000000"); # Operator: * ? < > |
}
1;