Added optional Lua lexer support.

This support is disabled by default and must be enabled via compile-time option.

1 files changed, 80 insertions, 0 deletions

diff --git a/lexlua/scheme.lua b/lexlua/scheme.lua
new file mode 100644
index 000000000..2050b26c9
--- /dev/null
+++ b/lexlua/scheme.lua
@@ -0,0 +1,80 @@
+-- Copyright 2006-2018 Mitchell mitchell.att.foicica.com. See License.txt.
+-- Scheme LPeg lexer.
+
+local lexer = require('lexer')
+local token, word_match = lexer.token, lexer.word_match
+local P, R, S = lpeg.P, lpeg.R, lpeg.S
+
+local lex = lexer.new('scheme')
+
+-- Whitespace.
+lex:add_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
+
+-- Keywords.
+lex:add_rule('keyword', token(lexer.KEYWORD, word_match[[
+  and begin case cond cond-expand define define-macro delay do else fluid-let if
+  lambda let let* letrec or quasiquote quote set!
+]]))
+
+-- Functions.
+lex:add_rule('function', token(lexer.FUNCTION, word_match[[
+  abs acos angle append apply asin assoc assq assv atan car cdr caar cadr cdar
+  cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr
+  call-with-current-continuation call-with-input-file call-with-output-file
+  call-with-values call/cc catch ceiling char->integer char-downcase char-upcase
+  close-input-port close-output-port cons cos current-input-port
+  current-output-port delete-file display dynamic-wind eval exit exact->inexact
+  exp expt file-or-directory-modify-seconds floor force for-each gcd gensym
+  get-output-string getenv imag-part integer->char lcm length list list->string
+  list->vector list-ref list-tail load log magnitude make-polar make-rectangular
+  make-string make-vector map max member memq memv min modulo newline nil not
+  number->string open-input-file open-input-string open-output-file
+  open-output-string peek-char quotient read read-char read-line real-part
+  remainder reverse reverse! round set-car! set-cdr! sin sqrt string
+  string->list string->number string->symbol string-append string-copy
+  string-fill! string-length string-ref string-set! substring symbol->string
+  system tan truncate values vector vector->list vector-fill! vector-length
+  vector-ref vector-set! with-input-from-file with-output-to-file write
+  write-char
+  boolean? char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
+  char-lower-case? char-numeric? char-ready? char-upper-case? char-whitespace?
+  char<=? char<? char=? char>=? char>? char? complex? eof-object? eq? equal?
+  eqv? even? exact? file-exists? inexact? input-port? integer? list? negative?
+  null? number? odd? output-port? pair? port? positive? procedure? rational?
+  real? string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>? string<=?
+  string<? string=? string>=? string>? string? symbol? vector? zero?
+  #t #f
+]]))
+
+local word = (lexer.alpha + S('-!?')) * (lexer.alnum + S('-!?'))^0
+
+-- Identifiers.
+lex:add_rule('identifier', token(lexer.IDENTIFIER, word))
+
+-- Strings.
+local literal = (P("'") + '#' * S('\\bdox')) * lexer.word
+local dq_str = lexer.delimited_range('"')
+lex:add_rule('string', token(lexer.STRING, literal + dq_str))
+
+-- Comments.
+local line_comment = ';' * lexer.nonnewline^0
+local block_comment = '#|' * (lexer.any - '|#')^0 * P('|#')^-1
+lex:add_rule('comment', token(lexer.COMMENT, line_comment + block_comment))
+
+-- Numbers.
+lex:add_rule('number', token(lexer.NUMBER, P('-')^-1 * lexer.digit^1 *
+                                           (S('./') * lexer.digit^1)^-1))
+
+-- Operators.
+lex:add_rule('operator', token(lexer.OPERATOR, S('<>=*/+-`@%:()')))
+
+-- Entity.
+lex:add_rule('entity', token('entity', '&' * word))
+lex:add_style('entity', lexer.STYLE_VARIABLE)
+
+-- Fold points.
+lex:add_fold_point(lexer.OPERATOR, '(', ')')
+lex:add_fold_point(lexer.COMMENT, '#|', '|#')
+lex:add_fold_point(lexer.COMMENT, ';', lexer.fold_line_comments(';'))
+
+return lex