@tempots/beatui 0.17.0 → 0.19.0

package/dist/factor-DDOC7X6P.js

@@ -0,0 +1,65 @@
+import { s as e } from "./simple-mode-B0dvCdAA.js";
+const n = e({
+  start: [
+    // comments
+    { regex: /#?!.*/, token: "comment" },
+    // strings """, multiline --> state
+    { regex: /"""/, token: "string", next: "string3" },
+    { regex: /(STRING:)(\s)/, token: ["keyword", null], next: "string2" },
+    { regex: /\S*?"/, token: "string", next: "string" },
+    // numbers: dec, hex, unicode, bin, fractional, complex
+    { regex: /(?:0x[\d,a-f]+)|(?:0o[0-7]+)|(?:0b[0,1]+)|(?:\-?\d+.?\d*)(?=\s)/, token: "number" },
+    //{regex: /[+-]?/} //fractional
+    // definition: defining word, defined word, etc
+    { regex: /((?:GENERIC)|\:?\:)(\s+)(\S+)(\s+)(\()/, token: ["keyword", null, "def", null, "bracket"], next: "stack" },
+    // method definition: defining word, type, defined word, etc
+    { regex: /(M\:)(\s+)(\S+)(\s+)(\S+)/, token: ["keyword", null, "def", null, "tag"] },
+    // vocabulary using --> state
+    { regex: /USING\:/, token: "keyword", next: "vocabulary" },
+    // vocabulary definition/use
+    { regex: /(USE\:|IN\:)(\s+)(\S+)(?=\s|$)/, token: ["keyword", null, "tag"] },
+    // definition: a defining word, defined word
+    { regex: /(\S+\:)(\s+)(\S+)(?=\s|$)/, token: ["keyword", null, "def"] },
+    // "keywords", incl. ; t f . [ ] { } defining words
+    { regex: /(?:;|\\|t|f|if|loop|while|until|do|PRIVATE>|<PRIVATE|\.|\S*\[|\]|\S*\{|\})(?=\s|$)/, token: "keyword" },
+    // <constructors> and the like
+    { regex: /\S+[\)>\.\*\?]+(?=\s|$)/, token: "builtin" },
+    { regex: /[\)><]+\S+(?=\s|$)/, token: "builtin" },
+    // operators
+    { regex: /(?:[\+\-\=\/\*<>])(?=\s|$)/, token: "keyword" },
+    // any id (?)
+    { regex: /\S+/, token: "variable" },
+    { regex: /\s+|./, token: null }
+  ],
+  vocabulary: [
+    { regex: /;/, token: "keyword", next: "start" },
+    { regex: /\S+/, token: "tag" },
+    { regex: /\s+|./, token: null }
+  ],
+  string: [
+    { regex: /(?:[^\\]|\\.)*?"/, token: "string", next: "start" },
+    { regex: /.*/, token: "string" }
+  ],
+  string2: [
+    { regex: /^;/, token: "keyword", next: "start" },
+    { regex: /.*/, token: "string" }
+  ],
+  string3: [
+    { regex: /(?:[^\\]|\\.)*?"""/, token: "string", next: "start" },
+    { regex: /.*/, token: "string" }
+  ],
+  stack: [
+    { regex: /\)/, token: "bracket", next: "start" },
+    { regex: /--/, token: "bracket" },
+    { regex: /\S+/, token: "meta" },
+    { regex: /\s+|./, token: null }
+  ],
+  languageData: {
+    name: "factor",
+    dontIndentStates: ["start", "vocabulary", "string", "string3", "stack"],
+    commentTokens: { line: "!" }
+  }
+});
+export {
+  n as factor
+};

package/dist/fcl-BzAKklXo.cjs

