1. <lexer>
    
  2.   <config>
    
  3.     <name>R</name>
    
  4.     <alias>splus</alias>
    
  5.     <alias>s</alias>
    
  6.     <alias>r</alias>
    
  7.     <filename>*.S</filename>
    
  8.     <filename>*.R</filename>
    
  9.     <filename>*.r</filename>
    
  10.     <filename>.Rhistory</filename>
    
  11.     <filename>.Rprofile</filename>
    
  12.     <filename>.Renviron</filename>
    
  13.     <mime_type>text/S-plus</mime_type>
    
  14.     <mime_type>text/S</mime_type>
    
  15.     <mime_type>text/x-r-source</mime_type>
    
  16.     <mime_type>text/x-r</mime_type>
    
  17.     <mime_type>text/x-R</mime_type>
    
  18.     <mime_type>text/x-r-history</mime_type>
    
  19.     <mime_type>text/x-r-profile</mime_type>
    
  20.     <priority>0.1</priority> <!-- higher priority than Rebol -->
    
  21.   </config>
    
  22.   <rules>
    
  23.     <state name="numbers">
    
  24.       <rule pattern="0[xX][a-fA-F0-9]+([pP][0-9]+)?[Li]?">
    
  25.         <token type="LiteralNumberHex"/>
    
  26.       </rule>
    
  27.       <rule pattern="[+-]?([0-9]+(\.[0-9]+)?|\.[0-9]+|\.)([eE][+-]?[0-9]+)?[Li]?">
    
  28.         <token type="LiteralNumber"/>
    
  29.       </rule>
    
  30.     </state>
    
  31.     <state name="operators">
    
  32.       <rule pattern="&lt;&lt;?-|-&gt;&gt;?|-|==|&lt;=|&gt;=|&lt;|&gt;|&amp;&amp;?|!=|\|\|?|\?">
    
  33.         <token type="Operator"/>
    
  34.       </rule>
    
  35.       <rule pattern="\*|\+|\^|/|!|%[^%]*%|=|~|\$|@|:{1,3}">
    
  36.         <token type="Operator"/>
    
  37.       </rule>
    
  38.     </state>
    
  39.     <state name="root">
    
  40.       <rule>
    
  41.         <include state="keywords"/>
    
  42.       </rule>
    
  43.       <rule pattern="((?:`[^`\\]*(?:\\.[^`\\]*)*`)|(?:(?:[a-zA-z]|[_.][^0-9])[\w_.]*))\s*(?=\()">
    
  44.         <token type="NameFunction"/>
    
  45.       </rule>
    
  46.       <rule>
    
  47.         <include state="statements"/>
    
  48.       </rule>
    
  49.       <rule pattern="\{|\}">
    
  50.         <token type="Punctuation"/>
    
  51.       </rule>
    
  52.       <rule pattern=".">
    
  53.         <token type="Text"/>
    
  54.       </rule>
    
  55.     </state>
    
  56.     <state name="valid_name">
    
  57.       <rule pattern="(?:`[^`\\]*(?:\\.[^`\\]*)*`)|(?:(?:[a-zA-z]|[_.][^0-9])[\w_.]*)">
    
  58.         <token type="Name"/>
    
  59.       </rule>
    
  60.     </state>
    
  61.     <state name="keywords">
    
  62.       <rule pattern="(if|else|for|while|repeat|in|next|break|return|switch|function)(?![\w.])">
    
  63.         <token type="KeywordReserved"/>
    
  64.       </rule>
    
  65.     </state>
    
  66.     <state name="builtin_symbols">
    
  67.       <rule pattern="(NULL|NA(_(integer|real|complex|character)_)?|letters|LETTERS|Inf|TRUE|FALSE|NaN|pi|\.\.(\.|[0-9]+))(?![\w.])">
    
  68.         <token type="KeywordConstant"/>
    
  69.       </rule>
    
  70.       <rule pattern="(T|F)\b">
    
  71.         <token type="NameBuiltinPseudo"/>
    
  72.       </rule>
    
  73.     </state>
    
  74.     <state name="string_squote">
    
  75.       <rule pattern="([^\&#39;\\]|\\.)*\&#39;">
    
  76.         <token type="LiteralString"/>
    
  77.         <pop depth="1"/>
    
  78.       </rule>
    
  79.     </state>
    
  80.     <state name="comments">
    
  81.       <rule pattern="#.*$">
    
  82.         <token type="CommentSingle"/>
    
  83.       </rule>
    
  84.     </state>
    
  85.     <state name="punctuation">
    
  86.       <rule pattern="\[{1,2}|\]{1,2}|\(|\)|;|,">
    
  87.         <token type="Punctuation"/>
    
  88.       </rule>
    
  89.     </state>
    
  90.     <state name="statements">
    
  91.       <rule>
    
  92.         <include state="comments"/>
    
  93.       </rule>
    
  94.       <rule pattern="\s+">
    
  95.         <token type="Text"/>
    
  96.       </rule>
    
  97.       <rule pattern="\&#39;">
    
  98.         <token type="LiteralString"/>
    
  99.         <push state="string_squote"/>
    
  100.       </rule>
    
  101.       <rule pattern="\&#34;">
    
  102.         <token type="LiteralString"/>
    
  103.         <push state="string_dquote"/>
    
  104.       </rule>
    
  105.       <rule>
    
  106.         <include state="builtin_symbols"/>
    
  107.       </rule>
    
  108.       <rule>
    
  109.         <include state="valid_name"/>
    
  110.       </rule>
    
  111.       <rule>
    
  112.         <include state="numbers"/>
    
  113.       </rule>
    
  114.       <rule>
    
  115.         <include state="punctuation"/>
    
  116.       </rule>
    
  117.       <rule>
    
  118.         <include state="operators"/>
    
  119.       </rule>
    
  120.     </state>
    
  121.     <state name="string_dquote">
    
  122.       <rule pattern="([^&#34;\\]|\\.)*&#34;">
    
  123.         <token type="LiteralString"/>
    
  124.         <pop depth="1"/>
    
  125.       </rule>
    
  126.     </state>
    
  127.   </rules>
    
  128. </lexer>