Added optional Lua lexer support.

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

1 files changed, 101 insertions, 0 deletions

diff --git a/lexlua/nim.lua b/lexlua/nim.lua
new file mode 100644
index 000000000..aea719a1b
--- /dev/null
+++ b/lexlua/nim.lua
@@ -0,0 +1,101 @@
+-- Copyright 2006-2018 Mitchell mitchell.att.foicica.com. See License.txt.
+-- Nim 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('nim', {fold_by_indentation = true})
+
+-- Whitespace.
+lex:add_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
+
+-- Keywords.
+lex:add_rule('keyword', token(lexer.KEYWORD, word_match([[
+  addr and as asm atomic bind block break case cast const continue converter
+  discard distinct div do elif else end enum except export finally for from
+  generic if import in include interface is isnot iterator lambda let macro
+  method mixin mod nil not notin object of or out proc ptr raise ref return
+  shared shl static template try tuple type var when while with without xor
+  yield
+]], true)))
+
+-- Functions.
+lex:add_rule('function', token(lexer.FUNCTION, word_match([[
+  -- Procs.
+  defined definedInScope new unsafeNew internalNew reset high low sizeof succ
+  pred inc dec newSeq len incl excl card ord chr ze ze64 toU8 toU16 toU32 abs
+  min max contains cmp setLen newString newStringOfCap add compileOption quit
+  shallowCopy del delete insert repr toFloat toBiggestFloat toInt toBiggestInt
+  addQuitProc substr zeroMem copyMem moveMem equalMem swap getRefcount clamp
+  isNil find contains pop each map GC_ref GC_unref echo debugEcho getTypeInfo
+  Open repopen Close EndOfFile readChar FlushFile readAll readFile writeFile
+  write readLine writeln getFileSize ReadBytes ReadChars readBuffer writeBytes
+  writeChars writeBuffer setFilePos getFilePos fileHandle cstringArrayToSeq
+  allocCStringArray deallocCStringArray atomicInc atomicDec compareAndSwap
+  setControlCHook writeStackTrace getStackTrace alloc alloc0 dealloc realloc
+  getFreeMem getTotalMem getOccupiedMem allocShared allocShared0 deallocShared
+  reallocShared IsOnStack GC_addCycleRoot GC_disable GC_enable GC_setStrategy
+  GC_enableMarkAndSweep GC_disableMarkAndSweep GC_fullCollect GC_getStatistics
+  nimDestroyRange getCurrentException getCurrentExceptionMsg onRaise likely
+  unlikely rawProc rawEnv finished slurp staticRead gorge staticExec rand
+  astToStr InstatiationInfo raiseAssert shallow compiles safeAdd locals
+  -- Iterators.
+  countdown countup items pairs fields fieldPairs lines
+  -- Templates.
+  accumulateResult newException CurrentSourcePath assert doAssert onFailedAssert
+  eval
+  -- Threads.
+  running joinThread joinThreads createThread threadId myThreadId
+  -- Channels.
+  send recv peek ready
+]], true)))
+
+-- Types.
+lex:add_rule('type', token(lexer.TYPE , word_match([[
+  int int8 int16 int32 int64 uint uint8 uint16 uint32 uint64 float float32
+  float64 bool char string cstring pointer Ordinal auto any TSignedInt
+  TUnsignedInt TInteger TOrdinal TReal TNumber range array openarray varargs
+  seq set TSlice TThread TChannel
+  -- Meta Types.
+  expr stmt typeDesc void
+]], true)))
+
+-- Constants.
+lex:add_rule('constant', token(lexer.CONSTANT, word_match[[
+  on off isMainModule CompileDate CompileTime NimVersion NimMajor NimMinor
+  NimPatch cpuEndian hostOS hostCPU appType QuitSuccess QuitFailure inf neginf
+  nan
+]]))
+
+-- Strings.
+local sq_str = lexer.delimited_range("'", true)
+local dq_str = lexer.delimited_range('"', true)
+local triple_dq_str = '"""' * (lexer.any - '"""')^0 * P('"""')^-1
+local raw_dq_str = 'r' * lexer.delimited_range('"', false, true)
+lex:add_rule('string', token(lexer.STRING, triple_dq_str + sq_str + dq_str +
+                                           raw_dq_str))
+
+-- Identifiers.
+lex:add_rule('identifier', token(lexer.IDENTIFIER, lexer.word))
+
+-- Comments.
+lex:add_rule('comment', token(lexer.COMMENT, '#' * lexer.nonnewline_esc^0))
+
+-- Numbers.
+local dec = lexer.digit^1 * ('_' * lexer.digit^1)^0
+local hex = '0' * S('xX') * lexer.xdigit^1 * ('_' * lexer.xdigit^1)^0
+local bin = '0' * S('bB') * S('01')^1 * ('_' * S('01')^1)^0
+local oct = '0o' * R('07')^1
+local integer = S('+-')^-1 * (bin + hex + oct + dec) *
+                ("'" * S('iIuUfF') * (P('8') + '16' + '32' + '64'))^-1
+local float = lexer.digit^1 * ('_' * lexer.digit^1)^0 *
+              ('.' * ('_' * lexer.digit)^0)^-1 * S('eE') * S('+-')^-1 *
+              lexer.digit^1 * ('_' * lexer.digit^1)^0
+lex:add_rule('number', token(lexer.NUMBER, lexer.float + integer))
+
+-- Operators.
+lex:add_rule('operator', token(lexer.OPERATOR,
+                               S('=+-*/<>@$~&%|!?^.:\\`()[]{},;')))
+
+return lex