| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128 |
- /* ***** BEGIN LICENSE BLOCK *****
- * Distributed under the BSD license:
- *
- * Copyright (c) 2010, Ajax.org B.V.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * * Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * * Neither the name of Ajax.org B.V. nor the
- * names of its contributors may be used to endorse or promote products
- * derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL AJAX.ORG B.V. BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- *
- * ***** END LICENSE BLOCK ***** */
- define(function(require, exports, module) {
- "use strict";
- var oop = require("../lib/oop");
- var TextMode = require("./text").Mode;
- var ClojureHighlightRules = require("./clojure_highlight_rules").ClojureHighlightRules;
- var MatchingParensOutdent = require("./matching_parens_outdent").MatchingParensOutdent;
- var Mode = function() {
- this.HighlightRules = ClojureHighlightRules;
- this.$outdent = new MatchingParensOutdent();
- };
- oop.inherits(Mode, TextMode);
- (function() {
- this.lineCommentStart = ";";
- this.minorIndentFunctions = ["defn", "defn-", "defmacro", "def", "deftest", "testing"];
- this.$toIndent = function(str) {
- return str.split('').map(function(ch) {
- if (/\s/.exec(ch)) {
- return ch;
- } else {
- return ' ';
- }
- }).join('');
- };
- this.$calculateIndent = function(line, tab) {
- var baseIndent = this.$getIndent(line);
- var delta = 0;
- var isParen, ch;
- // Walk back from end of line, find matching braces
- for (var i = line.length - 1; i >= 0; i--) {
- ch = line[i];
- if (ch === '(') {
- delta--;
- isParen = true;
- } else if (ch === '(' || ch === '[' || ch === '{') {
- delta--;
- isParen = false;
- } else if (ch === ')' || ch === ']' || ch === '}') {
- delta++;
- }
- if (delta < 0) {
- break;
- }
- }
- if (delta < 0 && isParen) {
- // Were more brackets opened than closed and was a ( left open?
- i += 1;
- var iBefore = i;
- var fn = '';
- while (true) {
- ch = line[i];
- if (ch === ' ' || ch === '\t') {
- if(this.minorIndentFunctions.indexOf(fn) !== -1) {
- return this.$toIndent(line.substring(0, iBefore - 1) + tab);
- } else {
- return this.$toIndent(line.substring(0, i + 1));
- }
- } else if (ch === undefined) {
- return this.$toIndent(line.substring(0, iBefore - 1) + tab);
- }
- fn += line[i];
- i++;
- }
- } else if(delta < 0 && !isParen) {
- // Were more brackets openend than closed and was it not a (?
- return this.$toIndent(line.substring(0, i+1));
- } else if(delta > 0) {
- // Mere more brackets closed than opened? Outdent.
- baseIndent = baseIndent.substring(0, baseIndent.length - tab.length);
- return baseIndent;
- } else {
- // Were they nicely matched? Just indent like line before.
- return baseIndent;
- }
- };
- this.getNextLineIndent = function(state, line, tab) {
- return this.$calculateIndent(line, tab);
- };
- this.checkOutdent = function(state, line, input) {
- return this.$outdent.checkOutdent(line, input);
- };
- this.autoOutdent = function(state, doc, row) {
- this.$outdent.autoOutdent(doc, row);
- };
- this.$id = "ace/mode/clojure";
- }).call(Mode.prototype);
- exports.Mode = Mode;
- });
|