/lenasys/trunk

To get this branch, use:
bzr branch http://gegoxaren.bato24.eu/bzr/lenasys/trunk

« back to all changes in this revision

Viewing changes to codeigniter/js/ace/mode-lisp.js

  • Committer: Gustav Hartvigsson
  • Date: 2013-04-05 15:54:35 UTC
  • mfrom: (19.1.4 lenasys)
  • Revision ID: gustav.hartvigsson@gmail.com-20130405155435-lf76rf1vwcacin4p
Merged from implementation group 1's team branch into trunk, 20130405 end of
day.

Show diffs side-by-side

added added

removed removed

Lines of Context:
codeigniter/js/ace/mode-lisp.js
1
 
/* ***** BEGIN LICENSE BLOCK *****
2
 
 * Distributed under the BSD license:
3
 
 *
4
 
 * Copyright (c) 2012, Ajax.org B.V.
5
 
 * All rights reserved.
6
 
 * 
7
 
 * Redistribution and use in source and binary forms, with or without
8
 
 * modification, are permitted provided that the following conditions are met:
9
 
 *     * Redistributions of source code must retain the above copyright
10
 
 *       notice, this list of conditions and the following disclaimer.
11
 
 *     * Redistributions in binary form must reproduce the above copyright
12
 
 *       notice, this list of conditions and the following disclaimer in the
13
 
 *       documentation and/or other materials provided with the distribution.
14
 
 *     * Neither the name of Ajax.org B.V. nor the
15
 
 *       names of its contributors may be used to endorse or promote products
16
 
 *       derived from this software without specific prior written permission.
17
 
 * 
18
 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
19
 
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20
 
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
21
 
 * DISCLAIMED. IN NO EVENT SHALL AJAX.ORG B.V. BE LIABLE FOR ANY
22
 
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23
 
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24
 
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
25
 
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26
 
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
27
 
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28
 
 *
29
 
 *
30
 
 * ***** END LICENSE BLOCK ***** */
31
 
 
32
 
define('ace/mode/lisp', ['require', 'exports', 'module' , 'ace/lib/oop', 'ace/mode/text', 'ace/tokenizer', 'ace/mode/lisp_highlight_rules'], function(require, exports, module) {
33
 
 
34
 
 
35
 
var oop = require("../lib/oop");
36
 
var TextMode = require("./text").Mode;
37
 
var Tokenizer = require("../tokenizer").Tokenizer;
38
 
var LispHighlightRules = require("./lisp_highlight_rules").LispHighlightRules;
39
 
 
40
 
var Mode = function() {
41
 
    var highlighter = new LispHighlightRules();
42
 
    
43
 
    this.$tokenizer = new Tokenizer(highlighter.getRules());
44
 
};
45
 
oop.inherits(Mode, TextMode);
46
 
 
47
 
(function() {
48
 
       
49
 
    this.lineCommentStart = ";";
50
 
    
51
 
}).call(Mode.prototype);
52
 
 
53
 
exports.Mode = Mode;
54
 
});
55
 
 
56
 
 
57
 
define('ace/mode/lisp_highlight_rules', ['require', 'exports', 'module' , 'ace/lib/oop', 'ace/mode/text_highlight_rules'], function(require, exports, module) {
58
 
 
59
 
 
60
 
var oop = require("../lib/oop");
61
 
var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;
62
 
 
63
 
var LispHighlightRules = function() {
64
 
    var keywordControl = "case|do|let|loop|if|else|when";
65
 
    var keywordOperator = "eq|neq|and|or";
66
 
    var constantLanguage = "null|nil";
67
 
    var supportFunctions = "cons|car|cdr|cond|lambda|format|setq|setf|quote|eval|append|list|listp|memberp|t|load|progn";
68
 
 
69
 
    var keywordMapper = this.createKeywordMapper({
70
 
        "keyword.control": keywordControl,
71
 
        "keyword.operator": keywordOperator,
72
 
        "constant.language": constantLanguage,
73
 
        "support.function": supportFunctions
74
 
    }, "identifier", true);
75
 
 
76
 
    this.$rules = 
77
 
        {
78
 
    "start": [
79
 
        {
80
 
            token : "comment",
81
 
            regex : ";.*$"
82
 
        },
83
 
        {
84
 
            token: ["storage.type.function-type.lisp", "text", "entity.name.function.lisp"],
85
 
            regex: "(?:\\b(?:(defun|defmethod|defmacro))\\b)(\\s+)((?:\\w|\\-|\\!|\\?)*)"
86
 
        },
87
 
        {
88
 
            token: ["punctuation.definition.constant.character.lisp", "constant.character.lisp"],
89
 
            regex: "(#)((?:\\w|[\\\\+-=<>'\"&#])+)"
90
 
        },
91
 
        {
92
 
            token: ["punctuation.definition.variable.lisp", "variable.other.global.lisp", "punctuation.definition.variable.lisp"],
93
 
            regex: "(\\*)(\\S*)(\\*)"
94
 
        },
95
 
        {
96
 
            token : "constant.numeric", // hex
97
 
            regex : "0[xX][0-9a-fA-F]+(?:L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\\b"
98
 
        }, 
99
 
        {
100
 
            token : "constant.numeric", // float
101
 
            regex : "[+-]?\\d+(?:(?:\\.\\d*)?(?:[eE][+-]?\\d+)?)?(?:L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\\b"
102
 
        },
103
 
        {
104
 
                token : keywordMapper,
105
 
                regex : "[a-zA-Z_$][a-zA-Z0-9_$]*\\b"
106
 
        },
107
 
        {
108
 
            token : "string",
109
 
            regex : '"(?=.)',
110
 
            next  : "qqstring"
111
 
        }
112
 
    ],
113
 
    "qqstring": [
114
 
        {
115
 
            token: "constant.character.escape.lisp",
116
 
            regex: "\\\\."
117
 
        },
118
 
        {
119
 
            token : "string",
120
 
            regex : '[^"\\\\]+'
121
 
        }, {
122
 
            token : "string",
123
 
            regex : "\\\\$",
124
 
            next  : "qqstring"
125
 
        }, {
126
 
            token : "string",
127
 
            regex : '"|$',
128
 
            next  : "start"
129
 
        }
130
 
    ]
131
 
}
132
 
 
133
 
};
134
 
 
135
 
oop.inherits(LispHighlightRules, TextHighlightRules);
136
 
 
137
 
exports.LispHighlightRules = LispHighlightRules;
138
 
});