aboutsummaryrefslogtreecommitdiff
path: root/js/codemirror/mode/scheme/index.html
diff options
context:
space:
mode:
authorJose Antonio Marquez2012-01-27 12:05:17 -0800
committerJose Antonio Marquez2012-01-27 12:05:17 -0800
commit3a754133dbc138390503341fd2e9beba3e43aa4b (patch)
treecdeae7d7dd9a30d7b4fab5afb7efad68d4ec7508 /js/codemirror/mode/scheme/index.html
parentb89a7ee8b956c96a1dcee995ea840feddc5d4b27 (diff)
downloadninja-3a754133dbc138390503341fd2e9beba3e43aa4b.tar.gz
Merged old FileIO
Diffstat (limited to 'js/codemirror/mode/scheme/index.html')
-rw-r--r--js/codemirror/mode/scheme/index.html65
1 files changed, 0 insertions, 65 deletions
diff --git a/js/codemirror/mode/scheme/index.html b/js/codemirror/mode/scheme/index.html
deleted file mode 100644
index 32402325..00000000
--- a/js/codemirror/mode/scheme/index.html
+++ /dev/null
@@ -1,65 +0,0 @@
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>