r.js
2.45 KB
CodeMirror.defineMode("r",function(t){function e(t){for(var e=t.split(" "),n={},r=0;r<e.length;++r)n[e[r]]=!0;return n}function n(t,e){o=null;var n=t.next();if("#"==n)return t.skipToEnd(),"comment";if("0"==n&&t.eat("x"))return t.eatWhile(/[\da-f]/i),"number";if("."==n&&t.eat(/\d/))return t.match(/\d*(?:e[+\-]?\d+)?/),"number";if(/\d/.test(n))return t.match(/\d*(?:\.\d+)?(?:e[+\-]\d+)?L?/),"number";if("'"==n||'"'==n)return e.tokenize=r(n),"string";if("."==n&&t.match(/.[.\d]+/))return"keyword";if(/[\w\.]/.test(n)&&"_"!=n){t.eatWhile(/[\w\.]/);var i=t.current();return l.propertyIsEnumerable(i)?"atom":c.propertyIsEnumerable(i)?(f.propertyIsEnumerable(i)&&(o="block"),"keyword"):u.propertyIsEnumerable(i)?"builtin":"variable"}return"%"==n?(t.skipTo("%")&&t.next(),"variable-2"):"<"==n&&t.eat("-")?"arrow":"="==n&&e.ctx.argList?"arg-is":d.test(n)?"$"==n?"dollar":(t.eatWhile(d),"operator"):/[\(\){}\[\];]/.test(n)?(o=n,";"==n?"semi":null):null}function r(t){return function(e,r){if(e.eat("\\")){var i=e.next();return"x"==i?e.match(/^[a-f0-9]{2}/i):("u"==i||"U"==i)&&e.eat("{")&&e.skipTo("}")?e.next():"u"==i?e.match(/^[a-f0-9]{4}/i):"U"==i?e.match(/^[a-f0-9]{8}/i):/[0-7]/.test(i)&&e.match(/^[0-7]{1,2}/),"string-2"}for(var a;null!=(a=e.next());){if(a==t){r.tokenize=n;break}if("\\"==a){e.backUp(1);break}}return"string"}}function i(t,e,n){t.ctx={type:e,indent:t.indent,align:null,column:n.column(),prev:t.ctx}}function a(t){t.indent=t.ctx.indent,t.ctx=t.ctx.prev}var o,l=e("NULL NA Inf NaN NA_integer_ NA_real_ NA_complex_ NA_character_"),u=e("list quote bquote eval return call parse deparse"),c=e("if else repeat while function for in next break"),f=e("if else repeat while function for"),d=/[+\-*\/^<>=!&|~$:]/;return{startState:function(e){return{tokenize:n,ctx:{type:"top",indent:-t.indentUnit,align:!1},indent:0,afterIdent:!1}},token:function(t,e){if(t.sol()&&(null==e.ctx.align&&(e.ctx.align=!1),e.indent=t.indentation()),t.eatSpace())return null;var n=e.tokenize(t,e);"comment"!=n&&null==e.ctx.align&&(e.ctx.align=!0);var r=e.ctx.type;return";"!=o&&"{"!=o&&"}"!=o||"block"!=r||a(e),"{"==o?i(e,"}",t):"("==o?(i(e,")",t),e.afterIdent&&(e.ctx.argList=!0)):"["==o?i(e,"]",t):"block"==o?i(e,"block",t):o==r&&a(e),e.afterIdent="variable"==n||"keyword"==n,n},indent:function(e,r){if(e.tokenize!=n)return 0;var i=r&&r.charAt(0),a=e.ctx,o=i==a.type;return"block"==a.type?a.indent+("{"==i?0:t.indentUnit):a.align?a.column+(o?0:1):a.indent+(o?0:t.indentUnit)}}}),CodeMirror.defineMIME("text/x-rsrc","r");