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
58
59
60
61
62
|
local m = require 'lpeglabel'
local row
local fl
local NL = (m.P'\r\n' + m.S'\r\n') * m.Cp() / function (pos)
row = row + 1
fl = pos
end
local ROWCOL = (NL + m.P(1))^0
local function rowcol(str, n)
row = 1
fl = 1
ROWCOL:match(str:sub(1, n))
local col = n - fl + 1
return row, col
end
local function position(str, _row, _col)
local cur = 1
local row = 1
while true do
if row == _row then
return cur + _col - 1
elseif row > _row then
return cur - 1
end
local pos = str:find('[\r\n]', cur)
if not pos then
return #str
end
row = row + 1
if str:sub(pos, pos+1) == '\r\n' then
cur = pos + 2
else
cur = pos + 1
end
end
end
local NL = m.P'\r\n' + m.S'\r\n'
local function line(str, row)
local count = 0
local res
local LINE = m.Cmt((1 - NL)^0, function (_, _, c)
count = count + 1
if count == row then
res = c
return false
end
return true
end)
local MATCH = (LINE * NL)^0 * LINE
MATCH:match(str)
return res
end
return {
rowcol = rowcol,
line = line,
position = position,
}
|
