@vc-shell/framework 1.1.0 → 1.1.2

package/dist/assets/python-D3FFx1Id.js

@@ -0,0 +1,389 @@
+function wordRegexp(words) {
+  return new RegExp("^((" + words.join(")|(") + "))\\b");
+}
+
+var wordOperators = wordRegexp(["and", "or", "not", "is"]);
+var commonKeywords = ["as", "assert", "break", "class", "continue",
+                      "def", "del", "elif", "else", "except", "finally",
+                      "for", "from", "global", "if", "import",
+                      "lambda", "pass", "raise", "return",
+                      "try", "while", "with", "yield", "in", "False", "True"];
+var commonBuiltins = ["abs", "all", "any", "bin", "bool", "bytearray", "callable", "chr",
+                      "classmethod", "compile", "complex", "delattr", "dict", "dir", "divmod",
+                      "enumerate", "eval", "filter", "float", "format", "frozenset",
+                      "getattr", "globals", "hasattr", "hash", "help", "hex", "id",
+                      "input", "int", "isinstance", "issubclass", "iter", "len",
+                      "list", "locals", "map", "max", "memoryview", "min", "next",
+                      "object", "oct", "open", "ord", "pow", "property", "range",
+                      "repr", "reversed", "round", "set", "setattr", "slice",
+                      "sorted", "staticmethod", "str", "sum", "super", "tuple",
+                      "type", "vars", "zip", "__import__", "NotImplemented",
+                      "Ellipsis", "__debug__"];
+
+function top(state) {
+  return state.scopes[state.scopes.length - 1];
+}
+
+function mkPython(parserConf) {
+  var ERRORCLASS = "error";
+
+  var delimiters = parserConf.delimiters || parserConf.singleDelimiters || /^[\(\)\[\]\{\}@,:`=;\.\\]/;
+  //               (Backwards-compatibility with old, cumbersome config system)
+  var operators = [parserConf.singleOperators, parserConf.doubleOperators, parserConf.doubleDelimiters, parserConf.tripleDelimiters,
+                   parserConf.operators || /^([-+*/%\/&|^]=?|[<>=]+|\/\/=?|\*\*=?|!=|[~!@]|\.\.\.)/];
+  for (var i = 0; i < operators.length; i++) if (!operators[i]) operators.splice(i--, 1);
+
+  var hangingIndent = parserConf.hangingIndent;
+
+  var myKeywords = commonKeywords, myBuiltins = commonBuiltins;
+  if (parserConf.extra_keywords != undefined)
+    myKeywords = myKeywords.concat(parserConf.extra_keywords);
+
+  if (parserConf.extra_builtins != undefined)
+    myBuiltins = myBuiltins.concat(parserConf.extra_builtins);
+
+  var py3 = !(parserConf.version && Number(parserConf.version) < 3);
+  if (py3) {
+    // since http://legacy.python.org/dev/peps/pep-0465/ @ is also an operator
+    var identifiers = parserConf.identifiers|| /^[_A-Za-z\u00A1-\uFFFF][_A-Za-z0-9\u00A1-\uFFFF]*/;
+    myKeywords = myKeywords.concat(["nonlocal", "None", "aiter", "anext", "async", "await", "breakpoint", "match", "case"]);
+    myBuiltins = myBuiltins.concat(["ascii", "bytes", "exec", "print"]);
+    var stringPrefixes = new RegExp("^(([rbuf]|(br)|(rb)|(fr)|(rf))?('{3}|\"{3}|['\"]))", "i");
+  } else {
+    var identifiers = parserConf.identifiers|| /^[_A-Za-z][_A-Za-z0-9]*/;
+    myKeywords = myKeywords.concat(["exec", "print"]);
+    myBuiltins = myBuiltins.concat(["apply", "basestring", "buffer", "cmp", "coerce", "execfile",
+                                    "file", "intern", "long", "raw_input", "reduce", "reload",
+                                    "unichr", "unicode", "xrange", "None"]);
+    var stringPrefixes = new RegExp("^(([rubf]|(ur)|(br))?('{3}|\"{3}|['\"]))", "i");
+  }
+  var keywords = wordRegexp(myKeywords);
+  var builtins = wordRegexp(myBuiltins);
+
+  // tokenizers
+  function tokenBase(stream, state) {
+    var sol = stream.sol() && state.lastToken != "\\";
+    if (sol) state.indent = stream.indentation();
+    // Handle scope changes
+    if (sol && top(state).type == "py") {
+      var scopeOffset = top(state).offset;
+      if (stream.eatSpace()) {
+        var lineOffset = stream.indentation();
+        if (lineOffset > scopeOffset)
+          pushPyScope(stream, state);
+        else if (lineOffset < scopeOffset && dedent(stream, state) && stream.peek() != "#")
+          state.errorToken = true;
+        return null;
+      } else {
+        var style = tokenBaseInner(stream, state);
+        if (scopeOffset > 0 && dedent(stream, state))
+          style += " " + ERRORCLASS;
+        return style;
+      }
+    }
+    return tokenBaseInner(stream, state);
+  }
+
+  function tokenBaseInner(stream, state, inFormat) {
+    if (stream.eatSpace()) return null;
+
+    // Handle Comments
+    if (!inFormat && stream.match(/^#.*/)) return "comment";
+
+    // Handle Number Literals
+    if (stream.match(/^[0-9\.]/, false)) {
+      var floatLiteral = false;
+      // Floats
+      if (stream.match(/^[\d_]*\.\d+(e[\+\-]?\d+)?/i)) { floatLiteral = true; }
+      if (stream.match(/^[\d_]+\.\d*/)) { floatLiteral = true; }
+      if (stream.match(/^\.\d+/)) { floatLiteral = true; }
+      if (floatLiteral) {
+        // Float literals may be "imaginary"
+        stream.eat(/J/i);
+        return "number";
+      }
+      // Integers
+      var intLiteral = false;
+      // Hex
+      if (stream.match(/^0x[0-9a-f_]+/i)) intLiteral = true;
+      // Binary
+      if (stream.match(/^0b[01_]+/i)) intLiteral = true;
+      // Octal
+      if (stream.match(/^0o[0-7_]+/i)) intLiteral = true;
+      // Decimal
+      if (stream.match(/^[1-9][\d_]*(e[\+\-]?[\d_]+)?/)) {
+        // Decimal literals may be "imaginary"
+        stream.eat(/J/i);
+        // TODO - Can you have imaginary longs?
+        intLiteral = true;
+      }
+      // Zero by itself with no other piece of number.
+      if (stream.match(/^0(?![\dx])/i)) intLiteral = true;
+      if (intLiteral) {
+        // Integer literals may be "long"
+        stream.eat(/L/i);
+        return "number";
+      }
+    }
+
+    // Handle Strings
+    if (stream.match(stringPrefixes)) {
+      var isFmtString = stream.current().toLowerCase().indexOf('f') !== -1;
+      if (!isFmtString) {
+        state.tokenize = tokenStringFactory(stream.current(), state.tokenize);
+        return state.tokenize(stream, state);
+      } else {
+        state.tokenize = formatStringFactory(stream.current(), state.tokenize);
+        return state.tokenize(stream, state);
+      }
+    }
+
+    for (var i = 0; i < operators.length; i++)
+      if (stream.match(operators[i])) return "operator"
+
+    if (stream.match(delimiters)) return "punctuation";
+
+    if (state.lastToken == "." && stream.match(identifiers))
+      return "property";
+
+    if (stream.match(keywords) || stream.match(wordOperators))
+      return "keyword";
+
+    if (stream.match(builtins))
+      return "builtin";
+
+    if (stream.match(/^(self|cls)\b/))
+      return "self";
+
+    if (stream.match(identifiers)) {
+      if (state.lastToken == "def" || state.lastToken == "class")
+        return "def";
+      return "variable";
+    }
+
+    // Handle non-detected items
+    stream.next();
+    return inFormat ? null :ERRORCLASS;
+  }
+
+  function formatStringFactory(delimiter, tokenOuter) {
+    while ("rubf".indexOf(delimiter.charAt(0).toLowerCase()) >= 0)
+      delimiter = delimiter.substr(1);
+
+    var singleline = delimiter.length == 1;
+    var OUTCLASS = "string";
+
+    function tokenNestedExpr(depth) {
+      return function(stream, state) {
+        var inner = tokenBaseInner(stream, state, true);
+        if (inner == "punctuation") {
+          if (stream.current() == "{") {
+            state.tokenize = tokenNestedExpr(depth + 1);
+          } else if (stream.current() == "}") {
+            if (depth > 1) state.tokenize = tokenNestedExpr(depth - 1);
+            else state.tokenize = tokenString;
+          }
+        }
+        return inner
+      }
+    }
+
+    function tokenString(stream, state) {
+      while (!stream.eol()) {
+        stream.eatWhile(/[^'"\{\}\\]/);
+        if (stream.eat("\\")) {
+          stream.next();
+          if (singleline && stream.eol())
+            return OUTCLASS;
+        } else if (stream.match(delimiter)) {
+          state.tokenize = tokenOuter;
+          return OUTCLASS;
+        } else if (stream.match('{{')) {
+          // ignore {{ in f-str
+          return OUTCLASS;
+        } else if (stream.match('{', false)) {
+          // switch to nested mode
+          state.tokenize = tokenNestedExpr(0);
+          if (stream.current()) return OUTCLASS;
+          else return state.tokenize(stream, state)
+        } else if (stream.match('}}')) {
+          return OUTCLASS;
+        } else if (stream.match('}')) {
+          // single } in f-string is an error
+          return ERRORCLASS;
+        } else {
+          stream.eat(/['"]/);
+        }
+      }
+      if (singleline) {
+        if (parserConf.singleLineStringErrors)
+          return ERRORCLASS;
+        else
+          state.tokenize = tokenOuter;
+      }
+      return OUTCLASS;
+    }
+    tokenString.isString = true;
+    return tokenString;
+  }
+
+  function tokenStringFactory(delimiter, tokenOuter) {
+    while ("rubf".indexOf(delimiter.charAt(0).toLowerCase()) >= 0)
+      delimiter = delimiter.substr(1);
+
+    var singleline = delimiter.length == 1;
+    var OUTCLASS = "string";
+
+    function tokenString(stream, state) {
+      while (!stream.eol()) {
+        stream.eatWhile(/[^'"\\]/);
+        if (stream.eat("\\")) {
+          stream.next();
+          if (singleline && stream.eol())
+            return OUTCLASS;
+        } else if (stream.match(delimiter)) {
+          state.tokenize = tokenOuter;
+          return OUTCLASS;
+        } else {
+          stream.eat(/['"]/);
+        }
+      }
+      if (singleline) {
+        if (parserConf.singleLineStringErrors)
+          return ERRORCLASS;
+        else
+          state.tokenize = tokenOuter;
+      }
+      return OUTCLASS;
+    }
+    tokenString.isString = true;
+    return tokenString;
+  }
+
+  function pushPyScope(stream, state) {
+    while (top(state).type != "py") state.scopes.pop();
+    state.scopes.push({offset: top(state).offset + stream.indentUnit,
+                       type: "py",
+                       align: null});
+  }
+
+  function pushBracketScope(stream, state, type) {
+    var align = stream.match(/^[\s\[\{\(]*(?:#|$)/, false) ? null : stream.column() + 1;
+    state.scopes.push({offset: state.indent + (hangingIndent || stream.indentUnit),
+                       type: type,
+                       align: align});
+  }
+
+  function dedent(stream, state) {
+    var indented = stream.indentation();
+    while (state.scopes.length > 1 && top(state).offset > indented) {
+      if (top(state).type != "py") return true;
+      state.scopes.pop();
+    }
+    return top(state).offset != indented;
+  }
+
+  function tokenLexer(stream, state) {
+    if (stream.sol()) {
+      state.beginningOfLine = true;
+      state.dedent = false;
+    }
+
+    var style = state.tokenize(stream, state);
+    var current = stream.current();
+
+    // Handle decorators
+    if (state.beginningOfLine && current == "@")
+      return stream.match(identifiers, false) ? "meta" : py3 ? "operator" : ERRORCLASS;
+
+    if (/\S/.test(current)) state.beginningOfLine = false;
+
+    if ((style == "variable" || style == "builtin")
+        && state.lastToken == "meta")
+      style = "meta";
+
+    // Handle scope changes.
+    if (current == "pass" || current == "return")
+      state.dedent = true;
+
+    if (current == "lambda") state.lambda = true;
+    if (current == ":" && !state.lambda && top(state).type == "py" && stream.match(/^\s*(?:#|$)/, false))
+      pushPyScope(stream, state);
+
+    if (current.length == 1 && !/string|comment/.test(style)) {
+      var delimiter_index = "[({".indexOf(current);
+      if (delimiter_index != -1)
+        pushBracketScope(stream, state, "])}".slice(delimiter_index, delimiter_index+1));
+
+      delimiter_index = "])}".indexOf(current);
+      if (delimiter_index != -1) {
+        if (top(state).type == current) state.indent = state.scopes.pop().offset - (hangingIndent || stream.indentUnit);
+        else return ERRORCLASS;
+      }
+    }
+    if (state.dedent && stream.eol() && top(state).type == "py" && state.scopes.length > 1)
+      state.scopes.pop();
+
+    return style;
+  }
+
+  return {
+    name: "python",
+
+    startState: function() {
+      return {
+        tokenize: tokenBase,
+        scopes: [{offset: 0, type: "py", align: null}],
+        indent: 0,
+        lastToken: null,
+        lambda: false,
+        dedent: 0
+      };
+    },
+
+    token: function(stream, state) {
+      var addErr = state.errorToken;
+      if (addErr) state.errorToken = false;
+      var style = tokenLexer(stream, state);
+
+      if (style && style != "comment")
+        state.lastToken = (style == "keyword" || style == "punctuation") ? stream.current() : style;
+      if (style == "punctuation") style = null;
+
+      if (stream.eol() && state.lambda)
+        state.lambda = false;
+      return addErr ? ERRORCLASS : style;
+    },
+
+    indent: function(state, textAfter, cx) {
+      if (state.tokenize != tokenBase)
+        return state.tokenize.isString ? null : 0;
+
+      var scope = top(state);
+      var closing = scope.type == textAfter.charAt(0) ||
+          scope.type == "py" && !state.dedent && /^(else:|elif |except |finally:)/.test(textAfter);
+      if (scope.align != null)
+        return scope.align - (closing ? 1 : 0)
+      else
+        return scope.offset - (closing ? hangingIndent || cx.unit : 0)
+    },
+
+    languageData: {
+      autocomplete: commonKeywords.concat(commonBuiltins).concat(["exec", "print"]),
+      indentOnInput: /^\s*([\}\]\)]|else:|elif |except |finally:)$/,
+      commentTokens: {line: "#"},
+      closeBrackets: {brackets: ["(", "[", "{", "'", '"', "'''", '"""']}
+    }
+  };
+}
+var words = function(str) { return str.split(" "); };
+
+const python = mkPython({});
+
+const cython = mkPython({
+  extra_keywords: words("by cdef cimport cpdef ctypedef enum except "+
+                        "extern gil include nogil property public "+
+                        "readonly struct union DEF IF ELIF ELSE")
+});
+
+export { cython, mkPython, python };

package/dist/assets/q-D2Hjhl2C.js

@@ -0,0 +1,123 @@
+var curPunc,
+    keywords=buildRE(["abs","acos","aj","aj0","all","and","any","asc","asin","asof","atan","attr","avg","avgs","bin","by","ceiling","cols","cor","cos","count","cov","cross","csv","cut","delete","deltas","desc","dev","differ","distinct","div","do","each","ej","enlist","eval","except","exec","exit","exp","fby","fills","first","fkeys","flip","floor","from","get","getenv","group","gtime","hclose","hcount","hdel","hopen","hsym","iasc","idesc","if","ij","in","insert","inter","inv","key","keys","last","like","list","lj","load","log","lower","lsq","ltime","ltrim","mavg","max","maxs","mcount","md5","mdev","med","meta","min","mins","mmax","mmin","mmu","mod","msum","neg","next","not","null","or","over","parse","peach","pj","plist","prd","prds","prev","prior","rand","rank","ratios","raze","read0","read1","reciprocal","reverse","rload","rotate","rsave","rtrim","save","scan","select","set","setenv","show","signum","sin","sqrt","ss","ssr","string","sublist","sum","sums","sv","system","tables","tan","til","trim","txf","type","uj","ungroup","union","update","upper","upsert","value","var","view","views","vs","wavg","where","where","while","within","wj","wj1","wsum","xasc","xbar","xcol","xcols","xdesc","xexp","xgroup","xkey","xlog","xprev","xrank"]),
+    E=/[|/&^!+:\\\-*%$=~#;@><,?_\'\"\[\(\]\)\s{}]/;
+function buildRE(w){return new RegExp("^("+w.join("|")+")$");}
+function tokenBase(stream,state){
+  var sol=stream.sol(),c=stream.next();
+  curPunc=null;
+  if(sol)
+    if(c=="/")
+      return (state.tokenize=tokenLineComment)(stream,state);
+  else if(c=="\\"){
+    if(stream.eol()||/\s/.test(stream.peek()))
+      return stream.skipToEnd(),/^\\\s*$/.test(stream.current())?(state.tokenize=tokenCommentToEOF)(stream):state.tokenize=tokenBase,"comment";
+    else
+      return state.tokenize=tokenBase,"builtin";
+  }
+  if(/\s/.test(c))
+    return stream.peek()=="/"?(stream.skipToEnd(),"comment"):"null";
+  if(c=='"')
+    return (state.tokenize=tokenString)(stream,state);
+  if(c=='`')
+    return stream.eatWhile(/[A-Za-z\d_:\/.]/),"macroName";
+  if(("."==c&&/\d/.test(stream.peek()))||/\d/.test(c)){
+    var t=null;
+    stream.backUp(1);
+    if(stream.match(/^\d{4}\.\d{2}(m|\.\d{2}([DT](\d{2}(:\d{2}(:\d{2}(\.\d{1,9})?)?)?)?)?)/)
+       || stream.match(/^\d+D(\d{2}(:\d{2}(:\d{2}(\.\d{1,9})?)?)?)/)
+       || stream.match(/^\d{2}:\d{2}(:\d{2}(\.\d{1,9})?)?/)
+       || stream.match(/^\d+[ptuv]{1}/))
+      t="temporal";
+    else if(stream.match(/^0[NwW]{1}/)
+            || stream.match(/^0x[\da-fA-F]*/)
+            || stream.match(/^[01]+[b]{1}/)
+            || stream.match(/^\d+[chijn]{1}/)
+            || stream.match(/-?\d*(\.\d*)?(e[+\-]?\d+)?(e|f)?/))
+      t="number";
+    return (t&&(!(c=stream.peek())||E.test(c)))?t:(stream.next(),"error");
+  }
+  if(/[A-Za-z]|\./.test(c))
+    return stream.eatWhile(/[A-Za-z._\d]/),keywords.test(stream.current())?"keyword":"variable";
+  if(/[|/&^!+:\\\-*%$=~#;@><\.,?_\']/.test(c))
+    return null;
+  if(/[{}\(\[\]\)]/.test(c))
+    return null;
+  return "error";
+}
+function tokenLineComment(stream,state){
+  return stream.skipToEnd(),/\/\s*$/.test(stream.current())?(state.tokenize=tokenBlockComment)(stream,state):(state.tokenize=tokenBase),"comment";
+}
+function tokenBlockComment(stream,state){
+  var f=stream.sol()&&stream.peek()=="\\";
+  stream.skipToEnd();
+  if(f&&/^\\\s*$/.test(stream.current()))
+    state.tokenize=tokenBase;
+  return "comment";
+}
+function tokenCommentToEOF(stream){return stream.skipToEnd(),"comment";}
+function tokenString(stream,state){
+  var escaped=false,next,end=false;
+  while((next=stream.next())){
+    if(next=="\""&&!escaped){end=true;break;}
+    escaped=!escaped&&next=="\\";
+  }
+  if(end)state.tokenize=tokenBase;
+  return "string";
+}
+function pushContext(state,type,col){state.context={prev:state.context,indent:state.indent,col:col,type:type};}
+function popContext(state){state.indent=state.context.indent;state.context=state.context.prev;}
+const q = {
+  name: "q",
+  startState:function(){
+    return {tokenize:tokenBase,
+           context:null,
+           indent:0,
+           col:0};
+  },
+  token:function(stream,state){
+    if(stream.sol()){
+      if(state.context&&state.context.align==null)
+        state.context.align=false;
+      state.indent=stream.indentation();
+    }
+    //if (stream.eatSpace()) return null;
+    var style=state.tokenize(stream,state);
+    if(style!="comment"&&state.context&&state.context.align==null&&state.context.type!="pattern"){
+      state.context.align=true;
+    }
+    if(curPunc=="(")pushContext(state,")",stream.column());
+    else if(curPunc=="[")pushContext(state,"]",stream.column());
+    else if(curPunc=="{")pushContext(state,"}",stream.column());
+    else if(/[\]\}\)]/.test(curPunc)){
+      while(state.context&&state.context.type=="pattern")popContext(state);
+      if(state.context&&curPunc==state.context.type)popContext(state);
+    }
+    else if(curPunc=="."&&state.context&&state.context.type=="pattern")popContext(state);
+    else if(/atom|string|variable/.test(style)&&state.context){
+      if(/[\}\]]/.test(state.context.type))
+        pushContext(state,"pattern",stream.column());
+      else if(state.context.type=="pattern"&&!state.context.align){
+        state.context.align=true;
+        state.context.col=stream.column();
+      }
+    }
+    return style;
+  },
+  indent:function(state,textAfter,cx){
+    var firstChar=textAfter&&textAfter.charAt(0);
+    var context=state.context;
+    if(/[\]\}]/.test(firstChar))
+      while (context&&context.type=="pattern")context=context.prev;
+    var closing=context&&firstChar==context.type;
+    if(!context)
+      return 0;
+    else if(context.type=="pattern")
+      return context.col;
+    else if(context.align)
+      return context.col+(closing?0:1);
+    else
+      return context.indent+(closing?0:cx.unit);
+  }
+};
+
+export { q };

