patched to add simple Open{Base,IO,Math,Package,String,Table} methods…

… for more granular environment setup.

Signed-off-by: Adam Fitzgerald <afitz@gatech.edu>

lua51/golua.c

@@ -1,5 +1,6 @@
 #include <lua.h>
 #include <lauxlib.h>
+#include <lualib.h>
 #include "_cgo_export.h"
 
 //metatables to register:
@@ -166,3 +167,33 @@ void clua_setallocf(lua_State* L, void* goallocf)
 {
 	lua_setallocf(L,&allocwrapper,goallocf);
 }
+
+void clua_openbase(lua_State* L){
+	lua_pushcfunction(L,&luaopen_base);
+	lua_call(L, 0, 0);
+}
+
+void clua_openio(lua_State* L){
+	lua_pushcfunction(L,&luaopen_io);
+	lua_call(L, 0, 0);
+}
+
+void clua_openmath(lua_State* L){
+	lua_pushcfunction(L,&luaopen_math);
+	lua_call(L, 0, 0);
+}
+
+void clua_openpackage(lua_State* L){
+	lua_pushcfunction(L,&luaopen_package);
+	lua_call(L, 0, 0);
+}
+
+void clua_openstring(lua_State* L){
+	lua_pushcfunction(L,&luaopen_string);
+	lua_call(L, 0, 0);
+}
+
+void clua_opentable(lua_State* L){
+	lua_pushcfunction(L,&luaopen_table);
+	lua_call(L, 0, 0);
+}

lua51/golua.h

@@ -14,6 +14,13 @@ int clua_callluacfunc(lua_State* L, lua_CFunction f);
 lua_State* clua_newstate(void* goallocf);
 void clua_setallocf(lua_State* L, void* goallocf);
 
+void clua_openbase(lua_State* L);
+void clua_openio(lua_State* L);
+void clua_openmath(lua_State* L);
+void clua_openpackage(lua_State* L);
+void clua_openstring(lua_State* L);
+void clua_opentable(lua_State* L);
+
 
 //TODO: get/set panicf
 //TODO: get/set allocf

lua51/lua.go

@@ -477,5 +477,30 @@ func Yield(L *State, nresults int) int {
 	return int(C.lua_yield(L.s, C.int(nresults)));
 }
 
+// Restricted library opens
+
+func OpenBase(L *State) {
+        C.clua_openbase(L.s);
+}
+
+func OpenIO(L *State) {
+        C.clua_openio(L.s);
+}
+
+func OpenMath(L *State) {
+        C.clua_openmath(L.s);
+}
+
+func OpenPackage(L *State) {
+        C.clua_openpackage(L.s);
+}
+
+func OpenString(L *State) {
+        C.clua_openstring(L.s);
+}
+
+func OpenTable(L *State) {
+        C.clua_opentable(L.s);
+}