From feac018149d58020cc91792c37b96682d14980d3 Mon Sep 17 00:00:00 2001
From: Simon Buhrow <40995132+el-coder-sb@users.noreply.github.com>
Date: Tue, 30 Nov 2021 16:04:08 +0100
Subject: [PATCH] Add lua function list capacity

Fix #4563, close #10867
---
 PowerEditor/Test/FunctionList/lua/unitTest    |  27 +++++
 .../FunctionList/lua/unitTest.expected.result |   1 +
 PowerEditor/installer/functionList/lua.xml    | 107 ++++++++++++++++++
 3 files changed, 135 insertions(+)
 create mode 100644 PowerEditor/Test/FunctionList/lua/unitTest
 create mode 100644 PowerEditor/Test/FunctionList/lua/unitTest.expected.result
 create mode 100644 PowerEditor/installer/functionList/lua.xml

diff --git a/PowerEditor/Test/FunctionList/lua/unitTest b/PowerEditor/Test/FunctionList/lua/unitTest
new file mode 100644
index 000000000..2c69f3e97
--- /dev/null
+++ b/PowerEditor/Test/FunctionList/lua/unitTest
@@ -0,0 +1,27 @@
+-- Create a file named by_ip/''ip_addess''.cap with all ip traffic of each ip host. (tshark only?)
+-- Dump files are created for both source and destination hosts
+function createDir (dirname)
+    -- this will print out an error if the directory already exists, but that's fine
+    os.execute("mkdir " .. dirname)
+end
+
+local dir = "by_ip"
+createDir(dir)
+
+-- create a table to hold the dumper objects/file handles
+local dumpers = {}
+
+local tap = Listener.new("ip")
+
+-- we will be called once for every IP Header.
+-- If there's more than one IP header in a given packet we'll dump the packet once per every header
+function tap.packet(pinfo,tvb,ip)
+    local ip_src, ip_dst = tostring(ip.ip_src), tostring(ip.ip_dst)
+    local src_dmp, dst_dmp
+end
+
+function tap.draw()
+    for ip_addr,dumper in pairs(dumpers) do
+             dumper:flush()
+    end
+end
diff --git a/PowerEditor/Test/FunctionList/lua/unitTest.expected.result b/PowerEditor/Test/FunctionList/lua/unitTest.expected.result
new file mode 100644
index 000000000..02869bcfa
--- /dev/null
+++ b/PowerEditor/Test/FunctionList/lua/unitTest.expected.result
@@ -0,0 +1 @@
+{"leaves":["createDir"],"nodes":[{"leaves":["packet","draw"],"name":"tap"}],"root":"unitTest"}
\ No newline at end of file
diff --git a/PowerEditor/installer/functionList/lua.xml b/PowerEditor/installer/functionList/lua.xml
new file mode 100644
index 000000000..a501ed73c
--- /dev/null
+++ b/PowerEditor/installer/functionList/lua.xml
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<!-- Copied from  https://github.com/notepad-plus-plus/notepad-plus-plus/issues/4563 -->
+<NotepadPlus>
+	<functionList>
+<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+			|   Based on:
+			|       http://stackoverflow.com/questions/19246077/how-to-add-lua-functions-to-the-notepad-functionlist-xml
+			|
+			|   Note(s):
+			|   1)  Multi Line Comment `Level` is supported by Lua 5.1 and above;
+			|   2)  Nested table view not supported;
+			\-->
+			<parser
+				displayName="Lua w/ Class"
+				id         ="lua_syntax"
+				commentExpr="(?x)                                               # free-spacing (see `RegEx - Pattern Modifiers`)
+							(?s:                                                # Multi Line Comment (MLC)
+								(?&lt;!-)                                       # - no preceeding dash, otherwise start of SLC
+								-{2}\x5B(?'MLCLvl'=*)\x5B.*?\x5D\k'MLCLvl'\x5D
+							)
+						|	(?m-s:-{2}(?!\x5B=*\x5B).*$)                        # Single Line Comment (SLC)
+						|	(?s:\x22(?:[^\x22\x5C]|\x5C.)*\x22)                 # String Literal - Double Quoted (SLDQ) / Normal String
+						|	(?s:                                                # String Literal - Multi Line    (SLML) / Long   String
+								(?&lt;!-{2})                                    # - no preceeding double dash, otherwise start of MLC or SLC
+								\x5B(?'SLMLLvl'=*)\x5B(?:[^\x5C\x5D]|\x5C.)*\x5D\k'SLMLLvl'\x5D
+							)
+						|	(?s:\x27(?:[^\x27\x5C]|\x5C.)*\x27)                 # String Literal - Single Quoted (SLSQ) / Char   String
+					"
+			>
+				<classRange
+					mainExpr    ="(?x)                                          # free-spacing (see `RegEx - Pattern Modifiers`)
+							[.\w]+
+							\s*=
+							\s*\{
+						"
+					openSymbole ="\{"
+					closeSymbole="\}"
+				>
+					<className>
+						<nameExpr expr="[.\w]+" />
+					</className>
+					<function
+						mainExpr="(?x)                                          # free-spacing (see `RegEx - Pattern Modifiers`)
+								[.\w]+
+								\s*=
+								\s*(?'QT'[\x22\x27]?)\w+\k'QT'
+							"
+					>
+						<functionName>
+							<funcNameExpr expr=".*" />
+						</functionName>
+					</function>
+				</classRange>
+				<function
+					mainExpr="(?x)                                              # free-spacing (see `RegEx - Pattern Modifiers`)
+							(?m-i)                                              # ^ and $ match at line-breaks, case-sensitive
+							(?(DEFINE)                                          # definition of sub-routine(s)
+								(?'VALID_ID'                                    # Valid Identifier sub-routine
+									\b(?!(?-i:                                  # - keywords (case-sensitive), not to be used as identifier
+										and
+									|	break
+									|	do
+									|	e(?:lse(?:if)?|nd)
+									|	f(?:alse|or|unction)
+									|	goto
+									|	i[fn]
+									|	local
+									|	n(?:il|ot)
+									|	or
+									|	re(?:peat|turn)
+									|	t(?:hen|rue)
+									|	until
+									|	while
+									)\b)
+									[A-Za-z_\x7F-\xFF][\w\x7F-\xFF]*            # - valid character combination for identifiers
+								)
+							)
+							(?m)                                                # ^ and $ match at line-breaks
+							(?:
+								^\h*                                            # optional leading white-space at start-of-line
+								(?:local\s+)?
+								function\s+
+								\K                                              # discard text matched so far
+								(?&amp;VALID_ID)
+								(?:\s*\.\s*(?&amp;VALID_ID))*
+								(?:\s*:\s*(?&amp;VALID_ID))?
+							|
+								(?&amp;VALID_ID)
+								(?:\s*\.\s*(?&amp;VALID_ID))*
+								\s*=
+								\s*function
+							)
+							\s*\(                                               # start-of-parameter-list indicator
+							[^)]*                                               # optional parameters
+							\)                                                  # end-of-parameter-list indicator
+						"
+				>
+					<functionName>
+						<nameExpr expr="[A-Za-z_\x7F-\xFF][\w\x7F-\xFF]*(?=\s*[(=])" />
+					</functionName>
+					<className>
+						<nameExpr expr="[A-Za-z_\x7F-\xFF][\w\x7F-\xFF]*(?:\s*\.\s*[A-Za-z_\x7F-\xFF][\w\x7F-\xFF]*)*(?=\s*[.:])" />
+					</className>
+				</function>
+			</parser>
+	</functionList>
+</NotepadPlus>
\ No newline at end of file