Updated all the libs, added citro3d, added ctr.swkbd (WIP, untested)

source/swkbd.c

@@ -0,0 +1,204 @@
+/***
+The `swkbd` module.
+@module ctr.swkbd
+@usage local swkbd = require("ctr.swkbd")
+*/
+
+#include <3ds/types.h>
+#include <3ds/applets/swkbd.h>
+
+#include <lapi.h>
+#include <lauxlib.h>
+
+#include <stdlib.h>
+#include <malloc.h>
+
+// functions
+
+/***
+Create a software keyboard.
+@function keyboard
+@tparam[opt=TYPE_NORMAL] TYPE type keyboard type.
+@tparam[opt=2] integer buttons number of buttons, can be 1, 2 or 3. Will default to 2 if the number isn't 1, 2 or 3
+@tparam[opt=max] integer maxLength maximum length of the text. (maximum 65000)
+@treturn keyboard a software keyboard object
+*/
+static int swkbd_keyboard(lua_State *L) {
+	SwkbdType type = luaL_optinteger(L, 1, SWKBD_TYPE_NORMAL);
+	int buttons = luaL_optinteger(L, 2, 2);
+	int maxLength = luaL_optinteger(L, 3, -1);
+	
+	SwkbdState *keyboard = lua_newuserdata(L, sizeof(*keyboard));
+	luaL_getmetatable(L, "LKeyboard");
+	lua_setmetatable(L, -2);
+	
+	swkbdInit(keyboard, type, buttons, maxLength);
+	
+	return 1;
+}
+
+// methods
+
+/***
+Keyboard object
+@section object
+*/
+
+/***
+Launch the keyboard applet.
+@function :launch
+@tparam[opt=max] integer maxLength maximum text length (max 65000)
+@treturn[1] string text (UTF-8)
+@treturn[1] integer button pressed (1, 2 or 3)
+@treturn[2] nil
+@treturn[2] string error. In case of an "OUTOFMEM" error, this function will throw an error instead of returning.
+*/
+static int keyboard_launch(lua_State *L) {
+	SwkbdState *keyboard = luaL_checkudata(L, 1, "LKeyboard");
+	int length = luaL_optinteger(L, 2, 65000);
+	
+	char* buff = malloc(length);
+	
+	SwkbdButton button = swkbdInputText(keyboard, buff, length);
+	
+	if (button<0) {
+		free(buff);
+		lua_pushnil(L);
+		switch (button) {
+			case SWKBD_NONE:
+				lua_pushstring(L, "That wasn't supposed to happen.");
+				break;
+			
+			case SWKBD_INVALID_INPUT:
+				lua_pushstring(L, "Invalid parameters.");
+				break;
+			
+			case SWKBD_OUTOFMEM:
+				luaL_error(L, "Out of memory.");
+				break;
+			
+			default:
+				lua_pushfstring(L, "Unexpected error: %d.", button);
+				break;
+		}
+		
+		return 2;
+	}
+	lua_pushstring(L, buff);
+	free(buff);
+	lua_pushinteger(L, button);
+	
+	return 2;
+}
+
+/***
+Set the initial text in the textbox.
+@function :setInitialText
+@tparam[opt=""] string text initial text
+*/
+static int keyboard_setInitialText(lua_State *L) {
+	SwkbdState *keyboard = luaL_checkudata(L, 1, "LKeyboard");
+	const char* text = luaL_optstring(L, 2, "");
+	
+	swkbdSetInitialText(keyboard, text);
+	
+	return 0;
+}
+
+/***
+Set the text displayed in the textbox when it's empty.
+@function :setHintText
+@tparam[opt=""] string text hint text
+*/
+static int keyboard_setHintText(lua_State *L) {
+	SwkbdState *keyboard = luaL_checkudata(L, 1, "LKeyboard");
+	const char* text = luaL_optstring(L, 2, "");
+	
+	swkbdSetHintText(keyboard, text);
+	
+	return 0;
+}
+
+////////////////////
+
+static const struct luaL_Reg swkbd_lib[] = {
+	{"keyboard", swkbd_keyboard},
+	{NULL, NULL}
+};
+
+static const struct luaL_Reg swkbd_object_methods[] = {
+	{"launch",         keyboard_launch},
+	{"setInitialText", keyboard_setInitialText},
+	{"setHintText",    keyboard_setHintText},
+	{NULL, NULL}
+};
+
+/***
+Constants
+@section constants
+*/
+
+struct { char *name; int value; } swkbd_constants[] = {
+	/***
+	@field TYPE_NORMAL
+	*/
+	{"TYPE_NORMAL", SWKBD_TYPE_NORMAL},
+	/***
+	@field TYPE_QWERTY
+	*/
+	{"TYPE_QWERTY", SWKBD_TYPE_QWERTY},
+	/***
+	@field TYPE_NUMPAD
+	*/
+	{"TYPE_NUMPAD", SWKBD_TYPE_NUMPAD},
+	/***
+	@field TYPE_WESTERN
+	*/
+	{"TYPE_WESTERN", SWKBD_TYPE_WESTERN},
+	/***
+	@field ANYTHING
+	*/
+	{"ANYTHING", SWKBD_ANYTHING},
+	/***
+	@field NOTEMPTY
+	*/
+	{"NOTEMPTY", SWKBD_NOTEMPTY},
+	/***
+	@field NOTEMPTY_NOTBLANK
+	*/
+	{"NOTEMPTY_NOTBLANK", SWKBD_NOTEMPTY_NOTBLANK},
+	/***
+	@field NOTBLANK_NOTEMPTY
+	*/
+	{"NOTBLANK_NOTEMPTY", SWKBD_NOTBLANK_NOTEMPTY},
+	/***
+	@field NOTBLANK
+	*/
+	{"NOTBLANK", SWKBD_NOTBLANK},
+	/***
+	@field FIXEDLEN
+	*/
+	{"FIXEDLEN", SWKBD_FIXEDLEN},
+	
+	{NULL, 0}
+};
+
+int luaopen_swkbd_lib(lua_State *L) {
+	luaL_newmetatable(L, "LKeyboard");
+	lua_pushvalue(L, -1);
+	lua_setfield(L, -2, "__index");
+	luaL_setfuncs(L, swkbd_object_methods, 0);
+	
+	luaL_newlib(L, swkbd_lib);
+	
+	for (int i = 0; swkbd_constants[i].name; i++) {
+		lua_pushinteger(L, swkbd_constants[i].value);
+		lua_setfield(L, -2, swkbd_constants[i].name);
+	}
+	
+	return 1;
+}
+
+void load_swkbd_lib(lua_State *L) {
+	luaL_requiref(L, "ctr.swkbd", luaopen_swkbd_lib, false);
+}