@kerebron/legacy-compat 0.6.3
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +108 -0
- package/dist/__vite-browser-external-C8P1ckfS.js +56007 -0
- package/dist/__vite-browser-external-C8P1ckfS.js.map +1 -0
- package/dist/apl-B2DGVGxc.js +77 -0
- package/dist/apl-B2DGVGxc.js.map +1 -0
- package/dist/asciiarmor-2LVJmxlE.js +35 -0
- package/dist/asciiarmor-2LVJmxlE.js.map +1 -0
- package/dist/asn1-jKiBa2Ya.js +96 -0
- package/dist/asn1-jKiBa2Ya.js.map +1 -0
- package/dist/asterisk-DS281yxp.js +272 -0
- package/dist/asterisk-DS281yxp.js.map +1 -0
- package/dist/brainfuck-C_p9pTT8.js +35 -0
- package/dist/brainfuck-C_p9pTT8.js.map +1 -0
- package/dist/clike-DE3V9X8-.js +616 -0
- package/dist/clike-DE3V9X8-.js.map +1 -0
- package/dist/clojure-CCKyeQKf.js +801 -0
- package/dist/clojure-CCKyeQKf.js.map +1 -0
- package/dist/cmake-CuaCgAKt.js +29 -0
- package/dist/cmake-CuaCgAKt.js.map +1 -0
- package/dist/cobol-BlTKFDRj.js +73 -0
- package/dist/cobol-BlTKFDRj.js.map +1 -0
- package/dist/coffeescript-BVCvwO8I.js +180 -0
- package/dist/coffeescript-BVCvwO8I.js.map +1 -0
- package/dist/commonlisp-D_kxz07b.js +76 -0
- package/dist/commonlisp-D_kxz07b.js.map +1 -0
- package/dist/crystal-D309uH6_.js +218 -0
- package/dist/crystal-D309uH6_.js.map +1 -0
- package/dist/cypher-BMq4Fwjl.js +69 -0
- package/dist/cypher-BMq4Fwjl.js.map +1 -0
- package/dist/d-BZcgY6La.js +128 -0
- package/dist/d-BZcgY6La.js.map +1 -0
- package/dist/diff-Cg9d_RX2.js +19 -0
- package/dist/diff-Cg9d_RX2.js.map +1 -0
- package/dist/dockerfile-DIy8NleC.js +195 -0
- package/dist/dockerfile-DIy8NleC.js.map +1 -0
- package/dist/dtd-CtLokQ-U.js +85 -0
- package/dist/dtd-CtLokQ-U.js.map +1 -0
- package/dist/dylan-QYeExnWK.js +235 -0
- package/dist/dylan-QYeExnWK.js.map +1 -0
- package/dist/ebnf-DUPDuY4r.js +79 -0
- package/dist/ebnf-DUPDuY4r.js.map +1 -0
- package/dist/ecl-CiXN-g_D.js +122 -0
- package/dist/ecl-CiXN-g_D.js.map +1 -0
- package/dist/eiffel-yQhjl4T1.js +111 -0
- package/dist/eiffel-yQhjl4T1.js.map +1 -0
- package/dist/elm-CNT9vbN0.js +109 -0
- package/dist/elm-CNT9vbN0.js.map +1 -0
- package/dist/erlang-CFOYdy9e.js +488 -0
- package/dist/erlang-CFOYdy9e.js.map +1 -0
- package/dist/factor-DDOC7X6P.js +66 -0
- package/dist/factor-DDOC7X6P.js.map +1 -0
- package/dist/fcl-CPC2WYrI.js +104 -0
- package/dist/fcl-CPC2WYrI.js.map +1 -0
- package/dist/forth-BmxRyE9S.js +61 -0
- package/dist/forth-BmxRyE9S.js.map +1 -0
- package/dist/fortran-9bvPyrOW.js +443 -0
- package/dist/fortran-9bvPyrOW.js.map +1 -0
- package/dist/gas-cpmYfFX2.js +184 -0
- package/dist/gas-cpmYfFX2.js.map +1 -0
- package/dist/gherkin-CJuwpceU.js +35 -0
- package/dist/gherkin-CJuwpceU.js.map +1 -0
- package/dist/go-BHVhI2MG.js +156 -0
- package/dist/go-BHVhI2MG.js.map +1 -0
- package/dist/groovy-DZeT_VM-.js +147 -0
- package/dist/groovy-DZeT_VM-.js.map +1 -0
- package/dist/haskell-CxiO_7JL.js +376 -0
- package/dist/haskell-CxiO_7JL.js.map +1 -0
- package/dist/haxe-BhV0x0nk.js +337 -0
- package/dist/haxe-BhV0x0nk.js.map +1 -0
- package/dist/http-D9LttvKF.js +45 -0
- package/dist/http-D9LttvKF.js.map +1 -0
- package/dist/idl-B6TRFYjl.js +948 -0
- package/dist/idl-B6TRFYjl.js.map +1 -0
- package/dist/index-3ZSzAD46.js +63 -0
- package/dist/index-3ZSzAD46.js.map +1 -0
- package/dist/index-4h94vbv1.js +566 -0
- package/dist/index-4h94vbv1.js.map +1 -0
- package/dist/index-BAvKq317.js +961 -0
- package/dist/index-BAvKq317.js.map +1 -0
- package/dist/index-BHdiR3sn.js +613 -0
- package/dist/index-BHdiR3sn.js.map +1 -0
- package/dist/index-BnFQ_MuW.js +95 -0
- package/dist/index-BnFQ_MuW.js.map +1 -0
- package/dist/index-BqHwEvbm.js +139 -0
- package/dist/index-BqHwEvbm.js.map +1 -0
- package/dist/index-Bt60d9tl.js +60 -0
- package/dist/index-Bt60d9tl.js.map +1 -0
- package/dist/index-CLnSITym.js +1306 -0
- package/dist/index-CLnSITym.js.map +1 -0
- package/dist/index-D4axvsgA.js +158 -0
- package/dist/index-D4axvsgA.js.map +1 -0
- package/dist/index-DCtMPiGL.js +77 -0
- package/dist/index-DCtMPiGL.js.map +1 -0
- package/dist/index-DbR4C70d.js +554 -0
- package/dist/index-DbR4C70d.js.map +1 -0
- package/dist/index-Dgs7p3d5.js +303 -0
- package/dist/index-Dgs7p3d5.js.map +1 -0
- package/dist/index-Diy176Rq.js +946 -0
- package/dist/index-Diy176Rq.js.map +1 -0
- package/dist/index-I2kdiwDu.js +1918 -0
- package/dist/index-I2kdiwDu.js.map +1 -0
- package/dist/index-L0u_VcRQ.js +310 -0
- package/dist/index-L0u_VcRQ.js.map +1 -0
- package/dist/jinja2-DnB6dQmV.js +155 -0
- package/dist/jinja2-DnB6dQmV.js.map +1 -0
- package/dist/julia-DpvXAuO6.js +242 -0
- package/dist/julia-DpvXAuO6.js.map +1 -0
- package/dist/kerebron-light.css +1 -0
- package/dist/kerebron.css +1 -0
- package/dist/kerebron.js +7 -0
- package/dist/kerebron.js.map +1 -0
- package/dist/livescript-CanGTf8u.js +273 -0
- package/dist/livescript-CanGTf8u.js.map +1 -0
- package/dist/lua-XplVlWi_.js +218 -0
- package/dist/lua-XplVlWi_.js.map +1 -0
- package/dist/mathematica-jaRHnSxC.js +36 -0
- package/dist/mathematica-jaRHnSxC.js.map +1 -0
- package/dist/mbox-BctzC1hL.js +77 -0
- package/dist/mbox-BctzC1hL.js.map +1 -0
- package/dist/mirc-CFBPAOaF.js +73 -0
- package/dist/mirc-CFBPAOaF.js.map +1 -0
- package/dist/mllike-gvRenHsu.js +273 -0
- package/dist/mllike-gvRenHsu.js.map +1 -0
- package/dist/modelica-vUgVs--1.js +94 -0
- package/dist/modelica-vUgVs--1.js.map +1 -0
- package/dist/mscgen-ucEwbOaK.js +82 -0
- package/dist/mscgen-ucEwbOaK.js.map +1 -0
- package/dist/mumps-CQoS1kWX.js +26 -0
- package/dist/mumps-CQoS1kWX.js.map +1 -0
- package/dist/nginx-zDPm3Z74.js +90 -0
- package/dist/nginx-zDPm3Z74.js.map +1 -0
- package/dist/nsis-fePjrhq7.js +63 -0
- package/dist/nsis-fePjrhq7.js.map +1 -0
- package/dist/ntriples-CsNjv2QF.js +80 -0
- package/dist/ntriples-CsNjv2QF.js.map +1 -0
- package/dist/octave-C8PmmSRH.js +144 -0
- package/dist/octave-C8PmmSRH.js.map +1 -0
- package/dist/odt_parser.internal-CYdkAHGB.js +258 -0
- package/dist/odt_parser.internal-CYdkAHGB.js.map +1 -0
- package/dist/oz-Ce8aN8oE.js +152 -0
- package/dist/oz-Ce8aN8oE.js.map +1 -0
- package/dist/pascal-De0D6mP7.js +78 -0
- package/dist/pascal-De0D6mP7.js.map +1 -0
- package/dist/perl-B4bSCe1C.js +916 -0
- package/dist/perl-B4bSCe1C.js.map +1 -0
- package/dist/pig-D24Z8EXi.js +55 -0
- package/dist/pig-D24Z8EXi.js.map +1 -0
- package/dist/powershell-DkYVfTzP.js +250 -0
- package/dist/powershell-DkYVfTzP.js.map +1 -0
- package/dist/properties-Dn9wna3M.js +27 -0
- package/dist/properties-Dn9wna3M.js.map +1 -0
- package/dist/protobuf-BPIjwpzm.js +50 -0
- package/dist/protobuf-BPIjwpzm.js.map +1 -0
- package/dist/puppet-nyd4dhjf.js +46 -0
- package/dist/puppet-nyd4dhjf.js.map +1 -0
- package/dist/q-DXjKs-tC.js +84 -0
- package/dist/q-DXjKs-tC.js.map +1 -0
- package/dist/r-LKEuhEGI.js +105 -0
- package/dist/r-LKEuhEGI.js.map +1 -0
- package/dist/rpm-BoAefZZ1.js +50 -0
- package/dist/rpm-BoAefZZ1.js.map +1 -0
- package/dist/ruby-CcYfvIk6.js +229 -0
- package/dist/ruby-CcYfvIk6.js.map +1 -0
- package/dist/sas-7E8yHoCW.js +106 -0
- package/dist/sas-7E8yHoCW.js.map +1 -0
- package/dist/scheme-DjibxsNh.js +125 -0
- package/dist/scheme-DjibxsNh.js.map +1 -0
- package/dist/shell-C0C2sNA_.js +183 -0
- package/dist/shell-C0C2sNA_.js.map +1 -0
- package/dist/simple-mode-B0dvCdAA.js +90 -0
- package/dist/simple-mode-B0dvCdAA.js.map +1 -0
- package/dist/smalltalk-Bhddl2pB.js +49 -0
- package/dist/smalltalk-Bhddl2pB.js.map +1 -0
- package/dist/solr-BNlsLglM.js +42 -0
- package/dist/solr-BNlsLglM.js.map +1 -0
- package/dist/sparql-FarWu_Gb.js +198 -0
- package/dist/sparql-FarWu_Gb.js.map +1 -0
- package/dist/spreadsheet-C-cy4P5N.js +50 -0
- package/dist/spreadsheet-C-cy4P5N.js.map +1 -0
- package/dist/stex-Du4h4KAU.js +130 -0
- package/dist/stex-Du4h4KAU.js.map +1 -0
- package/dist/stylus-DRcbY16X.js +251 -0
- package/dist/stylus-DRcbY16X.js.map +1 -0
- package/dist/swift-DSxqR9R6.js +231 -0
- package/dist/swift-DSxqR9R6.js.map +1 -0
- package/dist/tcl-xfoLljhY.js +82 -0
- package/dist/tcl-xfoLljhY.js.map +1 -0
- package/dist/textile-D1AWE-pc.js +296 -0
- package/dist/textile-D1AWE-pc.js.map +1 -0
- package/dist/tiddlywiki-5wqsXtSk.js +156 -0
- package/dist/tiddlywiki-5wqsXtSk.js.map +1 -0
- package/dist/tiki-__Kn3CeS.js +182 -0
- package/dist/tiki-__Kn3CeS.js.map +1 -0
- package/dist/toml-BHiuTcfn.js +50 -0
- package/dist/toml-BHiuTcfn.js.map +1 -0
- package/dist/troff-D2UO-fKf.js +36 -0
- package/dist/troff-D2UO-fKf.js.map +1 -0
- package/dist/ttcn-Bsa4sfRm.js +124 -0
- package/dist/ttcn-Bsa4sfRm.js.map +1 -0
- package/dist/turtle-xwJUxoPV.js +81 -0
- package/dist/turtle-xwJUxoPV.js.map +1 -0
- package/dist/vb-c2kQGd6-.js +75 -0
- package/dist/vb-c2kQGd6-.js.map +1 -0
- package/dist/vbscript-1f_Dhg5H.js +325 -0
- package/dist/vbscript-1f_Dhg5H.js.map +1 -0
- package/dist/velocity-DJd0pTTC.js +97 -0
- package/dist/velocity-DJd0pTTC.js.map +1 -0
- package/dist/verilog-CiS1jyi5.js +263 -0
- package/dist/verilog-CiS1jyi5.js.map +1 -0
- package/dist/vhdl-T9HkrbI2.js +107 -0
- package/dist/vhdl-T9HkrbI2.js.map +1 -0
- package/dist/webidl-CjfDENEo.js +156 -0
- package/dist/webidl-CjfDENEo.js.map +1 -0
- package/dist/xquery-Ct6lEb4B.js +423 -0
- package/dist/xquery-Ct6lEb4B.js.map +1 -0
- package/dist/yacas-C0absKBh.js +74 -0
- package/dist/yacas-C0absKBh.js.map +1 -0
- package/dist/yaml-Dt6Tp2eU.js +54 -0
- package/dist/yaml-Dt6Tp2eU.js.map +1 -0
- package/dist/z80-Pki2zAjW.js +62 -0
- package/dist/z80-Pki2zAjW.js.map +1 -0
- package/package.json +16 -0
|
@@ -0,0 +1,104 @@
|
|
|
1
|
+
var d = {
|
|
2
|
+
term: !0,
|
|
3
|
+
method: !0,
|
|
4
|
+
accu: !0,
|
|
5
|
+
rule: !0,
|
|
6
|
+
then: !0,
|
|
7
|
+
is: !0,
|
|
8
|
+
and: !0,
|
|
9
|
+
or: !0,
|
|
10
|
+
if: !0,
|
|
11
|
+
default: !0
|
|
12
|
+
}, f = {
|
|
13
|
+
var_input: !0,
|
|
14
|
+
var_output: !0,
|
|
15
|
+
fuzzify: !0,
|
|
16
|
+
defuzzify: !0,
|
|
17
|
+
function_block: !0,
|
|
18
|
+
ruleblock: !0
|
|
19
|
+
}, o = {
|
|
20
|
+
end_ruleblock: !0,
|
|
21
|
+
end_defuzzify: !0,
|
|
22
|
+
end_function_block: !0,
|
|
23
|
+
end_fuzzify: !0,
|
|
24
|
+
end_var: !0
|
|
25
|
+
}, p = {
|
|
26
|
+
true: !0,
|
|
27
|
+
false: !0,
|
|
28
|
+
nan: !0,
|
|
29
|
+
real: !0,
|
|
30
|
+
min: !0,
|
|
31
|
+
max: !0,
|
|
32
|
+
cog: !0,
|
|
33
|
+
cogs: !0
|
|
34
|
+
}, l = /[+\-*&^%:=<>!|\/]/;
|
|
35
|
+
function i(e, n) {
|
|
36
|
+
var t = e.next();
|
|
37
|
+
if (/[\d\.]/.test(t))
|
|
38
|
+
return t == "." ? e.match(/^[0-9]+([eE][\-+]?[0-9]+)?/) : t == "0" ? e.match(/^[xX][0-9a-fA-F]+/) || e.match(/^0[0-7]+/) : e.match(/^[0-9]*\.?[0-9]*([eE][\-+]?[0-9]+)?/), "number";
|
|
39
|
+
if (t == "/" || t == "(") {
|
|
40
|
+
if (e.eat("*"))
|
|
41
|
+
return n.tokenize = c, c(e, n);
|
|
42
|
+
if (e.eat("/"))
|
|
43
|
+
return e.skipToEnd(), "comment";
|
|
44
|
+
}
|
|
45
|
+
if (l.test(t))
|
|
46
|
+
return e.eatWhile(l), "operator";
|
|
47
|
+
e.eatWhile(/[\w\$_\xa1-\uffff]/);
|
|
48
|
+
var r = e.current().toLowerCase();
|
|
49
|
+
return d.propertyIsEnumerable(r) || f.propertyIsEnumerable(r) || o.propertyIsEnumerable(r) ? "keyword" : p.propertyIsEnumerable(r) ? "atom" : "variable";
|
|
50
|
+
}
|
|
51
|
+
function c(e, n) {
|
|
52
|
+
for (var t = !1, r; r = e.next(); ) {
|
|
53
|
+
if ((r == "/" || r == ")") && t) {
|
|
54
|
+
n.tokenize = i;
|
|
55
|
+
break;
|
|
56
|
+
}
|
|
57
|
+
t = r == "*";
|
|
58
|
+
}
|
|
59
|
+
return "comment";
|
|
60
|
+
}
|
|
61
|
+
function a(e, n, t, r, u) {
|
|
62
|
+
this.indented = e, this.column = n, this.type = t, this.align = r, this.prev = u;
|
|
63
|
+
}
|
|
64
|
+
function k(e, n, t) {
|
|
65
|
+
return e.context = new a(e.indented, n, t, null, e.context);
|
|
66
|
+
}
|
|
67
|
+
function v(e) {
|
|
68
|
+
if (e.context.prev) {
|
|
69
|
+
var n = e.context.type;
|
|
70
|
+
return n == "end_block" && (e.indented = e.context.indented), e.context = e.context.prev;
|
|
71
|
+
}
|
|
72
|
+
}
|
|
73
|
+
const x = {
|
|
74
|
+
name: "fcl",
|
|
75
|
+
startState: function(e) {
|
|
76
|
+
return {
|
|
77
|
+
tokenize: null,
|
|
78
|
+
context: new a(-e, 0, "top", !1),
|
|
79
|
+
indented: 0,
|
|
80
|
+
startOfLine: !0
|
|
81
|
+
};
|
|
82
|
+
},
|
|
83
|
+
token: function(e, n) {
|
|
84
|
+
var t = n.context;
|
|
85
|
+
if (e.sol() && (t.align == null && (t.align = !1), n.indented = e.indentation(), n.startOfLine = !0), e.eatSpace()) return null;
|
|
86
|
+
var r = (n.tokenize || i)(e, n);
|
|
87
|
+
if (r == "comment") return r;
|
|
88
|
+
t.align == null && (t.align = !0);
|
|
89
|
+
var u = e.current().toLowerCase();
|
|
90
|
+
return f.propertyIsEnumerable(u) ? k(n, e.column(), "end_block") : o.propertyIsEnumerable(u) && v(n), n.startOfLine = !1, r;
|
|
91
|
+
},
|
|
92
|
+
indent: function(e, n, t) {
|
|
93
|
+
if (e.tokenize != i && e.tokenize != null) return 0;
|
|
94
|
+
var r = e.context, u = o.propertyIsEnumerable(n);
|
|
95
|
+
return r.align ? r.column + (u ? 0 : 1) : r.indented + (u ? 0 : t.unit);
|
|
96
|
+
},
|
|
97
|
+
languageData: {
|
|
98
|
+
commentTokens: { line: "//", block: { open: "(*", close: "*)" } }
|
|
99
|
+
}
|
|
100
|
+
};
|
|
101
|
+
export {
|
|
102
|
+
x as fcl
|
|
103
|
+
};
|
|
104
|
+
//# sourceMappingURL=fcl-CPC2WYrI.js.map
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"fcl-CPC2WYrI.js","sources":["../../../node_modules/.deno/@codemirror+legacy-modes@6.5.0/node_modules/@codemirror/legacy-modes/mode/fcl.js"],"sourcesContent":["var keywords = {\n \"term\": true,\n \"method\": true, \"accu\": true,\n \"rule\": true, \"then\": true, \"is\": true, \"and\": true, \"or\": true,\n \"if\": true, \"default\": true\n};\n\nvar start_blocks = {\n \"var_input\": true,\n \"var_output\": true,\n \"fuzzify\": true,\n \"defuzzify\": true,\n \"function_block\": true,\n \"ruleblock\": true\n};\n\nvar end_blocks = {\n \"end_ruleblock\": true,\n \"end_defuzzify\": true,\n \"end_function_block\": true,\n \"end_fuzzify\": true,\n \"end_var\": true\n};\n\nvar atoms = {\n \"true\": true, \"false\": true, \"nan\": true,\n \"real\": true, \"min\": true, \"max\": true, \"cog\": true, \"cogs\": true\n};\n\nvar isOperatorChar = /[+\\-*&^%:=<>!|\\/]/;\n\nfunction tokenBase(stream, state) {\n var ch = stream.next();\n\n if (/[\\d\\.]/.test(ch)) {\n if (ch == \".\") {\n stream.match(/^[0-9]+([eE][\\-+]?[0-9]+)?/);\n } else if (ch == \"0\") {\n stream.match(/^[xX][0-9a-fA-F]+/) || stream.match(/^0[0-7]+/);\n } else {\n stream.match(/^[0-9]*\\.?[0-9]*([eE][\\-+]?[0-9]+)?/);\n }\n return \"number\";\n }\n\n if (ch == \"/\" || ch == \"(\") {\n if (stream.eat(\"*\")) {\n state.tokenize = tokenComment;\n return tokenComment(stream, state);\n }\n if (stream.eat(\"/\")) {\n stream.skipToEnd();\n return \"comment\";\n }\n }\n if (isOperatorChar.test(ch)) {\n stream.eatWhile(isOperatorChar);\n return \"operator\";\n }\n stream.eatWhile(/[\\w\\$_\\xa1-\\uffff]/);\n\n var cur = stream.current().toLowerCase();\n if (keywords.propertyIsEnumerable(cur) ||\n start_blocks.propertyIsEnumerable(cur) ||\n end_blocks.propertyIsEnumerable(cur)) {\n return \"keyword\";\n }\n if (atoms.propertyIsEnumerable(cur)) return \"atom\";\n return \"variable\";\n}\n\n\nfunction tokenComment(stream, state) {\n var maybeEnd = false, ch;\n while (ch = stream.next()) {\n if ((ch == \"/\" || ch == \")\") && maybeEnd) {\n state.tokenize = tokenBase;\n break;\n }\n maybeEnd = (ch == \"*\");\n }\n return \"comment\";\n}\n\nfunction Context(indented, column, type, align, prev) {\n this.indented = indented;\n this.column = column;\n this.type = type;\n this.align = align;\n this.prev = prev;\n}\n\nfunction pushContext(state, col, type) {\n return state.context = new Context(state.indented, col, type, null, state.context);\n}\n\nfunction popContext(state) {\n if (!state.context.prev) return;\n var t = state.context.type;\n if (t == \"end_block\")\n state.indented = state.context.indented;\n return state.context = state.context.prev;\n}\n\n// Interface\n\nexport const fcl = {\n name: \"fcl\",\n startState: function(indentUnit) {\n return {\n tokenize: null,\n context: new Context(-indentUnit, 0, \"top\", false),\n indented: 0,\n startOfLine: true\n };\n },\n\n token: function(stream, state) {\n var ctx = state.context;\n if (stream.sol()) {\n if (ctx.align == null) ctx.align = false;\n state.indented = stream.indentation();\n state.startOfLine = true;\n }\n if (stream.eatSpace()) return null;\n\n var style = (state.tokenize || tokenBase)(stream, state);\n if (style == \"comment\") return style;\n if (ctx.align == null) ctx.align = true;\n\n var cur = stream.current().toLowerCase();\n\n if (start_blocks.propertyIsEnumerable(cur)) pushContext(state, stream.column(), \"end_block\");\n else if (end_blocks.propertyIsEnumerable(cur)) popContext(state);\n\n state.startOfLine = false;\n return style;\n },\n\n indent: function(state, textAfter, cx) {\n if (state.tokenize != tokenBase && state.tokenize != null) return 0;\n var ctx = state.context;\n\n var closing = end_blocks.propertyIsEnumerable(textAfter);\n if (ctx.align) return ctx.column + (closing ? 0 : 1);\n else return ctx.indented + (closing ? 0 : cx.unit);\n },\n\n languageData: {\n commentTokens: {line: \"//\", block: {open: \"(*\", close: \"*)\"}}\n }\n};\n\n"],"names":["keywords","start_blocks","end_blocks","atoms","isOperatorChar","tokenBase","stream","state","ch","tokenComment","cur","maybeEnd","Context","indented","column","type","align","prev","pushContext","col","popContext","t","fcl","indentUnit","ctx","style","textAfter","cx","closing"],"mappings":"AAAA,IAAIA,IAAW;AAAA,EACb,MAAQ;AAAA,EACR,QAAU;AAAA,EAAM,MAAQ;AAAA,EACxB,MAAQ;AAAA,EAAM,MAAQ;AAAA,EAAM,IAAM;AAAA,EAAM,KAAO;AAAA,EAAM,IAAM;AAAA,EAC3D,IAAM;AAAA,EAAM,SAAW;AACzB,GAEIC,IAAe;AAAA,EACjB,WAAa;AAAA,EACb,YAAc;AAAA,EACd,SAAW;AAAA,EACX,WAAa;AAAA,EACb,gBAAkB;AAAA,EAClB,WAAa;AACf,GAEIC,IAAa;AAAA,EACf,eAAiB;AAAA,EACjB,eAAiB;AAAA,EACjB,oBAAsB;AAAA,EACtB,aAAe;AAAA,EACf,SAAW;AACb,GAEIC,IAAQ;AAAA,EACV,MAAQ;AAAA,EAAM,OAAS;AAAA,EAAM,KAAO;AAAA,EACpC,MAAQ;AAAA,EAAM,KAAO;AAAA,EAAM,KAAO;AAAA,EAAM,KAAO;AAAA,EAAM,MAAQ;AAC/D,GAEIC,IAAiB;AAErB,SAASC,EAAUC,GAAQC,GAAO;AAChC,MAAIC,IAAKF,EAAO,KAAI;AAEpB,MAAI,SAAS,KAAKE,CAAE;AAClB,WAAIA,KAAM,MACRF,EAAO,MAAM,4BAA4B,IAChCE,KAAM,MACfF,EAAO,MAAM,mBAAmB,KAAKA,EAAO,MAAM,UAAU,IAE5DA,EAAO,MAAM,qCAAqC,GAE7C;AAGT,MAAIE,KAAM,OAAOA,KAAM,KAAK;AAC1B,QAAIF,EAAO,IAAI,GAAG;AAChB,aAAAC,EAAM,WAAWE,GACVA,EAAaH,GAAQC,CAAK;AAEnC,QAAID,EAAO,IAAI,GAAG;AAChB,aAAAA,EAAO,UAAS,GACT;AAAA,EAEX;AACA,MAAIF,EAAe,KAAKI,CAAE;AACxB,WAAAF,EAAO,SAASF,CAAc,GACvB;AAET,EAAAE,EAAO,SAAS,oBAAoB;AAEpC,MAAII,IAAMJ,EAAO,QAAO,EAAG,YAAW;AACtC,SAAIN,EAAS,qBAAqBU,CAAG,KACjCT,EAAa,qBAAqBS,CAAG,KACrCR,EAAW,qBAAqBQ,CAAG,IAC9B,YAELP,EAAM,qBAAqBO,CAAG,IAAU,SACrC;AACT;AAGA,SAASD,EAAaH,GAAQC,GAAO;AAEnC,WADII,IAAW,IAAOH,GACfA,IAAKF,EAAO,UAAQ;AACzB,SAAKE,KAAM,OAAOA,KAAM,QAAQG,GAAU;AACxC,MAAAJ,EAAM,WAAWF;AACjB;AAAA,IACF;AACA,IAAAM,IAAYH,KAAM;AAAA,EACpB;AACA,SAAO;AACT;AAEA,SAASI,EAAQC,GAAUC,GAAQC,GAAMC,GAAOC,GAAM;AACpD,OAAK,WAAWJ,GAChB,KAAK,SAASC,GACd,KAAK,OAAOC,GACZ,KAAK,QAAQC,GACb,KAAK,OAAOC;AACd;AAEA,SAASC,EAAYX,GAAOY,GAAKJ,GAAM;AACrC,SAAOR,EAAM,UAAU,IAAIK,EAAQL,EAAM,UAAUY,GAAKJ,GAAM,MAAMR,EAAM,OAAO;AACnF;AAEA,SAASa,EAAWb,GAAO;AACzB,MAAKA,EAAM,QAAQ,MACnB;AAAA,QAAIc,IAAId,EAAM,QAAQ;AACtB,WAAIc,KAAK,gBACPd,EAAM,WAAWA,EAAM,QAAQ,WAC1BA,EAAM,UAAUA,EAAM,QAAQ;AAAA;AACvC;AAIY,MAACe,IAAM;AAAA,EACjB,MAAM;AAAA,EACN,YAAY,SAASC,GAAY;AAC/B,WAAO;AAAA,MACL,UAAU;AAAA,MACV,SAAS,IAAIX,EAAQ,CAACW,GAAY,GAAG,OAAO,EAAK;AAAA,MACjD,UAAU;AAAA,MACV,aAAa;AAAA,IACnB;AAAA,EACE;AAAA,EAEA,OAAO,SAASjB,GAAQC,GAAO;AAC7B,QAAIiB,IAAMjB,EAAM;AAMhB,QALID,EAAO,UACLkB,EAAI,SAAS,SAAMA,EAAI,QAAQ,KACnCjB,EAAM,WAAWD,EAAO,YAAW,GACnCC,EAAM,cAAc,KAElBD,EAAO,SAAQ,EAAI,QAAO;AAE9B,QAAImB,KAASlB,EAAM,YAAYF,GAAWC,GAAQC,CAAK;AACvD,QAAIkB,KAAS,UAAW,QAAOA;AAC/B,IAAID,EAAI,SAAS,SAAMA,EAAI,QAAQ;AAEnC,QAAId,IAAMJ,EAAO,QAAO,EAAG,YAAW;AAEtC,WAAIL,EAAa,qBAAqBS,CAAG,IAAGQ,EAAYX,GAAOD,EAAO,OAAM,GAAI,WAAW,IAClFJ,EAAW,qBAAqBQ,CAAG,KAAIU,EAAWb,CAAK,GAEhEA,EAAM,cAAc,IACbkB;AAAA,EACT;AAAA,EAEA,QAAQ,SAASlB,GAAOmB,GAAWC,GAAI;AACrC,QAAIpB,EAAM,YAAYF,KAAaE,EAAM,YAAY,KAAM,QAAO;AAClE,QAAIiB,IAAMjB,EAAM,SAEZqB,IAAU1B,EAAW,qBAAqBwB,CAAS;AACvD,WAAIF,EAAI,QAAcA,EAAI,UAAUI,IAAU,IAAI,KACtCJ,EAAI,YAAYI,IAAU,IAAID,EAAG;AAAA,EAC/C;AAAA,EAEA,cAAc;AAAA,IACZ,eAAe,EAAC,MAAM,MAAM,OAAO,EAAC,MAAM,MAAM,OAAO,KAAI,EAAC;AAAA,EAChE;AACA;","x_google_ignoreList":[0]}
|
|
@@ -0,0 +1,61 @@
|
|
|
1
|
+
function t(i) {
|
|
2
|
+
var n = [];
|
|
3
|
+
return i.split(" ").forEach(function(E) {
|
|
4
|
+
n.push({ name: E });
|
|
5
|
+
}), n;
|
|
6
|
+
}
|
|
7
|
+
var r = t(
|
|
8
|
+
"INVERT AND OR XOR 2* 2/ LSHIFT RSHIFT 0= = 0< < > U< MIN MAX 2DROP 2DUP 2OVER 2SWAP ?DUP DEPTH DROP DUP OVER ROT SWAP >R R> R@ + - 1+ 1- ABS NEGATE S>D * M* UM* FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD HERE , @ ! CELL+ CELLS C, C@ C! CHARS 2@ 2! ALIGN ALIGNED +! ALLOT CHAR [CHAR] [ ] BL FIND EXECUTE IMMEDIATE COUNT LITERAL STATE ; DOES> >BODY EVALUATE SOURCE >IN <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL FILL MOVE . CR EMIT SPACE SPACES TYPE U. .R U.R ACCEPT TRUE FALSE <> U> 0<> 0> NIP TUCK ROLL PICK 2>R 2R@ 2R> WITHIN UNUSED MARKER I J TO COMPILE, [COMPILE] SAVE-INPUT RESTORE-INPUT PAD ERASE 2LITERAL DNEGATE D- D+ D0< D0= D2* D2/ D< D= DMAX DMIN D>S DABS M+ M*/ D. D.R 2ROT DU< CATCH THROW FREE RESIZE ALLOCATE CS-PICK CS-ROLL GET-CURRENT SET-CURRENT FORTH-WORDLIST GET-ORDER SET-ORDER PREVIOUS SEARCH-WORDLIST WORDLIST FIND ALSO ONLY FORTH DEFINITIONS ORDER -TRAILING /STRING SEARCH COMPARE CMOVE CMOVE> BLANK SLITERAL"
|
|
9
|
+
), O = t("IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE [IF] [ELSE] [THEN] ?DO DO LOOP +LOOP UNLOOP LEAVE EXIT AGAIN CASE OF ENDOF ENDCASE");
|
|
10
|
+
function R(i, n) {
|
|
11
|
+
var E;
|
|
12
|
+
for (E = i.length - 1; E >= 0; E--)
|
|
13
|
+
if (i[E].name === n.toUpperCase())
|
|
14
|
+
return i[E];
|
|
15
|
+
}
|
|
16
|
+
const L = {
|
|
17
|
+
name: "forth",
|
|
18
|
+
startState: function() {
|
|
19
|
+
return {
|
|
20
|
+
state: "",
|
|
21
|
+
base: 10,
|
|
22
|
+
coreWordList: r,
|
|
23
|
+
immediateWordList: O,
|
|
24
|
+
wordList: []
|
|
25
|
+
};
|
|
26
|
+
},
|
|
27
|
+
token: function(i, n) {
|
|
28
|
+
var E;
|
|
29
|
+
if (i.eatSpace())
|
|
30
|
+
return null;
|
|
31
|
+
if (n.state === "") {
|
|
32
|
+
if (i.match(/^(\]|:NONAME)(\s|$)/i))
|
|
33
|
+
return n.state = " compilation", "builtin";
|
|
34
|
+
if (E = i.match(/^(\:)\s+(\S+)(\s|$)+/), E)
|
|
35
|
+
return n.wordList.push({ name: E[2].toUpperCase() }), n.state = " compilation", "def";
|
|
36
|
+
if (E = i.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i), E)
|
|
37
|
+
return n.wordList.push({ name: E[2].toUpperCase() }), "def";
|
|
38
|
+
if (E = i.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/), E)
|
|
39
|
+
return "builtin";
|
|
40
|
+
} else {
|
|
41
|
+
if (i.match(/^(\;|\[)(\s)/))
|
|
42
|
+
return n.state = "", i.backUp(1), "builtin";
|
|
43
|
+
if (i.match(/^(\;|\[)($)/))
|
|
44
|
+
return n.state = "", "builtin";
|
|
45
|
+
if (i.match(/^(POSTPONE)\s+\S+(\s|$)+/))
|
|
46
|
+
return "builtin";
|
|
47
|
+
}
|
|
48
|
+
if (E = i.match(/^(\S+)(\s+|$)/), E)
|
|
49
|
+
return R(n.wordList, E[1]) !== void 0 ? "variable" : E[1] === "\\" ? (i.skipToEnd(), "comment") : R(n.coreWordList, E[1]) !== void 0 ? "builtin" : R(n.immediateWordList, E[1]) !== void 0 ? "keyword" : E[1] === "(" ? (i.eatWhile(function(e) {
|
|
50
|
+
return e !== ")";
|
|
51
|
+
}), i.eat(")"), "comment") : E[1] === ".(" ? (i.eatWhile(function(e) {
|
|
52
|
+
return e !== ")";
|
|
53
|
+
}), i.eat(")"), "string") : E[1] === 'S"' || E[1] === '."' || E[1] === 'C"' ? (i.eatWhile(function(e) {
|
|
54
|
+
return e !== '"';
|
|
55
|
+
}), i.eat('"'), "string") : E[1] - 68719476735 ? "number" : "atom";
|
|
56
|
+
}
|
|
57
|
+
};
|
|
58
|
+
export {
|
|
59
|
+
L as forth
|
|
60
|
+
};
|
|
61
|
+
//# sourceMappingURL=forth-BmxRyE9S.js.map
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"forth-BmxRyE9S.js","sources":["../../../node_modules/.deno/@codemirror+legacy-modes@6.5.0/node_modules/@codemirror/legacy-modes/mode/forth.js"],"sourcesContent":["function toWordList(words) {\n var ret = [];\n words.split(' ').forEach(function(e){\n ret.push({name: e});\n });\n return ret;\n}\n\nvar coreWordList = toWordList(\n 'INVERT AND OR XOR\\\n 2* 2/ LSHIFT RSHIFT\\\n 0= = 0< < > U< MIN MAX\\\n 2DROP 2DUP 2OVER 2SWAP ?DUP DEPTH DROP DUP OVER ROT SWAP\\\n >R R> R@\\\n + - 1+ 1- ABS NEGATE\\\n S>D * M* UM*\\\n FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD\\\n HERE , @ ! CELL+ CELLS C, C@ C! CHARS 2@ 2!\\\n ALIGN ALIGNED +! ALLOT\\\n CHAR [CHAR] [ ] BL\\\n FIND EXECUTE IMMEDIATE COUNT LITERAL STATE\\\n ; DOES> >BODY\\\n EVALUATE\\\n SOURCE >IN\\\n <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL\\\n FILL MOVE\\\n . CR EMIT SPACE SPACES TYPE U. .R U.R\\\n ACCEPT\\\n TRUE FALSE\\\n <> U> 0<> 0>\\\n NIP TUCK ROLL PICK\\\n 2>R 2R@ 2R>\\\n WITHIN UNUSED MARKER\\\n I J\\\n TO\\\n COMPILE, [COMPILE]\\\n SAVE-INPUT RESTORE-INPUT\\\n PAD ERASE\\\n 2LITERAL DNEGATE\\\n D- D+ D0< D0= D2* D2/ D< D= DMAX DMIN D>S DABS\\\n M+ M*/ D. D.R 2ROT DU<\\\n CATCH THROW\\\n FREE RESIZE ALLOCATE\\\n CS-PICK CS-ROLL\\\n GET-CURRENT SET-CURRENT FORTH-WORDLIST GET-ORDER SET-ORDER\\\n PREVIOUS SEARCH-WORDLIST WORDLIST FIND ALSO ONLY FORTH DEFINITIONS ORDER\\\n -TRAILING /STRING SEARCH COMPARE CMOVE CMOVE> BLANK SLITERAL');\n\nvar immediateWordList = toWordList('IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE [IF] [ELSE] [THEN] ?DO DO LOOP +LOOP UNLOOP LEAVE EXIT AGAIN CASE OF ENDOF ENDCASE');\n\nfunction searchWordList (wordList, word) {\n var i;\n for (i = wordList.length - 1; i >= 0; i--) {\n if (wordList[i].name === word.toUpperCase()) {\n return wordList[i];\n }\n }\n return undefined;\n}\nexport const forth = {\n name: \"forth\",\n startState: function() {\n return {\n state: '',\n base: 10,\n coreWordList: coreWordList,\n immediateWordList: immediateWordList,\n wordList: []\n };\n },\n token: function (stream, stt) {\n var mat;\n if (stream.eatSpace()) {\n return null;\n }\n if (stt.state === '') { // interpretation\n if (stream.match(/^(\\]|:NONAME)(\\s|$)/i)) {\n stt.state = ' compilation';\n return 'builtin';\n }\n mat = stream.match(/^(\\:)\\s+(\\S+)(\\s|$)+/);\n if (mat) {\n stt.wordList.push({name: mat[2].toUpperCase()});\n stt.state = ' compilation';\n return 'def';\n }\n mat = stream.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\\s+(\\S+)(\\s|$)+/i);\n if (mat) {\n stt.wordList.push({name: mat[2].toUpperCase()});\n return 'def';\n }\n mat = stream.match(/^(\\'|\\[\\'\\])\\s+(\\S+)(\\s|$)+/);\n if (mat) {\n return 'builtin'\n }\n } else { // compilation\n // ; [\n if (stream.match(/^(\\;|\\[)(\\s)/)) {\n stt.state = '';\n stream.backUp(1);\n return 'builtin';\n }\n if (stream.match(/^(\\;|\\[)($)/)) {\n stt.state = '';\n return 'builtin';\n }\n if (stream.match(/^(POSTPONE)\\s+\\S+(\\s|$)+/)) {\n return 'builtin';\n }\n }\n\n // dynamic wordlist\n mat = stream.match(/^(\\S+)(\\s+|$)/);\n if (mat) {\n if (searchWordList(stt.wordList, mat[1]) !== undefined) {\n return 'variable';\n }\n\n // comments\n if (mat[1] === '\\\\') {\n stream.skipToEnd();\n return 'comment';\n }\n\n // core words\n if (searchWordList(stt.coreWordList, mat[1]) !== undefined) {\n return 'builtin';\n }\n if (searchWordList(stt.immediateWordList, mat[1]) !== undefined) {\n return 'keyword';\n }\n\n if (mat[1] === '(') {\n stream.eatWhile(function (s) { return s !== ')'; });\n stream.eat(')');\n return 'comment';\n }\n\n // // strings\n if (mat[1] === '.(') {\n stream.eatWhile(function (s) { return s !== ')'; });\n stream.eat(')');\n return 'string';\n }\n if (mat[1] === 'S\"' || mat[1] === '.\"' || mat[1] === 'C\"') {\n stream.eatWhile(function (s) { return s !== '\"'; });\n stream.eat('\"');\n return 'string';\n }\n\n // numbers\n if (mat[1] - 0xfffffffff) {\n return 'number';\n }\n // if (mat[1].match(/^[-+]?[0-9]+\\.[0-9]*/)) {\n // return 'number';\n // }\n\n return 'atom';\n }\n }\n};\n"],"names":["toWordList","words","ret","e","coreWordList","immediateWordList","searchWordList","wordList","word","i","forth","stream","stt","mat","s"],"mappings":"AAAA,SAASA,EAAWC,GAAO;AACzB,MAAIC,IAAM,CAAA;AACV,SAAAD,EAAM,MAAM,GAAG,EAAE,QAAQ,SAASE,GAAE;AAClC,IAAAD,EAAI,KAAK,EAAC,MAAMC,EAAC,CAAC;AAAA,EACpB,CAAC,GACMD;AACT;AAEA,IAAIE,IAAeJ;AAAA,EACjB;AAqC4D,GAE1DK,IAAoBL,EAAW,kIAAkI;AAErK,SAASM,EAAgBC,GAAUC,GAAM;AACvC,MAAIC;AACJ,OAAKA,IAAIF,EAAS,SAAS,GAAGE,KAAK,GAAGA;AACpC,QAAIF,EAASE,CAAC,EAAE,SAASD,EAAK,YAAW;AACvC,aAAOD,EAASE,CAAC;AAIvB;AACY,MAACC,IAAQ;AAAA,EACnB,MAAM;AAAA,EACN,YAAY,WAAW;AACrB,WAAO;AAAA,MACL,OAAO;AAAA,MACP,MAAM;AAAA,MACN,cAAcN;AAAA,MACd,mBAAmBC;AAAA,MACnB,UAAU,CAAA;AAAA,IAChB;AAAA,EACE;AAAA,EACA,OAAO,SAAUM,GAAQC,GAAK;AAC5B,QAAIC;AACJ,QAAIF,EAAO;AACT,aAAO;AAET,QAAIC,EAAI,UAAU,IAAI;AACpB,UAAID,EAAO,MAAM,sBAAsB;AACrC,eAAAC,EAAI,QAAQ,gBACL;AAGT,UADAC,IAAMF,EAAO,MAAM,sBAAsB,GACrCE;AACF,eAAAD,EAAI,SAAS,KAAK,EAAC,MAAMC,EAAI,CAAC,EAAE,YAAW,EAAE,CAAC,GAC9CD,EAAI,QAAQ,gBACL;AAGT,UADAC,IAAMF,EAAO,MAAM,qFAAqF,GACpGE;AACF,eAAAD,EAAI,SAAS,KAAK,EAAC,MAAMC,EAAI,CAAC,EAAE,YAAW,EAAE,CAAC,GACvC;AAGT,UADAA,IAAMF,EAAO,MAAM,6BAA6B,GAC5CE;AACF,eAAO;AAAA,IAEX,OAAO;AAEL,UAAIF,EAAO,MAAM,cAAc;AAC7B,eAAAC,EAAI,QAAQ,IACZD,EAAO,OAAO,CAAC,GACR;AAET,UAAIA,EAAO,MAAM,aAAa;AAC5B,eAAAC,EAAI,QAAQ,IACL;AAET,UAAID,EAAO,MAAM,0BAA0B;AACzC,eAAO;AAAA,IAEX;AAIA,QADAE,IAAMF,EAAO,MAAM,eAAe,GAC9BE;AACF,aAAIP,EAAeM,EAAI,UAAUC,EAAI,CAAC,CAAC,MAAM,SACpC,aAILA,EAAI,CAAC,MAAM,QACbF,EAAO,UAAS,GACT,aAILL,EAAeM,EAAI,cAAcC,EAAI,CAAC,CAAC,MAAM,SACxC,YAELP,EAAeM,EAAI,mBAAmBC,EAAI,CAAC,CAAC,MAAM,SAC7C,YAGLA,EAAI,CAAC,MAAM,OACbF,EAAO,SAAS,SAAUG,GAAG;AAAE,eAAOA,MAAM;AAAA,MAAK,CAAC,GAClDH,EAAO,IAAI,GAAG,GACP,aAILE,EAAI,CAAC,MAAM,QACbF,EAAO,SAAS,SAAUG,GAAG;AAAE,eAAOA,MAAM;AAAA,MAAK,CAAC,GAClDH,EAAO,IAAI,GAAG,GACP,YAELE,EAAI,CAAC,MAAM,QAAQA,EAAI,CAAC,MAAM,QAAQA,EAAI,CAAC,MAAM,QACnDF,EAAO,SAAS,SAAUG,GAAG;AAAE,eAAOA,MAAM;AAAA,MAAK,CAAC,GAClDH,EAAO,IAAI,GAAG,GACP,YAILE,EAAI,CAAC,IAAI,cACJ,WAMF;AAAA,EAEX;AACF;","x_google_ignoreList":[0]}
|
|
@@ -0,0 +1,443 @@
|
|
|
1
|
+
function r(t) {
|
|
2
|
+
for (var n = {}, e = 0; e < t.length; ++e)
|
|
3
|
+
n[t[e]] = !0;
|
|
4
|
+
return n;
|
|
5
|
+
}
|
|
6
|
+
var l = r([
|
|
7
|
+
"abstract",
|
|
8
|
+
"accept",
|
|
9
|
+
"allocatable",
|
|
10
|
+
"allocate",
|
|
11
|
+
"array",
|
|
12
|
+
"assign",
|
|
13
|
+
"asynchronous",
|
|
14
|
+
"backspace",
|
|
15
|
+
"bind",
|
|
16
|
+
"block",
|
|
17
|
+
"byte",
|
|
18
|
+
"call",
|
|
19
|
+
"case",
|
|
20
|
+
"class",
|
|
21
|
+
"close",
|
|
22
|
+
"common",
|
|
23
|
+
"contains",
|
|
24
|
+
"continue",
|
|
25
|
+
"cycle",
|
|
26
|
+
"data",
|
|
27
|
+
"deallocate",
|
|
28
|
+
"decode",
|
|
29
|
+
"deferred",
|
|
30
|
+
"dimension",
|
|
31
|
+
"do",
|
|
32
|
+
"elemental",
|
|
33
|
+
"else",
|
|
34
|
+
"encode",
|
|
35
|
+
"end",
|
|
36
|
+
"endif",
|
|
37
|
+
"entry",
|
|
38
|
+
"enumerator",
|
|
39
|
+
"equivalence",
|
|
40
|
+
"exit",
|
|
41
|
+
"external",
|
|
42
|
+
"extrinsic",
|
|
43
|
+
"final",
|
|
44
|
+
"forall",
|
|
45
|
+
"format",
|
|
46
|
+
"function",
|
|
47
|
+
"generic",
|
|
48
|
+
"go",
|
|
49
|
+
"goto",
|
|
50
|
+
"if",
|
|
51
|
+
"implicit",
|
|
52
|
+
"import",
|
|
53
|
+
"include",
|
|
54
|
+
"inquire",
|
|
55
|
+
"intent",
|
|
56
|
+
"interface",
|
|
57
|
+
"intrinsic",
|
|
58
|
+
"module",
|
|
59
|
+
"namelist",
|
|
60
|
+
"non_intrinsic",
|
|
61
|
+
"non_overridable",
|
|
62
|
+
"none",
|
|
63
|
+
"nopass",
|
|
64
|
+
"nullify",
|
|
65
|
+
"open",
|
|
66
|
+
"optional",
|
|
67
|
+
"options",
|
|
68
|
+
"parameter",
|
|
69
|
+
"pass",
|
|
70
|
+
"pause",
|
|
71
|
+
"pointer",
|
|
72
|
+
"print",
|
|
73
|
+
"private",
|
|
74
|
+
"program",
|
|
75
|
+
"protected",
|
|
76
|
+
"public",
|
|
77
|
+
"pure",
|
|
78
|
+
"read",
|
|
79
|
+
"recursive",
|
|
80
|
+
"result",
|
|
81
|
+
"return",
|
|
82
|
+
"rewind",
|
|
83
|
+
"save",
|
|
84
|
+
"select",
|
|
85
|
+
"sequence",
|
|
86
|
+
"stop",
|
|
87
|
+
"subroutine",
|
|
88
|
+
"target",
|
|
89
|
+
"then",
|
|
90
|
+
"to",
|
|
91
|
+
"type",
|
|
92
|
+
"use",
|
|
93
|
+
"value",
|
|
94
|
+
"volatile",
|
|
95
|
+
"where",
|
|
96
|
+
"while",
|
|
97
|
+
"write"
|
|
98
|
+
]), s = r([
|
|
99
|
+
"abort",
|
|
100
|
+
"abs",
|
|
101
|
+
"access",
|
|
102
|
+
"achar",
|
|
103
|
+
"acos",
|
|
104
|
+
"adjustl",
|
|
105
|
+
"adjustr",
|
|
106
|
+
"aimag",
|
|
107
|
+
"aint",
|
|
108
|
+
"alarm",
|
|
109
|
+
"all",
|
|
110
|
+
"allocated",
|
|
111
|
+
"alog",
|
|
112
|
+
"amax",
|
|
113
|
+
"amin",
|
|
114
|
+
"amod",
|
|
115
|
+
"and",
|
|
116
|
+
"anint",
|
|
117
|
+
"any",
|
|
118
|
+
"asin",
|
|
119
|
+
"associated",
|
|
120
|
+
"atan",
|
|
121
|
+
"besj",
|
|
122
|
+
"besjn",
|
|
123
|
+
"besy",
|
|
124
|
+
"besyn",
|
|
125
|
+
"bit_size",
|
|
126
|
+
"btest",
|
|
127
|
+
"cabs",
|
|
128
|
+
"ccos",
|
|
129
|
+
"ceiling",
|
|
130
|
+
"cexp",
|
|
131
|
+
"char",
|
|
132
|
+
"chdir",
|
|
133
|
+
"chmod",
|
|
134
|
+
"clog",
|
|
135
|
+
"cmplx",
|
|
136
|
+
"command_argument_count",
|
|
137
|
+
"complex",
|
|
138
|
+
"conjg",
|
|
139
|
+
"cos",
|
|
140
|
+
"cosh",
|
|
141
|
+
"count",
|
|
142
|
+
"cpu_time",
|
|
143
|
+
"cshift",
|
|
144
|
+
"csin",
|
|
145
|
+
"csqrt",
|
|
146
|
+
"ctime",
|
|
147
|
+
"c_funloc",
|
|
148
|
+
"c_loc",
|
|
149
|
+
"c_associated",
|
|
150
|
+
"c_null_ptr",
|
|
151
|
+
"c_null_funptr",
|
|
152
|
+
"c_f_pointer",
|
|
153
|
+
"c_null_char",
|
|
154
|
+
"c_alert",
|
|
155
|
+
"c_backspace",
|
|
156
|
+
"c_form_feed",
|
|
157
|
+
"c_new_line",
|
|
158
|
+
"c_carriage_return",
|
|
159
|
+
"c_horizontal_tab",
|
|
160
|
+
"c_vertical_tab",
|
|
161
|
+
"dabs",
|
|
162
|
+
"dacos",
|
|
163
|
+
"dasin",
|
|
164
|
+
"datan",
|
|
165
|
+
"date_and_time",
|
|
166
|
+
"dbesj",
|
|
167
|
+
"dbesj",
|
|
168
|
+
"dbesjn",
|
|
169
|
+
"dbesy",
|
|
170
|
+
"dbesy",
|
|
171
|
+
"dbesyn",
|
|
172
|
+
"dble",
|
|
173
|
+
"dcos",
|
|
174
|
+
"dcosh",
|
|
175
|
+
"ddim",
|
|
176
|
+
"derf",
|
|
177
|
+
"derfc",
|
|
178
|
+
"dexp",
|
|
179
|
+
"digits",
|
|
180
|
+
"dim",
|
|
181
|
+
"dint",
|
|
182
|
+
"dlog",
|
|
183
|
+
"dlog",
|
|
184
|
+
"dmax",
|
|
185
|
+
"dmin",
|
|
186
|
+
"dmod",
|
|
187
|
+
"dnint",
|
|
188
|
+
"dot_product",
|
|
189
|
+
"dprod",
|
|
190
|
+
"dsign",
|
|
191
|
+
"dsinh",
|
|
192
|
+
"dsin",
|
|
193
|
+
"dsqrt",
|
|
194
|
+
"dtanh",
|
|
195
|
+
"dtan",
|
|
196
|
+
"dtime",
|
|
197
|
+
"eoshift",
|
|
198
|
+
"epsilon",
|
|
199
|
+
"erf",
|
|
200
|
+
"erfc",
|
|
201
|
+
"etime",
|
|
202
|
+
"exit",
|
|
203
|
+
"exp",
|
|
204
|
+
"exponent",
|
|
205
|
+
"extends_type_of",
|
|
206
|
+
"fdate",
|
|
207
|
+
"fget",
|
|
208
|
+
"fgetc",
|
|
209
|
+
"float",
|
|
210
|
+
"floor",
|
|
211
|
+
"flush",
|
|
212
|
+
"fnum",
|
|
213
|
+
"fputc",
|
|
214
|
+
"fput",
|
|
215
|
+
"fraction",
|
|
216
|
+
"fseek",
|
|
217
|
+
"fstat",
|
|
218
|
+
"ftell",
|
|
219
|
+
"gerror",
|
|
220
|
+
"getarg",
|
|
221
|
+
"get_command",
|
|
222
|
+
"get_command_argument",
|
|
223
|
+
"get_environment_variable",
|
|
224
|
+
"getcwd",
|
|
225
|
+
"getenv",
|
|
226
|
+
"getgid",
|
|
227
|
+
"getlog",
|
|
228
|
+
"getpid",
|
|
229
|
+
"getuid",
|
|
230
|
+
"gmtime",
|
|
231
|
+
"hostnm",
|
|
232
|
+
"huge",
|
|
233
|
+
"iabs",
|
|
234
|
+
"iachar",
|
|
235
|
+
"iand",
|
|
236
|
+
"iargc",
|
|
237
|
+
"ibclr",
|
|
238
|
+
"ibits",
|
|
239
|
+
"ibset",
|
|
240
|
+
"ichar",
|
|
241
|
+
"idate",
|
|
242
|
+
"idim",
|
|
243
|
+
"idint",
|
|
244
|
+
"idnint",
|
|
245
|
+
"ieor",
|
|
246
|
+
"ierrno",
|
|
247
|
+
"ifix",
|
|
248
|
+
"imag",
|
|
249
|
+
"imagpart",
|
|
250
|
+
"index",
|
|
251
|
+
"int",
|
|
252
|
+
"ior",
|
|
253
|
+
"irand",
|
|
254
|
+
"isatty",
|
|
255
|
+
"ishft",
|
|
256
|
+
"ishftc",
|
|
257
|
+
"isign",
|
|
258
|
+
"iso_c_binding",
|
|
259
|
+
"is_iostat_end",
|
|
260
|
+
"is_iostat_eor",
|
|
261
|
+
"itime",
|
|
262
|
+
"kill",
|
|
263
|
+
"kind",
|
|
264
|
+
"lbound",
|
|
265
|
+
"len",
|
|
266
|
+
"len_trim",
|
|
267
|
+
"lge",
|
|
268
|
+
"lgt",
|
|
269
|
+
"link",
|
|
270
|
+
"lle",
|
|
271
|
+
"llt",
|
|
272
|
+
"lnblnk",
|
|
273
|
+
"loc",
|
|
274
|
+
"log",
|
|
275
|
+
"logical",
|
|
276
|
+
"long",
|
|
277
|
+
"lshift",
|
|
278
|
+
"lstat",
|
|
279
|
+
"ltime",
|
|
280
|
+
"matmul",
|
|
281
|
+
"max",
|
|
282
|
+
"maxexponent",
|
|
283
|
+
"maxloc",
|
|
284
|
+
"maxval",
|
|
285
|
+
"mclock",
|
|
286
|
+
"merge",
|
|
287
|
+
"move_alloc",
|
|
288
|
+
"min",
|
|
289
|
+
"minexponent",
|
|
290
|
+
"minloc",
|
|
291
|
+
"minval",
|
|
292
|
+
"mod",
|
|
293
|
+
"modulo",
|
|
294
|
+
"mvbits",
|
|
295
|
+
"nearest",
|
|
296
|
+
"new_line",
|
|
297
|
+
"nint",
|
|
298
|
+
"not",
|
|
299
|
+
"or",
|
|
300
|
+
"pack",
|
|
301
|
+
"perror",
|
|
302
|
+
"precision",
|
|
303
|
+
"present",
|
|
304
|
+
"product",
|
|
305
|
+
"radix",
|
|
306
|
+
"rand",
|
|
307
|
+
"random_number",
|
|
308
|
+
"random_seed",
|
|
309
|
+
"range",
|
|
310
|
+
"real",
|
|
311
|
+
"realpart",
|
|
312
|
+
"rename",
|
|
313
|
+
"repeat",
|
|
314
|
+
"reshape",
|
|
315
|
+
"rrspacing",
|
|
316
|
+
"rshift",
|
|
317
|
+
"same_type_as",
|
|
318
|
+
"scale",
|
|
319
|
+
"scan",
|
|
320
|
+
"second",
|
|
321
|
+
"selected_int_kind",
|
|
322
|
+
"selected_real_kind",
|
|
323
|
+
"set_exponent",
|
|
324
|
+
"shape",
|
|
325
|
+
"short",
|
|
326
|
+
"sign",
|
|
327
|
+
"signal",
|
|
328
|
+
"sinh",
|
|
329
|
+
"sin",
|
|
330
|
+
"sleep",
|
|
331
|
+
"sngl",
|
|
332
|
+
"spacing",
|
|
333
|
+
"spread",
|
|
334
|
+
"sqrt",
|
|
335
|
+
"srand",
|
|
336
|
+
"stat",
|
|
337
|
+
"sum",
|
|
338
|
+
"symlnk",
|
|
339
|
+
"system",
|
|
340
|
+
"system_clock",
|
|
341
|
+
"tan",
|
|
342
|
+
"tanh",
|
|
343
|
+
"time",
|
|
344
|
+
"tiny",
|
|
345
|
+
"transfer",
|
|
346
|
+
"transpose",
|
|
347
|
+
"trim",
|
|
348
|
+
"ttynam",
|
|
349
|
+
"ubound",
|
|
350
|
+
"umask",
|
|
351
|
+
"unlink",
|
|
352
|
+
"unpack",
|
|
353
|
+
"verify",
|
|
354
|
+
"xor",
|
|
355
|
+
"zabs",
|
|
356
|
+
"zcos",
|
|
357
|
+
"zexp",
|
|
358
|
+
"zlog",
|
|
359
|
+
"zsin",
|
|
360
|
+
"zsqrt"
|
|
361
|
+
]), d = r([
|
|
362
|
+
"c_bool",
|
|
363
|
+
"c_char",
|
|
364
|
+
"c_double",
|
|
365
|
+
"c_double_complex",
|
|
366
|
+
"c_float",
|
|
367
|
+
"c_float_complex",
|
|
368
|
+
"c_funptr",
|
|
369
|
+
"c_int",
|
|
370
|
+
"c_int16_t",
|
|
371
|
+
"c_int32_t",
|
|
372
|
+
"c_int64_t",
|
|
373
|
+
"c_int8_t",
|
|
374
|
+
"c_int_fast16_t",
|
|
375
|
+
"c_int_fast32_t",
|
|
376
|
+
"c_int_fast64_t",
|
|
377
|
+
"c_int_fast8_t",
|
|
378
|
+
"c_int_least16_t",
|
|
379
|
+
"c_int_least32_t",
|
|
380
|
+
"c_int_least64_t",
|
|
381
|
+
"c_int_least8_t",
|
|
382
|
+
"c_intmax_t",
|
|
383
|
+
"c_intptr_t",
|
|
384
|
+
"c_long",
|
|
385
|
+
"c_long_double",
|
|
386
|
+
"c_long_double_complex",
|
|
387
|
+
"c_long_long",
|
|
388
|
+
"c_ptr",
|
|
389
|
+
"c_short",
|
|
390
|
+
"c_signed_char",
|
|
391
|
+
"c_size_t",
|
|
392
|
+
"character",
|
|
393
|
+
"complex",
|
|
394
|
+
"double",
|
|
395
|
+
"integer",
|
|
396
|
+
"logical",
|
|
397
|
+
"real"
|
|
398
|
+
]), c = /[+\-*&=<>\/\:]/, _ = /^\.(and|or|eq|lt|le|gt|ge|ne|not|eqv|neqv)\./i;
|
|
399
|
+
function u(t, n) {
|
|
400
|
+
if (t.match(_))
|
|
401
|
+
return "operator";
|
|
402
|
+
var e = t.next();
|
|
403
|
+
if (e == "!")
|
|
404
|
+
return t.skipToEnd(), "comment";
|
|
405
|
+
if (e == '"' || e == "'")
|
|
406
|
+
return n.tokenize = m(e), n.tokenize(t, n);
|
|
407
|
+
if (/[\[\]\(\),]/.test(e))
|
|
408
|
+
return null;
|
|
409
|
+
if (/\d/.test(e))
|
|
410
|
+
return t.eatWhile(/[\w\.]/), "number";
|
|
411
|
+
if (c.test(e))
|
|
412
|
+
return t.eatWhile(c), "operator";
|
|
413
|
+
t.eatWhile(/[\w\$_]/);
|
|
414
|
+
var i = t.current().toLowerCase();
|
|
415
|
+
return l.hasOwnProperty(i) ? "keyword" : s.hasOwnProperty(i) || d.hasOwnProperty(i) ? "builtin" : "variable";
|
|
416
|
+
}
|
|
417
|
+
function m(t) {
|
|
418
|
+
return function(n, e) {
|
|
419
|
+
for (var i = !1, a, o = !1; (a = n.next()) != null; ) {
|
|
420
|
+
if (a == t && !i) {
|
|
421
|
+
o = !0;
|
|
422
|
+
break;
|
|
423
|
+
}
|
|
424
|
+
i = !i && a == "\\";
|
|
425
|
+
}
|
|
426
|
+
return (o || !i) && (e.tokenize = null), "string";
|
|
427
|
+
};
|
|
428
|
+
}
|
|
429
|
+
const p = {
|
|
430
|
+
name: "fortran",
|
|
431
|
+
startState: function() {
|
|
432
|
+
return { tokenize: null };
|
|
433
|
+
},
|
|
434
|
+
token: function(t, n) {
|
|
435
|
+
if (t.eatSpace()) return null;
|
|
436
|
+
var e = (n.tokenize || u)(t, n);
|
|
437
|
+
return e == "comment" || e == "meta", e;
|
|
438
|
+
}
|
|
439
|
+
};
|
|
440
|
+
export {
|
|
441
|
+
p as fortran
|
|
442
|
+
};
|
|
443
|
+
//# sourceMappingURL=fortran-9bvPyrOW.js.map
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"fortran-9bvPyrOW.js","sources":["../../../node_modules/.deno/@codemirror+legacy-modes@6.5.0/node_modules/@codemirror/legacy-modes/mode/fortran.js"],"sourcesContent":["function words(array) {\n var keys = {};\n for (var i = 0; i < array.length; ++i) {\n keys[array[i]] = true;\n }\n return keys;\n}\n\nvar keywords = words([\n \"abstract\", \"accept\", \"allocatable\", \"allocate\",\n \"array\", \"assign\", \"asynchronous\", \"backspace\",\n \"bind\", \"block\", \"byte\", \"call\", \"case\",\n \"class\", \"close\", \"common\", \"contains\",\n \"continue\", \"cycle\", \"data\", \"deallocate\",\n \"decode\", \"deferred\", \"dimension\", \"do\",\n \"elemental\", \"else\", \"encode\", \"end\",\n \"endif\", \"entry\", \"enumerator\", \"equivalence\",\n \"exit\", \"external\", \"extrinsic\", \"final\",\n \"forall\", \"format\", \"function\", \"generic\",\n \"go\", \"goto\", \"if\", \"implicit\", \"import\", \"include\",\n \"inquire\", \"intent\", \"interface\", \"intrinsic\",\n \"module\", \"namelist\", \"non_intrinsic\",\n \"non_overridable\", \"none\", \"nopass\",\n \"nullify\", \"open\", \"optional\", \"options\",\n \"parameter\", \"pass\", \"pause\", \"pointer\",\n \"print\", \"private\", \"program\", \"protected\",\n \"public\", \"pure\", \"read\", \"recursive\", \"result\",\n \"return\", \"rewind\", \"save\", \"select\", \"sequence\",\n \"stop\", \"subroutine\", \"target\", \"then\", \"to\", \"type\",\n \"use\", \"value\", \"volatile\", \"where\", \"while\",\n \"write\"]);\nvar builtins = words([\"abort\", \"abs\", \"access\", \"achar\", \"acos\",\n \"adjustl\", \"adjustr\", \"aimag\", \"aint\", \"alarm\",\n \"all\", \"allocated\", \"alog\", \"amax\", \"amin\",\n \"amod\", \"and\", \"anint\", \"any\", \"asin\",\n \"associated\", \"atan\", \"besj\", \"besjn\", \"besy\",\n \"besyn\", \"bit_size\", \"btest\", \"cabs\", \"ccos\",\n \"ceiling\", \"cexp\", \"char\", \"chdir\", \"chmod\",\n \"clog\", \"cmplx\", \"command_argument_count\",\n \"complex\", \"conjg\", \"cos\", \"cosh\", \"count\",\n \"cpu_time\", \"cshift\", \"csin\", \"csqrt\", \"ctime\",\n \"c_funloc\", \"c_loc\", \"c_associated\", \"c_null_ptr\",\n \"c_null_funptr\", \"c_f_pointer\", \"c_null_char\",\n \"c_alert\", \"c_backspace\", \"c_form_feed\",\n \"c_new_line\", \"c_carriage_return\",\n \"c_horizontal_tab\", \"c_vertical_tab\", \"dabs\",\n \"dacos\", \"dasin\", \"datan\", \"date_and_time\",\n \"dbesj\", \"dbesj\", \"dbesjn\", \"dbesy\", \"dbesy\",\n \"dbesyn\", \"dble\", \"dcos\", \"dcosh\", \"ddim\", \"derf\",\n \"derfc\", \"dexp\", \"digits\", \"dim\", \"dint\", \"dlog\",\n \"dlog\", \"dmax\", \"dmin\", \"dmod\", \"dnint\",\n \"dot_product\", \"dprod\", \"dsign\", \"dsinh\",\n \"dsin\", \"dsqrt\", \"dtanh\", \"dtan\", \"dtime\",\n \"eoshift\", \"epsilon\", \"erf\", \"erfc\", \"etime\",\n \"exit\", \"exp\", \"exponent\", \"extends_type_of\",\n \"fdate\", \"fget\", \"fgetc\", \"float\", \"floor\",\n \"flush\", \"fnum\", \"fputc\", \"fput\", \"fraction\",\n \"fseek\", \"fstat\", \"ftell\", \"gerror\", \"getarg\",\n \"get_command\", \"get_command_argument\",\n \"get_environment_variable\", \"getcwd\",\n \"getenv\", \"getgid\", \"getlog\", \"getpid\",\n \"getuid\", \"gmtime\", \"hostnm\", \"huge\", \"iabs\",\n \"iachar\", \"iand\", \"iargc\", \"ibclr\", \"ibits\",\n \"ibset\", \"ichar\", \"idate\", \"idim\", \"idint\",\n \"idnint\", \"ieor\", \"ierrno\", \"ifix\", \"imag\",\n \"imagpart\", \"index\", \"int\", \"ior\", \"irand\",\n \"isatty\", \"ishft\", \"ishftc\", \"isign\",\n \"iso_c_binding\", \"is_iostat_end\", \"is_iostat_eor\",\n \"itime\", \"kill\", \"kind\", \"lbound\", \"len\", \"len_trim\",\n \"lge\", \"lgt\", \"link\", \"lle\", \"llt\", \"lnblnk\", \"loc\",\n \"log\", \"logical\", \"long\", \"lshift\", \"lstat\", \"ltime\",\n \"matmul\", \"max\", \"maxexponent\", \"maxloc\", \"maxval\",\n \"mclock\", \"merge\", \"move_alloc\", \"min\", \"minexponent\",\n \"minloc\", \"minval\", \"mod\", \"modulo\", \"mvbits\",\n \"nearest\", \"new_line\", \"nint\", \"not\", \"or\", \"pack\",\n \"perror\", \"precision\", \"present\", \"product\", \"radix\",\n \"rand\", \"random_number\", \"random_seed\", \"range\",\n \"real\", \"realpart\", \"rename\", \"repeat\", \"reshape\",\n \"rrspacing\", \"rshift\", \"same_type_as\", \"scale\",\n \"scan\", \"second\", \"selected_int_kind\",\n \"selected_real_kind\", \"set_exponent\", \"shape\",\n \"short\", \"sign\", \"signal\", \"sinh\", \"sin\", \"sleep\",\n \"sngl\", \"spacing\", \"spread\", \"sqrt\", \"srand\", \"stat\",\n \"sum\", \"symlnk\", \"system\", \"system_clock\", \"tan\",\n \"tanh\", \"time\", \"tiny\", \"transfer\", \"transpose\",\n \"trim\", \"ttynam\", \"ubound\", \"umask\", \"unlink\",\n \"unpack\", \"verify\", \"xor\", \"zabs\", \"zcos\", \"zexp\",\n \"zlog\", \"zsin\", \"zsqrt\"]);\n\nvar dataTypes = words([\"c_bool\", \"c_char\", \"c_double\", \"c_double_complex\",\n \"c_float\", \"c_float_complex\", \"c_funptr\", \"c_int\",\n \"c_int16_t\", \"c_int32_t\", \"c_int64_t\", \"c_int8_t\",\n \"c_int_fast16_t\", \"c_int_fast32_t\", \"c_int_fast64_t\",\n \"c_int_fast8_t\", \"c_int_least16_t\", \"c_int_least32_t\",\n \"c_int_least64_t\", \"c_int_least8_t\", \"c_intmax_t\",\n \"c_intptr_t\", \"c_long\", \"c_long_double\",\n \"c_long_double_complex\", \"c_long_long\", \"c_ptr\",\n \"c_short\", \"c_signed_char\", \"c_size_t\", \"character\",\n \"complex\", \"double\", \"integer\", \"logical\", \"real\"]);\nvar isOperatorChar = /[+\\-*&=<>\\/\\:]/;\nvar litOperator = /^\\.(and|or|eq|lt|le|gt|ge|ne|not|eqv|neqv)\\./i;\n\nfunction tokenBase(stream, state) {\n\n if (stream.match(litOperator)){\n return 'operator';\n }\n\n var ch = stream.next();\n if (ch == \"!\") {\n stream.skipToEnd();\n return \"comment\";\n }\n if (ch == '\"' || ch == \"'\") {\n state.tokenize = tokenString(ch);\n return state.tokenize(stream, state);\n }\n if (/[\\[\\]\\(\\),]/.test(ch)) {\n return null;\n }\n if (/\\d/.test(ch)) {\n stream.eatWhile(/[\\w\\.]/);\n return \"number\";\n }\n if (isOperatorChar.test(ch)) {\n stream.eatWhile(isOperatorChar);\n return \"operator\";\n }\n stream.eatWhile(/[\\w\\$_]/);\n var word = stream.current().toLowerCase();\n\n if (keywords.hasOwnProperty(word)){\n return 'keyword';\n }\n if (builtins.hasOwnProperty(word) || dataTypes.hasOwnProperty(word)) {\n return 'builtin';\n }\n return \"variable\";\n}\n\nfunction tokenString(quote) {\n return function(stream, state) {\n var escaped = false, next, end = false;\n while ((next = stream.next()) != null) {\n if (next == quote && !escaped) {\n end = true;\n break;\n }\n escaped = !escaped && next == \"\\\\\";\n }\n if (end || !escaped) state.tokenize = null;\n return \"string\";\n };\n}\n\n// Interface\n\nexport const fortran = {\n name: \"fortran\",\n startState: function() {\n return {tokenize: null};\n },\n\n token: function(stream, state) {\n if (stream.eatSpace()) return null;\n var style = (state.tokenize || tokenBase)(stream, state);\n if (style == \"comment\" || style == \"meta\") return style;\n return style;\n }\n};\n\n"],"names":["words","array","keys","i","keywords","builtins","dataTypes","isOperatorChar","litOperator","tokenBase","stream","state","ch","tokenString","word","quote","escaped","next","end","fortran","style"],"mappings":"AAAA,SAASA,EAAMC,GAAO;AAEpB,WADIC,IAAO,CAAA,GACFC,IAAI,GAAGA,IAAIF,EAAM,QAAQ,EAAEE;AAClC,IAAAD,EAAKD,EAAME,CAAC,CAAC,IAAI;AAEnB,SAAOD;AACT;AAEA,IAAIE,IAAWJ,EAAM;AAAA,EACnB;AAAA,EAAY;AAAA,EAAU;AAAA,EAAe;AAAA,EACrC;AAAA,EAAS;AAAA,EAAU;AAAA,EAAgB;AAAA,EACnC;AAAA,EAAQ;AAAA,EAAS;AAAA,EAAQ;AAAA,EAAQ;AAAA,EACjC;AAAA,EAAS;AAAA,EAAS;AAAA,EAAU;AAAA,EAC5B;AAAA,EAAY;AAAA,EAAS;AAAA,EAAQ;AAAA,EAC7B;AAAA,EAAU;AAAA,EAAY;AAAA,EAAa;AAAA,EACnC;AAAA,EAAa;AAAA,EAAQ;AAAA,EAAU;AAAA,EAC/B;AAAA,EAAS;AAAA,EAAS;AAAA,EAAc;AAAA,EAChC;AAAA,EAAQ;AAAA,EAAY;AAAA,EAAa;AAAA,EACjC;AAAA,EAAU;AAAA,EAAU;AAAA,EAAY;AAAA,EAChC;AAAA,EAAM;AAAA,EAAQ;AAAA,EAAM;AAAA,EAAY;AAAA,EAAU;AAAA,EAC1C;AAAA,EAAW;AAAA,EAAU;AAAA,EAAa;AAAA,EAClC;AAAA,EAAU;AAAA,EAAY;AAAA,EACtB;AAAA,EAAmB;AAAA,EAAQ;AAAA,EAC3B;AAAA,EAAW;AAAA,EAAQ;AAAA,EAAY;AAAA,EAC/B;AAAA,EAAa;AAAA,EAAQ;AAAA,EAAS;AAAA,EAC9B;AAAA,EAAS;AAAA,EAAW;AAAA,EAAW;AAAA,EAC/B;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAa;AAAA,EACvC;AAAA,EAAU;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAU;AAAA,EACtC;AAAA,EAAQ;AAAA,EAAc;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAM;AAAA,EAC9C;AAAA,EAAO;AAAA,EAAS;AAAA,EAAY;AAAA,EAAS;AAAA,EACrC;AAAO,CAAC,GACNK,IAAWL,EAAM;AAAA,EAAC;AAAA,EAAS;AAAA,EAAO;AAAA,EAAU;AAAA,EAAS;AAAA,EACnC;AAAA,EAAW;AAAA,EAAW;AAAA,EAAS;AAAA,EAAQ;AAAA,EACvC;AAAA,EAAO;AAAA,EAAa;AAAA,EAAQ;AAAA,EAAQ;AAAA,EACpC;AAAA,EAAQ;AAAA,EAAO;AAAA,EAAS;AAAA,EAAO;AAAA,EAC/B;AAAA,EAAc;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAS;AAAA,EACvC;AAAA,EAAS;AAAA,EAAY;AAAA,EAAS;AAAA,EAAQ;AAAA,EACtC;AAAA,EAAW;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAS;AAAA,EACpC;AAAA,EAAQ;AAAA,EAAS;AAAA,EACjB;AAAA,EAAW;AAAA,EAAS;AAAA,EAAO;AAAA,EAAQ;AAAA,EACnC;AAAA,EAAY;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAS;AAAA,EACvC;AAAA,EAAY;AAAA,EAAS;AAAA,EAAgB;AAAA,EACrC;AAAA,EAAiB;AAAA,EAAe;AAAA,EAChC;AAAA,EAAW;AAAA,EAAe;AAAA,EAC1B;AAAA,EAAc;AAAA,EACd;AAAA,EAAoB;AAAA,EAAkB;AAAA,EACtC;AAAA,EAAS;AAAA,EAAS;AAAA,EAAS;AAAA,EAC3B;AAAA,EAAS;AAAA,EAAS;AAAA,EAAU;AAAA,EAAS;AAAA,EACrC;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAS;AAAA,EAAQ;AAAA,EAC3C;AAAA,EAAS;AAAA,EAAQ;AAAA,EAAU;AAAA,EAAO;AAAA,EAAQ;AAAA,EAC1C;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAChC;AAAA,EAAe;AAAA,EAAS;AAAA,EAAS;AAAA,EACjC;AAAA,EAAQ;AAAA,EAAS;AAAA,EAAS;AAAA,EAAQ;AAAA,EAClC;AAAA,EAAW;AAAA,EAAW;AAAA,EAAO;AAAA,EAAQ;AAAA,EACrC;AAAA,EAAQ;AAAA,EAAO;AAAA,EAAY;AAAA,EAC3B;AAAA,EAAS;AAAA,EAAQ;AAAA,EAAS;AAAA,EAAS;AAAA,EACnC;AAAA,EAAS;AAAA,EAAQ;AAAA,EAAS;AAAA,EAAQ;AAAA,EAClC;AAAA,EAAS;AAAA,EAAS;AAAA,EAAS;AAAA,EAAU;AAAA,EACrC;AAAA,EAAe;AAAA,EACf;AAAA,EAA4B;AAAA,EAC5B;AAAA,EAAU;AAAA,EAAU;AAAA,EAAU;AAAA,EAC9B;AAAA,EAAU;AAAA,EAAU;AAAA,EAAU;AAAA,EAAQ;AAAA,EACtC;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAS;AAAA,EAAS;AAAA,EACpC;AAAA,EAAS;AAAA,EAAS;AAAA,EAAS;AAAA,EAAQ;AAAA,EACnC;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAU;AAAA,EAAQ;AAAA,EACpC;AAAA,EAAY;AAAA,EAAS;AAAA,EAAO;AAAA,EAAO;AAAA,EACnC;AAAA,EAAU;AAAA,EAAS;AAAA,EAAU;AAAA,EAC7B;AAAA,EAAiB;AAAA,EAAiB;AAAA,EAClC;AAAA,EAAS;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAU;AAAA,EAAO;AAAA,EAC1C;AAAA,EAAO;AAAA,EAAO;AAAA,EAAQ;AAAA,EAAO;AAAA,EAAO;AAAA,EAAU;AAAA,EAC9C;AAAA,EAAO;AAAA,EAAW;AAAA,EAAQ;AAAA,EAAU;AAAA,EAAS;AAAA,EAC7C;AAAA,EAAU;AAAA,EAAO;AAAA,EAAe;AAAA,EAAU;AAAA,EAC1C;AAAA,EAAU;AAAA,EAAS;AAAA,EAAc;AAAA,EAAO;AAAA,EACxC;AAAA,EAAU;AAAA,EAAU;AAAA,EAAO;AAAA,EAAU;AAAA,EACrC;AAAA,EAAW;AAAA,EAAY;AAAA,EAAQ;AAAA,EAAO;AAAA,EAAM;AAAA,EAC5C;AAAA,EAAU;AAAA,EAAa;AAAA,EAAW;AAAA,EAAW;AAAA,EAC7C;AAAA,EAAQ;AAAA,EAAiB;AAAA,EAAe;AAAA,EACxC;AAAA,EAAQ;AAAA,EAAY;AAAA,EAAU;AAAA,EAAU;AAAA,EACxC;AAAA,EAAa;AAAA,EAAU;AAAA,EAAgB;AAAA,EACvC;AAAA,EAAQ;AAAA,EAAU;AAAA,EAClB;AAAA,EAAsB;AAAA,EAAgB;AAAA,EACtC;AAAA,EAAS;AAAA,EAAQ;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAO;AAAA,EAC1C;AAAA,EAAQ;AAAA,EAAW;AAAA,EAAU;AAAA,EAAQ;AAAA,EAAS;AAAA,EAC9C;AAAA,EAAO;AAAA,EAAU;AAAA,EAAU;AAAA,EAAgB;AAAA,EAC3C;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAAY;AAAA,EACpC;AAAA,EAAQ;AAAA,EAAU;AAAA,EAAU;AAAA,EAAS;AAAA,EACrC;AAAA,EAAU;AAAA,EAAU;AAAA,EAAO;AAAA,EAAQ;AAAA,EAAQ;AAAA,EAC3C;AAAA,EAAQ;AAAA,EAAQ;AAAO,CAAC,GAE1CM,IAAaN,EAAM;AAAA,EAAC;AAAA,EAAU;AAAA,EAAU;AAAA,EAAY;AAAA,EAChC;AAAA,EAAW;AAAA,EAAmB;AAAA,EAAY;AAAA,EAC1C;AAAA,EAAa;AAAA,EAAa;AAAA,EAAa;AAAA,EACvC;AAAA,EAAkB;AAAA,EAAkB;AAAA,EACpC;AAAA,EAAiB;AAAA,EAAmB;AAAA,EACpC;AAAA,EAAmB;AAAA,EAAkB;AAAA,EACrC;AAAA,EAAc;AAAA,EAAU;AAAA,EACxB;AAAA,EAAyB;AAAA,EAAe;AAAA,EACxC;AAAA,EAAW;AAAA,EAAiB;AAAA,EAAY;AAAA,EACxC;AAAA,EAAW;AAAA,EAAU;AAAA,EAAW;AAAA,EAAW;AAAM,CAAC,GACtEO,IAAiB,kBACjBC,IAAc;AAElB,SAASC,EAAUC,GAAQC,GAAO;AAEhC,MAAID,EAAO,MAAMF,CAAW;AAC1B,WAAO;AAGT,MAAII,IAAKF,EAAO,KAAI;AACpB,MAAIE,KAAM;AACR,WAAAF,EAAO,UAAS,GACT;AAET,MAAIE,KAAM,OAAOA,KAAM;AACrB,WAAAD,EAAM,WAAWE,EAAYD,CAAE,GACxBD,EAAM,SAASD,GAAQC,CAAK;AAErC,MAAI,cAAc,KAAKC,CAAE;AACvB,WAAO;AAET,MAAI,KAAK,KAAKA,CAAE;AACd,WAAAF,EAAO,SAAS,QAAQ,GACjB;AAET,MAAIH,EAAe,KAAKK,CAAE;AACxB,WAAAF,EAAO,SAASH,CAAc,GACvB;AAET,EAAAG,EAAO,SAAS,SAAS;AACzB,MAAII,IAAOJ,EAAO,QAAO,EAAG,YAAW;AAEvC,SAAIN,EAAS,eAAeU,CAAI,IACvB,YAELT,EAAS,eAAeS,CAAI,KAAKR,EAAU,eAAeQ,CAAI,IACzD,YAEF;AACT;AAEA,SAASD,EAAYE,GAAO;AAC1B,SAAO,SAASL,GAAQC,GAAO;AAE7B,aADIK,IAAU,IAAOC,GAAMC,IAAM,KACzBD,IAAOP,EAAO,KAAI,MAAO,QAAM;AACrC,UAAIO,KAAQF,KAAS,CAACC,GAAS;AAC7B,QAAAE,IAAM;AACN;AAAA,MACF;AACA,MAAAF,IAAU,CAACA,KAAWC,KAAQ;AAAA,IAChC;AACA,YAAIC,KAAO,CAACF,OAASL,EAAM,WAAW,OAC/B;AAAA,EACT;AACF;AAIY,MAACQ,IAAU;AAAA,EACrB,MAAM;AAAA,EACN,YAAY,WAAW;AACrB,WAAO,EAAC,UAAU,KAAI;AAAA,EACxB;AAAA,EAEA,OAAO,SAAST,GAAQC,GAAO;AAC7B,QAAID,EAAO,SAAQ,EAAI,QAAO;AAC9B,QAAIU,KAAST,EAAM,YAAYF,GAAWC,GAAQC,CAAK;AACvD,WAAIS,KAAS,aAAaA,KAAS,QAAeA;AAAA,EAEpD;AACF;","x_google_ignoreList":[0]}
|