@@ -0,0 +1 @@
+"use strict";Object.defineProperty(exports,Symbol.toStringTag,{value:"Module"});var d={term:!0,method:!0,accu:!0,rule:!0,then:!0,is:!0,and:!0,or:!0,if:!0,default:!0},f={var_input:!0,var_output:!0,fuzzify:!0,defuzzify:!0,function_block:!0,ruleblock:!0},o={end_ruleblock:!0,end_defuzzify:!0,end_function_block:!0,end_fuzzify:!0,end_var:!0},p={true:!0,false:!0,nan:!0,real:!0,min:!0,max:!0,cog:!0,cogs:!0},l=/[+\-*&^%:=<>!|\/]/;function i(e,n){var t=e.next();if(/[\d\.]/.test(t))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";if(t=="/"||t=="("){if(e.eat("*"))return n.tokenize=c,c(e,n);if(e.eat("/"))return e.skipToEnd(),"comment"}if(l.test(t))return e.eatWhile(l),"operator";e.eatWhile(/[\w\$_\xa1-\uffff]/);var r=e.current().toLowerCase();return d.propertyIsEnumerable(r)||f.propertyIsEnumerable(r)||o.propertyIsEnumerable(r)?"keyword":p.propertyIsEnumerable(r)?"atom":"variable"}function c(e,n){for(var t=!1,r;r=e.next();){if((r=="/"||r==")")&&t){n.tokenize=i;break}t=r=="*"}return"comment"}function a(e,n,t,r,u){this.indented=e,this.column=n,this.type=t,this.align=r,this.prev=u}function k(e,n,t){return e.context=new a(e.indented,n,t,null,e.context)}function b(e){if(e.context.prev){var n=e.context.type;return n=="end_block"&&(e.indented=e.context.indented),e.context=e.context.prev}}const v={name:"fcl",startState:function(e){return{tokenize:null,context:new a(-e,0,"top",!1),indented:0,startOfLine:!0}},token:function(e,n){var t=n.context;if(e.sol()&&(t.align==null&&(t.align=!1),n.indented=e.indentation(),n.startOfLine=!0),e.eatSpace())return null;var r=(n.tokenize||i)(e,n);if(r=="comment")return r;t.align==null&&(t.align=!0);var u=e.current().toLowerCase();return f.propertyIsEnumerable(u)?k(n,e.column(),"end_block"):o.propertyIsEnumerable(u)&&b(n),n.startOfLine=!1,r},indent:function(e,n,t){if(e.tokenize!=i&&e.tokenize!=null)return 0;var r=e.context,u=o.propertyIsEnumerable(n);return r.align?r.column+(u?0:1):r.indented+(u?0:t.unit)},languageData:{commentTokens:{line:"//",block:{open:"(*",close:"*)"}}}};exports.fcl=v;

package/dist/fcl-CPC2WYrI.js

@@ -0,0 +1,103 @@
+var d = {
+  term: !0,
+  method: !0,
+  accu: !0,
+  rule: !0,
+  then: !0,
+  is: !0,
+  and: !0,
+  or: !0,
+  if: !0,
+  default: !0
+}, f = {
+  var_input: !0,
+  var_output: !0,
+  fuzzify: !0,
+  defuzzify: !0,
+  function_block: !0,
+  ruleblock: !0
+}, o = {
+  end_ruleblock: !0,
+  end_defuzzify: !0,
+  end_function_block: !0,
+  end_fuzzify: !0,
+  end_var: !0
+}, p = {
+  true: !0,
+  false: !0,
+  nan: !0,
+  real: !0,
+  min: !0,
+  max: !0,
+  cog: !0,
+  cogs: !0
+}, l = /[+\-*&^%:=<>!|\/]/;
+function i(e, n) {
+  var t = e.next();
+  if (/[\d\.]/.test(t))
+    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";
+  if (t == "/" || t == "(") {
+    if (e.eat("*"))
+      return n.tokenize = c, c(e, n);
+    if (e.eat("/"))
+      return e.skipToEnd(), "comment";
+  }
+  if (l.test(t))
+    return e.eatWhile(l), "operator";
+  e.eatWhile(/[\w\$_\xa1-\uffff]/);
+  var r = e.current().toLowerCase();
+  return d.propertyIsEnumerable(r) || f.propertyIsEnumerable(r) || o.propertyIsEnumerable(r) ? "keyword" : p.propertyIsEnumerable(r) ? "atom" : "variable";
+}
+function c(e, n) {
+  for (var t = !1, r; r = e.next(); ) {
+    if ((r == "/" || r == ")") && t) {
+      n.tokenize = i;
+      break;
+    }
+    t = r == "*";
+  }
+  return "comment";
+}
+function a(e, n, t, r, u) {
+  this.indented = e, this.column = n, this.type = t, this.align = r, this.prev = u;
+}
+function k(e, n, t) {
+  return e.context = new a(e.indented, n, t, null, e.context);
+}
+function v(e) {
+  if (e.context.prev) {
+    var n = e.context.type;
+    return n == "end_block" && (e.indented = e.context.indented), e.context = e.context.prev;
+  }
+}
+const x = {
+  name: "fcl",
+  startState: function(e) {
+    return {
+      tokenize: null,
+      context: new a(-e, 0, "top", !1),
+      indented: 0,
+      startOfLine: !0
+    };
+  },
+  token: function(e, n) {
+    var t = n.context;
+    if (e.sol() && (t.align == null && (t.align = !1), n.indented = e.indentation(), n.startOfLine = !0), e.eatSpace()) return null;
+    var r = (n.tokenize || i)(e, n);
+    if (r == "comment") return r;
+    t.align == null && (t.align = !0);
+    var u = e.current().toLowerCase();
+    return f.propertyIsEnumerable(u) ? k(n, e.column(), "end_block") : o.propertyIsEnumerable(u) && v(n), n.startOfLine = !1, r;
+  },
+  indent: function(e, n, t) {
+    if (e.tokenize != i && e.tokenize != null) return 0;
+    var r = e.context, u = o.propertyIsEnumerable(n);
+    return r.align ? r.column + (u ? 0 : 1) : r.indented + (u ? 0 : t.unit);
+  },
+  languageData: {
+    commentTokens: { line: "//", block: { open: "(*", close: "*)" } }
+  }
+};
+export {
+  x as fcl
+};

package/dist/forth-BmxRyE9S.js

@@ -0,0 +1,60 @@
+function t(i) {
+  var n = [];
+  return i.split(" ").forEach(function(E) {
+    n.push({ name: E });
+  }), n;
+}
+var r = t(
+  "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"
+), 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");
+function R(i, n) {
+  var E;
+  for (E = i.length - 1; E >= 0; E--)
+    if (i[E].name === n.toUpperCase())
+      return i[E];
+}
+const L = {
+  name: "forth",
+  startState: function() {
+    return {
+      state: "",
+      base: 10,
+      coreWordList: r,
+      immediateWordList: O,
+      wordList: []
+    };
+  },
+  token: function(i, n) {
+    var E;
+    if (i.eatSpace())
+      return null;
+    if (n.state === "") {
+      if (i.match(/^(\]|:NONAME)(\s|$)/i))
+        return n.state = " compilation", "builtin";
+      if (E = i.match(/^(\:)\s+(\S+)(\s|$)+/), E)
+        return n.wordList.push({ name: E[2].toUpperCase() }), n.state = " compilation", "def";
+      if (E = i.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i), E)
+        return n.wordList.push({ name: E[2].toUpperCase() }), "def";
+      if (E = i.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/), E)
+        return "builtin";
+    } else {
+      if (i.match(/^(\;|\[)(\s)/))
+        return n.state = "", i.backUp(1), "builtin";
+      if (i.match(/^(\;|\[)($)/))
+        return n.state = "", "builtin";
+      if (i.match(/^(POSTPONE)\s+\S+(\s|$)+/))
+        return "builtin";
+    }
+    if (E = i.match(/^(\S+)(\s+|$)/), E)
+      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) {
+        return e !== ")";
+      }), i.eat(")"), "comment") : E[1] === ".(" ? (i.eatWhile(function(e) {
+        return e !== ")";
+      }), i.eat(")"), "string") : E[1] === 'S"' || E[1] === '."' || E[1] === 'C"' ? (i.eatWhile(function(e) {
+        return e !== '"';
+      }), i.eat('"'), "string") : E[1] - 68719476735 ? "number" : "atom";
+  }
+};
+export {
+  L as forth
+};

