转到定义

1 files changed, 23 insertions, 1 deletions

diff --git a/src/parser/calcline.lua b/src/parser/calcline.lua
index ef0bfa3c..0c692a85 100644
--- a/src/parser/calcline.lua
+++ b/src/parser/calcline.lua
@@ -7,7 +7,6 @@ local NL = (m.P'\r\n' + m.S'\r\n') * m.Cp() / function (pos)
     fl = pos
 end
 local ROWCOL = (NL + m.P(1))^0
-
 local function rowcol(str, n)
     row = 1
     fl = 1
@@ -16,6 +15,28 @@ local function rowcol(str, n)
     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)
@@ -37,4 +58,5 @@ end
 return {
     rowcol = rowcol,
     line = line,
+    position = position,
 }