@milkdown/crepe 7.5.1 → 7.5.3

package/lib/cjs/erlang-NM9dgYaS.js

@@ -1,584 +0,0 @@
-'use strict';
-
-/////////////////////////////////////////////////////////////////////////////
-// constants
-
-var typeWords = [
-  "-type", "-spec", "-export_type", "-opaque"];
-
-var keywordWords = [
-  "after","begin","catch","case","cond","end","fun","if",
-  "let","of","query","receive","try","when"];
-
-var separatorRE    = /[\->,;]/;
-var separatorWords = [
-  "->",";",","];
-
-var operatorAtomWords = [
-  "and","andalso","band","bnot","bor","bsl","bsr","bxor",
-  "div","not","or","orelse","rem","xor"];
-
-var operatorSymbolRE    = /[\+\-\*\/<>=\|:!]/;
-var operatorSymbolWords = [
-  "=","+","-","*","/",">",">=","<","=<","=:=","==","=/=","/=","||","<-","!"];
-
-var openParenRE    = /[<\(\[\{]/;
-var openParenWords = [
-  "<<","(","[","{"];
-
-var closeParenRE    = /[>\)\]\}]/;
-var closeParenWords = [
-  "}","]",")",">>"];
-
-var guardWords = [
-  "is_atom","is_binary","is_bitstring","is_boolean","is_float",
-  "is_function","is_integer","is_list","is_number","is_pid",
-  "is_port","is_record","is_reference","is_tuple",
-  "atom","binary","bitstring","boolean","function","integer","list",
-  "number","pid","port","record","reference","tuple"];
-
-var bifWords = [
-  "abs","adler32","adler32_combine","alive","apply","atom_to_binary",
-  "atom_to_list","binary_to_atom","binary_to_existing_atom",
-  "binary_to_list","binary_to_term","bit_size","bitstring_to_list",
-  "byte_size","check_process_code","contact_binary","crc32",
-  "crc32_combine","date","decode_packet","delete_module",
-  "disconnect_node","element","erase","exit","float","float_to_list",
-  "garbage_collect","get","get_keys","group_leader","halt","hd",
-  "integer_to_list","internal_bif","iolist_size","iolist_to_binary",
-  "is_alive","is_atom","is_binary","is_bitstring","is_boolean",
-  "is_float","is_function","is_integer","is_list","is_number","is_pid",
-  "is_port","is_process_alive","is_record","is_reference","is_tuple",
-  "length","link","list_to_atom","list_to_binary","list_to_bitstring",
-  "list_to_existing_atom","list_to_float","list_to_integer",
-  "list_to_pid","list_to_tuple","load_module","make_ref","module_loaded",
-  "monitor_node","node","node_link","node_unlink","nodes","notalive",
-  "now","open_port","pid_to_list","port_close","port_command",
-  "port_connect","port_control","pre_loaded","process_flag",
-  "process_info","processes","purge_module","put","register",
-  "registered","round","self","setelement","size","spawn","spawn_link",
-  "spawn_monitor","spawn_opt","split_binary","statistics",
-  "term_to_binary","time","throw","tl","trunc","tuple_size",
-  "tuple_to_list","unlink","unregister","whereis"];
-
-// upper case: [A-Z] [Ø-Þ] [À-Ö]
-// lower case: [a-z] [ß-ö] [ø-ÿ]
-var anumRE       = /[\w@Ø-ÞÀ-Öß-öø-ÿ]/;
-var escapesRE    =
-    /[0-7]{1,3}|[bdefnrstv\\"']|\^[a-zA-Z]|x[0-9a-zA-Z]{2}|x{[0-9a-zA-Z]+}/;
-
-/////////////////////////////////////////////////////////////////////////////
-// tokenizer
-
-function tokenizer(stream,state) {
-  // in multi-line string
-  if (state.in_string) {
-    state.in_string = (!doubleQuote(stream));
-    return rval(state,stream,"string");
-  }
-
-  // in multi-line atom
-  if (state.in_atom) {
-    state.in_atom = (!singleQuote(stream));
-    return rval(state,stream,"atom");
-  }
-
-  // whitespace
-  if (stream.eatSpace()) {
-    return rval(state,stream,"whitespace");
-  }
-
-  // attributes and type specs
-  if (!peekToken(state) &&
-      stream.match(/-\s*[a-zß-öø-ÿ][\wØ-ÞÀ-Öß-öø-ÿ]*/)) {
-    if (is_member(stream.current(),typeWords)) {
-      return rval(state,stream,"type");
-    }else {
-      return rval(state,stream,"attribute");
-    }
-  }
-
-  var ch = stream.next();
-
-  // comment
-  if (ch == '%') {
-    stream.skipToEnd();
-    return rval(state,stream,"comment");
-  }
-
-  // colon
-  if (ch == ":") {
-    return rval(state,stream,"colon");
-  }
-
-  // macro
-  if (ch == '?') {
-    stream.eatSpace();
-    stream.eatWhile(anumRE);
-    return rval(state,stream,"macro");
-  }
-
-  // record
-  if (ch == "#") {
-    stream.eatSpace();
-    stream.eatWhile(anumRE);
-    return rval(state,stream,"record");
-  }
-
-  // dollar escape
-  if (ch == "$") {
-    if (stream.next() == "\\" && !stream.match(escapesRE)) {
-      return rval(state,stream,"error");
-    }
-    return rval(state,stream,"number");
-  }
-
-  // dot
-  if (ch == ".") {
-    return rval(state,stream,"dot");
-  }
-
-  // quoted atom
-  if (ch == '\'') {
-    if (!(state.in_atom = (!singleQuote(stream)))) {
-      if (stream.match(/\s*\/\s*[0-9]/,false)) {
-        stream.match(/\s*\/\s*[0-9]/,true);
-        return rval(state,stream,"fun");      // 'f'/0 style fun
-      }
-      if (stream.match(/\s*\(/,false) || stream.match(/\s*:/,false)) {
-        return rval(state,stream,"function");
-      }
-    }
-    return rval(state,stream,"atom");
-  }
-
-  // string
-  if (ch == '"') {
-    state.in_string = (!doubleQuote(stream));
-    return rval(state,stream,"string");
-  }
-
-  // variable
-  if (/[A-Z_Ø-ÞÀ-Ö]/.test(ch)) {
-    stream.eatWhile(anumRE);
-    return rval(state,stream,"variable");
-  }
-
-  // atom/keyword/BIF/function
-  if (/[a-z_ß-öø-ÿ]/.test(ch)) {
-    stream.eatWhile(anumRE);
-
-    if (stream.match(/\s*\/\s*[0-9]/,false)) {
-      stream.match(/\s*\/\s*[0-9]/,true);
-      return rval(state,stream,"fun");      // f/0 style fun
-    }
-
-    var w = stream.current();
-
-    if (is_member(w,keywordWords)) {
-      return rval(state,stream,"keyword");
-    }else if (is_member(w,operatorAtomWords)) {
-      return rval(state,stream,"operator");
-    }else if (stream.match(/\s*\(/,false)) {
-      // 'put' and 'erlang:put' are bifs, 'foo:put' is not
-      if (is_member(w,bifWords) &&
-          ((peekToken(state).token != ":") ||
-           (peekToken(state,2).token == "erlang"))) {
-        return rval(state,stream,"builtin");
-      }else if (is_member(w,guardWords)) {
-        return rval(state,stream,"guard");
-      }else {
-        return rval(state,stream,"function");
-      }
-    }else if (lookahead(stream) == ":") {
-      if (w == "erlang") {
-        return rval(state,stream,"builtin");
-      } else {
-        return rval(state,stream,"function");
-      }
-    }else if (is_member(w,["true","false"])) {
-      return rval(state,stream,"boolean");
-    }else {
-      return rval(state,stream,"atom");
-    }
-  }
-
-  // number
-  var digitRE      = /[0-9]/;
-  var radixRE      = /[0-9a-zA-Z]/;         // 36#zZ style int
-  if (digitRE.test(ch)) {
-    stream.eatWhile(digitRE);
-    if (stream.eat('#')) {                // 36#aZ  style integer
-      if (!stream.eatWhile(radixRE)) {
-        stream.backUp(1);                 //"36#" - syntax error
-      }
-    } else if (stream.eat('.')) {       // float
-      if (!stream.eatWhile(digitRE)) {
-        stream.backUp(1);        // "3." - probably end of function
-      } else {
-        if (stream.eat(/[eE]/)) {        // float with exponent
-          if (stream.eat(/[-+]/)) {
-            if (!stream.eatWhile(digitRE)) {
-              stream.backUp(2);            // "2e-" - syntax error
-            }
-          } else {
-            if (!stream.eatWhile(digitRE)) {
-              stream.backUp(1);            // "2e" - syntax error
-            }
-          }
-        }
-      }
-    }
-    return rval(state,stream,"number");   // normal integer
-  }
-
-  // open parens
-  if (nongreedy(stream,openParenRE,openParenWords)) {
-    return rval(state,stream,"open_paren");
-  }
-
-  // close parens
-  if (nongreedy(stream,closeParenRE,closeParenWords)) {
-    return rval(state,stream,"close_paren");
-  }
-
-  // separators
-  if (greedy(stream,separatorRE,separatorWords)) {
-    return rval(state,stream,"separator");
-  }
-
-  // operators
-  if (greedy(stream,operatorSymbolRE,operatorSymbolWords)) {
-    return rval(state,stream,"operator");
-  }
-
-  return rval(state,stream,null);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// utilities
-function nongreedy(stream,re,words) {
-  if (stream.current().length == 1 && re.test(stream.current())) {
-    stream.backUp(1);
-    while (re.test(stream.peek())) {
-      stream.next();
-      if (is_member(stream.current(),words)) {
-        return true;
-      }
-    }
-    stream.backUp(stream.current().length-1);
-  }
-  return false;
-}
-
-function greedy(stream,re,words) {
-  if (stream.current().length == 1 && re.test(stream.current())) {
-    while (re.test(stream.peek())) {
-      stream.next();
-    }
-    while (0 < stream.current().length) {
-      if (is_member(stream.current(),words)) {
-        return true;
-      }else {
-        stream.backUp(1);
-      }
-    }
-    stream.next();
-  }
-  return false;
-}
-
-function doubleQuote(stream) {
-  return quote(stream, '"', '\\');
-}
-
-function singleQuote(stream) {
-  return quote(stream,'\'','\\');
-}
-
-function quote(stream,quoteChar,escapeChar) {
-  while (!stream.eol()) {
-    var ch = stream.next();
-    if (ch == quoteChar) {
-      return true;
-    }else if (ch == escapeChar) {
-      stream.next();
-    }
-  }
-  return false;
-}
-
-function lookahead(stream) {
-  var m = stream.match(/^\s*([^\s%])/, false);
-  return m ? m[1] : "";
-}
-
-function is_member(element,list) {
-  return (-1 < list.indexOf(element));
-}
-
-function rval(state,stream,type) {
-
-  // parse stack
-  pushToken(state,realToken(type,stream));
-
-  // map erlang token type to CodeMirror style class
-  //     erlang             -> CodeMirror tag
-  switch (type) {
-  case "atom":        return "atom";
-  case "attribute":   return "attribute";
-  case "boolean":     return "atom";
-  case "builtin":     return "builtin";
-  case "close_paren": return null;
-  case "colon":       return null;
-  case "comment":     return "comment";
-  case "dot":         return null;
-  case "error":       return "error";
-  case "fun":         return "meta";
-  case "function":    return "tag";
-  case "guard":       return "property";
-  case "keyword":     return "keyword";
-  case "macro":       return "macroName";
-  case "number":      return "number";
-  case "open_paren":  return null;
-  case "operator":    return "operator";
-  case "record":      return "bracket";
-  case "separator":   return null;
-  case "string":      return "string";
-  case "type":        return "def";
-  case "variable":    return "variable";
-  default:            return null;
-  }
-}
-
-function aToken(tok,col,ind,typ) {
-  return {token:  tok,
-          column: col,
-          indent: ind,
-          type:   typ};
-}
-
-function realToken(type,stream) {
-  return aToken(stream.current(),
-                stream.column(),
-                stream.indentation(),
-                type);
-}
-
-function fakeToken(type) {
-  return aToken(type,0,0,type);
-}
-
-function peekToken(state,depth) {
-  var len = state.tokenStack.length;
-  var dep = (depth ? depth : 1);
-
-  if (len < dep) {
-    return false;
-  }else {
-    return state.tokenStack[len-dep];
-  }
-}
-
-function pushToken(state,token) {
-
-  if (!(token.type == "comment" || token.type == "whitespace")) {
-    state.tokenStack = maybe_drop_pre(state.tokenStack,token);
-    state.tokenStack = maybe_drop_post(state.tokenStack);
-  }
-}
-
-function maybe_drop_pre(s,token) {
-  var last = s.length-1;
-
-  if (0 < last && s[last].type === "record" && token.type === "dot") {
-    s.pop();
-  }else if (0 < last && s[last].type === "group") {
-    s.pop();
-    s.push(token);
-  }else {
-    s.push(token);
-  }
-  return s;
-}
-
-function maybe_drop_post(s) {
-  if (!s.length) return s
-  var last = s.length-1;
-
-  if (s[last].type === "dot") {
-    return [];
-  }
-  if (last > 1 && s[last].type === "fun" && s[last-1].token === "fun") {
-    return s.slice(0,last-1);
-  }
-  switch (s[last].token) {
-  case "}":    return d(s,{g:["{"]});
-  case "]":    return d(s,{i:["["]});
-  case ")":    return d(s,{i:["("]});
-  case ">>":   return d(s,{i:["<<"]});
-  case "end":  return d(s,{i:["begin","case","fun","if","receive","try"]});
-  case ",":    return d(s,{e:["begin","try","when","->",
-                              ",","(","[","{","<<"]});
-  case "->":   return d(s,{r:["when"],
-                           m:["try","if","case","receive"]});
-  case ";":    return d(s,{E:["case","fun","if","receive","try","when"]});
-  case "catch":return d(s,{e:["try"]});
-  case "of":   return d(s,{e:["case"]});
-  case "after":return d(s,{e:["receive","try"]});
-  default:     return s;
-  }
-}
-
-function d(stack,tt) {
-  // stack is a stack of Token objects.
-  // tt is an object; {type:tokens}
-  // type is a char, tokens is a list of token strings.
-  // The function returns (possibly truncated) stack.
-  // It will descend the stack, looking for a Token such that Token.token
-  //  is a member of tokens. If it does not find that, it will normally (but
-  //  see "E" below) return stack. If it does find a match, it will remove
-  //  all the Tokens between the top and the matched Token.
-  // If type is "m", that is all it does.
-  // If type is "i", it will also remove the matched Token and the top Token.
-  // If type is "g", like "i", but add a fake "group" token at the top.
-  // If type is "r", it will remove the matched Token, but not the top Token.
-  // If type is "e", it will keep the matched Token but not the top Token.
-  // If type is "E", it behaves as for type "e", except if there is no match,
-  //  in which case it will return an empty stack.
-
-  for (var type in tt) {
-    var len = stack.length-1;
-    var tokens = tt[type];
-    for (var i = len-1; -1 < i ; i--) {
-      if (is_member(stack[i].token,tokens)) {
-        var ss = stack.slice(0,i);
-        switch (type) {
-        case "m": return ss.concat(stack[i]).concat(stack[len]);
-        case "r": return ss.concat(stack[len]);
-        case "i": return ss;
-        case "g": return ss.concat(fakeToken("group"));
-        case "E": return ss.concat(stack[i]);
-        case "e": return ss.concat(stack[i]);
-        }
-      }
-    }
-  }
-  return (type == "E" ? [] : stack);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// indenter
-
-function indenter(state, textAfter, cx) {
-  var t;
-  var wordAfter = wordafter(textAfter);
-  var currT = peekToken(state,1);
-  var prevT = peekToken(state,2);
-
-  if (state.in_string || state.in_atom) {
-    return null;
-  }else if (!prevT) {
-    return 0;
-  }else if (currT.token == "when") {
-    return currT.column + cx.unit;
-  }else if (wordAfter === "when" && prevT.type === "function") {
-    return prevT.indent+cx.unit;
-  }else if (wordAfter === "(" && currT.token === "fun") {
-    return  currT.column+3;
-  }else if (wordAfter === "catch" && (t = getToken(state,["try"]))) {
-    return t.column;
-  }else if (is_member(wordAfter,["end","after","of"])) {
-    t = getToken(state,["begin","case","fun","if","receive","try"]);
-    return t ? t.column : null;
-  }else if (is_member(wordAfter,closeParenWords)) {
-    t = getToken(state,openParenWords);
-    return t ? t.column : null;
-  }else if (is_member(currT.token,[",","|","||"]) ||
-            is_member(wordAfter,[",","|","||"])) {
-    t = postcommaToken(state);
-    return t ? t.column+t.token.length : cx.unit;
-  }else if (currT.token == "->") {
-    if (is_member(prevT.token, ["receive","case","if","try"])) {
-      return prevT.column+cx.unit+cx.unit;
-    }else {
-      return prevT.column+cx.unit;
-    }
-  }else if (is_member(currT.token,openParenWords)) {
-    return currT.column+currT.token.length;
-  }else {
-    t = defaultToken(state);
-    return truthy(t) ? t.column+cx.unit : 0;
-  }
-}
-
-function wordafter(str) {
-  var m = str.match(/,|[a-z]+|\}|\]|\)|>>|\|+|\(/);
-
-  return truthy(m) && (m.index === 0) ? m[0] : "";
-}
-
-function postcommaToken(state) {
-  var objs = state.tokenStack.slice(0,-1);
-  var i = getTokenIndex(objs,"type",["open_paren"]);
-
-  return truthy(objs[i]) ? objs[i] : false;
-}
-
-function defaultToken(state) {
-  var objs = state.tokenStack;
-  var stop = getTokenIndex(objs,"type",["open_paren","separator","keyword"]);
-  var oper = getTokenIndex(objs,"type",["operator"]);
-
-  if (truthy(stop) && truthy(oper) && stop < oper) {
-    return objs[stop+1];
-  } else if (truthy(stop)) {
-    return objs[stop];
-  } else {
-    return false;
-  }
-}
-
-function getToken(state,tokens) {
-  var objs = state.tokenStack;
-  var i = getTokenIndex(objs,"token",tokens);
-
-  return truthy(objs[i]) ? objs[i] : false;
-}
-
-function getTokenIndex(objs,propname,propvals) {
-
-  for (var i = objs.length-1; -1 < i ; i--) {
-    if (is_member(objs[i][propname],propvals)) {
-      return i;
-    }
-  }
-  return false;
-}
-
-function truthy(x) {
-  return (x !== false) && (x != null);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// this object defines the mode
-
-const erlang = {
-  name: "erlang",
-  startState() {
-    return {tokenStack: [],
-            in_string:  false,
-            in_atom:    false};
-  },
-
-  token: tokenizer,
-
-  indent: indenter,
-
-  languageData: {
-    commentTokens: {line: "%"}
-  }
-};
-
-exports.erlang = erlang;
-//# sourceMappingURL=erlang-NM9dgYaS.js.map