/lenasys/trunk

/*

 * r.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('ace/mode/r', ['require', 'exports', 'module' , 'ace/range', 'ace/lib/oop', 'ace/mode/text', 'ace/tokenizer', 'ace/mode/text_highlight_rules', 'ace/mode/r_highlight_rules', 'ace/mode/matching_brace_outdent', 'ace/unicode'], function(require, exports, module) {

   var Range = require("../range").Range;

   var oop = require("../lib/oop");

   var TextMode = require("./text").Mode;

   var Tokenizer = require("../tokenizer").Tokenizer;

   var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;

   var RHighlightRules = require("./r_highlight_rules").RHighlightRules;

   var MatchingBraceOutdent = require("./matching_brace_outdent").MatchingBraceOutdent;

   var unicode = require("../unicode");

   var Mode = function()

   {

      this.$tokenizer = new Tokenizer(new RHighlightRules().getRules());

      this.$outdent = new MatchingBraceOutdent();

   };

   oop.inherits(Mode, TextMode);

   (function()

   {

      this.tokenRe = new RegExp("^["

          + unicode.packages.L

          + unicode.packages.Mn + unicode.packages.Mc

          + unicode.packages.Nd

          + unicode.packages.Pc + "._]+", "g"

      );

      this.nonTokenRe = new RegExp("^(?:[^"

          + unicode.packages.L

          + unicode.packages.Mn + unicode.packages.Mc

          + unicode.packages.Nd

          + unicode.packages.Pc + "._]|\s])+", "g"

      );

      this.$complements = {

               "(": ")",

               "[": "]",

               '"': '"',

               "'": "'",

               "{": "}"

            };

      this.$reOpen = /^[(["'{]$/;

      this.$reClose = /^[)\]"'}]$/;

      this.getNextLineIndent = function(state, line, tab, tabSize, row)

      {

         return this.codeModel.getNextLineIndent(row, line, state, tab, tabSize);

      };

      this.allowAutoInsert = this.smartAllowAutoInsert;

      this.checkOutdent = function(state, line, input) {

         if (! /^\s+$/.test(line))

            return false;

         return /^\s*[\{\}\)]/.test(input);

      };

      this.getIndentForOpenBrace = function(openBracePos)

      {

         return this.codeModel.getIndentForOpenBrace(openBracePos);

      };

      this.autoOutdent = function(state, doc, row) {

         if (row == 0)

            return 0;

         var line = doc.getLine(row);

         var match = line.match(/^(\s*[\}\)])/);

         if (match)

         {

            var column = match[1].length;

            var openBracePos = doc.findMatchingBracket({row: row, column: column});

            if (!openBracePos || openBracePos.row == row) return 0;

            var indent = this.codeModel.getIndentForOpenBrace(openBracePos);

            doc.replace(new Range(row, 0, row, column-1), indent);

         }

         match = line.match(/^(\s*\{)/);

         if (match)

         {

            var column = match[1].length;

            var indent = this.codeModel.getBraceIndent(row-1);

            doc.replace(new Range(row, 0, row, column-1), indent);

         }

      };

      this.$getIndent = function(line) {

         var match = line.match(/^(\s+)/);

         if (match) {

            return match[1];

         }

         return "";

      };

      this.transformAction = function(state, action, editor, session, text) {

         if (action === 'insertion' && text === "\n") {

            var pos = editor.getSelectionRange().start;

            var match = /^((\s*#+')\s*)/.exec(session.doc.getLine(pos.row));

            if (match && editor.getSelectionRange().start.column >= match[2].length) {

               return {text: "\n" + match[1]};

            }

         }

         return false;

      };

   }).call(Mode.prototype);

   exports.Mode = Mode;

});

define('ace/mode/r_highlight_rules', ['require', 'exports', 'module' , 'ace/lib/oop', 'ace/lib/lang', 'ace/mode/text_highlight_rules', 'ace/mode/tex_highlight_rules'], function(require, exports, module) {

   var oop = require("../lib/oop");

   var lang = require("../lib/lang");

   var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;

   var TexHighlightRules = require("./tex_highlight_rules").TexHighlightRules;

   var RHighlightRules = function()

   {

      var keywords = lang.arrayToMap(

            ("function|if|in|break|next|repeat|else|for|return|switch|while|try|tryCatch|stop|warning|require|library|attach|detach|source|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("|")

            );

      this.$rules = {

         "start" : [

            {

               token : "comment.sectionhead",

               regex : "#+(?!').*(?:----|====|####)\\s*$"

            },

            {

               token : "comment",

               regex : "#+'",

               next : "rd-start"

            },

            {

               token : "comment",

               regex : "#.*$"

            },

            {

               token : "string", // multi line string start

               regex : '["]',

               next : "qqstring"

            },

            {

               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 : "`.*?`"

            },

            {

               onMatch : 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 : "%.*?%"

            },

            {

               token : "paren.keyword.operator",

               regex : "[[({]"

            },

            {

               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 : '.+'

            }

         ]

      };

      var rdRules = new TexHighlightRules("comment").getRules();

      for (var i = 0; i < rdRules["start"].length; i++) {

         rdRules["start"][i].token += ".virtual-comment";

      }

      this.addRules(rdRules, "rd-");

      this.$rules["rd-start"].unshift({

          token: "text",

          regex: "^",

          next: "start"

      });

      this.$rules["rd-start"].unshift({

         token : "keyword",

         regex : "@(?!@)[^ ]*"

      });

      this.$rules["rd-start"].unshift({

         token : "comment",

         regex : "@@"

      });

      this.$rules["rd-start"].push({

         token : "comment",

         regex : "[^%\\\\[({\\])}]+"

      });

   };

   oop.inherits(RHighlightRules, TextHighlightRules);

   exports.RHighlightRules = RHighlightRules;

});

define('ace/mode/tex_highlight_rules', ['require', 'exports', 'module' , 'ace/lib/oop', 'ace/lib/lang', 'ace/mode/text_highlight_rules'], function(require, exports, module) {

var oop = require("../lib/oop");

var lang = require("../lib/lang");

var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;

var TexHighlightRules = function(textClass) {

    if (!textClass)

        textClass = "text";

    this.$rules = {

        "start" : [

	        {

	            token : "comment",

	            regex : "%.*$"

	        }, {

	            token : textClass, // non-command

	            regex : "\\\\[$&%#\\{\\}]"

	        }, {

	            token : "keyword", // command

	            regex : "\\\\(?:documentclass|usepackage|newcounter|setcounter|addtocounter|value|arabic|stepcounter|newenvironment|renewenvironment|ref|vref|eqref|pageref|label|cite[a-zA-Z]*|tag|begin|end|bibitem)\\b",

               next : "nospell"

	        }, {

	            token : "keyword", // command

	            regex : "\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])"

	        }, {

               token : "paren.keyword.operator",

	            regex : "[[({]"

	        }, {

               token : "paren.keyword.operator",

	            regex : "[\\])}]"

	        }, {

	            token : textClass,

	            regex : "\\s+"

	        }

        ],

        "nospell" : [

           {

               token : "comment",

               regex : "%.*$",

               next : "start"

           }, {

               token : "nospell." + textClass, // non-command

               regex : "\\\\[$&%#\\{\\}]"

           }, {

               token : "keyword", // command

               regex : "\\\\(?:documentclass|usepackage|newcounter|setcounter|addtocounter|value|arabic|stepcounter|newenvironment|renewenvironment|ref|vref|eqref|pageref|label|cite[a-zA-Z]*|tag|begin|end|bibitem)\\b"

           }, {

               token : "keyword", // command

               regex : "\\\\(?:[a-zA-z0-9]+|[^a-zA-z0-9])",

               next : "start"

           }, {

               token : "paren.keyword.operator",

               regex : "[[({]"

           }, {

               token : "paren.keyword.operator",

               regex : "[\\])]"

           }, {

               token : "paren.keyword.operator",

               regex : "}",

               next : "start"

           }, {

               token : "nospell." + textClass,

               regex : "\\s+"

           }, {

               token : "nospell." + textClass,

               regex : "\\w+"

           }

        ]

    };

};

oop.inherits(TexHighlightRules, TextHighlightRules);

exports.TexHighlightRules = TexHighlightRules;

});

define('ace/mode/matching_brace_outdent', ['require', 'exports', 'module' , 'ace/range'], function(require, exports, module) {

var Range = require("../range").Range;

var MatchingBraceOutdent = function() {};

(function() {

    this.checkOutdent = function(line, input) {

        if (! /^\s+$/.test(line))

            return false;

        return /^\s*\}/.test(input);

    };

    this.autoOutdent = function(doc, row) {

        var line = doc.getLine(row);

        var match = line.match(/^(\s*\})/);

        if (!match) return 0;

        var column = match[1].length;

        var openBracePos = doc.findMatchingBracket({row: row, column: column});

        if (!openBracePos || openBracePos.row == row) return 0;

        var indent = this.$getIndent(doc.getLine(openBracePos.row));

        doc.replace(new Range(row, 0, row, column-1), indent);

    };

    this.$getIndent = function(line) {

        return line.match(/^\s*/)[0];

    };

}).call(MatchingBraceOutdent.prototype);

exports.MatchingBraceOutdent = MatchingBraceOutdent;

});