{"version":3,"file":"scheme-D4lhRHzG.cjs","sources":["../../../node_modules/@codemirror/legacy-modes/mode/scheme.js"],"sourcesContent":["var BUILTIN = \"builtin\", COMMENT = \"comment\", STRING = \"string\",\n    SYMBOL = \"symbol\", ATOM = \"atom\", NUMBER = \"number\", BRACKET = \"bracket\";\nvar INDENT_WORD_SKIP = 2;\n\nfunction makeKeywords(str) {\n  var obj = {}, words = str.split(\" \");\n  for (var i = 0; i < words.length; ++i) obj[words[i]] = true;\n  return obj;\n}\n\nvar keywords = makeKeywords(\"λ case-lambda call/cc class cond-expand define-class define-values exit-handler field import inherit init-field interface let*-values let-values let/ec mixin opt-lambda override protect provide public rename require require-for-syntax syntax syntax-case syntax-error unit/sig unless when with-syntax and begin call-with-current-continuation call-with-input-file call-with-output-file case cond define define-syntax define-macro defmacro delay do dynamic-wind else for-each if lambda let let* let-syntax letrec letrec-syntax map or syntax-rules abs acos angle append apply asin assoc assq assv atan boolean? caar cadr call-with-input-file call-with-output-file call-with-values car cdddar cddddr cdr ceiling char->integer char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? char-downcase char-lower-case? char-numeric? char-ready? char-upcase char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? char? close-input-port close-output-port complex? cons cos current-input-port current-output-port denominator display eof-object? eq? equal? eqv? eval even? exact->inexact exact? exp expt #f floor force gcd imag-part inexact->exact inexact? input-port? integer->char integer? interaction-environment lcm length list list->string list->vector list-ref list-tail list? load log magnitude make-polar make-rectangular make-string make-vector max member memq memv min modulo negative? newline not null-environment null? number->string number? numerator odd? open-input-file open-output-file output-port? pair? peek-char port? positive? procedure? quasiquote quote quotient rational? rationalize read read-char real-part real? remainder reverse round scheme-report-environment set! set-car! set-cdr! sin sqrt string string->list string->number string->symbol string-append string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>? string-copy string-fill! string-length string-ref string-set! string<=? string<? string=? string>=? string>? string? substring symbol->string symbol? #t tan transcript-off transcript-on truncate values vector vector->list vector-fill! vector-length vector-ref vector-set! with-input-from-file with-output-to-file write write-char zero?\");\nvar indentKeys = makeKeywords(\"define let letrec let* lambda define-macro defmacro let-syntax letrec-syntax let-values let*-values define-syntax syntax-rules define-values when unless\");\n\nfunction stateStack(indent, type, prev) { // represents a state stack object\n  this.indent = indent;\n  this.type = type;\n  this.prev = prev;\n}\n\nfunction pushStack(state, indent, type) {\n  state.indentStack = new stateStack(indent, type, state.indentStack);\n}\n\nfunction popStack(state) {\n  state.indentStack = state.indentStack.prev;\n}\n\nvar binaryMatcher = new RegExp(/^(?:[-+]i|[-+][01]+#*(?:\\/[01]+#*)?i|[-+]?[01]+#*(?:\\/[01]+#*)?@[-+]?[01]+#*(?:\\/[01]+#*)?|[-+]?[01]+#*(?:\\/[01]+#*)?[-+](?:[01]+#*(?:\\/[01]+#*)?)?i|[-+]?[01]+#*(?:\\/[01]+#*)?)(?=[()\\s;\"]|$)/i);\nvar octalMatcher = new RegExp(/^(?:[-+]i|[-+][0-7]+#*(?:\\/[0-7]+#*)?i|[-+]?[0-7]+#*(?:\\/[0-7]+#*)?@[-+]?[0-7]+#*(?:\\/[0-7]+#*)?|[-+]?[0-7]+#*(?:\\/[0-7]+#*)?[-+](?:[0-7]+#*(?:\\/[0-7]+#*)?)?i|[-+]?[0-7]+#*(?:\\/[0-7]+#*)?)(?=[()\\s;\"]|$)/i);\nvar hexMatcher = new RegExp(/^(?:[-+]i|[-+][\\da-f]+#*(?:\\/[\\da-f]+#*)?i|[-+]?[\\da-f]+#*(?:\\/[\\da-f]+#*)?@[-+]?[\\da-f]+#*(?:\\/[\\da-f]+#*)?|[-+]?[\\da-f]+#*(?:\\/[\\da-f]+#*)?[-+](?:[\\da-f]+#*(?:\\/[\\da-f]+#*)?)?i|[-+]?[\\da-f]+#*(?:\\/[\\da-f]+#*)?)(?=[()\\s;\"]|$)/i);\nvar decimalMatcher = new RegExp(/^(?:[-+]i|[-+](?:(?:(?:\\d+#+\\.?#*|\\d+\\.\\d*#*|\\.\\d+#*|\\d+)(?:[esfdl][-+]?\\d+)?)|\\d+#*\\/\\d+#*)i|[-+]?(?:(?:(?:\\d+#+\\.?#*|\\d+\\.\\d*#*|\\.\\d+#*|\\d+)(?:[esfdl][-+]?\\d+)?)|\\d+#*\\/\\d+#*)@[-+]?(?:(?:(?:\\d+#+\\.?#*|\\d+\\.\\d*#*|\\.\\d+#*|\\d+)(?:[esfdl][-+]?\\d+)?)|\\d+#*\\/\\d+#*)|[-+]?(?:(?:(?:\\d+#+\\.?#*|\\d+\\.\\d*#*|\\.\\d+#*|\\d+)(?:[esfdl][-+]?\\d+)?)|\\d+#*\\/\\d+#*)[-+](?:(?:(?:\\d+#+\\.?#*|\\d+\\.\\d*#*|\\.\\d+#*|\\d+)(?:[esfdl][-+]?\\d+)?)|\\d+#*\\/\\d+#*)?i|(?:(?:(?:\\d+#+\\.?#*|\\d+\\.\\d*#*|\\.\\d+#*|\\d+)(?:[esfdl][-+]?\\d+)?)|\\d+#*\\/\\d+#*))(?=[()\\s;\"]|$)/i);\n\nfunction isBinaryNumber (stream) {\n  return stream.match(binaryMatcher);\n}\n\nfunction isOctalNumber (stream) {\n  return stream.match(octalMatcher);\n}\n\nfunction isDecimalNumber (stream, backup) {\n  if (backup === true) {\n    stream.backUp(1);\n  }\n  return stream.match(decimalMatcher);\n}\n\nfunction isHexNumber (stream) {\n  return stream.match(hexMatcher);\n}\n\nfunction processEscapedSequence(stream, options) {\n  var next, escaped = false;\n  while ((next = stream.next()) != null) {\n    if (next == options.token && !escaped) {\n      options.state.mode = false;\n      break;\n    }\n    escaped = !escaped && next == \"\\\\\";\n  }\n}\n\nexport const scheme = {\n  name: \"scheme\",\n  startState: function () {\n    return {\n      indentStack: null,\n      indentation: 0,\n      mode: false,\n      sExprComment: false,\n      sExprQuote: false\n    };\n  },\n\n  token: function (stream, state) {\n    if (state.indentStack == null && stream.sol()) {\n      // update indentation, but only if indentStack is empty\n      state.indentation = stream.indentation();\n    }\n\n    // skip spaces\n    if (stream.eatSpace()) {\n      return null;\n    }\n    var returnType = null;\n\n    switch(state.mode){\n    case \"string\": // multi-line string parsing mode\n      processEscapedSequence(stream, {\n        token: \"\\\"\",\n        state: state\n      });\n      returnType = STRING; // continue on in scheme-string mode\n      break;\n    case \"symbol\": // escape symbol\n      processEscapedSequence(stream, {\n        token: \"|\",\n        state: state\n      });\n      returnType = SYMBOL; // continue on in scheme-symbol mode\n      break;\n    case \"comment\": // comment parsing mode\n      var next, maybeEnd = false;\n      while ((next = stream.next()) != null) {\n        if (next == \"#\" && maybeEnd) {\n\n          state.mode = false;\n          break;\n        }\n        maybeEnd = (next == \"|\");\n      }\n      returnType = COMMENT;\n      break;\n    case \"s-expr-comment\": // s-expr commenting mode\n      state.mode = false;\n      if(stream.peek() == \"(\" || stream.peek() == \"[\"){\n        // actually start scheme s-expr commenting mode\n        state.sExprComment = 0;\n      }else{\n        // if not we just comment the entire of the next token\n        stream.eatWhile(/[^\\s\\(\\)\\[\\]]/); // eat symbol atom\n        returnType = COMMENT;\n        break;\n      }\n    default: // default parsing mode\n      var ch = stream.next();\n\n      if (ch == \"\\\"\") {\n        state.mode = \"string\";\n        returnType = STRING;\n\n      } else if (ch == \"'\") {\n        if (stream.peek() == \"(\" || stream.peek() == \"[\"){\n          if (typeof state.sExprQuote != \"number\") {\n            state.sExprQuote = 0;\n          } // else already in a quoted expression\n          returnType = ATOM;\n        } else {\n          stream.eatWhile(/[\\w_\\-!$%&*+\\.\\/:<=>?@\\^~]/);\n          returnType = ATOM;\n        }\n      } else if (ch == '|') {\n        state.mode = \"symbol\";\n        returnType = SYMBOL;\n      } else if (ch == '#') {\n        if (stream.eat(\"|\")) {                    // Multi-line comment\n          state.mode = \"comment\"; // toggle to comment mode\n          returnType = COMMENT;\n        } else if (stream.eat(/[tf]/i)) {            // #t/#f (atom)\n          returnType = ATOM;\n        } else if (stream.eat(';')) {                // S-Expr comment\n          state.mode = \"s-expr-comment\";\n          returnType = COMMENT;\n        } else {\n          var numTest = null, hasExactness = false, hasRadix = true;\n          if (stream.eat(/[ei]/i)) {\n            hasExactness = true;\n          } else {\n            stream.backUp(1);       // must be radix specifier\n          }\n          if (stream.match(/^#b/i)) {\n            numTest = isBinaryNumber;\n          } else if (stream.match(/^#o/i)) {\n            numTest = isOctalNumber;\n          } else if (stream.match(/^#x/i)) {\n            numTest = isHexNumber;\n          } else if (stream.match(/^#d/i)) {\n            numTest = isDecimalNumber;\n          } else if (stream.match(/^[-+0-9.]/, false)) {\n            hasRadix = false;\n            numTest = isDecimalNumber;\n            // re-consume the initial # if all matches failed\n          } else if (!hasExactness) {\n            stream.eat('#');\n          }\n          if (numTest != null) {\n            if (hasRadix && !hasExactness) {\n              // consume optional exactness after radix\n              stream.match(/^#[ei]/i);\n            }\n            if (numTest(stream))\n              returnType = NUMBER;\n          }\n        }\n      } else if (/^[-+0-9.]/.test(ch) && isDecimalNumber(stream, true)) { // match non-prefixed number, must be decimal\n        returnType = NUMBER;\n      } else if (ch == \";\") { // comment\n        stream.skipToEnd(); // rest of the line is a comment\n        returnType = COMMENT;\n      } else if (ch == \"(\" || ch == \"[\") {\n        var keyWord = ''; var indentTemp = stream.column(), letter;\n        /**\n           Either\n           (indent-word ..\n           (non-indent-word ..\n           (;something else, bracket, etc.\n        */\n\n        while ((letter = stream.eat(/[^\\s\\(\\[\\;\\)\\]]/)) != null) {\n          keyWord += letter;\n        }\n\n        if (keyWord.length > 0 && indentKeys.propertyIsEnumerable(keyWord)) { // indent-word\n\n          pushStack(state, indentTemp + INDENT_WORD_SKIP, ch);\n        } else { // non-indent word\n          // we continue eating the spaces\n          stream.eatSpace();\n          if (stream.eol() || stream.peek() == \";\") {\n            // nothing significant after\n            // we restart indentation 1 space after\n            pushStack(state, indentTemp + 1, ch);\n          } else {\n            pushStack(state, indentTemp + stream.current().length, ch); // else we match\n          }\n        }\n        stream.backUp(stream.current().length - 1); // undo all the eating\n\n        if(typeof state.sExprComment == \"number\") state.sExprComment++;\n        if(typeof state.sExprQuote == \"number\") state.sExprQuote++;\n\n        returnType = BRACKET;\n      } else if (ch == \")\" || ch == \"]\") {\n        returnType = BRACKET;\n        if (state.indentStack != null && state.indentStack.type == (ch == \")\" ? \"(\" : \"[\")) {\n          popStack(state);\n\n          if(typeof state.sExprComment == \"number\"){\n            if(--state.sExprComment == 0){\n              returnType = COMMENT; // final closing bracket\n              state.sExprComment = false; // turn off s-expr commenting mode\n            }\n          }\n          if(typeof state.sExprQuote == \"number\"){\n            if(--state.sExprQuote == 0){\n              returnType = ATOM; // final closing bracket\n              state.sExprQuote = false; // turn off s-expr quote mode\n            }\n          }\n        }\n      } else {\n        stream.eatWhile(/[\\w_\\-!$%&*+\\.\\/:<=>?@\\^~]/);\n\n        if (keywords && keywords.propertyIsEnumerable(stream.current())) {\n          returnType = BUILTIN;\n        } else returnType = \"variable\";\n      }\n    }\n    return (typeof state.sExprComment == \"number\") ? COMMENT : ((typeof state.sExprQuote == \"number\") ? ATOM : returnType);\n  },\n\n  indent: function (state) {\n    if (state.indentStack == null) return state.indentation;\n    return state.indentStack.indent;\n  },\n\n  languageData: {\n    closeBrackets: {brackets: [\"(\", \"[\", \"{\", '\"']},\n    commentTokens: {line: \";;\"}\n  }\n};\n"],"names":["COMMENT","STRING","SYMBOL","ATOM","NUMBER","BRACKET","makeKeywords","str","obj","words","split","i","length","keywords","indentKeys","stateStack","indent","type","prev","this","pushStack","state","indentStack","binaryMatcher","RegExp","octalMatcher","hexMatcher","decimalMatcher","isBinaryNumber","stream","match","isOctalNumber","isDecimalNumber","backup","backUp","isHexNumber","processEscapedSequence","options","next","escaped","token","mode","scheme","name","startState","indentation","sExprComment","sExprQuote","sol","eatSpace","returnType","maybeEnd","peek","eatWhile","ch","eat","numTest","hasExactness","hasRadix","test","skipToEnd","letter","keyWord","indentTemp","column","propertyIsEnumerable","eol","current","popStack","languageData","closeBrackets","brackets","commentTokens","line"],"mappings":"gFAAA,IAAyBA,EAAU,UAAWC,EAAS,SACnDC,EAAS,SAAUC,EAAO,OAAQC,EAAS,SAAUC,EAAU,UAGnE,SAASC,EAAaC,GAEpB,IADA,IAAIC,EAAM,CAAA,EAAIC,EAAQF,EAAIG,MAAM,KACvBC,EAAI,EAAGA,EAAIF,EAAMG,SAAUD,EAAGH,EAAIC,EAAME,KAAM,EACvD,OAAOH,CACT,CAEA,IAAIK,EAAWP,EAAa,spEACxBQ,EAAaR,EAAa,4JAE9B,SAASS,EAAWC,EAAQC,EAAMC,GAChCC,KAAKH,OAASA,EACdG,KAAKF,KAAOA,EACZE,KAAKD,KAAOA,CACd,CAEA,SAASE,EAAUC,EAAOL,EAAQC,GAChCI,EAAMC,YAAc,IAAIP,EAAWC,EAAQC,EAAMI,EAAMC,YACzD,CAMA,IAAIC,EAAgB,IAAIC,OAAO,mMAC3BC,EAAe,IAAID,OAAO,+MAC1BE,EAAa,IAAIF,OAAO,uOACxBG,EAAiB,IAAIH,OAAO,ghBAEhC,SAASI,EAAgBC,GACvB,OAAOA,EAAOC,MAAMP,EACtB,CAEA,SAASQ,EAAeF,GACtB,OAAOA,EAAOC,MAAML,EACtB,CAEA,SAASO,EAAiBH,EAAQI,GAIhC,OAHe,IAAXA,GACFJ,EAAOK,OAAO,GAETL,EAAOC,MAAMH,EACtB,CAEA,SAASQ,EAAaN,GACpB,OAAOA,EAAOC,MAAMJ,EACtB,CAEA,SAASU,EAAuBP,EAAQQ,GAEtC,IADA,IAAIC,EAAMC,GAAU,EACa,OAAzBD,EAAOT,EAAOS,SAAiB,CACrC,GAAIA,GAAQD,EAAQG,QAAUD,EAAS,CACrCF,EAAQhB,MAAMoB,MAAO,EACrB,KACF,CACAF,GAAWA,GAAmB,MAARD,CACxB,CACF,CAEY,MAACI,EAAS,CACpBC,KAAM,SACNC,WAAY,WACV,MAAO,CACLtB,YAAa,KACbuB,YAAa,EACbJ,MAAM,EACNK,cAAc,EACdC,YAAY,EAEhB,EAEAP,MAAO,SAAUX,EAAQR,GAOvB,GANyB,MAArBA,EAAMC,aAAuBO,EAAOmB,QAEtC3B,EAAMwB,YAAchB,EAAOgB,eAIzBhB,EAAOoB,WACT,OAAO,KAET,IAAIC,EAAa,KAEjB,OAAO7B,EAAMoB,MACb,IAAK,SACHL,EAAuBP,EAAQ,CAC7BW,MAAO,IACPnB,MAAOA,IAET6B,EAAajD,EACb,MACF,IAAK,SACHmC,EAAuBP,EAAQ,CAC7BW,MAAO,IACPnB,MAAOA,IAET6B,EAAahD,EACb,MACF,IAAK,UAEH,IADA,IAAIoC,EAAMa,GAAW,EACY,OAAzBb,EAAOT,EAAOS,SAAiB,CACrC,GAAY,KAARA,GAAea,EAAU,CAE3B9B,EAAMoB,MAAO,EACb,KACF,CACAU,EAAoB,KAARb,CACd,CACAY,EAAalD,EACb,MACF,IAAK,iBAEH,GADAqB,EAAMoB,MAAO,EACO,KAAjBZ,EAAOuB,QAAkC,KAAjBvB,EAAOuB,OAG7B,CAEHvB,EAAOwB,SAAS,iBAChBH,EAAalD,EACb,KACF,CANEqB,EAAMyB,aAAe,EAOzB,QACE,IAAIQ,EAAKzB,EAAOS,OAEhB,GAAU,KAANgB,EACFjC,EAAMoB,KAAO,SACbS,EAAajD,OAER,GAAU,KAANqD,EACY,KAAjBzB,EAAOuB,QAAkC,KAAjBvB,EAAOuB,QACF,iBAApB/B,EAAM0B,aACf1B,EAAM0B,WAAa,GAErBG,EAAa/C,IAEb0B,EAAOwB,SAAS,8BAChBH,EAAa/C,QAEV,GAAU,KAANmD,EACTjC,EAAMoB,KAAO,SACbS,EAAahD,OACR,GAAU,KAANoD,EACT,GAAIzB,EAAO0B,IAAI,KACblC,EAAMoB,KAAO,UACbS,EAAalD,OACR,GAAI6B,EAAO0B,IAAI,SACpBL,EAAa/C,OACR,GAAI0B,EAAO0B,IAAI,KACpBlC,EAAMoB,KAAO,iBACbS,EAAalD,MACR,CACL,IAAIwD,EAAU,KAAMC,GAAe,EAAOC,GAAW,EACjD7B,EAAO0B,IAAI,SACbE,GAAe,EAEf5B,EAAOK,OAAO,GAEZL,EAAOC,MAAM,QACf0B,EAAU5B,EACDC,EAAOC,MAAM,QACtB0B,EAAUzB,EACDF,EAAOC,MAAM,QACtB0B,EAAUrB,EACDN,EAAOC,MAAM,QACtB0B,EAAUxB,EACDH,EAAOC,MAAM,aAAa,IACnC4B,GAAW,EACXF,EAAUxB,GAEAyB,GACV5B,EAAO0B,IAAI,KAEE,MAAXC,IACEE,IAAaD,GAEf5B,EAAOC,MAAM,WAEX0B,EAAQ3B,KACVqB,EAAa9C,GAEnB,MACK,GAAI,YAAYuD,KAAKL,IAAOtB,EAAgBH,GAAQ,GACzDqB,EAAa9C,OACR,GAAU,KAANkD,EACTzB,EAAO+B,YACPV,EAAalD,OACR,GAAU,KAANsD,GAAmB,KAANA,EAAW,CASjC,IARA,IAAoDO,EAAhDC,EAAU,GAAQC,EAAalC,EAAOmC,SAQS,OAA3CH,EAAShC,EAAO0B,IAAI,qBAC1BO,GAAWD,EAGTC,EAAQlD,OAAS,GAAKE,EAAWmD,qBAAqBH,GAExD1C,EAAUC,EAAO0C,EA1MJ,EA0MmCT,IAGhDzB,EAAOoB,WACHpB,EAAOqC,OAA0B,KAAjBrC,EAAOuB,OAGzBhC,EAAUC,EAAO0C,EAAa,EAAGT,GAEjClC,EAAUC,EAAO0C,EAAalC,EAAOsC,UAAUvD,OAAQ0C,IAG3DzB,EAAOK,OAAOL,EAAOsC,UAAUvD,OAAS,GAER,iBAAtBS,EAAMyB,cAA0BzB,EAAMyB,eAClB,iBAApBzB,EAAM0B,YAAwB1B,EAAM0B,aAE9CG,EAAa7C,CACf,KAAiB,KAANiD,GAAmB,KAANA,GACtBJ,EAAa7C,EACY,MAArBgB,EAAMC,aAAuBD,EAAMC,YAAYL,OAAe,KAANqC,EAAY,IAAM,QAzMtF,SAAkBjC,GAChBA,EAAMC,YAAcD,EAAMC,YAAYJ,IACxC,CAwMUkD,CAAS/C,GAEuB,iBAAtBA,EAAMyB,cACa,KAAtBzB,EAAMyB,eACTI,EAAalD,EACbqB,EAAMyB,cAAe,GAGK,iBAApBzB,EAAM0B,YACW,KAApB1B,EAAM0B,aACTG,EAAa/C,EACbkB,EAAM0B,YAAa,MAKzBlB,EAAOwB,SAAS,8BAGdH,EADErC,GAAYA,EAASoD,qBAAqBpC,EAAOsC,WAnP/C,UAqPc,YAGxB,MAAqC,iBAAtB9C,EAAMyB,aAA4B9C,EAAuC,iBAApBqB,EAAM0B,WAA0B5C,EAAO+C,CAC7G,EAEAlC,OAAQ,SAAUK,GAChB,OAAyB,MAArBA,EAAMC,YAA4BD,EAAMwB,YACrCxB,EAAMC,YAAYN,MAC3B,EAEAqD,aAAc,CACZC,cAAe,CAACC,SAAU,CAAC,IAAK,IAAK,IAAK,MAC1CC,cAAe,CAACC,KAAM","x_google_ignoreList":[0]}