<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE language SYSTEM "language.dtd"
[
<!ENTITY label "[a-zA-Z_][a-zA-Z_0-9]*"> <!-- so sehen Labels aus -->
<!ENTITY varname "([a-z_]\w*|[0-9]*[&])"> <!-- valid character in a variable name -->
<!ENTITY pathpart "[^"*=/:<>?\\[\]\|]"> <!-- valid character in a file name -->
<!ENTITY tasten "((Strg|Alt|Shift)-)?([a-z0-9]|F[1-9]|F1[0-2]|Esc|Bksp|Tab|Enter|Up|Down|Left|Right|PgUp|PgDn|Home|End|Ins|Del)">
]>
<language name="4DOS BatchToMemory" kateversion="5.0" version="3" section="Scripts" extensions="*.btm" casesensitive="0" author="Stefan Huebner (st0ff@npl.de)" license="LGPL">
<!--DONE:
- comments are there
- substitutions are there
- basic variable function handling, distinguishing the function result between numerical and string
- variables are there (somehow)
- numbers will be found
- escape characters are found and highlit
- jumps, gosubs and labels
- command grouping
- conditions
- redirection
- many different command handlings
- iff
- echo
- text/endtext
- set/unset
- input/inkey
- do
- for
- switch
- internal commands of 4DOS
TODO:
- if someone finds that PATH-detection makes sense: create it...
- whatever doesn't seem to be correctly lit after all the preceeding stuff ...
- follow the TODO-Marks
-->
<highlighting>
<list name="HighlightInsideComment">
<item>todo</item>
<item>attention</item>
<item>attn</item>
<item>fixme</item>
<item>achtung</item>
<item>info</item>
</list>
<list name="IntFunctions">
<item>DOSMEM</item> <!-- b|k|m-->
<item>EMS</item> <!-- b|k|m-->
<item>EXTENDED</item> <!-- b|k|m-->
<item>XMS</item> <!-- b|k|m-->
<item>CDROM</item> <!--string-->
<item>CLUSTSIZE</item> <!--string-->
<item>CODEPAGE</item> <!--string-->
<item>COM</item> <!-- int-->
<item>DEVICE</item> <!--string-->
<item>DISKFREE</item> <!--string, b|k|m-->
<item>DISKTOTAL</item> <!--string, b|k|m-->
<item>DISKUSED</item> <!--string, b|k|m-->
<item>DRIVETYPE</item> <!--string-->
<item>HDDSIZE</item> <!--string, b|k|m-->
<item>LPT</item> <!-- int-->
<item>READY</item> <!--string-->
<item>REMOTE</item> <!--string-->
<item>REMOVABLE</item> <!--string-->
<item>ATTRIB</item> <!--string,-n|r|h|s|a|d,p]--><!--ATTENTION : nur mit 2 Parametern wird ein Int returned-->
<item>COMPARE</item> <!--string-->
<item>FILEAGE</item> <!--string,a|c|w]-->
<item>FILECLOSE</item> <!-- int-->
<item>FILEOPEN</item> <!--string, r|w|a,b|t]-->
<item>FILEREAD</item> <!-- int, int]-->
<item>FILEREADB</item> <!-- int, int-->
<item>FILES</item> <!--string,-n|r|h|s|a|d]-->
<item>FILESEEK</item> <!-- int, int, int-->
<item>FILESEEKL</item> <!-- int, int-->
<item>FILESIZE</item> <!--string,char,char]]-->
<item>FILEWRITE</item> <!-- int,string-->
<item>FILEWRITEB</item> <!-- int, int,string-->
<item>FINDCLOSE</item> <!--string-->
<item>LINES</item> <!--string-->
<item>ASCII</item> <!-- char-->
<item>COUNT</item> <!-- char,string-->
<item>FIELDS</item> <!--"string",]string-->
<item>INDEX</item> <!--string,string,int]-->
<item>ISALNUM</item> <!--string-->
<item>ISALPHA</item> <!--string-->
<item>ISASCII</item> <!--string-->
<item>ISCNTRL</item> <!--string-->
<item>ISDIGIT</item> <!--string-->
<item>ISLOWER</item> <!--string-->
<item>ISPRINT</item> <!--string-->
<item>ISPUNCT</item> <!--string-->
<item>ISSPACE</item> <!--string-->
<item>ISUPPER</item> <!--string-->
<item>ISXDIGIT</item> <!--string-->
<item>LEN</item> <!--string-->
<item>SIMILAR</item> <!--string,string-->
<item>WILD</item> <!--string,string-->
<item>WORDS</item> <!--"string",]string-->
<item>ABS</item> <!-- float-->
<item>AVERAGE</item> <!-- float,float,float...]]]-->
<item>CEILING</item> <!-- float-->
<item>CONVERT</item> <!-- int, int, int-->
<item>DEC</item> <!--expression-->
<item>DECIMAL</item> <!-- float-->
<item>DIGITS</item> <!--string-->
<item>EVAL</item> <!--expression-->
<item>FLOOR</item> <!-- float-->
<item>INC</item> <!--expression-->
<item>INT</item> <!-- float-->
<item>MAX</item> <!-- float,float,float...]]]-->
<item>MIN</item> <!-- float,float,float...]]]-->
<item>NUMERIC</item> <!--string-->
<item>RANDOM</item> <!-- float,float-->
<item>DATE</item> <!-- date-->
<item>DAY</item> <!-- date-->
<item>DOWI</item> <!-- date-->
<item>DOY</item> <!-- date-->
<item>ISODOWI</item> <!-- date-->
<item>ISOWEEK</item> <!-- date-->
<item>ISOWYEAR</item> <!-- date-->
<item>MAKEAGE</item> <!-- date,time]-->
<item>MONTH</item> <!-- date-->
<item>TIME</item> <!-- time-->
<item>YEAR</item> <!-- date-->
<item>EXEC</item> <!--expression-->
<item>INIWRITE</item> <!--string,string,string,string-->
</list>
<list name="StringFunctions">
<item>DDCSTR</item> <!-- int-->
<item>MASTER</item> <!--string-->
<item>READSCR</item> <!-- int, int, int-->
<item>SMBSTR</item> <!-- int, int-->
<item>CWD</item> <!--string-->
<item>CWDS</item> <!--string-->
<item>FSTYPE</item> <!--string-->
<item>LABEL</item> <!--string-->
<item>SERIAL</item> <!--string-->
<item>ATTRIB</item> <!--string--><!--ATTENTION : nur mit 1 Parameter wird ein String returned-->
<item>FILEDATE</item> <!--string,acw],n]]-->
<item>FILETIME</item> <!--string,acw],s]]-->
<item>FINDFIRST</item> <!--string,-n|r|h|s|a|d]-->
<item>FINDNEXT</item> <!--string,-n|r|h|s|a|d]-->
<item>LINE</item> <!--string, int-->
<item>MD5</item> <!--string-->
<item>SEARCH</item> <!--string,string]-->
<item>SHA1</item> <!--string-->
<item>TRUENAME</item> <!--string-->
<item>UNIQUE</item> <!--string-->
<item>ALTNAME</item> <!--string-->
<item>EXPAND</item> <!--string,-n|r|h|s|a|d]-->
<item>EXT</item> <!--string-->
<item>FILENAME</item> <!--string-->
<item>FULL</item> <!--string-->
<item>LFN</item> <!--string-->
<item>NAME</item> <!--string-->
<item>PATH</item> <!--string-->
<item>QUOTE</item> <!--string-->
<item>SFN</item> <!--string-->
<item>UNQUOTE</item> <!--string-->
<item>UNQUOTES</item> <!--string-->
<item>ASCII</item> <!--string-->
<item>CAPS</item> <!--"string",string-->
<item>CHAR</item> <!--space-delimited list of int-->
<item>FIELD</item> <!--"string",] int,string-->
<item>FORMAT</item> <!--string,string-->
<item>INSERT</item> <!-- int,string,string-->
<item>INSTR</item> <!-- int, int,string-->
<item>LCS</item> <!--string,string-->
<item>LEFT</item> <!-- int,string-->
<item>LOWER</item> <!--string-->
<item>LTRIM</item> <!--string,string-->
<item>REPEAT</item> <!-- char, int-->
<item>REPLACE</item> <!--string,string,string-->
<item>RIGHT</item> <!-- int,string-->
<item>RTRIM</item> <!--string,string-->
<item>REVERSE</item> <!--string-->
<item>STRIP</item> <!--string,string-->
<item>SUBST</item> <!-- int,string,string-->
<item>SUBSTR</item> <!-- int, int,string-->
<item>TRIM</item> <!--string-->
<item>UPPER</item> <!--string-->
<item>WORD</item> <!--"string",]n,string-->
<item>COMMA</item> <!-- float-->
<item>AGEDATE</item> <!-- int,format]-->
<item>DATECONV</item> <!--string,format]-->
<item>DOW</item> <!-- date-->
<item>DOWF</item> <!-- date-->
<item>MAKEDATE</item> <!-- int-->
<item>MAKETIME</item> <!-- int-->
<item>MONTHF</item> <!-- date-->
<item>ALIAS</item> <!--string-->
<item>CLIP</item> <!--string-->
<item>CLIPW</item> <!--string-->
<item>EXECSTR</item> <!--string-->
<item>FUNCTION</item> <!--string-->
<item>HISTORY</item> <!-- int, int]-->
<item>IF</item> <!--condition,string,string-->
<item>INIREAD</item> <!--string,string,string-->
<item>SELECT</item> <!--string, int, int, int, int,string-->
<item>TIMER</item> <!-- int-->
</list>
<list name="IfCommand"> <item>if</item> </list>
<list name="IffCommand"> <item>iff</item> </list>
<list name="TextCommand"> <item>text</item> </list>
<list name="InputCommand"> <item>input</item> </list>
<list name="InkeyCommand"> <item>inkey</item> </list>
<list name="DoCommand"> <item>do</item> </list>
<list name="EnddoCommand"> <item>enddo</item> </list>
<list name="SkipdoCommand">
<item>iterate</item>
<item>leave</item>
</list>
<list name="SwitchCommand"> <item>switch</item> </list>
<list name="TestErrorlevel"><item>errorlevel</item></list>
<list name="TestStatusVarname">
<item>defined</item>
<item>isalias</item>
<item>isfunction</item>
<item>isinternal</item>
<item>islabel</item>
</list>
<list name="SetCommand">
<item>set</item>
<item>function</item>
<item>alias</item>
</list>
<list name="UnsetCommand">
<item>ENDLOCAL</item>
<item>UNALIAS</item>
<item>UNFUNCTION</item>
<item>UNSET</item>
</list>
<list name="BadCommands">
<item>for</item>
<item>else</item>
<item>elseiff</item>
<item>endiff</item>
<item>enddo</item>
<item>endtext</item>
<item>case</item>
<item>endswitch</item>
<item>default</item>
<!-- the following is only valid within a do-loop. But obviously I didn't think about it twice:
if inside a do-loop we enter an iff/endiff construct, we switch contexts and the "leave" will
not be found by the "insideDo" context. There would need to be a way to create a dynamic list
of keywords that can be shorted or expanded by a specific context, so that the above wouldn't
happen. -->
<!--item> iterate </item>
<item> leave </item-->
</list>
<list name="NeedOnOffCommands">
<item>BREAK</item>
<item>IDLE</item>
<item>LFNFOR</item>
<item>LOADBTM</item>
<item>SWAPPING</item>
<item>TRANSIENT</item>
<item>VERIFY</item>
</list>
<list name="TakeAFileNameCommands">
<item>CALL</item>
<item>CD</item>
<item>CHDIR</item>
<item>CDD</item>
<item>DIR</item>
<item>ERASE</item>
<item>DEL</item>
<item>DESCRIBE</item>
<item>HEAD</item>
<item>MD</item>
<item>MKDIR</item>
<item>RD</item>
<item>RMDIR</item>
<item>PUSHD</item>
<item>REN</item>
<item>RENAME</item>
<item>TOUCH</item>
</list>
<list name="simpleNoChecksCommands">
<item>BEEP</item>
<item>CANCEL</item>
<item>DATE</item>
<item>FREE</item>
<item>KEYBD</item>
<item>ELSE</item>
<item>PAUSE</item>
<item>POPD</item>
<item>QUIT</item>
<item>SETDOS</item>
<item>SHIFT</item>
<item>TAIL</item>
<item>TEE</item>
<item>TIME</item>
<item>TIMER</item>
<item>TYPE</item>
</list>
<list name="NeedAnIntegerCommands">
<item>CHCP</item>
<item>DELAY</item>
<item>COUNTRY</item>
<item>SETERROR</item>
</list>
<list name="TakeColorsCommands">
<item>CLS</item>
<item>COLOR</item>
</list>
<list name="FilesystemOperationCommands">
<item>ATTRIB</item>
<item>COPY</item>
<item>FFIND</item>
<item>MOVE</item>
</list>
<list name="DrawCommands">
<item>DRAWBOX</item>
<item>DRAWHLINE</item>
<item>DRAWVLINE</item>
<item>SCREEN</item>
<item>SCRPUT</item>
<item>VSCRPUT</item>
</list>
<list name="NeedsACommandCommands">
<item>EXCEPT</item>
<item>GLOBAL</item>
</list>
<list name="NoParametersAtAllCommands">
<item>SETLOCAL</item>
</list>
<list name="OnOff">
<item>on</item>
<item>off</item>
</list>
<contexts>
<context name="base" attribute="Normal" lineEndContext="#stay">
<IncludeRules context="findComments"/>
<IncludeRules context="findCommands"/>
<IncludeRules context="findCommandSeparator"/>
<IncludeRules context="findStrings"/> <!-- includes "findSubstitution"-->
</context>
<!--
the following contexts are meant to be included in other contexts.
-->
<!-- find any comments (we were even keen enough to highlight things like TODO/FIXME and so on)-->
<context name="findComments" attribute="Normal" lineEndContext="#stay">
<Detect2Chars attribute="Comment" context="foundComment" char=":" char1=":" column="0"/>
<WordDetect attribute="Comment" context="foundComment" String="rem" insensitive="true"/>
</context>
<!-- whereever there should be a command start, the following should match in some way or another -->
<context name="findCommands" attribute="Normal" lineEndContext="#stay">
<!-- Highlight command groups and start/end corresponding folding region -->
<DetectChar attribute="Label" context="CommandGroup" char="(" beginRegion="true"/>
<!-- find Labels and jmp/jsr/rts commands -->
<IncludeRules context="findSpaghetti"/>
<!-- find commands that need special handling-->
<!-- TODO: replace single-item keyword lists with WordDetect as soon as WordDetect works properly again-->
<keyword attribute="Keyword" context="conditionLeft" String="IfCommand"/>
<keyword attribute="Keyword" context="cmdIff" String="IffCommand"/>
<!-- find all "echo"-variations -->
<RegExpr attribute="Keyword" String="[@]?echo\s+(on|off)(?=\s*($|\%\+|\)|\]))" insensitive="true"/>
<RegExpr attribute="Keyword" context="cmdEcho" String="\becho[s]?(err)?[\.]?" insensitive="true"/>
<!-- special treatment for Text and EndText -->
<keyword attribute="Keyword" context="cmdText" String="TextCommand" insensitive="true" beginRegion="true"/>
<!-- Set und Unset-Befehle -->
<keyword attribute="Keyword" context="cmdSet" String="SetCommand"/>
<keyword attribute="Keyword" context="cmdUnset" String="UnsetCommand"/>
<!-- inkey/input -->
<keyword attribute="Keyword" context="cmdInput" String="InputCommand"/>
<keyword attribute="Keyword" context="cmdInkey" String="InkeyCommand"/>
<!-- do loops -->
<keyword attribute="Keyword" context="cmdDo" String="DoCommand" beginRegion="true"/>
<!-- switch constructs -->
<keyword attribute="Keyword" context="cmdSwitch" String="SwitchCommand" beginRegion="true"/>
<!-- all the other internal 4DOS commands (with as little processing, as time permits) -->
<keyword attribute="Keyword" context="cmdNeedOnOff" String="NeedOnOffCommands"/>
<keyword attribute="Keyword" context="cmdTakeAFileName" String="TakeAFileNameCommands"/>
<keyword attribute="Keyword" context="cmdsimpleNoChecks" String="simpleNoChecksCommands"/>
<keyword attribute="Keyword" context="cmdNeedAnInteger" String="NeedAnIntegerCommands"/>
<keyword attribute="Keyword" context="cmdTakeColors" String="TakeColorsCommands"/>
<keyword attribute="Keyword" context="cmdFilesystemOperation" String="FilesystemOperationCommands"/>
<keyword attribute="Keyword" context="cmdDraw" String="DrawCommands"/>
<keyword attribute="Keyword" context="cmdNeedsACommand" String="NeedsACommandCommands"/>
<keyword attribute="Keyword" context="popNeedEndOfCommand" String="NoParametersAtAllCommands"/>
<!-- BAD COMMANDS:
for :: if someone codes for 4DOS, he shall not use for-loops. The way to go is using do-loops,
for-loops were just included into 4DOS to have M$-DOS command.com compatibility
any other bad commands: are not available outside of their respective scopes, or it's the same
as with "for"
-->
<keyword attribute="Error" context="Error" String="BadCommands"/>
</context>
<!-- find jumps, labels and subroutine calls -->
<context name="findSpaghetti" attribute="Normal" lineEndContext="#stay">
<RegExpr attribute="Label" context="foundLabel" String="^:&label;" beginRegion="true" insensitive="true"/>
<RegExpr attribute="Label" context="foundSpagetti" String="(goto|gosub)\s+&label;" insensitive="true"/>
<WordDetect attribute="Label" String="return" insensitive="true" endRegion="true"/>
</context>
<!-- find any variable substitution-->
<context name="findSubstitution" attribute="Normal" lineEndContext="#stay">
<DetectChar context="substitutionFound" char="%" lookAhead="true"/>
</context>
<!-- findVariables just finds variable substitutions WITHOUT variable functions!!!-->
<context name="findVariables" attribute="Normal" lineEndContext="#stay">
<Detect2Chars attribute="VariableBold" context="substitutionIndirect" char="%" char1="["/>
<RegExpr attribute="Variable" String="%(([a-z_][a-z_0-9]*%?)|[0-9]+&?|&|\?+|_\?|#)" insensitive="true"/>
</context>
<!-- findNumbers finds Numbers and variableSubstitutions that may well be numbers-->
<context name="findNumbers" attribute="Normal" lineEndContext="#stay">
<RegExpr attribute="Number" String="\s*[+-]?\d*[,.]?\d+"/>
<Detect2Chars attribute="Function" context="substitutionFindIntFunction" char="%" char1="@"/>
<IncludeRules context="findVariables"/>
</context>
<!-- findStrings should skip over Strings, highlighting any substitution inside-->
<context name="findStrings" attribute="Normal" lineEndContext="#stay">
<DetectChar attribute="Escape" context="foundStringBackQuote" char="`"/>
<DetectChar attribute="String" context="foundStringQuote" char="""/>
<IncludeRules context="findEscapes"/>
<IncludeRules context="findSubstitution"/>
<!-- a Number may well be interpreted as a string in 4dos, also -->
<RegExpr attribute="Number" String="\s*[+-]?\d*[,.]?\d+"/>
<!-- the following highlights ANSI-Escape-Sequences -->
<RegExpr attribute="Escape" String="\x1b\[.*[fhlmpsuABCDHJKR]" minimal="true"/>
<!--
we shall find strings - so why don't we find at least literal words?
There is one simple answer: if we are inside a context that shall highlight strings,
then "findStrings" is included, to find things that evaluate to some kind of string.
Normal plaintext strings shall be lit by the context itself.
-->
</context>
<!-- highlight escaped characters -->
<context name="findEscapes" attribute="Normal" lineEndContext="#stay">
<RegExpr attribute="Escape" context="foundANSIEscape" String="%=e\[(?=.*[fhlmpsuABCDHJKR])" minimal="true"/>
<RegExpr attribute="Escape" String="\x18.|%=."/>
</context>
<!-- highlight the command seperator without changing contexts -->
<context name="findCommandSeparator" attribute="Normal" lineEndContext="#stay">
<Detect2Chars attribute="Keyword" char="%" char1="+"/>
</context>
<!-- highlight the command seperator and pop a context -->
<context name="popNeedEndOfCommand" attribute="Error" lineEndContext="#pop">
<Detect2Chars attribute="Keyword" context="#pop" char="%" char1="+"/>
<DetectSpaces attribute="Normal"/>
</context>
<!-- Entry Point for finding conditions -->
<context name="findCondition" attribute="Normal" lineEndContext="#stay">
<RegExpr attribute="Error" context="conditionLeft" String="(not\s+)*(((dir)?exist|isdir|defined|is(alias|function|label|internal)|errorlevel)|(.+((\s*(==|!=)\s*)|(\s+(eq|ne|gt|ge|lt|le|eqc)\s+)).+))" lookAhead="true" insensitive="true"/>
</context>
<!-- find redirections -->
<context name="findRedirection" attribute="Error" lineEndContext="#stay">
<DetectChar attribute="Keyword" context="RedirectionInput1st" char="<"/>
<RegExpr attribute="Keyword" context="RedirectionOutput1st" String="[>]{1,2}[&]?[>]?"/>
</context>
<!-- find any Option -->
<context name="findOption" attribute="Option" lineEndContext="#stay">
<DetectChar attribute="Option" context="Option" char="/"/>
</context>
<!--
Here we start with functional contexts. These actually do something more than just find something and should not be sourced directly
-->
<context name="CommandGroup" attribute="Normal" lineEndContext="#stay">
<DetectChar attribute="Label" context="#pop" char=")" endRegion="true"/>
<IncludeRules context="base"/>
</context>
<!-- Highlight ANSI Escap-Sequences - the "%=e[" are already eaten up -->
<context name="foundANSIEscape" attribute="String" lineEndContext="#pop">
<IncludeRules context="findStrings"/>
<AnyChar attribute="Escape" context="#pop" String="fhlmpsuABCDHJKR"/>
</context>
<!-- if any substitution was found, we get here ... -->
<context name="substitutionFound" attribute="Error" lineEndContext="#pop">
<Detect2Chars attribute="Function" context="#pop!substitutionFindFunction" char="%" char1="@"/>
<Detect2Chars attribute="VariableBold" context="#pop!substitutionIndirect" char="%" char1="["/>
<RegExpr attribute="Variable" context="#pop" String="%((([a-z_][a-z_0-9]*)%?)|[0-9]+&?|&|\?+|_\?|#)" insensitive="true"/>
<!-- in @EVAL there is the modulo-operator %% - we'll have to filter it out!
TODO: give eval a special handler and remove the following rule. -->
<Detect2Chars attribute="Operator" context="#pop" char="%" char1="%"/>
</context>
<context name="substitutionFindFunction" attribute="Error" lineEndContext="#pop">
<!-- TODO: add special function handlers for
execstr
if
-->
<keyword attribute="Function" context="#pop!substitutionFunctionFound" String="StringFunctions"/>
<IncludeRules context="substitutionFindIntFunction"/>
</context>
<context name="substitutionFindIntFunction" attribute="Error" lineEndContext="#pop">
<!-- TODO: add special function handlers for
eval
-->
<keyword attribute="Function" context="#pop!substitutionFunctionFound" String="IntFunctions"/>
<RegExpr attribute="Function" context="#pop!substitutionFunctionFound" String="&label;(?=\[)" insensitive="true"/>
</context>
<!-- Variable Functions - the Masterpower of 4DOS -> we'll make this more complex later on!-->
<context name="substitutionFunctionFound" attribute="Error" lineEndContext="Error">
<DetectChar attribute="Function" context="#pop!findFunctionParameters" beginRegion="true" char="["/>
</context>
<context name="findFunctionParameters" attribute="String" lineEndContext="Error">
<DetectChar attribute="Function" char=","/>
<DetectChar attribute="Function" context="#pop" endRegion="true" char="]"/>
<IncludeRules context="findStrings"/>
</context>
<!-- indirect Substitutions - they need to find their ending braces-->
<context name="substitutionIndirect" attribute="Variable" lineEndContext="Error">
<DetectChar attribute="VariableBold" context="#pop" endRegion="true" char="]"/>
<IncludeRules context="findStrings"/>
</context>
<!-- Strings within quotes -->
<context name="foundStringBackQuote" attribute="String" lineEndContext="#pop">
<DetectChar attribute="Escape" context="#pop" char="`"/>
</context>
<context name="foundStringQuote" attribute="String" lineEndContext="#pop">
<DetectChar attribute="String" context="#pop" char="""/>
<IncludeRules context="findStrings"/>
</context>
<!-- stuff inside comments ... (a comment always runs until EOL) -->
<context name="foundComment" attribute="Comment" lineEndContext="#pop">
<keyword attribute="Alert" String="HighlightInsideComment"/>
</context>
<!-- Label definitions including parameter definitions for Gosub-->
<context name="foundLabel" attribute="Error" lineEndContext="#pop">
<!-- Wir suchen nach Parameterdefinitionen für GOSUBs, alles andere sind Fehler! -->
<DetectChar attribute="Label" context="#pop!foundLabelParameters" char="["/>
<DetectSpaces attribute="Normal"/>
</context>
<context name="foundLabelParameters" attribute="Error" lineEndContext="#pop">
<DetectIdentifier attribute="Variable" context="#stay"/>
<DetectChar attribute="Label" context="#pop" char="]"/>
<DetectSpaces attribute="Normal"/>
</context>
<!-- highlight gosubs and gotos with additional parameters (only valid with gosub, actually)-->
<context name="foundSpagetti" attribute="Normal" lineEndContext="#pop">
<IncludeRules context="popNeedEndOfCommand"/>
<IncludeRules context="findStrings"/>
</context>
<!-- Rules that highlight conditions (include the entry point "findCondition" to start this as a context that pops behind the condition(s))-->
<context name="conditionLeft" attribute="Normal" lineEndContext="#pop" fallthrough="true" fallthroughContext="#pop!conditionLeftStandard">
<RegExpr attribute="Normal" context="conditionNot" String="\bnot\b" lookAhead="true" insensitive="true"/>
<keyword attribute="Label" context="#pop!conditionVarname" String="TestStatusVarname"/>
<!-- the end of a filename comes with any non-quoted space - so we need to eat up the first space after exist etc.-->
<RegExpr attribute="Label" context="#pop!conditionFileTest" String="((dir)?exist|isdir)\s+" insensitive="true"/>
<keyword attribute="Label" context="#pop!conditionErrorlevel" String="TestErrorlevel"/>
<DetectSpaces/>
</context>
<context name="conditionNot" attribute="Error" lineEndContext="#pop#pop">
<!-- the context itself highlights everything as Error - just this rule finds the last not -->
<RegExpr attribute="Alert" context="#pop" String="\bnot\b(?!\s*not\b)" insensitive="true"/>
</context>
<context name="conditionVarname" attribute="Normal" lineEndContext="#pop">
<!-- basic variable name check just finds an identifier -->
<DetectIdentifier attribute="Variable" context="#pop!conditionEnd"/>
<!-- TODO: further checking, as a varname can also be calculated -->
</context>
<context name="conditionFileTest" attribute="String" lineEndContext="#pop">
<IncludeRules context="findStrings"/>
<DetectSpaces context="#pop!conditionEnd"/>
</context>
<context name="conditionErrorlevel" attribute="Normal" lineEndContext="#pop">
<DetectSpaces/>
<RegExpr attribute="Operator" String="==|!=|eq|ne|gt|ge|lt|le" insensitive="true"/>
<RegExpr attribute="Number" context="#pop!conditionEnd" String="\s*[+-]?\d*[,.]?\d+"/>
<!-- TODO: actually errorlevel-test can also take calculated numbers or int variables to test agains - but would we want to duplicate a lot of the functionality above again?-->
</context>
<context name="conditionEnd" attribute="Normal" lineEndContext="#pop" fallthrough="true" fallthroughContext="#pop">
<RegExpr attribute="Operator" context="#pop!conditionLeft" String="\.(and|(x)?or)\." insensitive="true"/>
<!--DetectSpaces/-->
</context>
<context name="conditionLeftStandard" attribute="Normal" lineEndContext="#pop">
<!--DetectSpaces/-->
<RegExpr attribute="Operator" context="#pop!conditionLeftEval" String="\s*(==|!=|eq|ne|gt|ge|lt|le)\s*" lookAhead="true" insensitive="true"/>
<IncludeRules context="findStrings"/>
</context>
<context name="conditionLeftEval" attribute="Normal" lineEndContext="#pop" fallthrough="true" fallthroughContext="#pop!conditionRight">
<DetectSpaces/>
<RegExpr attribute="Operator" String="==|!=|eq|ne|gt|ge|lt|le|eqc" insensitive="true"/>
</context>
<context name="conditionRight" attribute="Normal" lineEndContext="#pop">
<IncludeRules context="findStrings"/>
<DetectSpaces context="#pop!conditionEnd"/>
</context>
<!-- Handle Iff correctly: condition, then, wait for possible else/handle elseiff find endiff-->
<context name="cmdIff" attribute="Normal" lineEndContext="#pop">
<IncludeRules context="findCondition"/>
<DetectSpaces/>
<!-- TODO: replace with WordDetect as soon as WordDetect works right-->
<RegExpr attribute="Keyword" context="#pop!cmdIffThen" beginRegion="true" String="\bthen\b\s*($|%\+)" insensitive="true"/>
<!-- should the above regex not match, there is an error... -->
<StringDetect attribute="Keyword" context="Error" String="then" insensitive="true"/>
</context>
<context name="cmdIffThen" attribute="Normal" lineEndContext="#stay">
<!-- TODO: replace with WordDetect as soon as WordDetect works right-->
<RegExpr attribute="Keyword" context="popNeedEndOfCommand" String="\belse\b" insensitive="true"/>
<RegExpr attribute="Keyword" context="cmdElseiff" String="\belseiff\b" insensitive="true"/>
<RegExpr attribute="Keyword" context="#pop!popNeedEndOfCommand" endRegion="true" String="\bendiff\b" insensitive="true"/>
<IncludeRules context="base"/>
</context>
<context name="cmdElseiff" attribute="Normal" lineEndContext="#pop">
<IncludeRules context="findCondition"/>
<DetectSpaces/>
<!-- TODO: replace with WordDetect as soon as WordDetect works right-->
<RegExpr attribute="Keyword" context="#pop" String="\bthen\b\s*($|%\+)" insensitive="true"/>
<!-- should the above regex not match, there is an error... -->
<StringDetect attribute="Keyword" context="Error" String="then" insensitive="true"/>
</context>
<!-- echo -->
<context name="cmdEcho" attribute="String" lineEndContext="#pop">
<IncludeRules context="findStrings"/>
<IncludeRules context="findRedirection"/>
<RegExpr attribute="Normal" context="#pop" String="\s*($|\%\+|\)|\])" lookAhead="true"/>
</context>
<!-- Redirection: kann ja auch mehrfach auftreten -->
<context name="Redirection" attribute="String" lineEndContext="#pop">
<DetectSpaces attribute="Normal" context="#stay"/>
<IncludeRules context="findStrings"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="RedirectionOutput1st" attribute="String" lineEndContext="#pop">
<IncludeRules context="Redirection"/>
<DetectChar attribute="Redirection" context="#pop!Redirection" char="<"/>
</context>
<context name="RedirectionInput1st" attribute="String" lineEndContext="#pop">
<IncludeRules context="Redirection"/>
<RegExpr attribute="Redirection" context="#pop!Redirection" String="[>]{1,2}[&]?[>]?"/>
</context>
<!-- special treatment of text and endtext -->
<context name="cmdText" attribute="Error" lineEndContext="#pop!cmdEndText">
<DetectSpaces attribute="Normal" context="#stay"/>
<RegExpr attribute="Keyword" context="Redirection" String="[>]{1,2}"/>
</context>
<context name="cmdEndText" attribute="String" lineEndContext="#stay">
<RegExpr attribute="Keyword" context="#pop" String="^\s*endtext\s*$" insensitive="true"/>
<!-- As we are pretty 31337, we also highlight ANSI-Escapes in Textblocks.
We're just not 1337 enough to also provide a syntactic checking for
those sequences...-->
<RegExpr attribute="Escape" String="\x1b\[.*[fhlmpsuABCDHJKR]" minimal="true"/>
</context>
<!-- Set/Unset commands -->
<context name="cmdUnset" attribute="Normal" lineEndContext="#pop">
<IncludeRules context="findOption"/>
<DetectIdentifier attribute="Variable" context="#stay"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="cmdSet" attribute="Normal" lineEndContext="#pop">
<DetectChar attribute="Keyword" context="#pop" char="="/>
<IncludeRules context="cmdUnset"/>
</context>
<!-- Highlight an Option, #pop on next space ...-->
<context name="Option" attribute="Option" lineEndContext="#pop">
<IncludeRules context="findStrings"/>
<DetectSpaces attribute="Normal" context="#pop"/>
</context>
<!-- input und inkey - testing allowed Options ... -->
<context name="cmdInput" attribute="String" lineEndContext="#pop"
fallthroughContext="#pop!inputMessage" fallthrough="true">
<IncludeRules context="input"/>
<RegExpr attribute="Option" String="/([en]|l[0-9]+)\s" insensitive="true"/>
</context>
<context name="cmdInkey" attribute="String" lineEndContext="#pop"
fallthroughContext="#pop!inputMessage" fallthrough="true">
<RegExpr attribute="Option" context="inputKeysDP" String="/k:" insensitive="true"/>
<RegExpr attribute="Option" context="inputKeysAZ" String="/k\"" insensitive="true"/>
<StringDetect attribute="Error" String="/k" insensitive="true"/>
<StringDetect attribute="Option" String="/m" insensitive="true"/>
<IncludeRules context="input"/>
</context>
<context name="input" attribute="Error" lineEndContext="#stay">
<RegExpr attribute="Option" String="/([cdpx]|[w][0-9]+)\s" insensitive="true"/>
<DetectSpaces attribute="Normal" context="#stay"/>
</context>
<context name="inputKeysDP" attribute="Error" lineEndContext="#pop#pop">
<DetectChar attribute="String" context="inputKeyDesc" char="["/>
<DetectSpaces attribute="Normal" context="#pop"/>
<RegExpr attribute="Function" String="\S"/>
</context>
<context name="inputKeysAZ" attribute="Error" lineEndContext="#pop#pop">
<DetectChar attribute="String" context="inputKeyDesc" char="["/>
<DetectChar attribute="Option" context="#pop" char="""/>
<RegExpr attribute="Function" String="\S"/>
</context>
<context name="inputKeyDesc" attribute="Error" lineEndContext="#pop#pop#pop">
<RegExpr attribute="Label" context="#pop!inputKeyDesc2" String="&tasten;"/>
</context>
<context name="inputKeyDesc2" attribute="Error" lineEndContext="#pop#pop#pop">
<DetectChar attribute="String" context="#pop" char="]"/>
</context>
<context name="inputMessage" attribute="String" lineEndContext="#pop">
<RegExpr attribute="Variable" context="#pop!popNeedEndOfCommand" String="%%[a-z_][a-z0-9_]*" insensitive="true"/>
<IncludeRules context="findStrings"/>
</context>
<!-- special treatment of DO -->
<context name="cmdDo" attribute="Error" lineEndContext="Error">
<!-- do n | forever-->
<RegExpr attribute="Label" context="#pop!insideDo" String="\s*forever(?=\s*$)" insensitive="true"/>
<RegExpr attribute="Variable" context="#pop!fixedDo" String="\s*(%|[0-9]+)" lookAhead="true"/>
<!-- WHILE | UNTIL -->
<RegExpr attribute="Label" context="#pop!conditionalDo" String="\s*(while|until)" insensitive="true"/>
<!-- varname = start TO end [BY n] | varname in blubberkram -->
<RegExpr attribute="Variable" context="#pop!countedDo" String="\s*&varname;" insensitive="true"/>
</context>
<context name="fixedDo" attribute="Error" lineEndContext="#pop!insideDo">
<DetectSpaces attribute="Normal"/>
<IncludeRules context="findNumbers"/>
</context>
<context name="countedDo" attribute="Error" lineEndContext="Error">
<RegExpr attribute="Keyword" context="#pop!countedDoIn" String="\bin\b" insensitive="true"/>
<DetectChar attribute="Keyword" context="#pop!countedDoStart" char="="/>
<DetectSpaces attribute="Normal"/>
</context>
<context name="countedDoIn" attribute="String" lineEndContext="#pop!insideDo">
<DetectSpaces/>
<IncludeRules context="findOption"/>
<IncludeRules context="findStrings"/>
</context>
<context name="countedDoStart" attribute="Error" lineEndContext="Error">
<RegExpr attribute="Keyword" context="#pop!countedDoTo" String="\bto\b" insensitive="true"/>
<IncludeRules context="findNumbers"/>
<DetectSpaces attribute="Normal"/>
</context>
<context name="countedDoTo" attribute="Error" lineEndContext="#pop!insideDo">
<IncludeRules context="findNumbers"/>
<DetectSpaces attribute="Normal"/>
<RegExpr attribute="Keyword" context="#pop!countedDoBy" String="\bby\b" insensitive="true"/>
</context>
<context name="countedDoBy" attribute="Error" lineEndContext="#pop!insideDo">
<IncludeRules context="findNumbers"/>
<DetectSpaces attribute="Normal"/>
</context>
<context name="conditionalDo" attribute="Error" lineEndContext="#pop!insideDo">
<IncludeRules context="findCondition"/>
<DetectSpaces attribute="Normal"/>
</context>
<context name="insideDo" attribute="Normal" lineEndContext="#stay">
<keyword attribute="Keyword" String="SkipdoCommand"/>
<keyword attribute="Keyword" endRegion="true" context="#pop!popNeedEndOfCommand" String="EnddoCommand"/>
<IncludeRules context="base"/>
</context>
<!-- special treatment of switch statements -->
<context name="cmdSwitch" attribute="Normal" lineEndContext="#pop!insideSwitch">
<IncludeRules context="findStrings"/>
</context>
<context name="insideSwitch" attribute="Normal" lineEndContext="#stay">
<RegExpr attribute="Keyword" context="#pop!switchDefault" String="\s*default\s*$" insensitive="true"/>
<IncludeRules context="switchDefault"/>
</context>
<!-- "Default" may be used only once, that's why we change contexts when it was found -->
<context name="switchDefault" attribute="Normal" lineEndContext="#stay">
<RegExpr attribute="Keyword" context="switchCase" String="\bcase\b" insensitive="true"/>
<RegExpr attribute="Keyword" context="#pop!popNeedEndOfCommand" String="\bendswitch\b" insensitive="true" endRegion="true"/>
<IncludeRules context="base"/>
</context>
<context name="switchCase" attribute="String" lineEndContext="#pop">
<DetectSpaces/>
<StringDetect attribute="Operator" insensitive="true" String=".or."/>
<IncludeRules context="findStrings"/>
</context>
<!-- internal commands of the 4DOS interpreter (TODO: make it even better, like integrated syntax checking) -->
<context name="cmdNeedOnOff" attribute="Error" lineEndContext="#pop">
<keyword attribute="String" context="#pop!popNeedEndOfCommand" String="OnOff"/>
<DetectSpaces attribute="Normal"/>
</context>
<context name="cmdNeedAnInteger" attribute="Error" lineEndContext="#pop">
<DetectSpaces attribute="Normal"/>
<IncludeRules context="findOption"/>
<IncludeRules context="findNumbers"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="cmdNeedsACommand" attribute="String" lineEndContext="#pop">
<IncludeRules context="findOption"/>
<IncludeRules context="base"/>
</context>
<context name="cmdsimpleNoChecks" attribute="String" lineEndContext="#pop">
<IncludeRules context="findOption"/>
<IncludeRules context="findStrings"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="cmdTakeAFileName" attribute="String" lineEndContext="#pop">
<IncludeRules context="findOption"/>
<IncludeRules context="findStrings"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="cmdTakeColors" attribute="String" lineEndContext="#pop">
<RegExpr attribute="Operator" context="#pop!ColorHaveBrightFG" String="\bbri(ght)?\b" insensitive="true"/>
<RegExpr attribute="Operator" context="#pop!ColorHaveBlinkFG" String="\bbli(nk)?\b" insensitive="true"/>
<IncludeRules context="ColorHaveBlinkFG"/>
</context>
<context name="ColorHaveBrightFG" attribute="String" lineEndContext="Error">
<RegExpr attribute="Operator" context="#pop!ColorHaveBlinkFG" String="\bbli(nk)?\b" insensitive="true"/>
<IncludeRules context="ColorHaveBlinkFG"/>
</context>
<context name="ColorHaveBlinkFG" attribute="String" lineEndContext="Error">
<RegExpr attribute="Option" context="#pop!ColorHaveFG" insensitive="true" String="\b(Bla(ck)?|Blue?|Gre(en)?|Red|Mag(enta)?|Cyan?|Yel(low)?|Whi(te)?)\b"/>
<DetectSpaces/>
</context>
<context name="ColorHaveFG" attribute="String" lineEndContext="Error">
<RegExpr attribute="Keyword" context="#pop!ColorBG" insensitive="true" String="\s+on\s+"/>
</context>
<context name="ColorBG" attribute="String" lineEndContext="Error">
<RegExpr attribute="Operator" insensitive="true" String="\bbri(ght)?\b"/>
<RegExpr attribute="Option" context="#pop!ColorHaveBG" insensitive="true" String="\b(Bla(ck)?|Blue?|Gre(en)?|Red|Mag(enta)?|Cyan?|Yel(low)?|Whi(te)?)\b"/>
</context>
<context name="ColorHaveBG" attribute="String" lineEndContext="#pop">
<RegExpr attribute="Operator" context="#pop!ColorNeedBordercol" insensitive="true" String="\bBOR(der)?\b"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="ColorNeedBordercol" attribute="String" lineEndContext="Error">
<RegExpr attribute="Option" context="#pop!popNeedEndOfCommand" insensitive="true" String="\s*(Bla(ck)?|Blue?|Gre(en)?|Red|Mag(enta)?|Cyan?|Yel(low)?|Whi(te)?)\b"/>
</context>
<context name="cmdDraw" attribute="String" lineEndContext="#pop">
<!-- ToDo: check if we'll have to split this into multiple contexts, add the highlighting for drawing commands -->
</context>
<context name="cmdFilesystemOperation" attribute="String" lineEndContext="#pop">
<IncludeRules context="findOption"/>
<IncludeRules context="findStrings"/>
<IncludeRules context="popNeedEndOfCommand"/>
</context>
<context name="Error" attribute="Error" lineEndContext="#stay">
</context>
</contexts>
<itemDatas>
<itemData name="Normal" defStyleNum="dsNormal"/>
<itemData name="Comment" defStyleNum="dsComment"/>
<itemData name="Keyword" defStyleNum="dsKeyword"/>
<itemData name="Number" defStyleNum="dsDecVal"/>
<itemData name="Option" defStyleNum="dsDecVal"/>
<itemData name="Label" defStyleNum="dsOthers"/>
<itemData name="Function" defStyleNum="dsFunction"/>
<itemData name="Redirection" defStyleNum="dsKeyword"/>
<itemData name="String" defStyleNum="dsString"/>
<itemData name="Escape" defStyleNum="dsSpecialChar"/>
<itemData name="Path" defStyleNum="dsDecVal"/>
<itemData name="Variable" defStyleNum="dsVariable"/>
<itemData name="VariableBold" defStyleNum="dsVariable" bold="true"/>
<itemData name="Alert" defStyleNum="dsAlert"/>
<itemData name="Error" defStyleNum="dsError"/>
<itemData name="Operator" defStyleNum="dsOperator"/>
</itemDatas>
</highlighting>
<general>
<comments>
<comment name="singleLine" start="rem "/>
<comment name="singleLine" start="::"/>
</comments>
<keywords casesensitive="0" additionalDeliminator="@"/>
<indentation mode="cstyle"/>
</general>
</language>