add key binding input functions

1 files changed, 165 insertions, 19 deletions

diff --git a/src/honey_lua.c b/src/honey_lua.c
index 1cbd483..f397872 100644
--- a/src/honey_lua.c
+++ b/src/honey_lua.c
@@ -1,46 +1,192 @@
 #include "common.h"
 
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+honey_result honey_format_string(char** string,
+                                 char* format_string,
+                                 ...)
+{
+    honey_result res;
+    va_list args, args_;
+    va_start(args, format_string);
+    va_copy(args_, args);
+
+    int string_size = vsnprintf(NULL, 0, format_string, args_);
+    va_end(args_);
+    *string = malloc((string_size+1) * sizeof(char));
+    if (*string == NULL)
+        res = HONEY_MEMORY_ALLOCATION_ERROR;
+    else {
+        vsnprintf(*string, string_size+1, format_string, args);
+        res = HONEY_OK;
+    }
+    
+    va_end(args);
+    
+    return res;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+bool honey_lua_validate_types(lua_State* L,
+                              unsigned int n_types,
+                              ...)
+{
+    va_list args;
+    va_start(args, n_types);
+
+    for (int i=0; i<n_types; i++) {
+        honey_lua_type expected_type = va_arg(args, honey_lua_type);
+        honey_result result;
+        char* error_message;
+
+        switch(expected_type) {
+        case HONEY_BOOL:
+            if (!lua_isboolean(L, i+1)) {
+                result = honey_format_string(&error_message,
+                                             "Expected boolean in position %d",
+                                             i);
+                if (result != HONEY_OK)
+                    lua_pushstring(L, "Expected boolean; allocation error occurred for more detailed message.");
+                else {
+                    lua_pushstring(L, error_message);
+                    free(error_message);
+                }
+                return false;
+            }
+            break;
+            
+        case HONEY_INT:
+        case HONEY_NUM:
+            if (!lua_isnumber(L, i+1)) {
+                result = honey_format_string(&error_message,
+                                             "Expected number in position %d",
+                                             i);
+                if (result != HONEY_OK)
+                    lua_pushstring(L, "Expected number; allocation error occurred for more detailed message.");
+                else {
+                    lua_pushstring(L, error_message);
+                    free(error_message);
+                }
+                return false;
+            }
+            break;
+
+        case HONEY_STRING:
+            if (!lua_isstring(L, i+1)) {
+                result = honey_format_string(&error_message,
+                                             "Expected string in position %d",
+                                             i);
+                if (result != HONEY_OK)
+                    lua_pushstring(L, "Expected string; allocation error occurred for more detailed message.");
+                else {
+                    lua_pushstring(L, error_message);
+                    free(error_message);
+                }
+                return false;
+            }
+            break;
+
+        case HONEY_FUNC:
+            if (!lua_isfunction(L, i+1)) {
+                result = honey_format_string(&error_message,
+                                             "Expected function in position %d",
+                                             i);
+                if (result != HONEY_OK)
+                    lua_pushstring(L, "Expected function; allocation error occurred for more detailed message.");
+                else {
+                    lua_pushstring(L, error_message);
+                    free(error_message);
+                }
+                return false;
+            }
+            break;
+
+        case HONEY_TABLE:
+            if (!lua_istable(L, i+1)) {
+                result = honey_format_string(&error_message,
+                                             "Expected table in position %d",
+                                             i);
+                if (result != HONEY_OK)
+                    lua_pushstring(L, "Expected table; allocation error occurred for more detailed message.");
+                else {
+                    lua_pushstring(L, error_message);
+                    free(error_message);
+                }
+                return false;
+            }
+            break;
+            
+        case HONEY_NIL:
+            if (!lua_isnil(L, i+1)) {
+                result = honey_format_string(&error_message,
+                                             "Expected nil in position %d",
+                                             i);
+                if (result != HONEY_OK)
+                    lua_pushstring(L, "Expected nil; allocation error occurred for more detailed message.");
+                else {
+                    lua_pushstring(L, error_message);
+                    free(error_message);
+                }
+                return false;
+            }
+            break;
+
+        case HONEY_ANY:
+            break;
+
+        default:
+            break;
+        }
+    }
+
+    va_end(args);
+    return true;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
 void honey_lua_create_table(lua_State* L,
-			    honey_lua_element* elements,
-			    unsigned int n_elements)
+                            honey_lua_element* elements,
+                            unsigned int n_elements)
 {
     lua_createtable(L, 0, n_elements);
 
     for (int i=0; i<n_elements; i++) {
-	honey_lua_push_element(L, elements[i]);
-	lua_setfield(L, -2, elements[i].name);
+        honey_lua_push_element(L, elements[i]);
+        lua_setfield(L, -2, elements[i].name);
     }
 }
 
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
+ 
 void honey_lua_push_element(lua_State* L, honey_lua_element element)
 {
     switch(element.type) {
     case HONEY_INT:
-	lua_pushinteger(L, element.data.integer);
-	break;
+        lua_pushinteger(L, element.data.integer);
+        break;
 
     case HONEY_NUM:
-	lua_pushnumber(L, element.data.number);
-	break;
+        lua_pushnumber(L, element.data.number);
+        break;
 
     case HONEY_STRING:
-	lua_pushstring(L, element.data.string);
-	break;
+        lua_pushstring(L, element.data.string);
+        break;
 
     case HONEY_FUNC:
-	lua_pushcfunction(L, element.data.function);
-	break;
+        lua_pushcfunction(L, element.data.function);
+        break;
 
     case HONEY_TABLE:
-	honey_lua_create_table(L,
-			       element.data.table.elements,
-			       element.data.table.n_elements);
-	break;
+        honey_lua_create_table(L,
+                               element.data.table.elements,
+                               element.data.table.n_elements);
+        break;
 
     default:
-	// this should never happen
-	break;
+        // this should never happen
+        break;
     }
 }