issue 233 : patch for R / S language support

Author: mikesamuel@gmail.com

CHANGES.html

@@ -153,7 +153,7 @@ <h2>29 March 2011</h2>
     </ul>
     <h2>4 February 2013</h2>
     <ul>
-      <li>Language handlers for Dart, TCL.</li>
+      <li>Language handlers for Dart, TCL, R.</li>
       <li>Bug fix: VB REM style comments</li>
       <li>Bug fix: CSS color literals / ID selector confusion.</li>
     </ul>

src/lang-n.js

@@ -20,6 +20,7 @@
  * @author Zimin A.V.
  */
 (function () {
+  // http://nemerle.org/wiki/index.php?title=Base_keywords
   var keywords = 'abstract|and|as|base|catch|class|def|delegate|enum|event|extern|false|finally|'
          + 'fun|implements|interface|internal|is|macro|match|matches|module|mutable|namespace|new|'
          + 'null|out|override|params|partial|private|protected|public|ref|sealed|static|struct|'

src/lang-r.js

@@ -0,0 +1,57 @@
+// Copyright (C) 2012 Jeffrey B. Arnold
+//
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License.
+// You may obtain a copy of the License at
+//
+//      http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+
+
+/**
+ * @fileoverview
+ * Registers a language handler for S, S-plus, and R source code.
+ *
+ *
+ * To use, include prettify.js and this file in your HTML page.
+ * Then put your code in an HTML tag like
+ *      <pre class="prettyprint lang-r"> code </pre>
+ *
+ * Language definition from
+ * http://cran.r-project.org/doc/manuals/R-lang.html.
+ * Many of the regexes are shared  with the pygments SLexer,
+ * http://pygments.org/.
+ *
+ * Original: https://raw.github.com/jrnold/prettify-lang-r-bugs/master/lang-r.js
+ *
+ * @author jeffrey.arnold@gmail.com
+ */
+PR['registerLangHandler'](
+    PR['createSimpleLexer'](
+        [
+            [PR['PR_PLAIN'],       /^[\t\n\r \xA0]+/, null, '\t\n\r \xA0'],
+	    [PR['PR_STRING'],      /^\"(?:[^\"\\]|\\[\s\S])*(?:\"|$)/, null, '"'],
+	    [PR['PR_STRING'],      /^\'(?:[^\'\\]|\\[\s\S])*(?:\'|$)/, null, "'"]
+        ],
+        [
+            [PR['PR_COMMENT'],     /^#.*/],
+	    [PR['PR_KEYWORD'],     /^(?:if|else|for|while|repeat|in|next|break|return|switch|function)(?![A-Za-z0-9_.])/],
+	    // hex numbes
+	    [PR['PR_LITERAL'], /^0[xX][a-fA-F0-9]+([pP][0-9]+)?[Li]?/],
+	    // Decimal numbers
+            [PR['PR_LITERAL'], /^[+-]?([0-9]+(\.[0-9]+)?|\.[0-9]+)([eE][+-]?[0-9]+)?[Li]?/],
+	    // builtin symbols
+	    [PR['PR_LITERAL'], /^(?:NULL|NA(?:_(?:integer|real|complex|character)_)?|Inf|TRUE|FALSE|NaN|\.\.(?:\.|[0-9]+))(?![A-Za-z0-9_.])/],
+	    // assignment, operators, and parens, etc.
+	    [PR['PR_PUNCTUATION'], /^(?:<<?-|->>?|-|==|<=|>=|<|>|&&?|!=|\|\|?|\*|\+|\^|\/|!|%.*?%|=|~|\$|@|:{1,3}|[\[\](){};,?])/],
+	    // valid variable names
+	    [PR['PR_PLAIN'], /^(?:[A-Za-z]+[A-Za-z0-9_.]*|\.[a-zA-Z_][0-9a-zA-Z\._]*)(?![A-Za-z0-9_.])/],
+	    // string backtick
+	    [PR['PR_STRING'], /^`.+`/]
+        ]),
+    ['r', 's', 'R', 'S', 'Splus']);

src/lang-rd.js

@@ -0,0 +1,47 @@
+// Copyright (C) 2012 Jeffrey Arnold
+//
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License.
+// You may obtain a copy of the License at
+//
+//      http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+
+/**
+ * @fileoverview
+ * Support for R documentation (Rd) files
+ *
+ * Minimal highlighting or Rd files, basically just highlighting
+ * macros. It does not try to identify verbatim or R-like regions of
+ * macros as that is too complicated for a lexer.  Descriptions of the
+ * Rd format can be found
+ * http://cran.r-project.org/doc/manuals/R-exts.html and
+ * http://developer.r-project.org/parseRd.pdf.
+ *
+ * @author Jeffrey Arnold
+ */
+PR['registerLangHandler'](
+    PR['createSimpleLexer'](
+        [
+            // whitespace
+            [PR['PR_PLAIN'],   /^[\t\n\r \xA0]+/, null, '\t\n\r \xA0'],
+            // all comments begin with '%'
+            [PR['PR_COMMENT'], /^%[^\r\n]*/, null, '%']
+        ],
+        [// special macros with no args
+            [PR['PR_LITERAL'], /^\\(?:cr|l?dots|R|tab)\b/],
+	    // macros
+            [PR['PR_KEYWORD'], /^\\[a-zA-Z@]+/],
+	    // highlighted as macros, since technically they are
+            [PR['PR_KEYWORD'],  /^#(?:ifn?def|endif)/ ],
+	    // catch escaped brackets
+	    [PR['PR_PLAIN'], /^\\[{}]/],
+            // punctuation
+            [PR['PR_PUNCTUATION'], /^[{}()\[\]]+/]
+        ]),
+    ['Rd', 'rd']);