From 8695476bebaea7469ea1aaf4c13ec8e020353d39 Mon Sep 17 00:00:00 2001
From: Diego Martinez <kaeza@users.sf.net>
Date: Mon, 19 May 2014 23:23:43 -0300
Subject: First commit.

---
 shutil.lua | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 shutil.lua

(limited to 'shutil.lua')

diff --git a/shutil.lua b/shutil.lua
new file mode 100644
index 0000000..e8ca269
--- /dev/null
+++ b/shutil.lua
@@ -0,0 +1,42 @@
+
+shutil = { }
+
+function shutil.copy_file(src, dst)
+	local e, sf, df, cont, ok
+	sf, e = io.open(src, "rb")
+	if not sf then
+		return nil, "Error opening input: "..(e or "")
+	end
+	df, e = io.open(dst, "wb")
+	if not df then
+		sf:close()
+		return nil, "Error opening output: "..(e or "")
+	end
+	cont, e = sf:read("*a")
+	if not cont then
+		sf:close()
+		df:close()
+		return nil, "Error reading input: "..(e or "")
+	end
+	ok, e = df:write(cont)
+	if not ok then
+		sf:close()
+		df:close()
+		return nil, "Error writing output: "..(e or "")
+	end
+	sf:close()
+	df:close()
+	return true
+end
+
+function shutil.move_file(src, dst)
+	local ok, e = shutil.copy_file(src, dst)
+	if not ok then
+		return nil, "Copy failed: "..(e or "")
+	end
+	ok, e = os.remove(src)
+	if not ok then
+		return nil, "Remove failed: "..(e or "")
+	end
+	return true
+end
-- 
cgit v1.2.3