-- 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
|
