From 519b7328b66c4c84f03893a31e4be5ba6b1395f2 Mon Sep 17 00:00:00 2001
From: mitchell <unknown>
Date: Sun, 11 Mar 2018 23:04:41 -0400
Subject: Added optional Lua lexer support. This support is disabled by default
 and must be enabled via compile-time option.

---
 lexlua/pascal.lua | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 lexlua/pascal.lua

(limited to 'lexlua/pascal.lua')

diff --git a/lexlua/pascal.lua b/lexlua/pascal.lua
new file mode 100644
index 000000000..495175f4c
--- /dev/null
+++ b/lexlua/pascal.lua
@@ -0,0 +1,62 @@
+-- Copyright 2006-2018 Mitchell mitchell.att.foicica.com. See License.txt.
+-- Pascal 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('pascal')
+
+-- Whitespace.
+lex:add_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
+
+-- Keywords.
+lex:add_rule('keyword', token(lexer.KEYWORD, word_match([[
+  and array as at asm begin case class const constructor destructor
+  dispinterface div do downto else end except exports file final finalization
+  finally for function goto if implementation in inherited initialization inline
+  interface is label mod not object of on or out packed procedure program
+  property raise record repeat resourcestring set sealed shl shr static string
+  then threadvar to try type unit unsafe until uses var while with xor
+  absolute abstract assembler automated cdecl contains default deprecated dispid
+  dynamic export external far forward implements index library local message
+  name namespaces near nodefault overload override package pascal platform
+  private protected public published read readonly register reintroduce requires
+  resident safecall stdcall stored varargs virtual write writeln writeonly
+  false nil self true
+]], true)))
+
+-- Functions.
+lex:add_rule('function', token(lexer.FUNCTION, word_match([[
+  chr ord succ pred abs round trunc sqr sqrt arctan cos sin exp ln odd eof eoln
+]], true)))
+
+-- Types.
+lex:add_rule('type', token(lexer.TYPE, word_match([[
+  shortint byte char smallint integer word longint cardinal boolean bytebool
+  wordbool longbool real single double extended comp currency pointer
+]], true)))
+
+-- Strings.
+lex:add_rule('string', token(lexer.STRING,
+                             S('uUrR')^-1 *
+                             lexer.delimited_range("'", true, true)))
+
+-- Identifiers.
+lex:add_rule('identifier', token(lexer.IDENTIFIER, lexer.word))
+
+-- Comments.
+local line_comment = '//' * lexer.nonnewline_esc^0
+local bblock_comment = '{' * (lexer.any - '}')^0 * P('}')^-1
+local pblock_comment = '(*' * (lexer.any - '*)')^0 * P('*)')^-1
+lex:add_rule('comment', token(lexer.COMMENT, line_comment + bblock_comment +
+                                             pblock_comment))
+
+-- Numbers.
+lex:add_rule('number', token(lexer.NUMBER, (lexer.float + lexer.integer) *
+                                           S('LlDdFf')^-1))
+
+-- Operators.
+lex:add_rule('operator', token(lexer.OPERATOR, S('.,;^@:=<>+-/*()[]')))
+
+return lex
-- 
cgit v1.2.3