[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("pascal", function() {
  15    function words(str) {
  16      var obj = {}, words = str.split(" ");
  17      for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
  18      return obj;
  19    }
  20    var keywords = words(
  21      "absolute and array asm begin case const constructor destructor div do " +
  22      "downto else end file for function goto if implementation in inherited " +
  23      "inline interface label mod nil not object of operator or packed procedure " +
  24      "program record reintroduce repeat self set shl shr string then to type " +
  25      "unit until uses var while with xor as class dispinterface except exports " +
  26      "finalization finally initialization inline is library on out packed " +
  27      "property raise resourcestring threadvar try absolute abstract alias " +
  28      "assembler bitpacked break cdecl continue cppdecl cvar default deprecated " +
  29      "dynamic enumerator experimental export external far far16 forward generic " +
  30      "helper implements index interrupt iocheck local message name near " +
  31      "nodefault noreturn nostackframe oldfpccall otherwise overload override " +
  32      "pascal platform private protected public published read register " +
  33      "reintroduce result safecall saveregisters softfloat specialize static " +
  34      "stdcall stored strict unaligned unimplemented varargs virtual write");
  35    var atoms = {"null": true};
  36  
  37    var isOperatorChar = /[+\-*&%=<>!?|\/]/;
  38  
  39    function tokenBase(stream, state) {
  40      var ch = stream.next();
  41      if (ch == "#" && state.startOfLine) {
  42        stream.skipToEnd();
  43        return "meta";
  44      }
  45      if (ch == '"' || ch == "'") {
  46        state.tokenize = tokenString(ch);
  47        return state.tokenize(stream, state);
  48      }
  49      if (ch == "(" && stream.eat("*")) {
  50        state.tokenize = tokenComment;
  51        return tokenComment(stream, state);
  52      }
  53      if (ch == "{") {
  54        state.tokenize = tokenCommentBraces;
  55        return tokenCommentBraces(stream, state);
  56      }
  57      if (/[\[\]\(\),;\:\.]/.test(ch)) {
  58        return null;
  59      }
  60      if (/\d/.test(ch)) {
  61        stream.eatWhile(/[\w\.]/);
  62        return "number";
  63      }
  64      if (ch == "/") {
  65        if (stream.eat("/")) {
  66          stream.skipToEnd();
  67          return "comment";
  68        }
  69      }
  70      if (isOperatorChar.test(ch)) {
  71        stream.eatWhile(isOperatorChar);
  72        return "operator";
  73      }
  74      stream.eatWhile(/[\w\$_]/);
  75      var cur = stream.current();
  76      if (keywords.propertyIsEnumerable(cur)) return "keyword";
  77      if (atoms.propertyIsEnumerable(cur)) return "atom";
  78      return "variable";
  79    }
  80  
  81    function tokenString(quote) {
  82      return function(stream, state) {
  83        var escaped = false, next, end = false;
  84        while ((next = stream.next()) != null) {
  85          if (next == quote && !escaped) {end = true; break;}
  86          escaped = !escaped && next == "\\";
  87        }
  88        if (end || !escaped) state.tokenize = null;
  89        return "string";
  90      };
  91    }
  92  
  93    function tokenComment(stream, state) {
  94      var maybeEnd = false, ch;
  95      while (ch = stream.next()) {
  96        if (ch == ")" && maybeEnd) {
  97          state.tokenize = null;
  98          break;
  99        }
 100        maybeEnd = (ch == "*");
 101      }
 102      return "comment";
 103    }
 104  
 105    function tokenCommentBraces(stream, state) {
 106      var ch;
 107      while (ch = stream.next()) {
 108        if (ch == "}") {
 109          state.tokenize = null;
 110          break;
 111        }
 112      }
 113      return "comment";
 114    }
 115  
 116    // Interface
 117  
 118    return {
 119      startState: function() {
 120        return {tokenize: null};
 121      },
 122  
 123      token: function(stream, state) {
 124        if (stream.eatSpace()) return null;
 125        var style = (state.tokenize || tokenBase)(stream, state);
 126        if (style == "comment" || style == "meta") return style;
 127        return style;
 128      },
 129  
 130      electricChars: "{}"
 131    };
 132  });
 133  
 134  CodeMirror.defineMIME("text/x-pascal", "pascal");
 135  
 136  });