1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
-- Copyright 2015-2016 Charles Lehner. See LICENSE.
-- ledger journal LPeg lexer, see http://www.ledger-cli.org/
local l = require('lexer')
local token, word_match = l.token, l.word_match
local P, R, S = lpeg.P, lpeg.R, lpeg.S
local M = {_NAME = 'ledger'}
local delim = P('\t') + P(' ')
-- Whitespace.
local ws = token(l.WHITESPACE, l.space^1)
-- Comments.
local comment = token(l.COMMENT, S(';#') * l.nonnewline^0)
-- Strings.
local sq_str = l.delimited_range("'")
local dq_str = l.delimited_range('"')
local label = l.delimited_range('[]', true, true)
local string = token(l.STRING, sq_str + dq_str + label)
-- Date.
local date = token(l.CONSTANT, l.starts_line((l.digit + S('/-')) ^1))
-- Account.
local account = token(l.VARIABLE,
l.starts_line(S(' \t')^1 * (l.print - delim)^1))
-- Amount.
local amount = token(l.NUMBER, delim * (1 - S(';\r\n'))^1)
-- Automated transactions.
local auto_tx = token(l.PREPROCESSOR, l.starts_line(S('=~') * l.nonnewline^0))
-- Directives.
local directive_word = word_match{
'account', 'alias', 'assert', 'bucket', 'capture', 'check', 'comment',
'commodity', 'define', 'end', 'fixed', 'endfixed', 'include', 'payee',
'apply', 'tag', 'test', 'year'
} + S('AYNDCIiOobh')
local directive = token(l.KEYWORD, l.starts_line(S('!@')^-1 * directive_word))
M._rules = {
{'account', account},
{'amount', amount},
{'comment', comment},
{'whitespace', ws},
{'date', date},
{'auto_tx', auto_tx},
{'directive', directive},
}
M._LEXBYLINE = true
return M
|
