liblua: Create lacpi

Author: kpowkitty

stand/liblua/Makefile

@@ -29,6 +29,20 @@ SRCS+=	lfs.c
 .PATH:	${FLUALIB}/libhash
 SRCS+=	lhash.c
 
+# ACPI
+.if ${MACHINE_CPUARCH} == "amd64" && ${DO32:U0} == 0
+.PATH: ${LIBLUASRC}/acpi
+
+SRCS+=  lacpi.c lacpi_object.c lacpi_utils.c lacpi_walk.c lacpi_data.c
+
+CFLAGS+= -I${SYSDIR}/contrib/dev/acpica/include \
+	 -I${EFISRC}/libacpi/acpi/include -I${EFISRC}/include \
+	 -I${EFISRC}/include/amd64 -I${LIBLUASRC}/acpi/include
+
+DPADD+=	${LIBACPI}
+LDADD+= ${LIBACPI}
+.endif
+
 WARNS?=	3
 
 CFLAGS+= -DLUA_PATH=\"${LUAPATH}\" -DLUA_PATH_DEFAULT=\"${LUAPATH}/\?.lua\"

stand/liblua/acpi/include/lacpi.h

@@ -0,0 +1,32 @@
+#pragma once
+
+#include <lua.h>
+#include <sys/linker_set.h>
+#include <contrib/dev/acpica/include/acpi.h>
+
+typedef int (*lua_module_init_fn)(lua_State *L);
+extern void lacpi_object_interp_ref(void);
+extern void lacpi_data_interp_ref(void);
+
+struct lua_acpi_module {
+	const char *mod_name;
+	lua_module_init_fn init;
+};
+
+SET_DECLARE(lua_acpi_modules, struct lua_acpi_module);
+
+#define LUA_ACPI_COMPILE_SET(name, initfn)			\
+	static struct lua_acpi_module lua_##name =		\
+	{							\
+		.mod_name = #name,				\
+		.init = initfn					\
+	};							\
+	DATA_SET(lua_acpi_modules, lua_##name)
+
+struct lacpi_node {
+	const char*	pathname;
+	ACPI_HANDLE 	handle;
+};
+
+void lacpi_interp_ref(void);
+void lua_acpi_register_hook(void);

stand/liblua/acpi/include/lacpi_data.h

@@ -0,0 +1,7 @@
+#pragma once
+
+#include <lua.h>
+#include <lauxlib.h>
+
+void lacpi_data_interp_ref(void);
+int luaopen_lacpi_data(lua_State *L);

stand/liblua/acpi/include/lacpi_object.h

@@ -0,0 +1,8 @@
+#pragma once
+
+#include <lua.h>
+#include <lauxlib.h>
+
+void lacpi_object_interp_ref(void);
+void lacpi_node_register_mt(lua_State *L);
+int luaopen_lacpi_object(lua_State *L);

stand/liblua/acpi/include/lacpi_utils.h

@@ -0,0 +1,69 @@
+#pragma once
+
+#include <lauxlib.h>
+#include <lua.h>
+#include <lacpi_walk.h>
+#include <contrib/dev/acpica/include/acpi.h>
+
+/***** UTILITY *****/
+
+/* verifies lua passed over a handle on the stack */
+ACPI_HANDLE lacpi_check_handle(lua_State *L, int idx);
+
+/* destructor dispatcher */
+typedef void (*acpi_destructor_t)(ACPI_OBJECT *);
+
+/* safety check -- lua stores integers as 64bit */
+ACPI_STATUS lacpi_int_to_uint32(lua_State *L, int index, UINT32 *num);
+
+/* to convert ACPI_OBJECT_TYPE from table value */
+ACPI_STATUS lacpi_infer_type(lua_State *L, int idx, UINT32 *type);
+
+/* build error code and push it onto stack */
+int lacpi_push_err(lua_State *L, const int push_nil, const char *errmsg,
+    const ACPI_STATUS status);
+
+/* extract error message relating to ACPI_STATUS */
+char *lacpi_extract_status(const ACPI_STATUS status);
+
+/***** FACTORY *****/
+
+/* create metatable gc */
+int lacpi_create_mt_gc(lua_State *L, const char *mt, lua_CFunction gc_func);
+
+/*** ACPI_OBJECT ***/
+/* build ACPI_OBJECTs */
+ACPI_STATUS build_int(lua_State *L, ACPI_OBJECT *obj, int idx);
+ACPI_STATUS build_str(lua_State *L, ACPI_OBJECT *obj, int idx);
+ACPI_STATUS build_buff(lua_State *L, ACPI_OBJECT *obj, int idx);
+ACPI_STATUS build_pkg(lua_State *L, ACPI_OBJECT *obj, int idx);
+ACPI_STATUS build_acpi_obj(lua_State *L, ACPI_OBJECT *obj, UINT32 obj_type, int idx);
+ACPI_STATUS build_ref(lua_State *L, ACPI_OBJECT *obj, int idx);
+ACPI_STATUS build_proc(lua_State *L, ACPI_OBJECT *obj, int idx);
+ACPI_STATUS build_pow(lua_State *L, ACPI_OBJECT *obj, int idx);
+
+/* push ACPI_OBJECTs onto lua stack */
+void push_int(lua_State *L, ACPI_OBJECT *obj);
+void push_str(lua_State *L, ACPI_OBJECT *obj);
+void push_buff(lua_State *L, ACPI_OBJECT *obj);
+void push_pkg(lua_State *L, ACPI_OBJECT *obj);
+void push_acpi_obj(lua_State *L, ACPI_OBJECT *obj);
+void push_ref(lua_State *L, ACPI_OBJECT *obj);
+void push_proc(lua_State *L, ACPI_OBJECT *obj);
+void push_pow(lua_State *L, ACPI_OBJECT *obj);
+
+/* free ACPI_OBJECTs */
+void free_fake(ACPI_OBJECT *obj);
+void free_str(ACPI_OBJECT *obj);
+void free_buff(ACPI_OBJECT *obj);
+void free_pkg(ACPI_OBJECT *obj);
+void free_acpi_obj(ACPI_OBJECT *obj);
+void free_acpi_objs(ACPI_OBJECT **objs, UINT32 init_count);
+
+/*** ACPI Namespace Node ***/
+void push_path(struct context *curr_ctx, const char *path);
+void push_lvl(struct context *curr_ctx, UINT32 level);
+void push_hid(struct context *curr_ctx, const char *hid);
+void push_uid(struct context *curr_ctx, const char *uid);
+void push_node(struct context *curr_ctx, const char *path, UINT32 level,
+    ACPI_HANDLE handle);

stand/liblua/acpi/include/lacpi_walk.h

@@ -0,0 +1,12 @@
+#pragma once
+
+#include <lauxlib.h>
+
+struct context {
+	lua_State *L;
+	int tbl;
+	int idx;
+};
+
+int luaopen_lacpi_walk(lua_State *L);
+void lacpi_walk_interp_ref(void);

stand/liblua/acpi/lacpi.c

@@ -0,0 +1,62 @@
+#include <init_acpi.h>
+#include <lutils.h>
+#include <lauxlib.h>
+#include "lacpi.h"
+#include "lacpi_object.h"
+#include "lacpi_walk.h"
+#include "lacpi_data.h"
+
+/*
+ * Reference set for all lacpi modules.
+ */
+void
+lacpi_interp_ref(void)
+{
+	lacpi_object_interp_ref();
+	lacpi_walk_interp_ref();
+	lacpi_data_interp_ref();
+}
+
+int
+luaopen_lacpi(lua_State *L)
+{
+	lua_newtable(L);
+
+	luaopen_lacpi_object(L);
+	lua_setfield(L, -2, "object");
+
+	luaopen_lacpi_walk(L);
+	lua_setfield(L, -2, "walk");
+	
+	luaopen_lacpi_data(L);
+	lua_setfield(L, -2, "data");
+
+	return 1;
+}
+
+/*
+ * Unpacks all lacpi modules.
+ */
+static void
+lua_acpi_bindings(lua_State *L)
+{
+	struct lua_acpi_module **mod;
+
+	SET_FOREACH(mod, lua_acpi_modules) {
+		(*mod)->init(L);
+		lua_setglobal(L, (*mod)->mod_name);
+	}
+}
+
+/*
+ * Function hook for lacpi modules.
+ */
+void
+lua_acpi_register_hook(void)
+{
+	if (acpi_is_initialized()) {
+		lua_acpi_register = lua_acpi_bindings;
+	}
+}
+
+LUA_ACPI_COMPILE_SET(lacpi, luaopen_lacpi);