Implement magic_getpath

This function is not documented in libmagic(3) but it is available
in magic.h

1 files changed, 11 insertions, 1 deletions

diff --git a/magic.c b/magic.c
index d138302..bf7e836 100644
--- a/magic.c
+++ b/magic.c
@@ -168,10 +168,20 @@ static int Pbuffer(lua_State *L)
 	return 1;
 }
 
+static int Pgetpath(lua_State *L)
+{
+	// from file.h in 'file' sources
+	#define FILE_LOAD 0
+	const char *magicfile = luaL_optstring(L, 1, NULL);
+	lua_pushstring(L, magic_getpath(magicfile, FILE_LOAD));
+	return 1;
+	#undef FILE_LOAD
+}
+
 static const luaL_reg Pmagic_methods[] = {
 	{"open",	Popen},
 	{"close",	Pclose},
-	{"getpath",	Ptodo},
+	{"getpath",	Pgetpath},
 	{"file",	Pfile},
 	{"descriptor",	Pdescriptor},
 	{"buffer",	Pbuffer},