File modules/editor/codemirror/mode/tcl/tcl.js

Last commit: Sun Dec 17 01:14:09 2017 +0100	Jan Dankert	Integration eines weiteren Code-Editors: Codemirror. Demnächst müssen wir hier mal aufräumen und andere Editoren rauswerfen.


     1 // CodeMirror, copyright (c) by Marijn Haverbeke and others
     2 // Distributed under an MIT license: http://codemirror.net/LICENSE
     3 
     4 //tcl mode by Ford_Lawnmower :: Based on Velocity mode by Steve O'Hara
     5 
     6 (function(mod) {
     7   if (typeof exports == "object" && typeof module == "object") // CommonJS
     8     mod(require("../../lib/codemirror"));
     9   else if (typeof define == "function" && define.amd) // AMD
    10     define(["../../lib/codemirror"], mod);
    11   else // Plain browser env
    12     mod(CodeMirror);
    13 })(function(CodeMirror) {
    14 "use strict";
    15 
    16 CodeMirror.defineMode("tcl", function() {
    17   function parseWords(str) {
    18     var obj = {}, words = str.split(" ");
    19     for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
    20     return obj;
    21   }
    22   var keywords = parseWords("Tcl safe after append array auto_execok auto_import auto_load " +
    23         "auto_mkindex auto_mkindex_old auto_qualify auto_reset bgerror " +
    24         "binary break catch cd close concat continue dde eof encoding error " +
    25         "eval exec exit expr fblocked fconfigure fcopy file fileevent filename " +
    26         "filename flush for foreach format gets glob global history http if " +
    27         "incr info interp join lappend lindex linsert list llength load lrange " +
    28         "lreplace lsearch lset lsort memory msgcat namespace open package parray " +
    29         "pid pkg::create pkg_mkIndex proc puts pwd re_syntax read regex regexp " +
    30         "registry regsub rename resource return scan seek set socket source split " +
    31         "string subst switch tcl_endOfWord tcl_findLibrary tcl_startOfNextWord " +
    32         "tcl_wordBreakAfter tcl_startOfPreviousWord tcl_wordBreakBefore tcltest " +
    33         "tclvars tell time trace unknown unset update uplevel upvar variable " +
    34     "vwait");
    35     var functions = parseWords("if elseif else and not or eq ne in ni for foreach while switch");
    36     var isOperatorChar = /[+\-*&%=<>!?^\/\|]/;
    37     function chain(stream, state, f) {
    38       state.tokenize = f;
    39       return f(stream, state);
    40     }
    41     function tokenBase(stream, state) {
    42       var beforeParams = state.beforeParams;
    43       state.beforeParams = false;
    44       var ch = stream.next();
    45       if ((ch == '"' || ch == "'") && state.inParams) {
    46         return chain(stream, state, tokenString(ch));
    47       } else if (/[\[\]{}\(\),;\.]/.test(ch)) {
    48         if (ch == "(" && beforeParams) state.inParams = true;
    49         else if (ch == ")") state.inParams = false;
    50           return null;
    51       } else if (/\d/.test(ch)) {
    52         stream.eatWhile(/[\w\.]/);
    53         return "number";
    54       } else if (ch == "#") {
    55         if (stream.eat("*"))
    56           return chain(stream, state, tokenComment);
    57         if (ch == "#" && stream.match(/ *\[ *\[/))
    58           return chain(stream, state, tokenUnparsed);
    59         stream.skipToEnd();
    60         return "comment";
    61       } else if (ch == '"') {
    62         stream.skipTo(/"/);
    63         return "comment";
    64       } else if (ch == "$") {
    65         stream.eatWhile(/[$_a-z0-9A-Z\.{:]/);
    66         stream.eatWhile(/}/);
    67         state.beforeParams = true;
    68         return "builtin";
    69       } else if (isOperatorChar.test(ch)) {
    70         stream.eatWhile(isOperatorChar);
    71         return "comment";
    72       } else {
    73         stream.eatWhile(/[\w\$_{}\xa1-\uffff]/);
    74         var word = stream.current().toLowerCase();
    75         if (keywords && keywords.propertyIsEnumerable(word))
    76           return "keyword";
    77         if (functions && functions.propertyIsEnumerable(word)) {
    78           state.beforeParams = true;
    79           return "keyword";
    80         }
    81         return null;
    82       }
    83     }
    84     function tokenString(quote) {
    85       return function(stream, state) {
    86       var escaped = false, next, end = false;
    87       while ((next = stream.next()) != null) {
    88         if (next == quote && !escaped) {
    89           end = true;
    90           break;
    91         }
    92         escaped = !escaped && next == "\\";
    93       }
    94       if (end) state.tokenize = tokenBase;
    95         return "string";
    96       };
    97     }
    98     function tokenComment(stream, state) {
    99       var maybeEnd = false, ch;
   100       while (ch = stream.next()) {
   101         if (ch == "#" && maybeEnd) {
   102           state.tokenize = tokenBase;
   103           break;
   104         }
   105         maybeEnd = (ch == "*");
   106       }
   107       return "comment";
   108     }
   109     function tokenUnparsed(stream, state) {
   110       var maybeEnd = 0, ch;
   111       while (ch = stream.next()) {
   112         if (ch == "#" && maybeEnd == 2) {
   113           state.tokenize = tokenBase;
   114           break;
   115         }
   116         if (ch == "]")
   117           maybeEnd++;
   118         else if (ch != " ")
   119           maybeEnd = 0;
   120       }
   121       return "meta";
   122     }
   123     return {
   124       startState: function() {
   125         return {
   126           tokenize: tokenBase,
   127           beforeParams: false,
   128           inParams: false
   129         };
   130       },
   131       token: function(stream, state) {
   132         if (stream.eatSpace()) return null;
   133         return state.tokenize(stream, state);
   134       }
   135     };
   136 });
   137 CodeMirror.defineMIME("text/x-tcl", "tcl");
   138 
   139 });



Download modules/editor/codemirror/mode/tcl/tcl.js


History
Sun, 17 Dec 2017 01:14:09 +0100	Jan Dankert	Integration eines weiteren Code-Editors: Codemirror. Demnächst müssen wir hier mal aufräumen und andere Editoren rauswerfen.