topical media & game development

talk show tell print

mobile-query-three-www-vendor-CodeMirror2-mode-r-r.js / js



  CodeMirror.defineMode("r", function(config) {
    function wordObj(str) {
      var words = str.split(" "), res = {};
      for (var i = 0; i < words.length; ++i) res[words[i]] = true;
      return res;
    }
    var atoms = wordObj("NULL NA Inf NaN NA_integer_ NA_real_ NA_complex_ NA_character_");
    var builtins = wordObj("list quote bquote eval return call parse deparse");
    var keywords = wordObj("if else repeat while function for in next break");
    var blockkeywords = wordObj("if else repeat while function for");
    var opChars = /[+\-*\/^<>=!&|~:]/;
    var curPunc;
  
    function tokenBase(stream, state) {
      curPunc = null;
      var ch = stream.next();
      if (ch == "#") {
        stream.skipToEnd();
        return "comment";
      } else if (ch == "0" && stream.eat("x")) {
        stream.eatWhile(/[\da-f]/i);
        return "number";
      } else if (ch == "." && stream.eat(/\d/)) {
        stream.match(/\d*(?:e[+\-]?\d+)?/);
        return "number";
      } else if (/\d/.test(ch)) {
        stream.match(/\d*(?:\.\d+)?(?:e[+\-]\d+)?L?/);
        return "number";
      } else if (ch == "'" || ch == '"') {
        state.tokenize = tokenString(ch);
        return "string";
      } else if (ch == "." && stream.match(/.[.\d]+/)) {
        return "keyword";
      } else if (/[\w\.]/.test(ch) && ch != "_") {
        stream.eatWhile(/[\w\.]/);
        var word = stream.current();
        if (atoms.propertyIsEnumerable(word)) return "atom";
        if (keywords.propertyIsEnumerable(word)) {
          if (blockkeywords.propertyIsEnumerable(word)) curPunc = "block";
          return "keyword";
        }
        if (builtins.propertyIsEnumerable(word)) return "builtin";
        return "variable";
      } else if (ch == "%") {
        if (stream.skipTo("%")) stream.next();
        return "variable-2";
      } else if (ch == "<" && stream.eat("-")) {
        return "arrow";
      } else if (ch == "=" && state.ctx.argList) {
        return "arg-is";
      } else if (opChars.test(ch)) {
        if (ch == "") return "dollar";
        stream.eatWhile(opChars);
        return "operator";
      } else if (/[\(\){}\[\];]/.test(ch)) {
        curPunc = ch;
        if (ch == ";") return "semi";
        return null;
      } else {
        return null;
      }
    }
  
    function tokenString(quote) {
      return function(stream, state) {
        if (stream.eat("\\")) {
          var ch = stream.next();
          if (ch == "x") stream.match(/^[a-f0-9]{2}/i);
          else if ((ch == "u" || ch == "U") && stream.eat("{") && stream.skipTo("}")) stream.next();
          else if (ch == "u") stream.match(/^[a-f0-9]{4}/i);
          else if (ch == "U") stream.match(/^[a-f0-9]{8}/i);
          else if (/[0-7]/.test(ch)) stream.match(/^[0-7]{1,2}/);
          return "string-2";
        } else {
          var next;
          while ((next = stream.next()) != null) {
            if (next == quote) { state.tokenize = tokenBase; break; }
            if (next == "\\") { stream.backUp(1); break; }
          }
          return "string";
        }
      };
    }
  
    function push(state, type, stream) {
      state.ctx = {type: type,
                   indent: state.indent,
                   align: null,
                   column: stream.column(),
                   prev: state.ctx};
    }
    function pop(state) {
      state.indent = state.ctx.indent;
      state.ctx = state.ctx.prev;
    }
  
    return {
      startState: function(base) {
        return {tokenize: tokenBase,
                ctx: {type: "top",
                      indent: -config.indentUnit,
                      align: false},
                indent: 0,
                afterIdent: false};
      },
  
      token: function(stream, state) {
        if (stream.sol()) {
          if (state.ctx.align == null) state.ctx.align = false;
          state.indent = stream.indentation();
        }
        if (stream.eatSpace()) return null;
        var style = state.tokenize(stream, state);
        if (style != "comment" && state.ctx.align == null) state.ctx.align = true;
  
        var ctype = state.ctx.type;
        if ((curPunc == ";" || curPunc == "{" || curPunc == "}") && ctype == "block") pop(state);
        if (curPunc == "{") push(state, "}", stream);
        else if (curPunc == "(") {
          push(state, ")", stream);
          if (state.afterIdent) state.ctx.argList = true;
        }
        else if (curPunc == "[") push(state, "]", stream);
        else if (curPunc == "block") push(state, "block", stream);
        else if (curPunc == ctype) pop(state);
        state.afterIdent = style == "variable" || style == "keyword";
        return style;
      },
  
      indent: function(state, textAfter) {
        if (state.tokenize != tokenBase) return 0;
        var firstChar = textAfter && textAfter.charAt(0), ctx = state.ctx,
            closing = firstChar == ctx.type;
        if (ctx.type == "block") return ctx.indent + (firstChar == "{" ? 0 : config.indentUnit);
        else if (ctx.align) return ctx.column + (closing ? 0 : 1);
        else return ctx.indent + (closing ? 0 : config.indentUnit);
      }
    };
  });
  
  CodeMirror.defineMIME("text/x-rsrc", "r");
  


(C) Æliens 04/09/2009

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.