liquid_cms 0.3.1.0 → 0.3.2.0
Sign up to get free protection for your applications and to get access to all the features.
- data/CHANGELOG.rdoc +10 -0
- data/Gemfile +0 -3
- data/README.rdoc +16 -2
- data/TODO.rdoc +0 -2
- data/app/controllers/cms/assets_controller.rb +20 -6
- data/app/controllers/cms/components_controller.rb +11 -3
- data/app/controllers/cms/pages_controller.rb +15 -4
- data/app/helpers/cms/common_helper.rb +31 -32
- data/app/liquid/cms_paperclip_extension.rb +75 -3
- data/app/liquid/tags/{data_tag.rb → cms/data_tag.rb} +0 -0
- data/app/models/cms/asset.rb +1 -1
- data/app/models/cms/component.rb +3 -3
- data/app/views/cms/assets/_form.html.erb +1 -2
- data/app/views/cms/assets/update.js.rjs +1 -0
- data/app/views/cms/components/update.js.rjs +1 -0
- data/app/views/cms/pages/_form.html.erb +3 -3
- data/app/views/cms/pages/update.js.rjs +1 -0
- data/app/views/layouts/cms.html.erb +4 -3
- data/config/initializers/cms/simple_form.rb +70 -12
- data/config/initializers/cms/simple_form_updates.rb +9 -3
- data/config/locales/cms/en.yml +6 -0
- data/lib/generators/liquid_cms/install_generator.rb +5 -1
- data/lib/generators/liquid_cms/templates/migration_rev2.rb +13 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/LICENSE +16 -20
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/lib/codemirror.css +68 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/lib/codemirror.js +2197 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/lib/overlay.js +51 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/lib/runmode.js +27 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/clike/clike.js +247 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/clike/index.html +102 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/clojure/clojure.js +207 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/clojure/index.html +85 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/coffeescript/LICENSE +22 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/coffeescript/coffeescript.js +325 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/coffeescript/index.html +722 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/css/css.js +124 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/css/index.html +56 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/diff/diff.css +3 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/diff/diff.js +13 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/diff/index.html +99 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/haskell/haskell.js +242 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/haskell/index.html +60 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/htmlmixed/htmlmixed.js +79 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/htmlmixed/index.html +52 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/javascript/index.html +78 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/javascript/javascript.js +352 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/jinja2/index.html +38 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/jinja2/jinja2.js +42 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/lua/index.html +72 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/lua/lua.js +140 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/markdown/index.html +340 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/markdown/markdown.css +10 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/markdown/markdown.js +230 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/ntriples/index.html +33 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/ntriples/ntriples.js +172 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/pascal/LICENSE +7 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/pascal/index.html +49 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/pascal/pascal.js +138 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/php/index.html +49 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/php/php.js +116 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/plsql/index.html +63 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/plsql/plsql.js +217 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/python/LICENSE.txt +21 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/python/index.html +123 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/python/python.js +320 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/r/LICENSE +24 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/r/index.html +74 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/r/r.js +141 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/rst/index.html +526 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/rst/rst.css +75 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/rst/rst.js +333 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/ruby/LICENSE +24 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/ruby/index.html +172 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/ruby/ruby.js +195 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/scheme/index.html +65 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/scheme/scheme.js +202 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/smalltalk/index.html +56 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/smalltalk/smalltalk.js +122 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/sparql/index.html +41 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/sparql/sparql.js +143 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/stex/index.html +96 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/stex/stex.js +167 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/velocity/index.html +103 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/velocity/velocity.js +146 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/xml/index.html +42 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/xml/xml.js +231 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/xmlpure/index.html +60 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/xmlpure/xmlpure.js +481 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/yaml/index.html +68 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/mode/yaml/yaml.js +95 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/theme/cobalt.css +17 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/theme/default.css +19 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/theme/eclipse.css +24 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/theme/elegant.css +9 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/theme/neat.css +8 -0
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/theme/night.css +20 -0
- data/lib/generators/liquid_cms/templates/public/cms/javascripts/cms.js +1 -1
- data/lib/generators/liquid_cms/templates/public/cms/javascripts/codemirror_custom.js +96 -0
- data/lib/generators/liquid_cms/templates/public/cms/stylesheets/codemirror_changes.css +26 -0
- data/lib/generators/liquid_cms/templates/public/cms/stylesheets/liquid.css +7 -0
- data/lib/generators/liquid_cms/templates/public/cms/stylesheets/simple_form.css +0 -8
- data/lib/liquid_cms/version.rb +1 -1
- data/liquid_cms.gemspec +1 -1
- data/test/functional/assets_controller_test.rb +35 -20
- data/test/functional/components_controller_test.rb +15 -5
- data/test/functional/pages_controller_test.rb +19 -6
- data/test/rails_app/Gemfile +1 -2
- data/test/rails_app/config/locales/cms/en.yml +26 -4
- data/test/rails_app/db/migrate/20110511161859_create_liquid_cms_upgrade_rev2.rb +13 -0
- data/test/unit/asset_test.rb +1 -1
- data/test/unit/component_test.rb +1 -1
- metadata +89 -32
- data/generators/liquid_cms/templates/migration_rev1.rb +0 -38
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/css/csscolors.css +0 -55
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/css/docs.css +0 -158
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/css/font.js +0 -15
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/css/jscolors.css +0 -59
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/css/sparqlcolors.css +0 -43
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/css/xmlcolors.css +0 -55
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/codemirror.js +0 -582
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/editor.js +0 -1671
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/highlight.js +0 -68
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/mirrorframe.js +0 -81
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/parsecss.js +0 -161
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/parsedummy.js +0 -32
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/parsehtmlmixed.js +0 -93
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/parsejavascript.js +0 -359
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/parsesparql.js +0 -162
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/parsexml.js +0 -291
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/select.js +0 -699
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/stringstream.js +0 -159
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/tokenize.js +0 -57
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/tokenizejavascript.js +0 -174
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/undo.js +0 -413
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/unittests.js +0 -44
- data/lib/generators/liquid_cms/templates/public/cms/codemirror/js/util.js +0 -133
@@ -0,0 +1,195 @@
|
|
1
|
+
CodeMirror.defineMode("ruby", function(config, parserConfig) {
|
2
|
+
function wordObj(words) {
|
3
|
+
var o = {};
|
4
|
+
for (var i = 0, e = words.length; i < e; ++i) o[words[i]] = true;
|
5
|
+
return o;
|
6
|
+
}
|
7
|
+
var keywords = wordObj([
|
8
|
+
"alias", "and", "BEGIN", "begin", "break", "case", "class", "def", "defined?", "do", "else",
|
9
|
+
"elsif", "END", "end", "ensure", "false", "for", "if", "in", "module", "next", "not", "or",
|
10
|
+
"redo", "rescue", "retry", "return", "self", "super", "then", "true", "undef", "unless",
|
11
|
+
"until", "when", "while", "yield", "nil", "raise", "throw", "catch", "fail", "loop", "callcc",
|
12
|
+
"caller", "lambda", "proc", "public", "protected", "private", "require", "load",
|
13
|
+
"require_relative", "extend", "autoload"
|
14
|
+
]);
|
15
|
+
var indentWords = wordObj(["def", "class", "case", "for", "while", "do", "module", "then",
|
16
|
+
"unless", "catch", "loop", "proc"]);
|
17
|
+
var dedentWords = wordObj(["end", "until"]);
|
18
|
+
var matching = {"[": "]", "{": "}", "(": ")"};
|
19
|
+
var curPunc;
|
20
|
+
|
21
|
+
function chain(newtok, stream, state) {
|
22
|
+
state.tokenize.push(newtok);
|
23
|
+
return newtok(stream, state);
|
24
|
+
}
|
25
|
+
|
26
|
+
function tokenBase(stream, state) {
|
27
|
+
curPunc = null;
|
28
|
+
if (stream.sol() && stream.match("=begin") && stream.eol()) {
|
29
|
+
state.tokenize.push(readBlockComment);
|
30
|
+
return "comment";
|
31
|
+
}
|
32
|
+
if (stream.eatSpace()) return null;
|
33
|
+
var ch = stream.next();
|
34
|
+
if (ch == "`" || ch == "'" || ch == '"' || ch == "/") {
|
35
|
+
return chain(readQuoted(ch, "string", ch == '"'), stream, state);
|
36
|
+
} else if (ch == "%") {
|
37
|
+
var style, embed = false;
|
38
|
+
if (stream.eat("s")) style = "atom";
|
39
|
+
else if (stream.eat(/[WQ]/)) { style = "string"; embed = true; }
|
40
|
+
else if (stream.eat(/[wxqr]/)) style = "string";
|
41
|
+
var delim = stream.eat(/[^\w\s]/);
|
42
|
+
if (!delim) return "operator";
|
43
|
+
if (matching.propertyIsEnumerable(delim)) delim = matching[delim];
|
44
|
+
return chain(readQuoted(delim, style, embed, true), stream, state);
|
45
|
+
} else if (ch == "#") {
|
46
|
+
stream.skipToEnd();
|
47
|
+
return "comment";
|
48
|
+
} else if (ch == "<" && stream.eat("<")) {
|
49
|
+
stream.eat("-");
|
50
|
+
stream.eat(/[\'\"\`]/);
|
51
|
+
var match = stream.match(/^\w+/);
|
52
|
+
stream.eat(/[\'\"\`]/);
|
53
|
+
if (match) return chain(readHereDoc(match[0]), stream, state);
|
54
|
+
return null;
|
55
|
+
} else if (ch == "0") {
|
56
|
+
if (stream.eat("x")) stream.eatWhile(/[\da-fA-F]/);
|
57
|
+
else if (stream.eat("b")) stream.eatWhile(/[01]/);
|
58
|
+
else stream.eatWhile(/[0-7]/);
|
59
|
+
return "number";
|
60
|
+
} else if (/\d/.test(ch)) {
|
61
|
+
stream.match(/^[\d_]*(?:\.[\d_]+)?(?:[eE][+\-]?[\d_]+)?/);
|
62
|
+
return "number";
|
63
|
+
} else if (ch == "?") {
|
64
|
+
while (stream.match(/^\\[CM]-/)) {}
|
65
|
+
if (stream.eat("\\")) stream.eatWhile(/\w/);
|
66
|
+
else stream.next();
|
67
|
+
return "string";
|
68
|
+
} else if (ch == ":") {
|
69
|
+
if (stream.eat("'")) return chain(readQuoted("'", "atom", false), stream, state);
|
70
|
+
if (stream.eat('"')) return chain(readQuoted('"', "atom", true), stream, state);
|
71
|
+
stream.eatWhile(/[\w\?]/);
|
72
|
+
return "atom";
|
73
|
+
} else if (ch == "@") {
|
74
|
+
stream.eat("@");
|
75
|
+
stream.eatWhile(/[\w\?]/);
|
76
|
+
return "variable-2";
|
77
|
+
} else if (ch == "$") {
|
78
|
+
stream.next();
|
79
|
+
stream.eatWhile(/[\w\?]/);
|
80
|
+
return "variable-3";
|
81
|
+
} else if (/\w/.test(ch)) {
|
82
|
+
stream.eatWhile(/[\w\?]/);
|
83
|
+
if (stream.eat(":")) return "atom";
|
84
|
+
return "ident";
|
85
|
+
} else if (ch == "|" && (state.varList || state.lastTok == "{" || state.lastTok == "do")) {
|
86
|
+
curPunc = "|";
|
87
|
+
return null;
|
88
|
+
} else if (/[\(\)\[\]{}\\;]/.test(ch)) {
|
89
|
+
curPunc = ch;
|
90
|
+
return null;
|
91
|
+
} else if (ch == "-" && stream.eat(">")) {
|
92
|
+
return "arrow";
|
93
|
+
} else if (/[=+\-\/*:\.^%<>~|]/.test(ch)) {
|
94
|
+
stream.eatWhile(/[=+\-\/*:\.^%<>~|]/);
|
95
|
+
return "operator";
|
96
|
+
} else {
|
97
|
+
return null;
|
98
|
+
}
|
99
|
+
}
|
100
|
+
|
101
|
+
function tokenBaseUntilBrace() {
|
102
|
+
var depth = 1;
|
103
|
+
return function(stream, state) {
|
104
|
+
if (stream.peek() == "}") {
|
105
|
+
depth--;
|
106
|
+
if (depth == 0) {
|
107
|
+
state.tokenize.pop();
|
108
|
+
return state.tokenize[state.tokenize.length-1](stream, state);
|
109
|
+
}
|
110
|
+
} else if (stream.peek() == "{") {
|
111
|
+
depth++;
|
112
|
+
}
|
113
|
+
return tokenBase(stream, state);
|
114
|
+
};
|
115
|
+
}
|
116
|
+
function readQuoted(quote, style, embed, unescaped) {
|
117
|
+
return function(stream, state) {
|
118
|
+
var escaped = false, ch;
|
119
|
+
while ((ch = stream.next()) != null) {
|
120
|
+
if (ch == quote && (unescaped || !escaped)) {
|
121
|
+
state.tokenize.pop();
|
122
|
+
break;
|
123
|
+
}
|
124
|
+
if (embed && ch == "#" && !escaped && stream.eat("{")) {
|
125
|
+
state.tokenize.push(tokenBaseUntilBrace(arguments.callee));
|
126
|
+
break;
|
127
|
+
}
|
128
|
+
escaped = !escaped && ch == "\\";
|
129
|
+
}
|
130
|
+
return style;
|
131
|
+
};
|
132
|
+
}
|
133
|
+
function readHereDoc(phrase) {
|
134
|
+
return function(stream, state) {
|
135
|
+
if (stream.match(phrase)) state.tokenize.pop();
|
136
|
+
else stream.skipToEnd();
|
137
|
+
return "string";
|
138
|
+
};
|
139
|
+
}
|
140
|
+
function readBlockComment(stream, state) {
|
141
|
+
if (stream.sol() && stream.match("=end") && stream.eol())
|
142
|
+
state.tokenize.pop();
|
143
|
+
stream.skipToEnd();
|
144
|
+
return "comment";
|
145
|
+
}
|
146
|
+
|
147
|
+
return {
|
148
|
+
startState: function() {
|
149
|
+
return {tokenize: [tokenBase],
|
150
|
+
indented: 0,
|
151
|
+
context: {type: "top", indented: -config.indentUnit},
|
152
|
+
continuedLine: false,
|
153
|
+
lastTok: null,
|
154
|
+
varList: false};
|
155
|
+
},
|
156
|
+
|
157
|
+
token: function(stream, state) {
|
158
|
+
if (stream.sol()) state.indented = stream.indentation();
|
159
|
+
var style = state.tokenize[state.tokenize.length-1](stream, state), kwtype;
|
160
|
+
if (style == "ident") {
|
161
|
+
var word = stream.current();
|
162
|
+
style = keywords.propertyIsEnumerable(stream.current()) ? "keyword"
|
163
|
+
: /^[A-Z]/.test(word) ? "tag"
|
164
|
+
: (state.lastTok == "def" || state.lastTok == "class" || state.varList) ? "def"
|
165
|
+
: "variable";
|
166
|
+
if (indentWords.propertyIsEnumerable(word)) kwtype = "indent";
|
167
|
+
else if (dedentWords.propertyIsEnumerable(word)) kwtype = "dedent";
|
168
|
+
else if (word == "if" && stream.column() == stream.indentation()) kwtype = "indent";
|
169
|
+
}
|
170
|
+
if (curPunc || (style && style != "comment")) state.lastTok = word || curPunc || style;
|
171
|
+
if (curPunc == "|") state.varList = !state.varList;
|
172
|
+
|
173
|
+
if (kwtype == "indent" || /[\(\[\{]/.test(curPunc))
|
174
|
+
state.context = {prev: state.context, type: curPunc || style, indented: state.indented};
|
175
|
+
else if ((kwtype == "dedent" || /[\)\]\}]/.test(curPunc)) && state.context.prev)
|
176
|
+
state.context = state.context.prev;
|
177
|
+
|
178
|
+
if (stream.eol())
|
179
|
+
state.continuedLine = (curPunc == "\\" || style == "operator");
|
180
|
+
return style;
|
181
|
+
},
|
182
|
+
|
183
|
+
indent: function(state, textAfter) {
|
184
|
+
if (state.tokenize[state.tokenize.length-1] != tokenBase) return 0;
|
185
|
+
var firstChar = textAfter && textAfter.charAt(0);
|
186
|
+
var ct = state.context;
|
187
|
+
var closing = ct.type == matching[firstChar] ||
|
188
|
+
ct.type == "keyword" && /^(?:end|until|else|elsif|when)\b/.test(textAfter);
|
189
|
+
return ct.indented + (closing ? 0 : config.indentUnit) +
|
190
|
+
(state.continuedLine ? config.indentUnit : 0);
|
191
|
+
}
|
192
|
+
};
|
193
|
+
});
|
194
|
+
|
195
|
+
CodeMirror.defineMIME("text/x-ruby", "ruby");
|
@@ -0,0 +1,65 @@
|
|
1
|
+
<!doctype html>
|
2
|
+
<html>
|
3
|
+
<head>
|
4
|
+
<title>CodeMirror 2: Scheme mode</title>
|
5
|
+
<link rel="stylesheet" href="../../lib/codemirror.css">
|
6
|
+
<script src="../../lib/codemirror.js"></script>
|
7
|
+
<script src="scheme.js"></script>
|
8
|
+
<link rel="stylesheet" href="../../theme/default.css">
|
9
|
+
<style>.CodeMirror {background: #f8f8f8;}</style>
|
10
|
+
<link rel="stylesheet" href="../../css/docs.css">
|
11
|
+
</head>
|
12
|
+
<body>
|
13
|
+
<h1>CodeMirror 2: Scheme mode</h1>
|
14
|
+
<form><textarea id="code" name="code">
|
15
|
+
; See if the input starts with a given symbol.
|
16
|
+
(define (match-symbol input pattern)
|
17
|
+
(cond ((null? (remain input)) #f)
|
18
|
+
((eqv? (car (remain input)) pattern) (r-cdr input))
|
19
|
+
(else #f)))
|
20
|
+
|
21
|
+
; Allow the input to start with one of a list of patterns.
|
22
|
+
(define (match-or input pattern)
|
23
|
+
(cond ((null? pattern) #f)
|
24
|
+
((match-pattern input (car pattern)))
|
25
|
+
(else (match-or input (cdr pattern)))))
|
26
|
+
|
27
|
+
; Allow a sequence of patterns.
|
28
|
+
(define (match-seq input pattern)
|
29
|
+
(if (null? pattern)
|
30
|
+
input
|
31
|
+
(let ((match (match-pattern input (car pattern))))
|
32
|
+
(if match (match-seq match (cdr pattern)) #f))))
|
33
|
+
|
34
|
+
; Match with the pattern but no problem if it does not match.
|
35
|
+
(define (match-opt input pattern)
|
36
|
+
(let ((match (match-pattern input (car pattern))))
|
37
|
+
(if match match input)))
|
38
|
+
|
39
|
+
; Match anything (other than '()), until pattern is found. The rather
|
40
|
+
; clumsy form of requiring an ending pattern is needed to decide where
|
41
|
+
; the end of the match is. If none is given, this will match the rest
|
42
|
+
; of the sentence.
|
43
|
+
(define (match-any input pattern)
|
44
|
+
(cond ((null? (remain input)) #f)
|
45
|
+
((null? pattern) (f-cons (remain input) (clear-remain input)))
|
46
|
+
(else
|
47
|
+
(let ((accum-any (collector)))
|
48
|
+
(define (match-pattern-any input pattern)
|
49
|
+
(cond ((null? (remain input)) #f)
|
50
|
+
(else (accum-any (car (remain input)))
|
51
|
+
(cond ((match-pattern (r-cdr input) pattern))
|
52
|
+
(else (match-pattern-any (r-cdr input) pattern))))))
|
53
|
+
(let ((retval (match-pattern-any input (car pattern))))
|
54
|
+
(if retval
|
55
|
+
(f-cons (accum-any) retval)
|
56
|
+
#f))))))
|
57
|
+
</textarea></form>
|
58
|
+
<script>
|
59
|
+
var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
|
60
|
+
</script>
|
61
|
+
|
62
|
+
<p><strong>MIME types defined:</strong> <code>text/x-scheme</code>.</p>
|
63
|
+
|
64
|
+
</body>
|
65
|
+
</html>
|
@@ -0,0 +1,202 @@
|
|
1
|
+
/**
|
2
|
+
* Author: Koh Zi Han, based on implementation by Koh Zi Chun
|
3
|
+
*/
|
4
|
+
CodeMirror.defineMode("scheme", function (config, mode) {
|
5
|
+
var BUILTIN = "builtin", COMMENT = "comment", STRING = "string",
|
6
|
+
ATOM = "atom", NUMBER = "number", BRACKET = "bracket", KEYWORD="keyword";
|
7
|
+
var INDENT_WORD_SKIP = 2, KEYWORDS_SKIP = 1;
|
8
|
+
|
9
|
+
function makeKeywords(str) {
|
10
|
+
var obj = {}, words = str.split(" ");
|
11
|
+
for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
|
12
|
+
return obj;
|
13
|
+
}
|
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?");
|
16
|
+
var indentKeys = makeKeywords("define let letrec let* lambda");
|
17
|
+
|
18
|
+
|
19
|
+
function stateStack(indent, type, prev) { // represents a state stack object
|
20
|
+
this.indent = indent;
|
21
|
+
this.type = type;
|
22
|
+
this.prev = prev;
|
23
|
+
}
|
24
|
+
|
25
|
+
function pushStack(state, indent, type) {
|
26
|
+
state.indentStack = new stateStack(indent, type, state.indentStack);
|
27
|
+
}
|
28
|
+
|
29
|
+
function popStack(state) {
|
30
|
+
state.indentStack = state.indentStack.prev;
|
31
|
+
}
|
32
|
+
|
33
|
+
/**
|
34
|
+
* Scheme numbers are complicated unfortunately.
|
35
|
+
* Checks if we're looking at a number, which might be possibly a fraction.
|
36
|
+
* Also checks that it is not part of a longer identifier. Returns true/false accordingly.
|
37
|
+
*/
|
38
|
+
function isNumber(ch, stream){
|
39
|
+
if(/[0-9]/.exec(ch) != null){
|
40
|
+
stream.eatWhile(/[0-9]/);
|
41
|
+
stream.eat(/\//);
|
42
|
+
stream.eatWhile(/[0-9]/);
|
43
|
+
if (stream.eol() || !(/[a-zA-Z\-\_\/]/.exec(stream.peek()))) return true;
|
44
|
+
stream.backUp(stream.current().length - 1); // undo all the eating
|
45
|
+
}
|
46
|
+
return false;
|
47
|
+
}
|
48
|
+
|
49
|
+
return {
|
50
|
+
startState: function () {
|
51
|
+
return {
|
52
|
+
indentStack: null,
|
53
|
+
indentation: 0,
|
54
|
+
mode: false,
|
55
|
+
sExprComment: false
|
56
|
+
};
|
57
|
+
},
|
58
|
+
|
59
|
+
token: function (stream, state) {
|
60
|
+
if (state.indentStack == null && stream.sol()) {
|
61
|
+
// update indentation, but only if indentStack is empty
|
62
|
+
state.indentation = stream.indentation();
|
63
|
+
}
|
64
|
+
|
65
|
+
// skip spaces
|
66
|
+
if (stream.eatSpace()) {
|
67
|
+
return null;
|
68
|
+
}
|
69
|
+
var returnType = null;
|
70
|
+
|
71
|
+
switch(state.mode){
|
72
|
+
case "string": // multi-line string parsing mode
|
73
|
+
var next, escaped = false;
|
74
|
+
while ((next = stream.next()) != null) {
|
75
|
+
if (next == "\"" && !escaped) {
|
76
|
+
|
77
|
+
state.mode = false;
|
78
|
+
break;
|
79
|
+
}
|
80
|
+
escaped = !escaped && next == "\\";
|
81
|
+
}
|
82
|
+
returnType = STRING; // continue on in scheme-string mode
|
83
|
+
break;
|
84
|
+
case "comment": // comment parsing mode
|
85
|
+
var next, maybeEnd = false;
|
86
|
+
while ((next = stream.next()) != null) {
|
87
|
+
if (next == "#" && maybeEnd) {
|
88
|
+
|
89
|
+
state.mode = false;
|
90
|
+
break;
|
91
|
+
}
|
92
|
+
maybeEnd = (next == "|");
|
93
|
+
}
|
94
|
+
returnType = COMMENT;
|
95
|
+
break;
|
96
|
+
case "s-expr-comment": // s-expr commenting mode
|
97
|
+
state.mode = false;
|
98
|
+
if(stream.peek() == "(" || stream.peek() == "["){
|
99
|
+
// actually start scheme s-expr commenting mode
|
100
|
+
state.sExprComment = 0;
|
101
|
+
}else{
|
102
|
+
// if not we just comment the entire of the next token
|
103
|
+
stream.eatWhile(/[^/s]/); // eat non spaces
|
104
|
+
returnType = COMMENT;
|
105
|
+
break;
|
106
|
+
}
|
107
|
+
default: // default parsing mode
|
108
|
+
var ch = stream.next();
|
109
|
+
|
110
|
+
if (ch == "\"") {
|
111
|
+
state.mode = "string";
|
112
|
+
returnType = STRING;
|
113
|
+
|
114
|
+
} else if (ch == "'") {
|
115
|
+
returnType = ATOM;
|
116
|
+
} else if (ch == '#') {
|
117
|
+
if (stream.eat("|")) { // Multi-line comment
|
118
|
+
state.mode = "comment"; // toggle to comment mode
|
119
|
+
returnType = COMMENT;
|
120
|
+
} else if (stream.eat(/[tf]/)) { // #t/#f (atom)
|
121
|
+
returnType = ATOM;
|
122
|
+
} else if (stream.eat(';')) { // S-Expr comment
|
123
|
+
state.mode = "s-expr-comment";
|
124
|
+
returnType = COMMENT;
|
125
|
+
}
|
126
|
+
|
127
|
+
} else if (ch == ";") { // comment
|
128
|
+
stream.skipToEnd(); // rest of the line is a comment
|
129
|
+
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 == "[") {
|
141
|
+
var keyWord = ''; var indentTemp = stream.column();
|
142
|
+
/**
|
143
|
+
Either
|
144
|
+
(indent-word ..
|
145
|
+
(non-indent-word ..
|
146
|
+
(;something else, bracket, etc.
|
147
|
+
*/
|
148
|
+
|
149
|
+
while ((letter = stream.eat(/[^\s\(\[\;\)\]]/)) != null) {
|
150
|
+
keyWord += letter;
|
151
|
+
}
|
152
|
+
|
153
|
+
if (keyWord.length > 0 && indentKeys.propertyIsEnumerable(keyWord)) { // indent-word
|
154
|
+
|
155
|
+
pushStack(state, indentTemp + INDENT_WORD_SKIP, ch);
|
156
|
+
} else { // non-indent word
|
157
|
+
// we continue eating the spaces
|
158
|
+
stream.eatSpace();
|
159
|
+
if (stream.eol() || stream.peek() == ";") {
|
160
|
+
// nothing significant after
|
161
|
+
// we restart indentation 1 space after
|
162
|
+
pushStack(state, indentTemp + 1, ch);
|
163
|
+
} else {
|
164
|
+
pushStack(state, indentTemp + stream.current().length, ch); // else we match
|
165
|
+
}
|
166
|
+
}
|
167
|
+
stream.backUp(stream.current().length - 1); // undo all the eating
|
168
|
+
|
169
|
+
if(typeof state.sExprComment == "number") state.sExprComment++;
|
170
|
+
|
171
|
+
returnType = BRACKET;
|
172
|
+
} else if (ch == ")" || ch == "]") {
|
173
|
+
returnType = BRACKET;
|
174
|
+
if (state.indentStack != null && state.indentStack.type == (ch == ")" ? "(" : "[")) {
|
175
|
+
popStack(state);
|
176
|
+
|
177
|
+
if(typeof state.sExprComment == "number"){
|
178
|
+
if(--state.sExprComment == 0){
|
179
|
+
returnType = COMMENT; // final closing bracket
|
180
|
+
state.sExprComment = false; // turn off s-expr commenting mode
|
181
|
+
}
|
182
|
+
}
|
183
|
+
}
|
184
|
+
} else {
|
185
|
+
stream.eatWhile(/[\w\$_\-]/);
|
186
|
+
|
187
|
+
if (keywords && keywords.propertyIsEnumerable(stream.current())) {
|
188
|
+
returnType = BUILTIN;
|
189
|
+
}else returnType = null;
|
190
|
+
}
|
191
|
+
}
|
192
|
+
return (typeof state.sExprComment == "number") ? COMMENT : returnType;
|
193
|
+
},
|
194
|
+
|
195
|
+
indent: function (state, textAfter) {
|
196
|
+
if (state.indentStack == null) return state.indentation;
|
197
|
+
return state.indentStack.indent;
|
198
|
+
}
|
199
|
+
};
|
200
|
+
});
|
201
|
+
|
202
|
+
CodeMirror.defineMIME("text/x-scheme", "scheme");
|