WIP: LAcpiEvaluateObject

This work follows #1817.

Author: kpowkitty

stand/efi/acpica/init_acpi.c

@@ -25,9 +25,9 @@
  */
 
 #include <stand.h>
-#include <acpi.h>
-#include <accommon.h>
-#include <acoutput.h>
+#include <contrib/dev/acpica/include/acpi.h>
+#include <contrib/dev/acpica/include/accommon.h>
+#include <contrib/dev/acpica/include/acoutput.h>
 #include <init_acpi.h>
 
 #define _COMPONENT ACPI_LOADER

stand/efi/loader/Makefile

@@ -146,8 +146,10 @@ LIBACPI=	${BOOTOBJ}/efi/libacpi/libacpi.a
 DPADD=		${LDR_INTERP32} ${LIBEFI32} ${LIBSA32} ${LDSCRIPT}
 LDADD=		${LDR_INTERP32} ${LIBEFI32} ${LIBSA32}
 .elif ${__arch} == "amd64"
-DPADD=		${LDR_INTERP} ${LIBEFI} ${LIBSAFDT} ${LIBEFI_FDT} ${LIBSA} ${LIBACPI} ${LDSCRIPT}
-LDADD=		${LDR_INTERP} ${LIBEFI} ${LIBSAFDT} ${LIBEFI_FDT} ${LIBSA} ${LIBACPI}
+DPADD=		${LDR_INTERP} ${LIBEFI} ${LIBSAFDT} ${LIBEFI_FDT} \
+		${LIBSA} ${LIBACPI} ${LIBLUA} ${LDSCRIPT}
+LDADD=		${LDR_INTERP} ${LIBEFI} ${LIBSAFDT} ${LIBEFI_FDT} \
+		${LIBSA} ${LIBACPI} ${LIBLUA}
 .else
 DPADD=		${LDR_INTERP} ${LIBEFI} ${LIBSAFDT} ${LIBEFI_FDT} ${LIBSA} ${LDSCRIPT}
 LDADD=		${LDR_INTERP} ${LIBEFI} ${LIBSAFDT} ${LIBEFI_FDT} ${LIBSA}

stand/efi/loader/main.c

@@ -1236,6 +1236,9 @@ main(int argc, CHAR16 *argv[])
 	if ((ret = init_acpi()) != 0) {
 		printf("Failed to initialize ACPI\n.");
 	}
+
+	lacpi_interp_ref();
+	lua_acpi_register_hook();
 #endif
 
 	/*

stand/liblua/Makefile

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

stand/liblua/acpi/lacpi.c

@@ -0,0 +1,37 @@
+#include <init_acpi.h>
+#include <lutils.h>
+#include "lacpi.h"
+
+/*
+ * Reference set for all lacpi modules.
+ */
+void
+lacpi_interp_ref(void)
+{
+	lacpi_object_interp_ref();
+}
+
+/*
+ * 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;
+	}
+}

stand/liblua/acpi/lacpi.h

@@ -0,0 +1,28 @@
+#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);
+
+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;
+};

stand/liblua/acpi/lacpi_factory.c

@@ -0,0 +1,17 @@
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+
+int
+lacpi_create_mt_gc(lua_State *L, const char *mt, lua_CFunction gc_func)
+{
+	if (luaL_newmetatable(L, mt)) {
+		lua_pushcfunction(L, gc_func);
+		lua_setfield(L, -2, "__gc");
+
+		lua_pushvalue(L, -1);
+		lua_setfield(L, -2, "__index");
+	}
+
+	return 1;
+}

stand/liblua/acpi/lacpi_factory.h

@@ -0,0 +1,3 @@
+#pragma once
+
+int lacpi_create_mt_gc(lua_State *L, const char *mt, lua_CFunction gc_func);