/*
 * r_highlight_rules.js
 *
 * Copyright (C) 2009-11 by RStudio, Inc.
 *
 * The Initial Developer of the Original Code is
 * Ajax.org B.V.
 * Portions created by the Initial Developer are Copyright (C) 2010
 * the Initial Developer. All Rights Reserved.
 *
 * This program is licensed to you under the terms of version 3 of the
 * GNU Affero General Public License. This program is distributed WITHOUT
 * ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT,
 * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the
 * AGPL (http://www.gnu.org/licenses/agpl-3.0.txt) for more details.
 *
 */
define("mode/r_highlight_rules", function(require, exports, module)
{

   var oop = require("pilot/oop");
   var lang = require("pilot/lang");
   var TextHighlightRules = require("ace/mode/text_highlight_rules")
         .TextHighlightRules;

   var RHighlightRules = function()
   {

      var keywords = lang.arrayToMap(
            ("function|if|break|next|repeat|else|for|return|switch|while|in|invisible|ifelse|with|within|apply|lapply|sapply|vapply|tapply|mapply|rapply|eapply|foreach|try|tryCatch|stop|warning|c|logical|numeric|double|single|integer|character|complex|matrix|array|data.frame|list|pairlist|factor|require|library|setMethod|setGeneric|setGroupGeneric|setClass")
                  .split("|")
            );

      var buildinConstants = lang.arrayToMap(
            ("NULL|NA|TRUE|FALSE|T|F|Inf|NaN|NA_integer_|NA_real_|NA_character_|" +
             "NA_complex_").split("|")
            );

      // regexp must not have capturing parentheses. Use (?:) instead.
      // regexps are ordered -> the first match is used

      this.$rules = {
         "start" : [
            {
               token : "comment",
               regex : "#.*$"
            },
            {
               token : "string", // single line
               regex : '["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]'
            },
            {
               token : "string", // multi line string start
               regex : '["].*$',
               next : "qqstring"
            },
            {
               token : "string", // single line
               regex : "['](?:(?:\\\\.)|(?:[^'\\\\]))*?[']"
            },
            {
               token : "string", // multi line string start
               regex : "['].*$",
               next : "qstring"
            },
            {
               token : "constant.numeric", // hex
               regex : "0[xX][0-9a-fA-F]+[Li]?\\b"
            },
            {
               token : "constant.numeric", // explicit integer
               regex : "\\d+L\\b"
            },
            {
               token : "constant.numeric", // number
               regex : "\\d+(?:\\.\\d*)?(?:[eE][+\\-]?\\d*)?i?\\b"
            },
            {
               token : "constant.numeric", // number with leading decimal
               regex : "\\.\\d+(?:[eE][+\\-]?\\d*)?i?\\b"
            },
            {
               token : "constant.language.boolean",
               regex : "(?:TRUE|FALSE|T|F)\\b"
            },
            {
               token : "identifier",
               regex : "`.*?`"
            },
            {
               token : function(value)
               {
                  if (keywords[value])
                     return "keyword";
                  else if (buildinConstants[value])
                     return "constant.language";
                  else if (value == '...' || value.match(/^\.\.\d+$/))
                     return "variable.language";
                  else
                     return "identifier";
               },
               regex : "[a-zA-Z.][a-zA-Z0-9._]*\\b"
            },
            {
               token : "keyword.operator",
               regex : "[+\\-*\\/^><!&|~$:=]"
            },
            {
               token : "keyword.operator", // infix operators
               regex : "%.*?%"
            },
            {
               // Obviously these are neither keywords nor operators, but
               // labelling them as such was the easiest way to get them
               // to be colored distinctly from regular text
               token : "paren.keyword.operator",
               regex : "[[({]"
            },
            {
               // Obviously these are neither keywords nor operators, but
               // labelling them as such was the easiest way to get them
               // to be colored distinctly from regular text
               token : "paren.keyword.operator",
               regex : "[\\])}]"
            },
            {
               token : "text",
               regex : "\\s+"
            }
         ],
         "qqstring" : [
            {
               token : "string",
               regex : '(?:(?:\\\\.)|(?:[^"\\\\]))*?"',
               next : "start"
            },
            {
               token : "string",
               regex : '.+'
            }
         ],
         "qstring" : [
            {
               token : "string",
               regex : "(?:(?:\\\\.)|(?:[^'\\\\]))*?'",
               next : "start"
            },
            {
               token : "string",
               regex : '.+'
            }
         ]
      };
   };

   oop.inherits(RHighlightRules, TextHighlightRules);

   exports.RHighlightRules = RHighlightRules;
});

@@ -1022,247 +1022,70 @@
 ile%7C
-in%7Cinvisible%7Cifelse%7Cwith%7Cwithin%7Capply%7Clapply%7Csapply%7Cvapply%7Ctapply%7Cmapply%7Crapply%7Ceapply%7Cforeach%7Ctry%7CtryCatch%7Cstop%7Cwarning%7Cc%7Clogical%7Cnumeric%7Cdouble%7Csingle%7Cinteger%7Ccharacter%7Ccomplex%7Cmatrix%7Carray%7Cdata.frame%7Clist%7Cpairlist%7Cfactor%7Crequire%7Clibrary
+try%7CtryCatch%7Cstop%7Cwarning%7Crequire%7Clibrary%7Cattach%7Cdetach%7Csource
 %7Cset

update highlight rules