[Summary view] [Print] [Text view]

   1  // CodeMirror, copyright (c) by Marijn Haverbeke and others
   2  // Distributed under an MIT license: https://codemirror.net/5/LICENSE
   3  
   4  (function(mod) {
   5    if (typeof exports == "object" && typeof module == "object") // CommonJS
   6      mod(require("../../lib/codemirror"));
   7    else if (typeof define == "function" && define.amd) // AMD
   8      define(["../../lib/codemirror"], mod);
   9    else // Plain browser env
  10      mod(CodeMirror);
  11  })(function(CodeMirror) {
  12  "use strict";
  13  
  14  CodeMirror.defineMode("commonlisp", function (config) {
  15    var specialForm = /^(block|let*|return-from|catch|load-time-value|setq|eval-when|locally|symbol-macrolet|flet|macrolet|tagbody|function|multiple-value-call|the|go|multiple-value-prog1|throw|if|progn|unwind-protect|labels|progv|let|quote)$/;
  16    var assumeBody = /^with|^def|^do|^prog|case$|^cond$|bind$|when$|unless$/;
  17    var numLiteral = /^(?:[+\-]?(?:\d+|\d*\.\d+)(?:[efd][+\-]?\d+)?|[+\-]?\d+(?:\/[+\-]?\d+)?|#b[+\-]?[01]+|#o[+\-]?[0-7]+|#x[+\-]?[\da-f]+)/;
  18    var symbol = /[^\s'`,@()\[\]";]/;
  19    var type;
  20  
  21    function readSym(stream) {
  22      var ch;
  23      while (ch = stream.next()) {
  24        if (ch == "\\") stream.next();
  25        else if (!symbol.test(ch)) { stream.backUp(1); break; }
  26      }
  27      return stream.current();
  28    }
  29  
  30    function base(stream, state) {
  31      if (stream.eatSpace()) {type = "ws"; return null;}
  32      if (stream.match(numLiteral)) return "number";
  33      var ch = stream.next();
  34      if (ch == "\\") ch = stream.next();
  35  
  36      if (ch == '"') return (state.tokenize = inString)(stream, state);
  37      else if (ch == "(") { type = "open"; return "bracket"; }
  38      else if (ch == ")" || ch == "]") { type = "close"; return "bracket"; }
  39      else if (ch == ";") { stream.skipToEnd(); type = "ws"; return "comment"; }
  40      else if (/['`,@]/.test(ch)) return null;
  41      else if (ch == "|") {
  42        if (stream.skipTo("|")) { stream.next(); return "symbol"; }
  43        else { stream.skipToEnd(); return "error"; }
  44      } else if (ch == "#") {
  45        var ch = stream.next();
  46        if (ch == "(") { type = "open"; return "bracket"; }
  47        else if (/[+\-=\.']/.test(ch)) return null;
  48        else if (/\d/.test(ch) && stream.match(/^\d*#/)) return null;
  49        else if (ch == "|") return (state.tokenize = inComment)(stream, state);
  50        else if (ch == ":") { readSym(stream); return "meta"; }
  51        else if (ch == "\\") { stream.next(); readSym(stream); return "string-2" }
  52        else return "error";
  53      } else {
  54        var name = readSym(stream);
  55        if (name == ".") return null;
  56        type = "symbol";
  57        if (name == "nil" || name == "t" || name.charAt(0) == ":") return "atom";
  58        if (state.lastType == "open" && (specialForm.test(name) || assumeBody.test(name))) return "keyword";
  59        if (name.charAt(0) == "&") return "variable-2";
  60        return "variable";
  61      }
  62    }
  63  
  64    function inString(stream, state) {
  65      var escaped = false, next;
  66      while (next = stream.next()) {
  67        if (next == '"' && !escaped) { state.tokenize = base; break; }
  68        escaped = !escaped && next == "\\";
  69      }
  70      return "string";
  71    }
  72  
  73    function inComment(stream, state) {
  74      var next, last;
  75      while (next = stream.next()) {
  76        if (next == "#" && last == "|") { state.tokenize = base; break; }
  77        last = next;
  78      }
  79      type = "ws";
  80      return "comment";
  81    }
  82  
  83    return {
  84      startState: function () {
  85        return {ctx: {prev: null, start: 0, indentTo: 0}, lastType: null, tokenize: base};
  86      },
  87  
  88      token: function (stream, state) {
  89        if (stream.sol() && typeof state.ctx.indentTo != "number")
  90          state.ctx.indentTo = state.ctx.start + 1;
  91  
  92        type = null;
  93        var style = state.tokenize(stream, state);
  94        if (type != "ws") {
  95          if (state.ctx.indentTo == null) {
  96            if (type == "symbol" && assumeBody.test(stream.current()))
  97              state.ctx.indentTo = state.ctx.start + config.indentUnit;
  98            else
  99              state.ctx.indentTo = "next";
 100          } else if (state.ctx.indentTo == "next") {
 101            state.ctx.indentTo = stream.column();
 102          }
 103          state.lastType = type;
 104        }
 105        if (type == "open") state.ctx = {prev: state.ctx, start: stream.column(), indentTo: null};
 106        else if (type == "close") state.ctx = state.ctx.prev || state.ctx;
 107        return style;
 108      },
 109  
 110      indent: function (state, _textAfter) {
 111        var i = state.ctx.indentTo;
 112        return typeof i == "number" ? i : state.ctx.start + 1;
 113      },
 114  
 115      closeBrackets: {pairs: "()[]{}\"\""},
 116      lineComment: ";;",
 117      fold: "brace-paren",
 118      blockCommentStart: "#|",
 119      blockCommentEnd: "|#"
 120    };
 121  });
 122  
 123  CodeMirror.defineMIME("text/x-common-lisp", "commonlisp");
 124  
 125  });