From 6da2b175e20ed3c03b0dfcfc9046de1e0e5d4444 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E6=9C=80=E8=90=8C=E5=B0=8F=E6=B1=90?= <sumneko@hotmail.com>
Date: Sat, 23 Nov 2019 00:05:30 +0800
Subject: =?UTF-8?q?=E6=AD=A3=E8=B7=AF=E7=9B=AE=E5=BD=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 script-beta/parser/lines.lua | 46 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 script-beta/parser/lines.lua

(limited to 'script-beta/parser/lines.lua')

diff --git a/script-beta/parser/lines.lua b/script-beta/parser/lines.lua
new file mode 100644
index 00000000..c7961d13
--- /dev/null
+++ b/script-beta/parser/lines.lua
@@ -0,0 +1,46 @@
+local m = require 'lpeglabel'
+local utf8Len = utf8.len
+
+_ENV = nil
+
+local function Line(start, line, range, finish)
+    line.start  = start
+    line.finish = finish - 1
+    line.range  = range  - 1
+    return line
+end
+
+local function Space(...)
+    local line = {...}
+    local sp = 0
+    local tab = 0
+    for i = 1, #line do
+        if line[i] == ' ' then
+            sp = sp + 1
+        elseif line[i] == '\t' then
+            tab = tab + 1
+        end
+        line[i] = nil
+    end
+    line.sp  = sp
+    line.tab = tab
+    return line
+end
+
+local parser = m.P{
+'Lines',
+Lines   = m.Ct(m.V'Line'^0 * m.V'LastLine'),
+Line    = m.Cp() * m.V'Indent' * (1 - m.V'Nl')^0 * m.Cp() * m.V'Nl' * m.Cp() / Line,
+LastLine= m.Cp() * m.V'Indent' * (1 - m.V'Nl')^0 * m.Cp() * m.Cp() / Line,
+Nl      = m.P'\r\n' + m.S'\r\n',
+Indent  = m.C(m.S' \t')^0 / Space,
+}
+
+return function (self, text)
+    local lines, err = parser:match(text)
+    if not lines then
+        return nil, err
+    end
+
+    return lines
+end
-- 
cgit v1.2.3