diff options
author | Jon Reid | 2012-07-17 16:03:14 -0700 |
---|---|---|
committer | Jon Reid | 2012-07-17 16:03:14 -0700 |
commit | 42a51e0c27f2e2cd825d07b3af5ec05b0e5208b3 (patch) | |
tree | 67deeb8c5b34aacc91f737cc64a3bc9ef1f4f05f /imports/codemirror/mode/scheme | |
parent | a12cabc16273ffe04af4bce1f7438dc9326efa89 (diff) | |
parent | b4b3e45d6684e77d361b4f8ca5be4889428320c5 (diff) | |
download | ninja-42a51e0c27f2e2cd825d07b3af5ec05b0e5208b3.tar.gz |
Merge remote-tracking branch 'ninja-jduran/TimelineUber' into timeline-local
Diffstat (limited to 'imports/codemirror/mode/scheme')
-rw-r--r-- | imports/codemirror/mode/scheme/scheme.js | 120 |
1 files changed, 74 insertions, 46 deletions
diff --git a/imports/codemirror/mode/scheme/scheme.js b/imports/codemirror/mode/scheme/scheme.js index caf78db0..f981b235 100644 --- a/imports/codemirror/mode/scheme/scheme.js +++ b/imports/codemirror/mode/scheme/scheme.js | |||
@@ -5,7 +5,7 @@ CodeMirror.defineMode("scheme", function (config, mode) { | |||
5 | var BUILTIN = "builtin", COMMENT = "comment", STRING = "string", | 5 | var BUILTIN = "builtin", COMMENT = "comment", STRING = "string", |
6 | ATOM = "atom", NUMBER = "number", BRACKET = "bracket", KEYWORD="keyword"; | 6 | ATOM = "atom", NUMBER = "number", BRACKET = "bracket", KEYWORD="keyword"; |
7 | var INDENT_WORD_SKIP = 2, KEYWORDS_SKIP = 1; | 7 | var INDENT_WORD_SKIP = 2, KEYWORDS_SKIP = 1; |
8 | 8 | ||
9 | function makeKeywords(str) { | 9 | function makeKeywords(str) { |
10 | var obj = {}, words = str.split(" "); | 10 | var obj = {}, words = str.split(" "); |
11 | for (var i = 0; i < words.length; ++i) obj[words[i]] = true; | 11 | for (var i = 0; i < words.length; ++i) obj[words[i]] = true; |
@@ -14,7 +14,6 @@ CodeMirror.defineMode("scheme", function (config, mode) { | |||
14 | 14 | ||
15 | var keywords = makeKeywords("λ case-lambda call/cc class define-class 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 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?"); | 15 | var keywords = makeKeywords("λ case-lambda call/cc class define-class 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 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?"); |
16 | var indentKeys = makeKeywords("define let letrec let* lambda"); | 16 | var indentKeys = makeKeywords("define let letrec let* lambda"); |
17 | |||
18 | 17 | ||
19 | function stateStack(indent, type, prev) { // represents a state stack object | 18 | function stateStack(indent, type, prev) { // represents a state stack object |
20 | this.indent = indent; | 19 | this.indent = indent; |
@@ -29,21 +28,29 @@ CodeMirror.defineMode("scheme", function (config, mode) { | |||
29 | function popStack(state) { | 28 | function popStack(state) { |
30 | state.indentStack = state.indentStack.prev; | 29 | state.indentStack = state.indentStack.prev; |
31 | } | 30 | } |
32 | 31 | ||
33 | /** | 32 | var binaryMatcher = new RegExp(/^(?:[-+]i|[-+][01]+#*(?:\/[01]+#*)?i|[-+]?[01]+#*(?:\/[01]+#*)?@[-+]?[01]+#*(?:\/[01]+#*)?|[-+]?[01]+#*(?:\/[01]+#*)?[-+](?:[01]+#*(?:\/[01]+#*)?)?i|[-+]?[01]+#*(?:\/[01]+#*)?)(?=[()\s;"]|$)/i); |
34 | * Scheme numbers are complicated unfortunately. | 33 | var 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); |
35 | * Checks if we're looking at a number, which might be possibly a fraction. | 34 | var 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); |
36 | * Also checks that it is not part of a longer identifier. Returns true/false accordingly. | 35 | var 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); |
37 | */ | 36 | |
38 | function isNumber(ch, stream){ | 37 | function isBinaryNumber (stream) { |
39 | if(/[0-9]/.exec(ch) != null){ | 38 | return stream.match(binaryMatcher); |
40 | stream.eatWhile(/[0-9]/); | 39 | } |
41 | stream.eat(/\//); | 40 | |
42 | stream.eatWhile(/[0-9]/); | 41 | function isOctalNumber (stream) { |
43 | if (stream.eol() || !(/[a-zA-Z\-\_\/]/.exec(stream.peek()))) return true; | 42 | return stream.match(octalMatcher); |
44 | stream.backUp(stream.current().length - 1); // undo all the eating | 43 | } |
44 | |||
45 | function isDecimalNumber (stream, backup) { | ||
46 | if (backup === true) { | ||
47 | stream.backUp(1); | ||
45 | } | 48 | } |
46 | return false; | 49 | return stream.match(decimalMatcher); |
50 | } | ||
51 | |||
52 | function isHexNumber (stream) { | ||
53 | return stream.match(hexMatcher); | ||
47 | } | 54 | } |
48 | 55 | ||
49 | return { | 56 | return { |
@@ -67,13 +74,13 @@ CodeMirror.defineMode("scheme", function (config, mode) { | |||
67 | return null; | 74 | return null; |
68 | } | 75 | } |
69 | var returnType = null; | 76 | var returnType = null; |
70 | 77 | ||
71 | switch(state.mode){ | 78 | switch(state.mode){ |
72 | case "string": // multi-line string parsing mode | 79 | case "string": // multi-line string parsing mode |
73 | var next, escaped = false; | 80 | var next, escaped = false; |
74 | while ((next = stream.next()) != null) { | 81 | while ((next = stream.next()) != null) { |
75 | if (next == "\"" && !escaped) { | 82 | if (next == "\"" && !escaped) { |
76 | 83 | ||
77 | state.mode = false; | 84 | state.mode = false; |
78 | break; | 85 | break; |
79 | } | 86 | } |
@@ -85,7 +92,7 @@ CodeMirror.defineMode("scheme", function (config, mode) { | |||
85 | var next, maybeEnd = false; | 92 | var next, maybeEnd = false; |
86 | while ((next = stream.next()) != null) { | 93 | while ((next = stream.next()) != null) { |
87 | if (next == "#" && maybeEnd) { | 94 | if (next == "#" && maybeEnd) { |
88 | 95 | ||
89 | state.mode = false; | 96 | state.mode = false; |
90 | break; | 97 | break; |
91 | } | 98 | } |
@@ -106,52 +113,73 @@ CodeMirror.defineMode("scheme", function (config, mode) { | |||
106 | } | 113 | } |
107 | default: // default parsing mode | 114 | default: // default parsing mode |
108 | var ch = stream.next(); | 115 | var ch = stream.next(); |
109 | 116 | ||
110 | if (ch == "\"") { | 117 | if (ch == "\"") { |
111 | state.mode = "string"; | 118 | state.mode = "string"; |
112 | returnType = STRING; | 119 | returnType = STRING; |
113 | 120 | ||
114 | } else if (ch == "'") { | 121 | } else if (ch == "'") { |
115 | returnType = ATOM; | 122 | returnType = ATOM; |
116 | } else if (ch == '#') { | 123 | } else if (ch == '#') { |
117 | if (stream.eat("|")) { // Multi-line comment | 124 | if (stream.eat("|")) { // Multi-line comment |
118 | state.mode = "comment"; // toggle to comment mode | 125 | state.mode = "comment"; // toggle to comment mode |
119 | returnType = COMMENT; | 126 | returnType = COMMENT; |
120 | } else if (stream.eat(/[tf]/)) { // #t/#f (atom) | 127 | } else if (stream.eat(/[tf]/i)) { // #t/#f (atom) |
121 | returnType = ATOM; | 128 | returnType = ATOM; |
122 | } else if (stream.eat(';')) { // S-Expr comment | 129 | } else if (stream.eat(';')) { // S-Expr comment |
123 | state.mode = "s-expr-comment"; | 130 | state.mode = "s-expr-comment"; |
124 | returnType = COMMENT; | 131 | returnType = COMMENT; |
132 | } else { | ||
133 | var numTest = null, hasExactness = false, hasRadix = true; | ||
134 | if (stream.eat(/[ei]/i)) { | ||
135 | hasExactness = true; | ||
136 | } else { | ||
137 | stream.backUp(1); // must be radix specifier | ||
138 | } | ||
139 | if (stream.match(/^#b/i)) { | ||
140 | numTest = isBinaryNumber; | ||
141 | } else if (stream.match(/^#o/i)) { | ||
142 | numTest = isOctalNumber; | ||
143 | } else if (stream.match(/^#x/i)) { | ||
144 | numTest = isHexNumber; | ||
145 | } else if (stream.match(/^#d/i)) { | ||
146 | numTest = isDecimalNumber; | ||
147 | } else if (stream.match(/^[-+0-9.]/, false)) { | ||
148 | hasRadix = false; | ||
149 | numTest = isDecimalNumber; | ||
150 | // re-consume the intial # if all matches failed | ||
151 | } else if (!hasExactness) { | ||
152 | stream.eat('#'); | ||
153 | } | ||
154 | if (numTest != null) { | ||
155 | if (hasRadix && !hasExactness) { | ||
156 | // consume optional exactness after radix | ||
157 | stream.match(/^#[ei]/i); | ||
158 | } | ||
159 | if (numTest(stream)) | ||
160 | returnType = NUMBER; | ||
161 | } | ||
125 | } | 162 | } |
126 | 163 | } else if (/^[-+0-9.]/.test(ch) && isDecimalNumber(stream, true)) { // match non-prefixed number, must be decimal | |
164 | returnType = NUMBER; | ||
127 | } else if (ch == ";") { // comment | 165 | } else if (ch == ";") { // comment |
128 | stream.skipToEnd(); // rest of the line is a comment | 166 | stream.skipToEnd(); // rest of the line is a comment |
129 | returnType = COMMENT; | 167 | returnType = COMMENT; |
130 | } else if (ch == "-"){ | ||
131 | |||
132 | if(!isNaN(parseInt(stream.peek()))){ | ||
133 | stream.eatWhile(/[\/0-9]/); | ||
134 | returnType = NUMBER; | ||
135 | }else{ | ||
136 | returnType = null; | ||
137 | } | ||
138 | } else if (isNumber(ch,stream)){ | ||
139 | returnType = NUMBER; | ||
140 | } else if (ch == "(" || ch == "[") { | 168 | } else if (ch == "(" || ch == "[") { |
141 | var keyWord = ''; var indentTemp = stream.column(); | 169 | var keyWord = ''; var indentTemp = stream.column(); |
142 | /** | 170 | /** |
143 | Either | 171 | Either |
144 | (indent-word .. | 172 | (indent-word .. |
145 | (non-indent-word .. | 173 | (non-indent-word .. |
146 | (;something else, bracket, etc. | 174 | (;something else, bracket, etc. |
147 | */ | 175 | */ |
148 | 176 | ||
149 | while ((letter = stream.eat(/[^\s\(\[\;\)\]]/)) != null) { | 177 | while ((letter = stream.eat(/[^\s\(\[\;\)\]]/)) != null) { |
150 | keyWord += letter; | 178 | keyWord += letter; |
151 | } |