You cannot select more than 25 topics
			Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
		
		
		
		
		
			
		
			
				
	
	
		
			352 lines
		
	
	
		
			9.3 KiB
		
	
	
	
		
			JavaScript
		
	
			
		
		
	
	
			352 lines
		
	
	
		
			9.3 KiB
		
	
	
	
		
			JavaScript
		
	
"use strict";
 | 
						|
(self["webpackChunk_JUPYTERLAB_CORE_OUTPUT"] = self["webpackChunk_JUPYTERLAB_CORE_OUTPUT"] || []).push([[9331],{
 | 
						|
 | 
						|
/***/ 69331:
 | 
						|
/***/ ((__unused_webpack_module, __webpack_exports__, __webpack_require__) => {
 | 
						|
 | 
						|
__webpack_require__.r(__webpack_exports__);
 | 
						|
/* harmony export */ __webpack_require__.d(__webpack_exports__, {
 | 
						|
/* harmony export */   dylan: () => (/* binding */ dylan)
 | 
						|
/* harmony export */ });
 | 
						|
function forEach(arr, f) {
 | 
						|
  for (var i = 0; i < arr.length; i++) f(arr[i], i)
 | 
						|
}
 | 
						|
function some(arr, f) {
 | 
						|
  for (var i = 0; i < arr.length; i++) if (f(arr[i], i)) return true
 | 
						|
  return false
 | 
						|
}
 | 
						|
 | 
						|
// Words
 | 
						|
var words = {
 | 
						|
  // Words that introduce unnamed definitions like "define interface"
 | 
						|
  unnamedDefinition: ["interface"],
 | 
						|
 | 
						|
  // Words that introduce simple named definitions like "define library"
 | 
						|
  namedDefinition: ["module", "library", "macro",
 | 
						|
                    "C-struct", "C-union",
 | 
						|
                    "C-function", "C-callable-wrapper"
 | 
						|
                   ],
 | 
						|
 | 
						|
  // Words that introduce type definitions like "define class".
 | 
						|
  // These are also parameterized like "define method" and are
 | 
						|
  // appended to otherParameterizedDefinitionWords
 | 
						|
  typeParameterizedDefinition: ["class", "C-subtype", "C-mapped-subtype"],
 | 
						|
 | 
						|
  // Words that introduce trickier definitions like "define method".
 | 
						|
  // These require special definitions to be added to startExpressions
 | 
						|
  otherParameterizedDefinition: ["method", "function",
 | 
						|
                                 "C-variable", "C-address"
 | 
						|
                                ],
 | 
						|
 | 
						|
  // Words that introduce module constant definitions.
 | 
						|
  // These must also be simple definitions and are
 | 
						|
  // appended to otherSimpleDefinitionWords
 | 
						|
  constantSimpleDefinition: ["constant"],
 | 
						|
 | 
						|
  // Words that introduce module variable definitions.
 | 
						|
  // These must also be simple definitions and are
 | 
						|
  // appended to otherSimpleDefinitionWords
 | 
						|
  variableSimpleDefinition: ["variable"],
 | 
						|
 | 
						|
  // Other words that introduce simple definitions
 | 
						|
  // (without implicit bodies).
 | 
						|
  otherSimpleDefinition: ["generic", "domain",
 | 
						|
                          "C-pointer-type",
 | 
						|
                          "table"
 | 
						|
                         ],
 | 
						|
 | 
						|
  // Words that begin statements with implicit bodies.
 | 
						|
  statement: ["if", "block", "begin", "method", "case",
 | 
						|
              "for", "select", "when", "unless", "until",
 | 
						|
              "while", "iterate", "profiling", "dynamic-bind"
 | 
						|
             ],
 | 
						|
 | 
						|
  // Patterns that act as separators in compound statements.
 | 
						|
  // This may include any general pattern that must be indented
 | 
						|
  // specially.
 | 
						|
  separator: ["finally", "exception", "cleanup", "else",
 | 
						|
              "elseif", "afterwards"
 | 
						|
             ],
 | 
						|
 | 
						|
  // Keywords that do not require special indentation handling,
 | 
						|
  // but which should be highlighted
 | 
						|
  other: ["above", "below", "by", "from", "handler", "in",
 | 
						|
          "instance", "let", "local", "otherwise", "slot",
 | 
						|
          "subclass", "then", "to", "keyed-by", "virtual"
 | 
						|
         ],
 | 
						|
 | 
						|
  // Condition signaling function calls
 | 
						|
  signalingCalls: ["signal", "error", "cerror",
 | 
						|
                   "break", "check-type", "abort"
 | 
						|
                  ]
 | 
						|
};
 | 
						|
 | 
						|
words["otherDefinition"] =
 | 
						|
  words["unnamedDefinition"]
 | 
						|
  .concat(words["namedDefinition"])
 | 
						|
  .concat(words["otherParameterizedDefinition"]);
 | 
						|
 | 
						|
words["definition"] =
 | 
						|
  words["typeParameterizedDefinition"]
 | 
						|
  .concat(words["otherDefinition"]);
 | 
						|
 | 
						|
words["parameterizedDefinition"] =
 | 
						|
  words["typeParameterizedDefinition"]
 | 
						|
  .concat(words["otherParameterizedDefinition"]);
 | 
						|
 | 
						|
words["simpleDefinition"] =
 | 
						|
  words["constantSimpleDefinition"]
 | 
						|
  .concat(words["variableSimpleDefinition"])
 | 
						|
  .concat(words["otherSimpleDefinition"]);
 | 
						|
 | 
						|
words["keyword"] =
 | 
						|
  words["statement"]
 | 
						|
  .concat(words["separator"])
 | 
						|
  .concat(words["other"]);
 | 
						|
 | 
						|
// Patterns
 | 
						|
var symbolPattern = "[-_a-zA-Z?!*@<>$%]+";
 | 
						|
var symbol = new RegExp("^" + symbolPattern);
 | 
						|
var patterns = {
 | 
						|
  // Symbols with special syntax
 | 
						|
  symbolKeyword: symbolPattern + ":",
 | 
						|
  symbolClass: "<" + symbolPattern + ">",
 | 
						|
  symbolGlobal: "\\*" + symbolPattern + "\\*",
 | 
						|
  symbolConstant: "\\$" + symbolPattern
 | 
						|
};
 | 
						|
var patternStyles = {
 | 
						|
  symbolKeyword: "atom",
 | 
						|
  symbolClass: "tag",
 | 
						|
  symbolGlobal: "variableName.standard",
 | 
						|
  symbolConstant: "variableName.constant"
 | 
						|
};
 | 
						|
 | 
						|
// Compile all patterns to regular expressions
 | 
						|
for (var patternName in patterns)
 | 
						|
  if (patterns.hasOwnProperty(patternName))
 | 
						|
    patterns[patternName] = new RegExp("^" + patterns[patternName]);
 | 
						|
 | 
						|
// Names beginning "with-" and "without-" are commonly
 | 
						|
// used as statement macro
 | 
						|
patterns["keyword"] = [/^with(?:out)?-[-_a-zA-Z?!*@<>$%]+/];
 | 
						|
 | 
						|
var styles = {};
 | 
						|
styles["keyword"] = "keyword";
 | 
						|
styles["definition"] = "def";
 | 
						|
styles["simpleDefinition"] = "def";
 | 
						|
styles["signalingCalls"] = "builtin";
 | 
						|
 | 
						|
// protected words lookup table
 | 
						|
var wordLookup = {};
 | 
						|
var styleLookup = {};
 | 
						|
 | 
						|
forEach([
 | 
						|
  "keyword",
 | 
						|
  "definition",
 | 
						|
  "simpleDefinition",
 | 
						|
  "signalingCalls"
 | 
						|
], function(type) {
 | 
						|
  forEach(words[type], function(word) {
 | 
						|
    wordLookup[word] = type;
 | 
						|
    styleLookup[word] = styles[type];
 | 
						|
  });
 | 
						|
});
 | 
						|
 | 
						|
 | 
						|
function chain(stream, state, f) {
 | 
						|
  state.tokenize = f;
 | 
						|
  return f(stream, state);
 | 
						|
}
 | 
						|
 | 
						|
function tokenBase(stream, state) {
 | 
						|
  // String
 | 
						|
  var ch = stream.peek();
 | 
						|
  if (ch == "'" || ch == '"') {
 | 
						|
    stream.next();
 | 
						|
    return chain(stream, state, tokenString(ch, "string"));
 | 
						|
  }
 | 
						|
  // Comment
 | 
						|
  else if (ch == "/") {
 | 
						|
    stream.next();
 | 
						|
    if (stream.eat("*")) {
 | 
						|
      return chain(stream, state, tokenComment);
 | 
						|
    } else if (stream.eat("/")) {
 | 
						|
      stream.skipToEnd();
 | 
						|
      return "comment";
 | 
						|
    }
 | 
						|
    stream.backUp(1);
 | 
						|
  }
 | 
						|
  // Decimal
 | 
						|
  else if (/[+\-\d\.]/.test(ch)) {
 | 
						|
    if (stream.match(/^[+-]?[0-9]*\.[0-9]*([esdx][+-]?[0-9]+)?/i) ||
 | 
						|
        stream.match(/^[+-]?[0-9]+([esdx][+-]?[0-9]+)/i) ||
 | 
						|
        stream.match(/^[+-]?\d+/)) {
 | 
						|
      return "number";
 | 
						|
    }
 | 
						|
  }
 | 
						|
  // Hash
 | 
						|
  else if (ch == "#") {
 | 
						|
    stream.next();
 | 
						|
    // Symbol with string syntax
 | 
						|
    ch = stream.peek();
 | 
						|
    if (ch == '"') {
 | 
						|
      stream.next();
 | 
						|
      return chain(stream, state, tokenString('"', "string"));
 | 
						|
    }
 | 
						|
    // Binary number
 | 
						|
    else if (ch == "b") {
 | 
						|
      stream.next();
 | 
						|
      stream.eatWhile(/[01]/);
 | 
						|
      return "number";
 | 
						|
    }
 | 
						|
    // Hex number
 | 
						|
    else if (ch == "x") {
 | 
						|
      stream.next();
 | 
						|
      stream.eatWhile(/[\da-f]/i);
 | 
						|
      return "number";
 | 
						|
    }
 | 
						|
    // Octal number
 | 
						|
    else if (ch == "o") {
 | 
						|
      stream.next();
 | 
						|
      stream.eatWhile(/[0-7]/);
 | 
						|
      return "number";
 | 
						|
    }
 | 
						|
    // Token concatenation in macros
 | 
						|
    else if (ch == '#') {
 | 
						|
      stream.next();
 | 
						|
      return "punctuation";
 | 
						|
    }
 | 
						|
    // Sequence literals
 | 
						|
    else if ((ch == '[') || (ch == '(')) {
 | 
						|
      stream.next();
 | 
						|
      return "bracket";
 | 
						|
      // Hash symbol
 | 
						|
    } else if (stream.match(/f|t|all-keys|include|key|next|rest/i)) {
 | 
						|
      return "atom";
 | 
						|
    } else {
 | 
						|
      stream.eatWhile(/[-a-zA-Z]/);
 | 
						|
      return "error";
 | 
						|
    }
 | 
						|
  } else if (ch == "~") {
 | 
						|
    stream.next();
 | 
						|
    ch = stream.peek();
 | 
						|
    if (ch == "=") {
 | 
						|
      stream.next();
 | 
						|
      ch = stream.peek();
 | 
						|
      if (ch == "=") {
 | 
						|
        stream.next();
 | 
						|
        return "operator";
 | 
						|
      }
 | 
						|
      return "operator";
 | 
						|
    }
 | 
						|
    return "operator";
 | 
						|
  } else if (ch == ":") {
 | 
						|
    stream.next();
 | 
						|
    ch = stream.peek();
 | 
						|
    if (ch == "=") {
 | 
						|
      stream.next();
 | 
						|
      return "operator";
 | 
						|
    } else if (ch == ":") {
 | 
						|
      stream.next();
 | 
						|
      return "punctuation";
 | 
						|
    }
 | 
						|
  } else if ("[](){}".indexOf(ch) != -1) {
 | 
						|
    stream.next();
 | 
						|
    return "bracket";
 | 
						|
  } else if (".,".indexOf(ch) != -1) {
 | 
						|
    stream.next();
 | 
						|
    return "punctuation";
 | 
						|
  } else if (stream.match("end")) {
 | 
						|
    return "keyword";
 | 
						|
  }
 | 
						|
  for (var name in patterns) {
 | 
						|
    if (patterns.hasOwnProperty(name)) {
 | 
						|
      var pattern = patterns[name];
 | 
						|
      if ((pattern instanceof Array && some(pattern, function(p) {
 | 
						|
        return stream.match(p);
 | 
						|
      })) || stream.match(pattern))
 | 
						|
        return patternStyles[name];
 | 
						|
    }
 | 
						|
  }
 | 
						|
  if (/[+\-*\/^=<>&|]/.test(ch)) {
 | 
						|
    stream.next();
 | 
						|
    return "operator";
 | 
						|
  }
 | 
						|
  if (stream.match("define")) {
 | 
						|
    return "def";
 | 
						|
  } else {
 | 
						|
    stream.eatWhile(/[\w\-]/);
 | 
						|
    // Keyword
 | 
						|
    if (wordLookup.hasOwnProperty(stream.current())) {
 | 
						|
      return styleLookup[stream.current()];
 | 
						|
    } else if (stream.current().match(symbol)) {
 | 
						|
      return "variable";
 | 
						|
    } else {
 | 
						|
      stream.next();
 | 
						|
      return "variableName.standard";
 | 
						|
    }
 | 
						|
  }
 | 
						|
}
 | 
						|
 | 
						|
function tokenComment(stream, state) {
 | 
						|
  var maybeEnd = false, maybeNested = false, nestedCount = 0, ch;
 | 
						|
  while ((ch = stream.next())) {
 | 
						|
    if (ch == "/" && maybeEnd) {
 | 
						|
      if (nestedCount > 0) {
 | 
						|
        nestedCount--;
 | 
						|
      } else {
 | 
						|
        state.tokenize = tokenBase;
 | 
						|
        break;
 | 
						|
      }
 | 
						|
    } else if (ch == "*" && maybeNested) {
 | 
						|
      nestedCount++;
 | 
						|
    }
 | 
						|
    maybeEnd = (ch == "*");
 | 
						|
    maybeNested = (ch == "/");
 | 
						|
  }
 | 
						|
  return "comment";
 | 
						|
}
 | 
						|
 | 
						|
function tokenString(quote, style) {
 | 
						|
  return function(stream, state) {
 | 
						|
    var escaped = false, next, end = false;
 | 
						|
    while ((next = stream.next()) != null) {
 | 
						|
      if (next == quote && !escaped) {
 | 
						|
        end = true;
 | 
						|
        break;
 | 
						|
      }
 | 
						|
      escaped = !escaped && next == "\\";
 | 
						|
    }
 | 
						|
    if (end || !escaped) {
 | 
						|
      state.tokenize = tokenBase;
 | 
						|
    }
 | 
						|
    return style;
 | 
						|
  };
 | 
						|
}
 | 
						|
 | 
						|
// Interface
 | 
						|
const dylan = {
 | 
						|
  name: "dylan",
 | 
						|
  startState: function() {
 | 
						|
    return {
 | 
						|
      tokenize: tokenBase,
 | 
						|
      currentIndent: 0
 | 
						|
    };
 | 
						|
  },
 | 
						|
  token: function(stream, state) {
 | 
						|
    if (stream.eatSpace())
 | 
						|
      return null;
 | 
						|
    var style = state.tokenize(stream, state);
 | 
						|
    return style;
 | 
						|
  },
 | 
						|
  languageData: {
 | 
						|
    commentTokens: {block: {open: "/*", close: "*/"}}
 | 
						|
  }
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
 | 
						|
/***/ })
 | 
						|
 | 
						|
}]);
 | 
						|
//# sourceMappingURL=9331.5850506ebb1d3f304481.js.map?v=5850506ebb1d3f304481
 |