scheme.js 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145
  1. /*
  2. Language: Scheme
  3. Description: Scheme is a programming language in the Lisp family.
  4. (keywords based on http://community.schemewiki.org/?scheme-keywords)
  5. Author: JP Verkamp <me@jverkamp.com>
  6. Contributors: Ivan Sagalaev <maniac@softwaremaniacs.org>
  7. Origin: clojure.js
  8. Website: http://community.schemewiki.org/?what-is-scheme
  9. Category: lisp
  10. */
  11. function scheme(hljs) {
  12. var SCHEME_IDENT_RE = '[^\\(\\)\\[\\]\\{\\}",\'`;#|\\\\\\s]+';
  13. var SCHEME_SIMPLE_NUMBER_RE = '(\\-|\\+)?\\d+([./]\\d+)?';
  14. var SCHEME_COMPLEX_NUMBER_RE = SCHEME_SIMPLE_NUMBER_RE + '[+\\-]' + SCHEME_SIMPLE_NUMBER_RE + 'i';
  15. var KEYWORDS = {
  16. $pattern: SCHEME_IDENT_RE,
  17. 'builtin-name':
  18. 'case-lambda call/cc class define-class exit-handler field import ' +
  19. 'inherit init-field interface let*-values let-values let/ec mixin ' +
  20. 'opt-lambda override protect provide public rename require ' +
  21. 'require-for-syntax syntax syntax-case syntax-error unit/sig unless ' +
  22. 'when with-syntax and begin call-with-current-continuation ' +
  23. 'call-with-input-file call-with-output-file case cond define ' +
  24. 'define-syntax delay do dynamic-wind else for-each if lambda let let* ' +
  25. 'let-syntax letrec letrec-syntax map or syntax-rules \' * + , ,@ - ... / ' +
  26. '; < <= = => > >= ` abs acos angle append apply asin assoc assq assv atan ' +
  27. 'boolean? caar cadr call-with-input-file call-with-output-file ' +
  28. 'call-with-values car cdddar cddddr cdr ceiling char->integer ' +
  29. 'char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? ' +
  30. 'char-downcase char-lower-case? char-numeric? char-ready? char-upcase ' +
  31. 'char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? ' +
  32. 'char? close-input-port close-output-port complex? cons cos ' +
  33. 'current-input-port current-output-port denominator display eof-object? ' +
  34. 'eq? equal? eqv? eval even? exact->inexact exact? exp expt floor ' +
  35. 'force gcd imag-part inexact->exact inexact? input-port? integer->char ' +
  36. 'integer? interaction-environment lcm length list list->string ' +
  37. 'list->vector list-ref list-tail list? load log magnitude make-polar ' +
  38. 'make-rectangular make-string make-vector max member memq memv min ' +
  39. 'modulo negative? newline not null-environment null? number->string ' +
  40. 'number? numerator odd? open-input-file open-output-file output-port? ' +
  41. 'pair? peek-char port? positive? procedure? quasiquote quote quotient ' +
  42. 'rational? rationalize read read-char real-part real? remainder reverse ' +
  43. 'round scheme-report-environment set! set-car! set-cdr! sin sqrt string ' +
  44. 'string->list string->number string->symbol string-append string-ci<=? ' +
  45. 'string-ci<? string-ci=? string-ci>=? string-ci>? string-copy ' +
  46. 'string-fill! string-length string-ref string-set! string<=? string<? ' +
  47. 'string=? string>=? string>? string? substring symbol->string symbol? ' +
  48. 'tan transcript-off transcript-on truncate values vector ' +
  49. 'vector->list vector-fill! vector-length vector-ref vector-set! ' +
  50. 'with-input-from-file with-output-to-file write write-char zero?'
  51. };
  52. var LITERAL = {
  53. className: 'literal',
  54. begin: '(#t|#f|#\\\\' + SCHEME_IDENT_RE + '|#\\\\.)'
  55. };
  56. var NUMBER = {
  57. className: 'number',
  58. variants: [
  59. { begin: SCHEME_SIMPLE_NUMBER_RE, relevance: 0 },
  60. { begin: SCHEME_COMPLEX_NUMBER_RE, relevance: 0 },
  61. { begin: '#b[0-1]+(/[0-1]+)?' },
  62. { begin: '#o[0-7]+(/[0-7]+)?' },
  63. { begin: '#x[0-9a-f]+(/[0-9a-f]+)?' }
  64. ]
  65. };
  66. var STRING = hljs.QUOTE_STRING_MODE;
  67. var COMMENT_MODES = [
  68. hljs.COMMENT(
  69. ';',
  70. '$',
  71. {
  72. relevance: 0
  73. }
  74. ),
  75. hljs.COMMENT('#\\|', '\\|#')
  76. ];
  77. var IDENT = {
  78. begin: SCHEME_IDENT_RE,
  79. relevance: 0
  80. };
  81. var QUOTED_IDENT = {
  82. className: 'symbol',
  83. begin: '\'' + SCHEME_IDENT_RE
  84. };
  85. var BODY = {
  86. endsWithParent: true,
  87. relevance: 0
  88. };
  89. var QUOTED_LIST = {
  90. variants: [
  91. { begin: /'/ },
  92. { begin: '`' }
  93. ],
  94. contains: [
  95. {
  96. begin: '\\(', end: '\\)',
  97. contains: ['self', LITERAL, STRING, NUMBER, IDENT, QUOTED_IDENT]
  98. }
  99. ]
  100. };
  101. var NAME = {
  102. className: 'name',
  103. begin: SCHEME_IDENT_RE,
  104. keywords: KEYWORDS
  105. };
  106. var LAMBDA = {
  107. begin: /lambda/, endsWithParent: true, returnBegin: true,
  108. contains: [
  109. NAME,
  110. {
  111. begin: /\(/, end: /\)/, endsParent: true,
  112. contains: [IDENT],
  113. }
  114. ]
  115. };
  116. var LIST = {
  117. variants: [
  118. { begin: '\\(', end: '\\)' },
  119. { begin: '\\[', end: '\\]' }
  120. ],
  121. contains: [LAMBDA, NAME, BODY]
  122. };
  123. BODY.contains = [LITERAL, NUMBER, STRING, IDENT, QUOTED_IDENT, QUOTED_LIST, LIST].concat(COMMENT_MODES);
  124. return {
  125. name: 'Scheme',
  126. illegal: /\S/,
  127. contains: [hljs.SHEBANG(), NUMBER, STRING, QUOTED_IDENT, QUOTED_LIST, LIST].concat(COMMENT_MODES)
  128. };
  129. }
  130. module.exports = scheme;