scheme.js 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. "use strict";
  2. /*!-----------------------------------------------------------------------------
  3. * Copyright (c) Microsoft Corporation. All rights reserved.
  4. * Version: 0.34.1(547870b6881302c5b4ff32173c16d06009e3588f)
  5. * Released under the MIT license
  6. * https://github.com/microsoft/monaco-editor/blob/main/LICENSE.txt
  7. *-----------------------------------------------------------------------------*/
  8. define("vs/basic-languages/scheme/scheme", ["require"],(require)=>{
  9. var moduleExports = (() => {
  10. var __defProp = Object.defineProperty;
  11. var __getOwnPropDesc = Object.getOwnPropertyDescriptor;
  12. var __getOwnPropNames = Object.getOwnPropertyNames;
  13. var __hasOwnProp = Object.prototype.hasOwnProperty;
  14. var __export = (target, all) => {
  15. for (var name in all)
  16. __defProp(target, name, { get: all[name], enumerable: true });
  17. };
  18. var __copyProps = (to, from, except, desc) => {
  19. if (from && typeof from === "object" || typeof from === "function") {
  20. for (let key of __getOwnPropNames(from))
  21. if (!__hasOwnProp.call(to, key) && key !== except)
  22. __defProp(to, key, { get: () => from[key], enumerable: !(desc = __getOwnPropDesc(from, key)) || desc.enumerable });
  23. }
  24. return to;
  25. };
  26. var __toCommonJS = (mod) => __copyProps(__defProp({}, "__esModule", { value: true }), mod);
  27. // src/basic-languages/scheme/scheme.ts
  28. var scheme_exports = {};
  29. __export(scheme_exports, {
  30. conf: () => conf,
  31. language: () => language
  32. });
  33. var conf = {
  34. comments: {
  35. lineComment: ";",
  36. blockComment: ["#|", "|#"]
  37. },
  38. brackets: [
  39. ["(", ")"],
  40. ["{", "}"],
  41. ["[", "]"]
  42. ],
  43. autoClosingPairs: [
  44. { open: "{", close: "}" },
  45. { open: "[", close: "]" },
  46. { open: "(", close: ")" },
  47. { open: '"', close: '"' }
  48. ],
  49. surroundingPairs: [
  50. { open: "{", close: "}" },
  51. { open: "[", close: "]" },
  52. { open: "(", close: ")" },
  53. { open: '"', close: '"' }
  54. ]
  55. };
  56. var language = {
  57. defaultToken: "",
  58. ignoreCase: true,
  59. tokenPostfix: ".scheme",
  60. brackets: [
  61. { open: "(", close: ")", token: "delimiter.parenthesis" },
  62. { open: "{", close: "}", token: "delimiter.curly" },
  63. { open: "[", close: "]", token: "delimiter.square" }
  64. ],
  65. keywords: [
  66. "case",
  67. "do",
  68. "let",
  69. "loop",
  70. "if",
  71. "else",
  72. "when",
  73. "cons",
  74. "car",
  75. "cdr",
  76. "cond",
  77. "lambda",
  78. "lambda*",
  79. "syntax-rules",
  80. "format",
  81. "set!",
  82. "quote",
  83. "eval",
  84. "append",
  85. "list",
  86. "list?",
  87. "member?",
  88. "load"
  89. ],
  90. constants: ["#t", "#f"],
  91. operators: ["eq?", "eqv?", "equal?", "and", "or", "not", "null?"],
  92. tokenizer: {
  93. root: [
  94. [/#[xXoObB][0-9a-fA-F]+/, "number.hex"],
  95. [/[+-]?\d+(?:(?:\.\d*)?(?:[eE][+-]?\d+)?)?/, "number.float"],
  96. [
  97. /(?:\b(?:(define|define-syntax|define-macro))\b)(\s+)((?:\w|\-|\!|\?)*)/,
  98. ["keyword", "white", "variable"]
  99. ],
  100. { include: "@whitespace" },
  101. { include: "@strings" },
  102. [
  103. /[a-zA-Z_#][a-zA-Z0-9_\-\?\!\*]*/,
  104. {
  105. cases: {
  106. "@keywords": "keyword",
  107. "@constants": "constant",
  108. "@operators": "operators",
  109. "@default": "identifier"
  110. }
  111. }
  112. ]
  113. ],
  114. comment: [
  115. [/[^\|#]+/, "comment"],
  116. [/#\|/, "comment", "@push"],
  117. [/\|#/, "comment", "@pop"],
  118. [/[\|#]/, "comment"]
  119. ],
  120. whitespace: [
  121. [/[ \t\r\n]+/, "white"],
  122. [/#\|/, "comment", "@comment"],
  123. [/;.*$/, "comment"]
  124. ],
  125. strings: [
  126. [/"$/, "string", "@popall"],
  127. [/"(?=.)/, "string", "@multiLineString"]
  128. ],
  129. multiLineString: [
  130. [/[^\\"]+$/, "string", "@popall"],
  131. [/[^\\"]+/, "string"],
  132. [/\\./, "string.escape"],
  133. [/"/, "string", "@popall"],
  134. [/\\$/, "string"]
  135. ]
  136. }
  137. };
  138. return __toCommonJS(scheme_exports);
  139. })();
  140. return moduleExports;
  141. });