diff options
Diffstat (limited to 'lexlua/nim.lua')
-rw-r--r-- | lexlua/nim.lua | 101 |
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 |