scheme_highlight_rules.js 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123
  1. /* ***** BEGIN LICENSE BLOCK *****
  2. * Distributed under the BSD license:
  3. *
  4. * Copyright (c) 2012, 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. *
  30. * Contributor(s):
  31. *
  32. * NalaGinrut@gmail.com
  33. *
  34. * ***** END LICENSE BLOCK ***** */
  35. define(function(require, exports, module) {
  36. "use strict";
  37. var oop = require("../lib/oop");
  38. var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;
  39. var SchemeHighlightRules = function() {
  40. var keywordControl = "case|do|let|loop|if|else|when";
  41. var keywordOperator = "eq?|eqv?|equal?|and|or|not|null?";
  42. var constantLanguage = "#t|#f";
  43. var supportFunctions = "cons|car|cdr|cond|lambda|lambda*|syntax-rules|format|set!|quote|eval|append|list|list?|member?|load";
  44. var keywordMapper = this.createKeywordMapper({
  45. "keyword.control": keywordControl,
  46. "keyword.operator": keywordOperator,
  47. "constant.language": constantLanguage,
  48. "support.function": supportFunctions
  49. }, "identifier", true);
  50. // regexp must not have capturing parentheses. Use (?:) instead.
  51. // regexps are ordered -> the first match is used
  52. this.$rules =
  53. {
  54. "start": [
  55. {
  56. token : "comment",
  57. regex : ";.*$"
  58. },
  59. {
  60. "token": ["storage.type.function-type.scheme", "text", "entity.name.function.scheme"],
  61. "regex": "(?:\\b(?:(define|define-syntax|define-macro))\\b)(\\s+)((?:\\w|\\-|\\!|\\?)*)"
  62. },
  63. {
  64. "token": "punctuation.definition.constant.character.scheme",
  65. "regex": "#:\\S+"
  66. },
  67. {
  68. "token": ["punctuation.definition.variable.scheme", "variable.other.global.scheme", "punctuation.definition.variable.scheme"],
  69. "regex": "(\\*)(\\S*)(\\*)"
  70. },
  71. {
  72. "token" : "constant.numeric", // hex
  73. "regex" : "#[xXoObB][0-9a-fA-F]+"
  74. },
  75. {
  76. "token" : "constant.numeric", // float
  77. "regex" : "[+-]?\\d+(?:(?:\\.\\d*)?(?:[eE][+-]?\\d+)?)?"
  78. },
  79. {
  80. "token" : keywordMapper,
  81. "regex" : "[a-zA-Z_#][a-zA-Z0-9_\\-\\?\\!\\*]*"
  82. },
  83. {
  84. "token" : "string",
  85. "regex" : '"(?=.)',
  86. "next" : "qqstring"
  87. }
  88. ],
  89. "qqstring": [
  90. {
  91. "token": "constant.character.escape.scheme",
  92. "regex": "\\\\."
  93. },
  94. {
  95. "token" : "string",
  96. "regex" : '[^"\\\\]+',
  97. "merge" : true
  98. }, {
  99. "token" : "string",
  100. "regex" : "\\\\$",
  101. "next" : "qqstring",
  102. "merge" : true
  103. }, {
  104. "token" : "string",
  105. "regex" : '"|$',
  106. "next" : "start",
  107. "merge" : true
  108. }
  109. ]
  110. }
  111. };
  112. oop.inherits(SchemeHighlightRules, TextHighlightRules);
  113. exports.SchemeHighlightRules = SchemeHighlightRules;
  114. });