Mercurial
comparison .cms/lib/codemirror/mode/r/r.js @ 0:78edf6b517a0 draft
24.10
author | Coffee CMS <info@coffee-cms.ru> |
---|---|
date | Fri, 11 Oct 2024 22:40:23 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:78edf6b517a0 |
---|---|
1 // CodeMirror, copyright (c) by Marijn Haverbeke and others | |
2 // Distributed under an MIT license: https://codemirror.net/5/LICENSE | |
3 | |
4 (function(mod) { | |
5 if (typeof exports == "object" && typeof module == "object") // CommonJS | |
6 mod(require("../../lib/codemirror")); | |
7 else if (typeof define == "function" && define.amd) // AMD | |
8 define(["../../lib/codemirror"], mod); | |
9 else // Plain browser env | |
10 mod(CodeMirror); | |
11 })(function(CodeMirror) { | |
12 "use strict"; | |
13 | |
14 CodeMirror.registerHelper("wordChars", "r", /[\w.]/); | |
15 | |
16 CodeMirror.defineMode("r", function(config) { | |
17 function wordObj(words) { | |
18 var res = {}; | |
19 for (var i = 0; i < words.length; ++i) res[words[i]] = true; | |
20 return res; | |
21 } | |
22 var commonAtoms = ["NULL", "NA", "Inf", "NaN", "NA_integer_", "NA_real_", "NA_complex_", "NA_character_", "TRUE", "FALSE"]; | |
23 var commonBuiltins = ["list", "quote", "bquote", "eval", "return", "call", "parse", "deparse"]; | |
24 var commonKeywords = ["if", "else", "repeat", "while", "function", "for", "in", "next", "break"]; | |
25 var commonBlockKeywords = ["if", "else", "repeat", "while", "function", "for"]; | |
26 | |
27 CodeMirror.registerHelper("hintWords", "r", commonAtoms.concat(commonBuiltins, commonKeywords)); | |
28 | |
29 var atoms = wordObj(commonAtoms); | |
30 var builtins = wordObj(commonBuiltins); | |
31 var keywords = wordObj(commonKeywords); | |
32 var blockkeywords = wordObj(commonBlockKeywords); | |
33 var opChars = /[+\-*\/^<>=!&|~$:]/; | |
34 var curPunc; | |
35 | |
36 function tokenBase(stream, state) { | |
37 curPunc = null; | |
38 var ch = stream.next(); | |
39 if (ch == "#") { | |
40 stream.skipToEnd(); | |
41 return "comment"; | |
42 } else if (ch == "0" && stream.eat("x")) { | |
43 stream.eatWhile(/[\da-f]/i); | |
44 return "number"; | |
45 } else if (ch == "." && stream.eat(/\d/)) { | |
46 stream.match(/\d*(?:e[+\-]?\d+)?/); | |
47 return "number"; | |
48 } else if (/\d/.test(ch)) { | |
49 stream.match(/\d*(?:\.\d+)?(?:e[+\-]\d+)?L?/); | |
50 return "number"; | |
51 } else if (ch == "'" || ch == '"') { | |
52 state.tokenize = tokenString(ch); | |
53 return "string"; | |
54 } else if (ch == "`") { | |
55 stream.match(/[^`]+`/); | |
56 return "variable-3"; | |
57 } else if (ch == "." && stream.match(/.(?:[.]|\d+)/)) { | |
58 return "keyword"; | |
59 } else if (/[a-zA-Z\.]/.test(ch)) { | |
60 stream.eatWhile(/[\w\.]/); | |
61 var word = stream.current(); | |
62 if (atoms.propertyIsEnumerable(word)) return "atom"; | |
63 if (keywords.propertyIsEnumerable(word)) { | |
64 // Block keywords start new blocks, except 'else if', which only starts | |
65 // one new block for the 'if', no block for the 'else'. | |
66 if (blockkeywords.propertyIsEnumerable(word) && | |
67 !stream.match(/\s*if(\s+|$)/, false)) | |
68 curPunc = "block"; | |
69 return "keyword"; | |
70 } | |
71 if (builtins.propertyIsEnumerable(word)) return "builtin"; | |
72 return "variable"; | |
73 } else if (ch == "%") { | |
74 if (stream.skipTo("%")) stream.next(); | |
75 return "operator variable-2"; | |
76 } else if ( | |
77 (ch == "<" && stream.eat("-")) || | |
78 (ch == "<" && stream.match("<-")) || | |
79 (ch == "-" && stream.match(/>>?/)) | |
80 ) { | |
81 return "operator arrow"; | |
82 } else if (ch == "=" && state.ctx.argList) { | |
83 return "arg-is"; | |
84 } else if (opChars.test(ch)) { | |
85 if (ch == "$") return "operator dollar"; | |
86 stream.eatWhile(opChars); | |
87 return "operator"; | |
88 } else if (/[\(\){}\[\];]/.test(ch)) { | |
89 curPunc = ch; | |
90 if (ch == ";") return "semi"; | |
91 return null; | |
92 } else { | |
93 return null; | |
94 } | |
95 } | |
96 | |
97 function tokenString(quote) { | |
98 return function(stream, state) { | |
99 if (stream.eat("\\")) { | |
100 var ch = stream.next(); | |
101 if (ch == "x") stream.match(/^[a-f0-9]{2}/i); | |
102 else if ((ch == "u" || ch == "U") && stream.eat("{") && stream.skipTo("}")) stream.next(); | |
103 else if (ch == "u") stream.match(/^[a-f0-9]{4}/i); | |
104 else if (ch == "U") stream.match(/^[a-f0-9]{8}/i); | |
105 else if (/[0-7]/.test(ch)) stream.match(/^[0-7]{1,2}/); | |
106 return "string-2"; | |
107 } else { | |
108 var next; | |
109 while ((next = stream.next()) != null) { | |
110 if (next == quote) { state.tokenize = tokenBase; break; } | |
111 if (next == "\\") { stream.backUp(1); break; } | |
112 } | |
113 return "string"; | |
114 } | |
115 }; | |
116 } | |
117 | |
118 var ALIGN_YES = 1, ALIGN_NO = 2, BRACELESS = 4 | |
119 | |
120 function push(state, type, stream) { | |
121 state.ctx = {type: type, | |
122 indent: state.indent, | |
123 flags: 0, | |
124 column: stream.column(), | |
125 prev: state.ctx}; | |
126 } | |
127 function setFlag(state, flag) { | |
128 var ctx = state.ctx | |
129 state.ctx = {type: ctx.type, | |
130 indent: ctx.indent, | |
131 flags: ctx.flags | flag, | |
132 column: ctx.column, | |
133 prev: ctx.prev} | |
134 } | |
135 function pop(state) { | |
136 state.indent = state.ctx.indent; | |
137 state.ctx = state.ctx.prev; | |
138 } | |
139 | |
140 return { | |
141 startState: function() { | |
142 return {tokenize: tokenBase, | |
143 ctx: {type: "top", | |
144 indent: -config.indentUnit, | |
145 flags: ALIGN_NO}, | |
146 indent: 0, | |
147 afterIdent: false}; | |
148 }, | |
149 | |
150 token: function(stream, state) { | |
151 if (stream.sol()) { | |
152 if ((state.ctx.flags & 3) == 0) state.ctx.flags |= ALIGN_NO | |
153 if (state.ctx.flags & BRACELESS) pop(state) | |
154 state.indent = stream.indentation(); | |
155 } | |
156 if (stream.eatSpace()) return null; | |
157 var style = state.tokenize(stream, state); | |
158 if (style != "comment" && (state.ctx.flags & ALIGN_NO) == 0) setFlag(state, ALIGN_YES) | |
159 | |
160 if ((curPunc == ";" || curPunc == "{" || curPunc == "}") && state.ctx.type == "block") pop(state); | |
161 if (curPunc == "{") push(state, "}", stream); | |
162 else if (curPunc == "(") { | |
163 push(state, ")", stream); | |
164 if (state.afterIdent) state.ctx.argList = true; | |
165 } | |
166 else if (curPunc == "[") push(state, "]", stream); | |
167 else if (curPunc == "block") push(state, "block", stream); | |
168 else if (curPunc == state.ctx.type) pop(state); | |
169 else if (state.ctx.type == "block" && style != "comment") setFlag(state, BRACELESS) | |
170 state.afterIdent = style == "variable" || style == "keyword"; | |
171 return style; | |
172 }, | |
173 | |
174 indent: function(state, textAfter) { | |
175 if (state.tokenize != tokenBase) return 0; | |
176 var firstChar = textAfter && textAfter.charAt(0), ctx = state.ctx, | |
177 closing = firstChar == ctx.type; | |
178 if (ctx.flags & BRACELESS) ctx = ctx.prev | |
179 if (ctx.type == "block") return ctx.indent + (firstChar == "{" ? 0 : config.indentUnit); | |
180 else if (ctx.flags & ALIGN_YES) return ctx.column + (closing ? 0 : 1); | |
181 else return ctx.indent + (closing ? 0 : config.indentUnit); | |
182 }, | |
183 | |
184 lineComment: "#" | |
185 }; | |
186 }); | |
187 | |
188 CodeMirror.defineMIME("text/x-rsrc", "r"); | |
189 | |
190 }); |