forth.xml

Documentation: github.com/alecthomas/chroma/v2/lexers/embedded

     1<lexer>
     2  <config>
     3    <name>Forth</name>
     4    <alias>forth</alias>
     5    <filename>*.frt</filename>
     6    <filename>*.fth</filename>
     7    <filename>*.fs</filename>
     8    <mime_type>application/x-forth</mime_type>
     9    <case_insensitive>true</case_insensitive>
    10  </config>
    11  <rules>
    12    <state name="root">
    13      <rule pattern="\s+">
    14        <token type="Text"/>
    15      </rule>
    16      <rule pattern="\\.*?\n">
    17        <token type="CommentSingle"/>
    18      </rule>
    19      <rule pattern="\([\s].*?\)">
    20        <token type="CommentSingle"/>
    21      </rule>
    22      <rule pattern="(:|variable|constant|value|buffer:)(\s+)">
    23        <bygroups>
    24          <token type="KeywordNamespace"/>
    25          <token type="Text"/>
    26        </bygroups>
    27        <push state="worddef"/>
    28      </rule>
    29      <rule pattern="([.sc]&#34;)(\s+?)">
    30        <bygroups>
    31          <token type="LiteralString"/>
    32          <token type="Text"/>
    33        </bygroups>
    34        <push state="stringdef"/>
    35      </rule>
    36      <rule pattern="(blk|block|buffer|evaluate|flush|load|save-buffers|update|empty-buffers|list|refill|scr|thru|\#s|\*\/mod|\+loop|\/mod|0&lt;|0=|1\+|1-|2!|2\*|2\/|2@|2drop|2dup|2over|2swap|&gt;body|&gt;in|&gt;number|&gt;r|\?dup|abort|abort\&#34;|abs|accept|align|aligned|allot|and|base|begin|bl|c!|c,|c@|cell\+|cells|char|char\+|chars|constant|count|cr|create|decimal|depth|do|does&gt;|drop|dup|else|emit|environment\?|evaluate|execute|exit|fill|find|fm\/mod|here|hold|i|if|immediate|invert|j|key|leave|literal|loop|lshift|m\*|max|min|mod|move|negate|or|over|postpone|quit|r&gt;|r@|recurse|repeat|rot|rshift|s\&#34;|s&gt;d|sign|sm\/rem|source|space|spaces|state|swap|then|type|u\.|u\&lt;|um\*|um\/mod|unloop|until|variable|while|word|xor|\[char\]|\[\&#39;\]|@|!|\#|&lt;\#|\#&gt;|:|;|\+|-|\*|\/|,|&lt;|&gt;|\|1\+|1-|\.|\.r|0&lt;&gt;|0&gt;|2&gt;r|2r&gt;|2r@|:noname|\?do|again|c\&#34;|case|compile,|endcase|endof|erase|false|hex|marker|nip|of|pad|parse|pick|refill|restore-input|roll|save-input|source-id|to|true|tuck|u\.r|u&gt;|unused|value|within|\[compile\]|\#tib|convert|expect|query|span|tib|2constant|2literal|2variable|d\+|d-|d\.|d\.r|d0&lt;|d0=|d2\*|d2\/|d&lt;|d=|d&gt;s|dabs|dmax|dmin|dnegate|m\*\/|m\+|2rot|du&lt;|catch|throw|abort|abort\&#34;|at-xy|key\?|page|ekey|ekey&gt;char|ekey\?|emit\?|ms|time&amp;date|BIN|CLOSE-FILE|CREATE-FILE|DELETE-FILE|FILE-POSITION|FILE-SIZE|INCLUDE-FILE|INCLUDED|OPEN-FILE|R\/O|R\/W|READ-FILE|READ-LINE|REPOSITION-FILE|RESIZE-FILE|S\&#34;|SOURCE-ID|W/O|WRITE-FILE|WRITE-LINE|FILE-STATUS|FLUSH-FILE|REFILL|RENAME-FILE|&gt;float|d&gt;f|f!|f\*|f\+|f-|f\/|f0&lt;|f0=|f&lt;|f&gt;d|f@|falign|faligned|fconstant|fdepth|fdrop|fdup|fliteral|float\+|floats|floor|fmax|fmin|fnegate|fover|frot|fround|fswap|fvariable|represent|df!|df@|dfalign|dfaligned|dfloat\+|dfloats|f\*\*|f\.|fabs|facos|facosh|falog|fasin|fasinh|fatan|fatan2|fatanh|fcos|fcosh|fe\.|fexp|fexpm1|fln|flnp1|flog|fs\.|fsin|fsincos|fsinh|fsqrt|ftan|ftanh|f~|precision|set-precision|sf!|sf@|sfalign|sfaligned|sfloat\+|sfloats|\(local\)|to|locals\||allocate|free|resize|definitions|find|forth-wordlist|get-current|get-order|search-wordlist|set-current|set-order|wordlist|also|forth|only|order|previous|-trailing|\/string|blank|cmove|cmove&gt;|compare|search|sliteral|.s|dump|see|words|;code|ahead|assembler|bye|code|cs-pick|cs-roll|editor|state|\[else\]|\[if\]|\[then\]|forget|defer|defer@|defer!|action-of|begin-structure|field:|buffer:|parse-name|buffer:|traverse-wordlist|n&gt;r|nr&gt;|2value|fvalue|name&gt;interpret|name&gt;compile|name&gt;string|cfield:|end-structure)\s">
    37        <token type="Keyword"/>
    38      </rule>
    39      <rule pattern="(\$[0-9A-F]+)">
    40        <token type="LiteralNumberHex"/>
    41      </rule>
    42      <rule pattern="(\#|%|&amp;|\-|\+)?[0-9]+">
    43        <token type="LiteralNumberInteger"/>
    44      </rule>
    45      <rule pattern="(\#|%|&amp;|\-|\+)?[0-9.]+">
    46        <token type="KeywordType"/>
    47      </rule>
    48      <rule pattern="(@i|!i|@e|!e|pause|noop|turnkey|sleep|itype|icompare|sp@|sp!|rp@|rp!|up@|up!|&gt;a|a&gt;|a@|a!|a@+|a@-|&gt;b|b&gt;|b@|b!|b@+|b@-|find-name|1ms|sp0|rp0|\(evaluate\)|int-trap|int!)\s">
    49        <token type="NameConstant"/>
    50      </rule>
    51      <rule pattern="(do-recognizer|r:fail|recognizer:|get-recognizers|set-recognizers|r:float|r&gt;comp|r&gt;int|r&gt;post|r:name|r:word|r:dnum|r:num|recognizer|forth-recognizer|rec:num|rec:float|rec:word)\s">
    52        <token type="NameDecorator"/>
    53      </rule>
    54      <rule pattern="(Evalue|Rvalue|Uvalue|Edefer|Rdefer|Udefer)(\s+)">
    55        <bygroups>
    56          <token type="KeywordNamespace"/>
    57          <token type="Text"/>
    58        </bygroups>
    59        <push state="worddef"/>
    60      </rule>
    61      <rule pattern="[^\s]+(?=[\s])">
    62        <token type="NameFunction"/>
    63      </rule>
    64    </state>
    65    <state name="worddef">
    66      <rule pattern="\S+">
    67        <token type="NameClass"/>
    68        <pop depth="1"/>
    69      </rule>
    70    </state>
    71    <state name="stringdef">
    72      <rule pattern="[^&#34;]+">
    73        <token type="LiteralString"/>
    74        <pop depth="1"/>
    75      </rule>
    76    </state>
    77  </rules>
    78</lexer>
View as plain text