From f560a950374635c3cc4a9856234b94e0d19ceff8 Mon Sep 17 00:00:00 2001
From: Natanael Copa <ncopa@alpinelinux.org>
Date: Thu, 17 Nov 2011 15:52:33 +0100
Subject: Implement magic_load()

---
 magic.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/magic.c b/magic.c
index 5642103..97fe4ca 100644
--- a/magic.c
+++ b/magic.c
@@ -112,6 +112,14 @@ static int Perror(lua_State *L)
 	return 1;
 }
 
+static int Pload(lua_State *L)
+{
+	magic_t m = Pmagic_checkarg(L, 1);
+	char *filename = luaL_optstring(L, 2, NULL);
+	lua_pushstring(L, magic_load(m, filename));
+	return 1;
+}
+
 static const luaL_reg Pmagic_methods[] = {
 	{"open",	Popen},
 	{"close",	Pclose},
@@ -121,7 +129,7 @@ static const luaL_reg Pmagic_methods[] = {
 	{"buffer",	Ptodo},
 	{"error",	Perror},
 	{"setflags",	Ptodo},
-	{"load",	Ptodo},
+	{"load",	Pload},
 	{"compile",	Ptodo},
 	{"check",	Ptodo},
 	{"list",	Ptodo},
-- 
cgit v1.2.3