From 3deeedbf4fb944dfd9f4a903ba924356a8df9c91 Mon Sep 17 00:00:00 2001
From: Natanael Copa <ncopa@alpinelinux.org>
Date: Fri, 18 Nov 2011 09:34:48 +0100
Subject: Implement magic_errno

---
 magic.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'magic.c')

diff --git a/magic.c b/magic.c
index 1018b6f..7697773 100644
--- a/magic.c
+++ b/magic.c
@@ -4,6 +4,8 @@ LGPL
 
 */
 
+#include <string.h>
+
 #include <lua.h>
 #include <lualib.h>
 #include <lauxlib.h>
@@ -112,6 +114,15 @@ static int Perror(lua_State *L)
 	return 1;
 }
 
+static int Perrno(lua_State *L)
+{
+	magic_t m = Pmagic_checkarg(L, 1);
+	int err = magic_errno(m);
+	lua_pushinteger(L, err);
+	lua_pushstring(L, strerror(err));
+	return 2;
+}
+
 static int Pload(lua_State *L)
 {
 	magic_t m = Pmagic_checkarg(L, 1);
@@ -153,7 +164,7 @@ static const luaL_reg Pmagic_methods[] = {
 	{"compile",	Ptodo},
 	{"check",	Ptodo},
 	{"list",	Ptodo},
-	{"errno",	Ptodo},
+	{"errno",	Perrno},
 	{NULL, 		NULL}
 };
 
-- 
cgit v1.2.3