diff options
| author | Michele Calgaro <[email protected]> | 2014-09-19 14:44:45 +0900 |
|---|---|---|
| committer | Michele Calgaro <[email protected]> | 2014-09-19 14:44:45 +0900 |
| commit | 87fd132d0145d36d9eae9cdf521935202db228f7 (patch) | |
| tree | 8e8126d831ffd90f38c34e49cdaec9b134086a8a /kate/data/4dos.xml | |
| parent | 2824570e9e6581acc1b9ed81a8889ff5f58dd383 (diff) | |
| download | tdelibs-87fd132d0145d36d9eae9cdf521935202db228f7.tar.gz tdelibs-87fd132d0145d36d9eae9cdf521935202db228f7.zip | |
Kate syntax highlighting files update - Sep 2014
Diffstat (limited to 'kate/data/4dos.xml')
| -rw-r--r-- | kate/data/4dos.xml | 926 |
1 files changed, 926 insertions, 0 deletions
diff --git a/kate/data/4dos.xml b/kate/data/4dos.xml new file mode 100644 index 000000000..f4f4e6798 --- /dev/null +++ b/kate/data/4dos.xml @@ -0,0 +1,926 @@ +<?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 ([email protected])" 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> |