package/dist/assets/r-D73k5lac.js

@@ -0,0 +1,174 @@
+function wordObj(words) {
+  var res = {};
+  for (var i = 0; i < words.length; ++i) res[words[i]] = true;
+  return res;
+}
+var commonAtoms = ["NULL", "NA", "Inf", "NaN", "NA_integer_", "NA_real_", "NA_complex_", "NA_character_", "TRUE", "FALSE"];
+var commonBuiltins = ["list", "quote", "bquote", "eval", "return", "call", "parse", "deparse"];
+var commonKeywords = ["if", "else", "repeat", "while", "function", "for", "in", "next", "break"];
+var commonBlockKeywords = ["if", "else", "repeat", "while", "function", "for"];
+
+var atoms = wordObj(commonAtoms);
+var builtins = wordObj(commonBuiltins);
+var keywords = wordObj(commonKeywords);
+var blockkeywords = wordObj(commonBlockKeywords);
+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(/[^`]+`/);
+    return "string.special";
+  } else if (ch == "." && stream.match(/.(?:[.]|\d+)/)) {
+    return "keyword";
+  } else if (/[a-zA-Z\.]/.test(ch)) {
+    stream.eatWhile(/[\w\.]/);
+    var word = stream.current();
+    if (atoms.propertyIsEnumerable(word)) return "atom";
+    if (keywords.propertyIsEnumerable(word)) {
+      // Block keywords start new blocks, except 'else if', which only starts
+      // one new block for the 'if', no block for the 'else'.
+      if (blockkeywords.propertyIsEnumerable(word) &&
+          !stream.match(/\s*if(\s+|$)/, false))
+        curPunc = "block";
+      return "keyword";
+    }
+    if (builtins.propertyIsEnumerable(word)) return "builtin";
+    return "variable";
+  } else if (ch == "%") {
+    if (stream.skipTo("%")) stream.next();
+    return "variableName.special";
+  } else if (
+    (ch == "<" && stream.eat("-")) ||
+      (ch == "<" && stream.match("<-")) ||
+      (ch == "-" && stream.match(/>>?/))
+  ) {
+    return "operator";
+  } else if (ch == "=" && state.ctx.argList) {
+    return "operator";
+  } else if (opChars.test(ch)) {
+    if (ch == "$") return "operator";
+    stream.eatWhile(opChars);
+    return "operator";
+  } else if (/[\(\){}\[\];]/.test(ch)) {
+    curPunc = ch;
+    if (ch == ";") return "punctuation";
+    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.special";
+    } else {
+      var next;
+      while ((next = stream.next()) != null) {
+        if (next == quote) { state.tokenize = tokenBase; break; }
+        if (next == "\\") { stream.backUp(1); break; }
+      }
+      return "string";
+    }
+  };
+}
+
+var ALIGN_YES = 1, ALIGN_NO = 2, BRACELESS = 4;
+
+function push(state, type, stream) {
+  state.ctx = {type: type,
+               indent: state.indent,
+               flags: 0,
+               column: stream.column(),
+               prev: state.ctx};
+}
+function setFlag(state, flag) {
+  var ctx = state.ctx;
+  state.ctx = {type: ctx.type,
+               indent: ctx.indent,
+               flags: ctx.flags | flag,
+               column: ctx.column,
+               prev: ctx.prev};
+}
+function pop(state) {
+  state.indent = state.ctx.indent;
+  state.ctx = state.ctx.prev;
+}
+
+const r = {
+  name: "r",
+  startState: function(indentUnit) {
+    return {tokenize: tokenBase,
+            ctx: {type: "top",
+                  indent: -indentUnit,
+                  flags: ALIGN_NO},
+            indent: 0,
+            afterIdent: false};
+  },
+
+  token: function(stream, state) {
+    if (stream.sol()) {
+      if ((state.ctx.flags & 3) == 0) state.ctx.flags |= ALIGN_NO;
+      if (state.ctx.flags & BRACELESS) pop(state);
+      state.indent = stream.indentation();
+    }
+    if (stream.eatSpace()) return null;
+    var style = state.tokenize(stream, state);
+    if (style != "comment" && (state.ctx.flags & ALIGN_NO) == 0) setFlag(state, ALIGN_YES);
+
+    if ((curPunc == ";" || curPunc == "{" || curPunc == "}") && state.ctx.type == "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 == state.ctx.type) pop(state);
+    else if (state.ctx.type == "block" && style != "comment") setFlag(state, BRACELESS);
+    state.afterIdent = style == "variable" || style == "keyword";
+    return style;
+  },
+
+  indent: function(state, textAfter, cx) {
+    if (state.tokenize != tokenBase) return 0;
+    var firstChar = textAfter && textAfter.charAt(0), ctx = state.ctx,
+        closing = firstChar == ctx.type;
+    if (ctx.flags & BRACELESS) ctx = ctx.prev;
+    if (ctx.type == "block") return ctx.indent + (firstChar == "{" ? 0 : cx.unit);
+    else if (ctx.flags & ALIGN_YES) return ctx.column + (closing ? 0 : 1);
+    else return ctx.indent + (closing ? 0 : cx.unit);
+  },
+
+  languageData: {
+    wordChars: ".",
+    commentTokens: {line: "#"},
+    autocomplete: commonAtoms.concat(commonBuiltins, commonKeywords)
+  }
+};
+
+export { r };