First commit of Ninja to ninja-internal

Signed-off-by: Valerio Virgillito <rmwh84@motorola.com>
author: Pierre Frisch 2011-12-22 07:25:50 -0800
committer: Valerio Virgillito 2012-01-27 11:18:17 -0800
commit: b89a7ee8b956c96a1dcee995ea840feddc5d4b27 (patch)
tree: 0f3136ab0ecdbbbed6a83576581af0a53124d6f1 /js/codemirror/mode/scheme/index.html
parent: 2401f05d1f4b94d45e4568b81fc73e67b969d980 (diff)
download: ninja-b89a7ee8b956c96a1dcee995ea840feddc5d4b27.tar.gz
1 files changed, 65 insertions, 0 deletions
diff --git a/js/codemirror/mode/scheme/index.html b/js/codemirror/mode/scheme/index.html
new file mode 100644
index 00000000..32402325
--- /dev/null
+++ b/js/codemirror/mode/scheme/index.html
@@ -0,0 +1,65 @@
+<!doctype html>
+<html>
+  <head>
+    <title>CodeMirror 2: Scheme mode</title>
+    <link rel="stylesheet" href="../../lib/codemirror.css">
+    <script src="../../lib/codemirror.js"></script>
+    <script src="scheme.js"></script>
+    <link rel="stylesheet" href="../../theme/default.css">
+    <style>.CodeMirror {background: #f8f8f8;}</style>
+    <link rel="stylesheet" href="../../css/docs.css">
+  </head>
+  <body>
+    <h1>CodeMirror 2: 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>
author	Pierre Frisch	2011-12-22 07:25:50 -0800
committer	Valerio Virgillito	2012-01-27 11:18:17 -0800
commit	b89a7ee8b956c96a1dcee995ea840feddc5d4b27 (patch)
tree	0f3136ab0ecdbbbed6a83576581af0a53124d6f1 /js/codemirror/mode/scheme/index.html
parent	2401f05d1f4b94d45e4568b81fc73e67b969d980 (diff)
download	ninja-b89a7ee8b956c96a1dcee995ea840feddc5d4b27.tar.gz

diff --git a/js/codemirror/mode/scheme/index.html b/js/codemirror/mode/scheme/index.html new file mode 100644 index 00000000..32402325 --- /dev/null +++ b/js/codemirror/mode/scheme/index.html
@@ -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>