package/dist/forth-CPAzyZ_n.cjs

@@ -0,0 +1 @@
+"use strict";Object.defineProperty(exports,Symbol.toStringTag,{value:"Module"});function r(i){var e=[];return i.split(" ").forEach(function(E){e.push({name:E})}),e}var R=r("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"),O=r("IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE [IF] [ELSE] [THEN] ?DO DO LOOP +LOOP UNLOOP LEAVE EXIT AGAIN CASE OF ENDOF ENDCASE");function n(i,e){var E;for(E=i.length-1;E>=0;E--)if(i[E].name===e.toUpperCase())return i[E]}const S={name:"forth",startState:function(){return{state:"",base:10,coreWordList:R,immediateWordList:O,wordList:[]}},token:function(i,e){var E;if(i.eatSpace())return null;if(e.state===""){if(i.match(/^(\]|:NONAME)(\s|$)/i))return e.state=" compilation","builtin";if(E=i.match(/^(\:)\s+(\S+)(\s|$)+/),E)return e.wordList.push({name:E[2].toUpperCase()}),e.state=" compilation","def";if(E=i.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i),E)return e.wordList.push({name:E[2].toUpperCase()}),"def";if(E=i.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/),E)return"builtin"}else{if(i.match(/^(\;|\[)(\s)/))return e.state="",i.backUp(1),"builtin";if(i.match(/^(\;|\[)($)/))return e.state="","builtin";if(i.match(/^(POSTPONE)\s+\S+(\s|$)+/))return"builtin"}if(E=i.match(/^(\S+)(\s+|$)/),E)return n(e.wordList,E[1])!==void 0?"variable":E[1]==="\\"?(i.skipToEnd(),"comment"):n(e.coreWordList,E[1])!==void 0?"builtin":n(e.immediateWordList,E[1])!==void 0?"keyword":E[1]==="("?(i.eatWhile(function(t){return t!==")"}),i.eat(")"),"comment"):E[1]===".("?(i.eatWhile(function(t){return t!==")"}),i.eat(")"),"string"):E[1]==='S"'||E[1]==='."'||E[1]==='C"'?(i.eatWhile(function(t){return t!=='"'}),i.eat('"'),"string"):E[1]-68719476735?"number":"atom"}};exports.forth=S;

