1 files changed, 202 insertions, 0 deletions
diff --git a/imports/codemirror/mode/scheme/scheme.js b/imports/codemirror/mode/scheme/scheme.js
new file mode 100755
index 00000000..caf78db0
--- /dev/null
+++ b/imports/codemirror/mode/scheme/scheme.js
@@ -0,0 +1,202 @@
+/**
+ * Author: Koh Zi Han, based on implementation by Koh Zi Chun
+ */
+CodeMirror.defineMode("scheme", function (config, mode) {
+    var BUILTIN = "builtin", COMMENT = "comment", STRING = "string",
+        ATOM = "atom", NUMBER = "number", BRACKET = "bracket", KEYWORD="keyword";
+    var INDENT_WORD_SKIP = 2, KEYWORDS_SKIP = 1;
+    
+    function makeKeywords(str) {
+        var obj = {}, words = str.split(" ");
+        for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
+        return obj;
+    }
+    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?");
+    var indentKeys = makeKeywords("define let letrec let* lambda");
+    
+    function stateStack(indent, type, prev) { // represents a state stack object
+        this.indent = indent;
+        this.type = type;
+        this.prev = prev;
+    }
+    function pushStack(state, indent, type) {
+        state.indentStack = new stateStack(indent, type, state.indentStack);
+    }
+    function popStack(state) {
+        state.indentStack = state.indentStack.prev;
+    }
+    
+    /**
+     * Scheme numbers are complicated unfortunately.
+     * Checks if we're looking at a number, which might be possibly a fraction.
+     * Also checks that it is not part of a longer identifier. Returns true/false accordingly.
+     */
+    function isNumber(ch, stream){ 
+        if(/[0-9]/.exec(ch) != null){ 
+            stream.eatWhile(/[0-9]/);
+            stream.eat(/\//);
+            stream.eatWhile(/[0-9]/);
+            if (stream.eol() || !(/[a-zA-Z\-\_\/]/.exec(stream.peek()))) return true;
+            stream.backUp(stream.current().length - 1); // undo all the eating
+        }
+        return false;
+    }
+    return {
+        startState: function () {
+            return {
+                indentStack: null,
+                indentation: 0,
+                mode: false,
+                sExprComment: false
+            };
+        },
+        token: function (stream, state) {
+            if (state.indentStack == null && stream.sol()) {
+                // update indentation, but only if indentStack is empty
+                state.indentation = stream.indentation();
+            }
+            // skip spaces
+            if (stream.eatSpace()) {
+                return null;
+            }
+            var returnType = null;
+            
+            switch(state.mode){
+                case "string": // multi-line string parsing mode
+                    var next, escaped = false;
+                    while ((next = stream.next()) != null) {
+                        if (next == "\"" && !escaped) {
+    
+                            state.mode = false;
+                            break;
+                        }
+                        escaped = !escaped && next == "\\";
+                    }
+                    returnType = STRING; // continue on in scheme-string mode
+                    break;
+                case "comment": // comment parsing mode
+                    var next, maybeEnd = false;
+                    while ((next = stream.next()) != null) {
+                        if (next == "#" && maybeEnd) {
+    
+                            state.mode = false;
+                            break;
+                        }
+                        maybeEnd = (next == "|");
+                    }
+                    returnType = COMMENT;
+                    break;
+                case "s-expr-comment": // s-expr commenting mode
+                    state.mode = false;
+                    if(stream.peek() == "(" || stream.peek() == "["){
+                        // actually start scheme s-expr commenting mode
+                        state.sExprComment = 0;
+                    }else{
+                        // if not we just comment the entire of the next token
+                        stream.eatWhile(/[^/s]/); // eat non spaces
+                        returnType = COMMENT;
+                        break;
+                    }
+                default: // default parsing mode
+                    var ch = stream.next();
+        
+                    if (ch == "\"") {
+                        state.mode = "string";
+                        returnType = STRING;
+        
+                    } else if (ch == "'") {
+                        returnType = ATOM;
+                    } else if (ch == '#') {
+                        if (stream.eat("|")) {                                  // Multi-line comment
+                            state.mode = "comment"; // toggle to comment mode
+                            returnType = COMMENT;
+                        } else if (stream.eat(/[tf]/)) {                        // #t/#f (atom)
+                            returnType = ATOM;
+                        } else if (stream.eat(';')) {                           // S-Expr comment
+                            state.mode = "s-expr-comment";
+                            returnType = COMMENT;
+                        }
+        
+                    } else if (ch == ";") { // comment
+                        stream.skipToEnd(); // rest of the line is a comment
+                        returnType = COMMENT;
+                    } else if (ch == "-"){
+                        
+                        if(!isNaN(parseInt(stream.peek()))){
+                            stream.eatWhile(/[\/0-9]/);
+                            returnType = NUMBER;
+                        }else{                            
+                            returnType = null;
+                        }
+                    } else if (isNumber(ch,stream)){
+                        returnType = NUMBER;
+                    } else if (ch == "(" || ch == "[") {
+                        var keyWord = ''; var indentTemp = stream.column();
+                        /**
+                        Either 
+                        (indent-word ..
+                        (non-indent-word ..
+                        (;something else, bracket, etc.
+                        */
+        
+                        while ((letter = stream.eat(/[^\s\(\[\;\)\]]/)) != null) {
+                            keyWord += letter;
+                        }
+        
+                        if (keyWord.length > 0 && indentKeys.propertyIsEnumerable(keyWord)) { // indent-word
+        
+                            pushStack(state, indentTemp + INDENT_WORD_SKIP, ch);
+                        } else { // non-indent word
+                            // we continue eating the spaces
+                            stream.eatSpace();
+                            if (stream.eol() || stream.peek() == ";") {
+                                // nothing significant after
+                                // we restart indentation 1 space after
+                                pushStack(state, indentTemp + 1, ch);
+                            } else {
+                                pushStack(state, indentTemp + stream.current().length, ch); // else we match
+                            }
+                        }
+                        stream.backUp(stream.current().length - 1); // undo all the eating
+                        
+                        if(typeof state.sExprComment == "number") state.sExprComment++;
+                        
+                        returnType = BRACKET;
+                    } else if (ch == ")" || ch == "]") {
+                        returnType = BRACKET;
+                        if (state.indentStack != null && state.indentStack.type == (ch == ")" ? "(" : "[")) {
+                            popStack(state);
+                            
+                            if(typeof state.sExprComment == "number"){
+                                if(--state.sExprComment == 0){
+                                    returnType = COMMENT; // final closing bracket
+                                    state.sExprComment = false; // turn off s-expr commenting mode
+                                }
+                            }
+                        }
+                    } else {
+                        stream.eatWhile(/[\w\$_\-]/);
+        
+                        if (keywords && keywords.propertyIsEnumerable(stream.current())) {
+                            returnType = BUILTIN;
+                        }else returnType = null;
+                    }
+            }
+            return (typeof state.sExprComment == "number") ? COMMENT : returnType;
+        },
+        indent: function (state, textAfter) {
+            if (state.indentStack == null) return state.indentation;
+            return state.indentStack.indent;
+        }
+    };
+});
+CodeMirror.defineMIME("text/x-scheme", "scheme");
+\ No newline at end of file

diff --git a/imports/codemirror/mode/scheme/scheme.js b/imports/codemirror/mode/scheme/scheme.js new file mode 100755 index 00000000..caf78db0 --- /dev/null +++ b/imports/codemirror/mode/scheme/scheme.js
@@ -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"); \ No newline at end of file