perl.js 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990
  1. /* ***** BEGIN LICENSE BLOCK *****
  2. * Distributed under the BSD license:
  3. *
  4. * Copyright (c) 2010, Ajax.org B.V.
  5. * All rights reserved.
  6. *
  7. * Redistribution and use in source and binary forms, with or without
  8. * modification, are permitted provided that the following conditions are met:
  9. * * Redistributions of source code must retain the above copyright
  10. * notice, this list of conditions and the following disclaimer.
  11. * * Redistributions in binary form must reproduce the above copyright
  12. * notice, this list of conditions and the following disclaimer in the
  13. * documentation and/or other materials provided with the distribution.
  14. * * Neither the name of Ajax.org B.V. nor the
  15. * names of its contributors may be used to endorse or promote products
  16. * derived from this software without specific prior written permission.
  17. *
  18. * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
  19. * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  20. * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21. * DISCLAIMED. IN NO EVENT SHALL AJAX.ORG B.V. BE LIABLE FOR ANY
  22. * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23. * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  24. * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  25. * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26. * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  27. * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28. *
  29. * ***** END LICENSE BLOCK ***** */
  30. define(function(require, exports, module) {
  31. "use strict";
  32. var oop = require("../lib/oop");
  33. var TextMode = require("./text").Mode;
  34. var Tokenizer = require("../tokenizer").Tokenizer;
  35. var PerlHighlightRules = require("./perl_highlight_rules").PerlHighlightRules;
  36. var MatchingBraceOutdent = require("./matching_brace_outdent").MatchingBraceOutdent;
  37. var Range = require("../range").Range;
  38. var CStyleFoldMode = require("./folding/cstyle").FoldMode;
  39. var Mode = function() {
  40. this.HighlightRules = PerlHighlightRules;
  41. this.$outdent = new MatchingBraceOutdent();
  42. this.foldingRules = new CStyleFoldMode({start: "^=(begin|item)\\b", end: "^=(cut)\\b"});
  43. };
  44. oop.inherits(Mode, TextMode);
  45. (function() {
  46. this.lineCommentStart = "#";
  47. this.blockComment = [
  48. {start: "=begin", end: "=cut"},
  49. {start: "=item", end: "=cut"}
  50. ];
  51. this.getNextLineIndent = function(state, line, tab) {
  52. var indent = this.$getIndent(line);
  53. var tokenizedLine = this.getTokenizer().getLineTokens(line, state);
  54. var tokens = tokenizedLine.tokens;
  55. if (tokens.length && tokens[tokens.length-1].type == "comment") {
  56. return indent;
  57. }
  58. if (state == "start") {
  59. var match = line.match(/^.*[\{\(\[\:]\s*$/);
  60. if (match) {
  61. indent += tab;
  62. }
  63. }
  64. return indent;
  65. };
  66. this.checkOutdent = function(state, line, input) {
  67. return this.$outdent.checkOutdent(line, input);
  68. };
  69. this.autoOutdent = function(state, doc, row) {
  70. this.$outdent.autoOutdent(doc, row);
  71. };
  72. }).call(Mode.prototype);
  73. exports.Mode = Mode;
  74. });