Initial implementation of parseFileName helper function in PATCH.LUA

Author: Lethja

xtra/PATCH.LUA

@@ -3,20 +3,38 @@
 local function patch(p)
 	local pf, e = io.open(p)
 	if not pf then print(e) os.exit(1) end
+
+	local function split(i,d)
+		local r={}
+		for m in (i..d):gmatch("(.-)"..d)do table.insert(r,m)end
+		return r
+	end
+
+	local function parseFileName(l)
+		local first = l:sub(5,5)
+		if first == '"' or first == "'" then
+			return l:match(first .. "([^" .. first .. "]+)" .. first, 5)
+		else
+			local words = {}
+			for v in string.gmatch(l, "%S+") do table.insert(words, v) end
+			return words[2]
+		end
+	end
+
 	for l in pf:lines() do
 		local ls = l:sub(1, 1)
 		if ls == "+" then
 			if l:sub(2,4) == "++ " then
 				--TODO: New file
-				print("New File: '" .. l:sub(5) .. "'")
+				print("New File: '" .. parseFileName(l) .. "'")
 			else
 				--TODO: Add Line
 				print("Add Line: '" .. l:sub(2) .. "'")
 			end
 		elseif ls == '-' then
 			if l:sub(2,4) == "-- " then
 				--TODO: Old file
-				print("Old File: '" .. l:sub(5) .. "'")
+				print("Old File: '" .. parseFileName(l) .. "'")
 			else
 				--TODO: Del Line
 				print("Del Line: '" .. l:sub(2) .. "'")
@@ -27,11 +45,6 @@ local function patch(p)
 		elseif ls == '@' then
 			if l:sub(2,3) == "@ " then
 				local function parseHunkHeader()
-					local function split(i,d)
-						local r={}
-						for m in (i..d):gmatch("(.-)"..d)do table.insert(r,m)end
-						return r
-					end
 					local words,old,new=split(l," "),{},{}
 					if words[2] then old=split(words[2],",")end
 					if words[3] then new=split(words[3],",")end