You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
927 lines
48 KiB
927 lines
48 KiB
10 years ago
|
<?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="2.4" version="1.0" 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 /T </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="dsChar"/>
|
||
|
|
<itemData name="Path" defStyleNum="dsDecVal"/>
|
||
|
|
<itemData name="Variable" defStyleNum="dsDataType"/>
|
||
|
|
<itemData name="VariableBold" defStyleNum="dsDataType" bold="true"/>
|
||
|
|
<itemData name="Alert" defStyleNum="dsAlert"/>
|
||
|
|
<itemData name="Error" defStyleNum="dsError"/>
|
||
|
|
<itemData name="Operator" defStyleNum="dsRegionMarker"/>
|
||
|
|
</itemDatas>
|
||
|
|
</highlighting>
|
||
|
|
<general>
|
||
|
|
<comments>
|
||
|
|
<comment name="singleLine" start="rem "/>
|
||
|
|
<comment name="singleLine" start="::"/>
|
||
|
|
</comments>
|
||
|
|
<keywords casesensitive="0" additionalDeliminator="@"/>
|
||
|
|
<indentation mode="cstyle"/>
|
||
|
|
</general>
|
||
|
|
</language>
|