From 6b6e98d6642b630bd04dee13ef6d8fae33c200c8 Mon Sep 17 00:00:00 2001
From: mitchell <unknown>
Date: Mon, 1 Jun 2020 13:04:04 -0400
Subject: lexlua: Added Fennel lexer. Thanks to Momohime Honda.

---
 doc/LPegLexer.html |  2 ++
 lexlua/fennel.lua  | 37 +++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 lexlua/fennel.lua

diff --git a/doc/LPegLexer.html b/doc/LPegLexer.html
index 1cb85599f..291995710 100644
--- a/doc/LPegLexer.html
+++ b/doc/LPegLexer.html
@@ -2566,6 +2566,7 @@ operator    30
     <li>Erlang<code>*</code></li>
     <li>F#</li>
     <li>Faust</li>
+    <li>Fennel</li>
     <li>Fish<code>*</code></li>
     <li>Forth</li>
     <li>Fortran</li>
@@ -2683,6 +2684,7 @@ operator    30
     <li>Michael Forney</li>
     <li>Michael T. Richter</li>
     <li>Michel Martens</li>
+    <li>Momohime Honda</li>
     <li>Murray Calavera</li>
     <li>Neil Hodgson</li>
     <li>Olivier Guibé</li>
diff --git a/lexlua/fennel.lua b/lexlua/fennel.lua
new file mode 100644
index 000000000..19db55bea
--- /dev/null
+++ b/lexlua/fennel.lua
@@ -0,0 +1,37 @@
+-- Copyright 2006-2020 Mitchell mitchell.att.foicica.com. See License.txt.
+-- Fennel LPeg lexer.
+-- Contributed by Momohime Honda.
+
+local lexer = require('lexer')
+local token, word_match = lexer.token, lexer.word_match
+local P, S = lpeg.P, lpeg.S
+
+local lex = lexer.new('fennel', {inherit = lexer.load('lua')})
+
+-- Whitespace.
+lex:add_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
+
+-- Keywords.
+lex:modify_rule('keyword', token(lexer.KEYWORD, word_match[[
+  % * + - ->> -> -?>> -?> .. . // / : <= < = >= > ^ ~= λ
+  and comment do doc doto each eval-compiler fn for global hashfn if include
+  lambda length let local lua macro macros match not not= or partial quote
+  require-macros set set-forcibly! tset values var when while
+]]))
+
+-- Identifiers.
+local initial = lexer.alpha + S"|$%&#*+-./:<=>?~^_λ!"
+local subsequent = initial + lexer.digit
+lex:modify_rule('identifier', token(lexer.IDENTIFIER, initial * subsequent^0))
+
+-- Strings.
+lex:modify_rule('string', token(lexer.STRING, lexer.range('"')))
+
+-- Comments.
+lex:modify_rule('comment', token(lexer.COMMENT, lexer.to_eol(';')))
+
+-- Ignore these rules.
+lex:modify_rule('label', P(false))
+lex:modify_rule('operator', P(false))
+
+return lex
-- 
cgit v1.2.3