← Back to branch summary

~ubuntu-branches/ubuntu/utopic/codemirror-js/utopic

« back to all changes in this revision

Viewing changes to mode/r/r.js

  • Committer: Package Import Robot
  • Author(s): David Paleino
  • Date: 2012-04-12 12:25:28 UTC
  • Revision ID: package-import@ubuntu.com-20120412122528-8xp5a8frj4h1d3ee
Tags: upstream-2.23
Import upstream version 2.23

Show diffs side-by-side

added added

removed removed

Lines of Context:
mode/r/r.js
 
1
CodeMirror.defineMode("r", function(config) {
 
2
  function wordObj(str) {
 
3
    var words = str.split(" "), res = {};
 
4
    for (var i = 0; i < words.length; ++i) res[words[i]] = true;
 
5
    return res;
 
6
  }
 
7
  var atoms = wordObj("NULL NA Inf NaN NA_integer_ NA_real_ NA_complex_ NA_character_");
 
8
  var builtins = wordObj("list quote bquote eval return call parse deparse");
 
9
  var keywords = wordObj("if else repeat while function for in next break");
 
10
  var blockkeywords = wordObj("if else repeat while function for");
 
11
  var opChars = /[+\-*\/^<>=!&|~$:]/;
 
12
  var curPunc;
 
13
 
 
14
  function tokenBase(stream, state) {
 
15
    curPunc = null;
 
16
    var ch = stream.next();
 
17
    if (ch == "#") {
 
18
      stream.skipToEnd();
 
19
      return "comment";
 
20
    } else if (ch == "0" && stream.eat("x")) {
 
21
      stream.eatWhile(/[\da-f]/i);
 
22
      return "number";
 
23
    } else if (ch == "." && stream.eat(/\d/)) {
 
24
      stream.match(/\d*(?:e[+\-]?\d+)?/);
 
25
      return "number";
 
26
    } else if (/\d/.test(ch)) {
 
27
      stream.match(/\d*(?:\.\d+)?(?:e[+\-]\d+)?L?/);
 
28
      return "number";
 
29
    } else if (ch == "'" || ch == '"') {
 
30
      state.tokenize = tokenString(ch);
 
31
      return "string";
 
32
    } else if (ch == "." && stream.match(/.[.\d]+/)) {
 
33
      return "keyword";
 
34
    } else if (/[\w\.]/.test(ch) && ch != "_") {
 
35
      stream.eatWhile(/[\w\.]/);
 
36
      var word = stream.current();
 
37
      if (atoms.propertyIsEnumerable(word)) return "atom";
 
38
      if (keywords.propertyIsEnumerable(word)) {
 
39
        if (blockkeywords.propertyIsEnumerable(word)) curPunc = "block";
 
40
        return "keyword";
 
41
      }
 
42
      if (builtins.propertyIsEnumerable(word)) return "builtin";
 
43
      return "variable";
 
44
    } else if (ch == "%") {
 
45
      if (stream.skipTo("%")) stream.next();
 
46
      return "variable-2";
 
47
    } else if (ch == "<" && stream.eat("-")) {
 
48
      return "arrow";
 
49
    } else if (ch == "=" && state.ctx.argList) {
 
50
      return "arg-is";
 
51
    } else if (opChars.test(ch)) {
 
52
      if (ch == "$") return "dollar";
 
53
      stream.eatWhile(opChars);
 
54
      return "operator";
 
55
    } else if (/[\(\){}\[\];]/.test(ch)) {
 
56
      curPunc = ch;
 
57
      if (ch == ";") return "semi";
 
58
      return null;
 
59
    } else {
 
60
      return null;
 
61
    }
 
62
  }
 
63
 
 
64
  function tokenString(quote) {
 
65
    return function(stream, state) {
 
66
      if (stream.eat("\\")) {
 
67
        var ch = stream.next();
 
68
        if (ch == "x") stream.match(/^[a-f0-9]{2}/i);
 
69
        else if ((ch == "u" || ch == "U") && stream.eat("{") && stream.skipTo("}")) stream.next();
 
70
        else if (ch == "u") stream.match(/^[a-f0-9]{4}/i);
 
71
        else if (ch == "U") stream.match(/^[a-f0-9]{8}/i);
 
72
        else if (/[0-7]/.test(ch)) stream.match(/^[0-7]{1,2}/);
 
73
        return "string-2";
 
74
      } else {
 
75
        var next;
 
76
        while ((next = stream.next()) != null) {
 
77
          if (next == quote) { state.tokenize = tokenBase; break; }
 
78
          if (next == "\\") { stream.backUp(1); break; }
 
79
        }
 
80
        return "string";
 
81
      }
 
82
    };
 
83
  }
 
84
 
 
85
  function push(state, type, stream) {
 
86
    state.ctx = {type: type,
 
87
                 indent: state.indent,
 
88
                 align: null,
 
89
                 column: stream.column(),
 
90
                 prev: state.ctx};
 
91
  }
 
92
  function pop(state) {
 
93
    state.indent = state.ctx.indent;
 
94
    state.ctx = state.ctx.prev;
 
95
  }
 
96
 
 
97
  return {
 
98
    startState: function(base) {
 
99
      return {tokenize: tokenBase,
 
100
              ctx: {type: "top",
 
101
                    indent: -config.indentUnit,
 
102
                    align: false},
 
103
              indent: 0,
 
104
              afterIdent: false};
 
105
    },
 
106
 
 
107
    token: function(stream, state) {
 
108
      if (stream.sol()) {
 
109
        if (state.ctx.align == null) state.ctx.align = false;
 
110
        state.indent = stream.indentation();
 
111
      }
 
112
      if (stream.eatSpace()) return null;
 
113
      var style = state.tokenize(stream, state);
 
114
      if (style != "comment" && state.ctx.align == null) state.ctx.align = true;
 
115
 
 
116
      var ctype = state.ctx.type;
 
117
      if ((curPunc == ";" || curPunc == "{" || curPunc == "}") && ctype == "block") pop(state);
 
118
      if (curPunc == "{") push(state, "}", stream);
 
119
      else if (curPunc == "(") {
 
120
        push(state, ")", stream);
 
121
        if (state.afterIdent) state.ctx.argList = true;
 
122
      }
 
123
      else if (curPunc == "[") push(state, "]", stream);
 
124
      else if (curPunc == "block") push(state, "block", stream);
 
125
      else if (curPunc == ctype) pop(state);
 
126
      state.afterIdent = style == "variable" || style == "keyword";
 
127
      return style;
 
128
    },
 
129
 
 
130
    indent: function(state, textAfter) {
 
131
      if (state.tokenize != tokenBase) return 0;
 
132
      var firstChar = textAfter && textAfter.charAt(0), ctx = state.ctx,
 
133
          closing = firstChar == ctx.type;
 
134
      if (ctx.type == "block") return ctx.indent + (firstChar == "{" ? 0 : config.indentUnit);
 
135
      else if (ctx.align) return ctx.column + (closing ? 0 : 1);
 
136
      else return ctx.indent + (closing ? 0 : config.indentUnit);
 
137
    }
 
138
  };
 
139
});
 
140
 
 
141
CodeMirror.defineMIME("text/x-rsrc", "r");