move a few things away in to-be-integrated/

[myslice.git] / third-party / codemirror-3.15 / mode / scheme / index.html
diff --git a/third-party/codemirror-3.15/mode/scheme/index.html b/third-party/codemirror-3.15/mode/scheme/index.html

deleted file mode 100644 (file)

index 5936a02..0000000
--- a/third-party/codemirror-3.15/mode/scheme/index.html
+++ /dev/null
@@ -1,65 +0,0 @@
-<!doctype html>
-<html>
-  <head>
-    <meta charset="utf-8">
-    <title>CodeMirror: Scheme mode</title>
-    <link rel="stylesheet" href="../../lib/codemirror.css">
-    <script src="../../lib/codemirror.js"></script>
-    <script src="scheme.js"></script>
-    <style>.CodeMirror {background: #f8f8f8;}</style>
-    <link rel="stylesheet" href="../../doc/docs.css">
-  </head>
-  <body>
-    <h1>CodeMirror: Scheme mode</h1>
-    <form><textarea id="code" name="code">
-; See if the input starts with a given symbol.
-(define (match-symbol input pattern)
-  (cond ((null? (remain input)) #f)
-       ((eqv? (car (remain input)) pattern) (r-cdr input))
-       (else #f)))
-
-; Allow the input to start with one of a list of patterns.
-(define (match-or input pattern)
-  (cond ((null? pattern) #f)
-       ((match-pattern input (car pattern)))
-       (else (match-or input (cdr pattern)))))
-
-; Allow a sequence of patterns.
-(define (match-seq input pattern)
-  (if (null? pattern)
-      input
-      (let ((match (match-pattern input (car pattern))))
-       (if match (match-seq match (cdr pattern)) #f))))
-
-; Match with the pattern but no problem if it does not match.
-(define (match-opt input pattern)
-  (let ((match (match-pattern input (car pattern))))
-    (if match match input)))
-
-; Match anything (other than '()), until pattern is found. The rather
-; clumsy form of requiring an ending pattern is needed to decide where
-; the end of the match is. If none is given, this will match the rest
-; of the sentence.
-(define (match-any input pattern)
-  (cond ((null? (remain input)) #f)
-       ((null? pattern) (f-cons (remain input) (clear-remain input)))
-       (else
-        (let ((accum-any (collector)))
-          (define (match-pattern-any input pattern)
-            (cond ((null? (remain input)) #f)
-                  (else (accum-any (car (remain input)))
-                        (cond ((match-pattern (r-cdr input) pattern))
-                              (else (match-pattern-any (r-cdr input) pattern))))))
-          (let ((retval (match-pattern-any input (car pattern))))
-            (if retval
-                (f-cons (accum-any) retval)
-                #f))))))
-</textarea></form>
-    <script>
-      var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
-    </script>
-
-    <p><strong>MIME types defined:</strong> <code>text/x-scheme</code>.</p>
-
-  </body>
-</html>