118 lines
2.7 KiB
JavaScript
118 lines
2.7 KiB
JavaScript
|
/*!-----------------------------------------------------------------------------
|
||
|
|
* Copyright (c) Microsoft Corporation. All rights reserved.
|
||
|
|
* Version: 0.36.1(6c56744c3419458f0dd48864520b759d1a3a1ca8)
|
||
|
|
* Released under the MIT license
|
||
|
|
* https://github.com/microsoft/monaco-editor/blob/main/LICENSE.txt
|
||
|
|
*-----------------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
// src/basic-languages/scheme/scheme.ts
|
||
|
|
var conf = {
|
||
|
|
comments: {
|
||
|
|
lineComment: ";",
|
||
|
|
blockComment: ["#|", "|#"]
|
||
|
|
},
|
||
|
|
brackets: [
|
||
|
|
["(", ")"],
|
||
|
|
["{", "}"],
|
||
|
|
["[", "]"]
|
||
|
|
],
|
||
|
|
autoClosingPairs: [
|
||
|
|
{ open: "{", close: "}" },
|
||
|
|
{ open: "[", close: "]" },
|
||
|
|
{ open: "(", close: ")" },
|
||
|
|
{ open: '"', close: '"' }
|
||
|
|
],
|
||
|
|
surroundingPairs: [
|
||
|
|
{ open: "{", close: "}" },
|
||
|
|
{ open: "[", close: "]" },
|
||
|
|
{ open: "(", close: ")" },
|
||
|
|
{ open: '"', close: '"' }
|
||
|
|
]
|
||
|
|
};
|
||
|
|
var language = {
|
||
|
|
defaultToken: "",
|
||
|
|
ignoreCase: true,
|
||
|
|
tokenPostfix: ".scheme",
|
||
|
|
brackets: [
|
||
|
|
{ open: "(", close: ")", token: "delimiter.parenthesis" },
|
||
|
|
{ open: "{", close: "}", token: "delimiter.curly" },
|
||
|
|
{ open: "[", close: "]", token: "delimiter.square" }
|
||
|
|
],
|
||
|
|
keywords: [
|
||
|
|
"case",
|
||
|
|
"do",
|
||
|
|
"let",
|
||
|
|
"loop",
|
||
|
|
"if",
|
||
|
|
"else",
|
||
|
|
"when",
|
||
|
|
"cons",
|
||
|
|
"car",
|
||
|
|
"cdr",
|
||
|
|
"cond",
|
||
|
|
"lambda",
|
||
|
|
"lambda*",
|
||
|
|
"syntax-rules",
|
||
|
|
"format",
|
||
|
|
"set!",
|
||
|
|
"quote",
|
||
|
|
"eval",
|
||
|
|
"append",
|
||
|
|
"list",
|
||
|
|
"list?",
|
||
|
|
"member?",
|
||
|
|
"load"
|
||
|
|
],
|
||
|
|
constants: ["#t", "#f"],
|
||
|
|
operators: ["eq?", "eqv?", "equal?", "and", "or", "not", "null?"],
|
||
|
|
tokenizer: {
|
||
|
|
root: [
|
||
|
|
[/#[xXoObB][0-9a-fA-F]+/, "number.hex"],
|
||
|
|
[/[+-]?\d+(?:(?:\.\d*)?(?:[eE][+-]?\d+)?)?/, "number.float"],
|
||
|
|
[
|
||
|
|
/(?:\b(?:(define|define-syntax|define-macro))\b)(\s+)((?:\w|\-|\!|\?)*)/,
|
||
|
|
["keyword", "white", "variable"]
|
||
|
|
],
|
||
|
|
{ include: "@whitespace" },
|
||
|
|
{ include: "@strings" },
|
||
|
|
[
|
||
|
|
/[a-zA-Z_#][a-zA-Z0-9_\-\?\!\*]*/,
|
||
|
|
{
|
||
|
|
cases: {
|
||
|
|
"@keywords": "keyword",
|
||
|
|
"@constants": "constant",
|
||
|
|
"@operators": "operators",
|
||
|
|
"@default": "identifier"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
]
|
||
|
|
],
|
||
|
|
comment: [
|
||
|
|
[/[^\|#]+/, "comment"],
|
||
|
|
[/#\|/, "comment", "@push"],
|
||
|
|
[/\|#/, "comment", "@pop"],
|
||
|
|
[/[\|#]/, "comment"]
|
||
|
|
],
|
||
|
|
whitespace: [
|
||
|
|
[/[ \t\r\n]+/, "white"],
|
||
|
|
[/#\|/, "comment", "@comment"],
|
||
|
|
[/;.*$/, "comment"]
|
||
|
|
],
|
||
|
|
strings: [
|
||
|
|
[/"$/, "string", "@popall"],
|
||
|
|
[/"(?=.)/, "string", "@multiLineString"]
|
||
|
|
],
|
||
|
|
multiLineString: [
|
||
|
|
[/[^\\"]+$/, "string", "@popall"],
|
||
|
|
[/[^\\"]+/, "string"],
|
||
|
|
[/\\./, "string.escape"],
|
||
|
|
[/"/, "string", "@popall"],
|
||
|
|
[/\\$/, "string"]
|
||
|
|
]
|
||
|
|
}
|
||
|
|
};
|
||
|
|
export {
|
||
|
|
conf,
|
||
|
|
language
|
||
|
|
};
|