package/dist/fortran-9bvPyrOW.js

@@ -0,0 +1,442 @@
+function r(t) {
+  for (var n = {}, e = 0; e < t.length; ++e)
+    n[t[e]] = !0;
+  return n;
+}
+var l = r([
+  "abstract",
+  "accept",
+  "allocatable",
+  "allocate",
+  "array",
+  "assign",
+  "asynchronous",
+  "backspace",
+  "bind",
+  "block",
+  "byte",
+  "call",
+  "case",
+  "class",
+  "close",
+  "common",
+  "contains",
+  "continue",
+  "cycle",
+  "data",
+  "deallocate",
+  "decode",
+  "deferred",
+  "dimension",
+  "do",
+  "elemental",
+  "else",
+  "encode",
+  "end",
+  "endif",
+  "entry",
+  "enumerator",
+  "equivalence",
+  "exit",
+  "external",
+  "extrinsic",
+  "final",
+  "forall",
+  "format",
+  "function",
+  "generic",
+  "go",
+  "goto",
+  "if",
+  "implicit",
+  "import",
+  "include",
+  "inquire",
+  "intent",
+  "interface",
+  "intrinsic",
+  "module",
+  "namelist",
+  "non_intrinsic",
+  "non_overridable",
+  "none",
+  "nopass",
+  "nullify",
+  "open",
+  "optional",
+  "options",
+  "parameter",
+  "pass",
+  "pause",
+  "pointer",
+  "print",
+  "private",
+  "program",
+  "protected",
+  "public",
+  "pure",
+  "read",
+  "recursive",
+  "result",
+  "return",
+  "rewind",
+  "save",
+  "select",
+  "sequence",
+  "stop",
+  "subroutine",
+  "target",
+  "then",
+  "to",
+  "type",
+  "use",
+  "value",
+  "volatile",
+  "where",
+  "while",
+  "write"
+]), s = r([
+  "abort",
+  "abs",
+  "access",
+  "achar",
+  "acos",
+  "adjustl",
+  "adjustr",
+  "aimag",
+  "aint",
+  "alarm",
+  "all",
+  "allocated",
+  "alog",
+  "amax",
+  "amin",
+  "amod",
+  "and",
+  "anint",
+  "any",
+  "asin",
+  "associated",
+  "atan",
+  "besj",
+  "besjn",
+  "besy",
+  "besyn",
+  "bit_size",
+  "btest",
+  "cabs",
+  "ccos",
+  "ceiling",
+  "cexp",
+  "char",
+  "chdir",
+  "chmod",
+  "clog",
+  "cmplx",
+  "command_argument_count",
+  "complex",
+  "conjg",
+  "cos",
+  "cosh",
+  "count",
+  "cpu_time",
+  "cshift",
+  "csin",
+  "csqrt",
+  "ctime",
+  "c_funloc",
+  "c_loc",
+  "c_associated",
+  "c_null_ptr",
+  "c_null_funptr",
+  "c_f_pointer",
+  "c_null_char",
+  "c_alert",
+  "c_backspace",
+  "c_form_feed",
+  "c_new_line",
+  "c_carriage_return",
+  "c_horizontal_tab",
+  "c_vertical_tab",
+  "dabs",
+  "dacos",
+  "dasin",
+  "datan",
+  "date_and_time",
+  "dbesj",
+  "dbesj",
+  "dbesjn",
+  "dbesy",
+  "dbesy",
+  "dbesyn",
+  "dble",
+  "dcos",
+  "dcosh",
+  "ddim",
+  "derf",
+  "derfc",
+  "dexp",
+  "digits",
+  "dim",
+  "dint",
+  "dlog",
+  "dlog",
+  "dmax",
+  "dmin",
+  "dmod",
+  "dnint",
+  "dot_product",
+  "dprod",
+  "dsign",
+  "dsinh",
+  "dsin",
+  "dsqrt",
+  "dtanh",
+  "dtan",
+  "dtime",
+  "eoshift",
+  "epsilon",
+  "erf",
+  "erfc",
+  "etime",
+  "exit",
+  "exp",
+  "exponent",
+  "extends_type_of",
+  "fdate",
+  "fget",
+  "fgetc",
+  "float",
+  "floor",
+  "flush",
+  "fnum",
+  "fputc",
+  "fput",
+  "fraction",
+  "fseek",
+  "fstat",
+  "ftell",
+  "gerror",
+  "getarg",
+  "get_command",
+  "get_command_argument",
+  "get_environment_variable",
+  "getcwd",
+  "getenv",
+  "getgid",
+  "getlog",
+  "getpid",
+  "getuid",
+  "gmtime",
+  "hostnm",
+  "huge",
+  "iabs",
+  "iachar",
+  "iand",
+  "iargc",
+  "ibclr",
+  "ibits",
+  "ibset",
+  "ichar",
+  "idate",
+  "idim",
+  "idint",
+  "idnint",
+  "ieor",
+  "ierrno",
+  "ifix",
+  "imag",
+  "imagpart",
+  "index",
+  "int",
+  "ior",
+  "irand",
+  "isatty",
+  "ishft",
+  "ishftc",
+  "isign",
+  "iso_c_binding",
+  "is_iostat_end",
+  "is_iostat_eor",
+  "itime",
+  "kill",
+  "kind",
+  "lbound",
+  "len",
+  "len_trim",
+  "lge",
+  "lgt",
+  "link",
+  "lle",
+  "llt",
+  "lnblnk",
+  "loc",
+  "log",
+  "logical",
+  "long",
+  "lshift",
+  "lstat",
+  "ltime",
+  "matmul",
+  "max",
+  "maxexponent",
+  "maxloc",
+  "maxval",
+  "mclock",
+  "merge",
+  "move_alloc",
+  "min",
+  "minexponent",
+  "minloc",
+  "minval",
+  "mod",
+  "modulo",
+  "mvbits",
+  "nearest",
+  "new_line",
+  "nint",
+  "not",
+  "or",
+  "pack",
+  "perror",
+  "precision",
+  "present",
+  "product",
+  "radix",
+  "rand",
+  "random_number",
+  "random_seed",
+  "range",
+  "real",
+  "realpart",
+  "rename",
+  "repeat",
+  "reshape",
+  "rrspacing",
+  "rshift",
+  "same_type_as",
+  "scale",
+  "scan",
+  "second",
+  "selected_int_kind",
+  "selected_real_kind",
+  "set_exponent",
+  "shape",
+  "short",
+  "sign",
+  "signal",
+  "sinh",
+  "sin",
+  "sleep",
+  "sngl",
+  "spacing",
+  "spread",
+  "sqrt",
+  "srand",
+  "stat",
+  "sum",
+  "symlnk",
+  "system",
+  "system_clock",
+  "tan",
+  "tanh",
+  "time",
+  "tiny",
+  "transfer",
+  "transpose",
+  "trim",
+  "ttynam",
+  "ubound",
+  "umask",
+  "unlink",
+  "unpack",
+  "verify",
+  "xor",
+  "zabs",
+  "zcos",
+  "zexp",
+  "zlog",
+  "zsin",
+  "zsqrt"
+]), d = r([
+  "c_bool",
+  "c_char",
+  "c_double",
+  "c_double_complex",
+  "c_float",
+  "c_float_complex",
+  "c_funptr",
+  "c_int",
+  "c_int16_t",
+  "c_int32_t",
+  "c_int64_t",
+  "c_int8_t",
+  "c_int_fast16_t",
+  "c_int_fast32_t",
+  "c_int_fast64_t",
+  "c_int_fast8_t",
+  "c_int_least16_t",
+  "c_int_least32_t",
+  "c_int_least64_t",
+  "c_int_least8_t",
+  "c_intmax_t",
+  "c_intptr_t",
+  "c_long",
+  "c_long_double",
+  "c_long_double_complex",
+  "c_long_long",
+  "c_ptr",
+  "c_short",
+  "c_signed_char",
+  "c_size_t",
+  "character",
+  "complex",
+  "double",
+  "integer",
+  "logical",
+  "real"
+]), c = /[+\-*&=<>\/\:]/, _ = /^\.(and|or|eq|lt|le|gt|ge|ne|not|eqv|neqv)\./i;
+function u(t, n) {
+  if (t.match(_))
+    return "operator";
+  var e = t.next();
+  if (e == "!")
+    return t.skipToEnd(), "comment";
+  if (e == '"' || e == "'")
+    return n.tokenize = m(e), n.tokenize(t, n);
+  if (/[\[\]\(\),]/.test(e))
+    return null;
+  if (/\d/.test(e))
+    return t.eatWhile(/[\w\.]/), "number";
+  if (c.test(e))
+    return t.eatWhile(c), "operator";
+  t.eatWhile(/[\w\$_]/);
+  var i = t.current().toLowerCase();
+  return l.hasOwnProperty(i) ? "keyword" : s.hasOwnProperty(i) || d.hasOwnProperty(i) ? "builtin" : "variable";
+}
+function m(t) {
+  return function(n, e) {
+    for (var i = !1, a, o = !1; (a = n.next()) != null; ) {
+      if (a == t && !i) {
+        o = !0;
+        break;
+      }
+      i = !i && a == "\\";
+    }
+    return (o || !i) && (e.tokenize = null), "string";
+  };
+}
+const p = {
+  name: "fortran",
+  startState: function() {
+    return { tokenize: null };
+  },
+  token: function(t, n) {
+    if (t.eatSpace()) return null;
+    var e = (n.tokenize || u)(t, n);
+    return e == "comment" || e == "meta", e;
+  }
+};
+export {
+  p as fortran
+};