begin refactor of glm functions and basic argument parsing

11 files changed, 422 insertions, 1774 deletions

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 5f02dca..0d96e64 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -15,9 +15,8 @@ add_library(stb_image src/stb_image/stb_image.c)
 
 set(SOURCE_FILES
   src/main.c
-  src/cglm_bindings.c
+  src/glm_bindings.c
   src/camera/camera.c
-  src/error/error.c
   src/honey.c
   src/input/input.c
   src/honey_lua.c
diff --git a/src/cglm_bindings.c b/src/cglm_bindings.c
deleted file mode 100644
index 947c394..0000000
--- a/src/cglm_bindings.c
+++ /dev/null
@@ -1,814 +0,0 @@
-#include "cglm_bindings.h"
-
-void honey_setup_cglm(lua_State* L)
-{
-    honey_lua_element vec3_elements[] = {
-        { "dot",       HONEY_FUNCTION, { .function = honey_cglm_vec3_dot } },
-        { "norm2",     HONEY_FUNCTION, { .function = honey_cglm_vec3_norm2 } },
-        { "norm",      HONEY_FUNCTION, { .function = honey_cglm_vec3_norm } },
-        { "add",       HONEY_FUNCTION, { .function = honey_cglm_vec3_add } },
-        { "adds",      HONEY_FUNCTION, { .function = honey_cglm_vec3_adds } },
-        { "sub",       HONEY_FUNCTION, { .function = honey_cglm_vec3_sub } },
-        { "mul",       HONEY_FUNCTION, { .function = honey_cglm_vec3_mul } },
-        { "muls",      HONEY_FUNCTION, { .function = honey_cglm_vec3_muls } },
-        { "normalize", HONEY_FUNCTION, { .function = honey_cglm_vec3_normalize } },
-        { "distance",  HONEY_FUNCTION, { .function = honey_cglm_vec3_distance } },
-        { "lerp",      HONEY_FUNCTION, { .function = honey_cglm_vec3_lerp } },
-    };
-
-    honey_lua_element vec4_elements[] = {
-        { "dot",       HONEY_FUNCTION, { .function = honey_cglm_vec4_dot } },
-        { "norm2",     HONEY_FUNCTION, { .function = honey_cglm_vec4_norm2 } },
-        { "norm",      HONEY_FUNCTION, { .function = honey_cglm_vec4_norm } },
-        { "add",       HONEY_FUNCTION, { .function = honey_cglm_vec4_add } },
-        { "adds",      HONEY_FUNCTION, { .function = honey_cglm_vec4_adds } },
-        { "sub",       HONEY_FUNCTION, { .function = honey_cglm_vec4_sub } },
-        { "mul",       HONEY_FUNCTION, { .function = honey_cglm_vec4_mul } },
-        { "muls",      HONEY_FUNCTION, { .function = honey_cglm_vec4_muls } },
-        { "normalize", HONEY_FUNCTION, { .function = honey_cglm_vec4_normalize } },
-        { "distance",  HONEY_FUNCTION, { .function = honey_cglm_vec4_distance } },
-        { "lerp",      HONEY_FUNCTION, { .function = honey_cglm_vec4_lerp } },
-    };
-
-    honey_lua_element mat3_elements[] = {
-        { "identity", HONEY_FUNCTION, { .function = honey_cglm_mat3_identity } },
-        { "mul",      HONEY_FUNCTION, { .function = honey_cglm_mat3_mul } },
-        { "muls",     HONEY_FUNCTION, { .function = honey_cglm_mat3_muls } },
-        { "mulv",     HONEY_FUNCTION, { .function = honey_cglm_mat3_mulv } },
-        { "trans",    HONEY_FUNCTION, { .function = honey_cglm_mat3_trans } },
-        { "det",      HONEY_FUNCTION, { .function = honey_cglm_mat3_det } },
-        { "trace",    HONEY_FUNCTION, { .function = honey_cglm_mat3_trace } },
-        { "inv",      HONEY_FUNCTION, { .function = honey_cglm_mat3_inv } },
-    };
-
-    honey_lua_element mat4_elements[] = {
-        { "identity", HONEY_FUNCTION, { .function = honey_cglm_mat4_identity } },
-        { "pick3",    HONEY_FUNCTION, { .function = honey_cglm_mat4_pick3 } },
-        { "mul",      HONEY_FUNCTION, { .function = honey_cglm_mat4_mul } },
-        { "muls",     HONEY_FUNCTION, { .function = honey_cglm_mat4_muls } },
-        { "mulv",     HONEY_FUNCTION, { .function = honey_cglm_mat4_mulv } },
-        { "trans",    HONEY_FUNCTION, { .function = honey_cglm_mat4_trans } },
-        { "det",      HONEY_FUNCTION, { .function = honey_cglm_mat4_det } },
-        { "trace",    HONEY_FUNCTION, { .function = honey_cglm_mat4_trace } },
-        { "inv",      HONEY_FUNCTION, { .function = honey_cglm_mat4_inv } },
-        { "inv_fast", HONEY_FUNCTION, { .function = honey_cglm_mat4_inv_fast } },
-    };
-
-    honey_lua_element affine_elements[] = {
-        { "translate", HONEY_FUNCTION, { .function = honey_cglm_translate } },
-        { "scale",     HONEY_FUNCTION, { .function = honey_cglm_scale } },
-        { "rotate",    HONEY_FUNCTION, { .function = honey_cglm_rotate } },
-    };
-
-    honey_lua_element camera_elements[] = {
-        { "perspective",  HONEY_FUNCTION, { .function = honey_cglm_perspective } },
-        { "orthographic", HONEY_FUNCTION, { .function = honey_cglm_orthographic } },
-        { "look", HONEY_FUNCTION, { .function = honey_cglm_look } },
-    };
-    
-    honey_lua_element cglm_elements[] = {
-        { "new_array_zero", HONEY_FUNCTION, { .function = honey_cglm_new_array_zero } },
-        { "set_value",      HONEY_FUNCTION, { .function = honey_cglm_array_set_value } },
-        { "get_value",      HONEY_FUNCTION, { .function = honey_cglm_array_get_value } },
-        { "copy_array",     HONEY_FUNCTION, { .function = honey_cglm_array_copy } },
-        { "vec3",           HONEY_TABLE, { .table = { 11, vec3_elements } } },
-        { "vec4",           HONEY_TABLE, { .table = { 11, vec4_elements } } },
-        { "mat3",           HONEY_TABLE, { .table = {  8, mat3_elements } } },
-        { "mat4",           HONEY_TABLE, { .table = { 10, mat4_elements } } },
-        { "affine",         HONEY_TABLE, { .table = { 3, affine_elements } } },
-        { "camera",         HONEY_TABLE, { .table = { 3, camera_elements } } },
-    };
-
-    honey_lua_create_table(L, cglm_elements, 10);
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_new_array_zero(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_INTEGER))
-        lua_error(L);
-
-    int size = lua_tointeger(L, 1);
-    
-    float* array = lua_newuserdata(L, size*sizeof(float));
-    memset(array, 0, size*sizeof(float));
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_array_set_value(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 3, HONEY_USERDATA, HONEY_INTEGER, HONEY_NUMBER))
-        lua_error(L);
-
-    float* array = lua_touserdata(L, 1);
-    int index = lua_tointeger(L, 2);
-    float value = lua_tonumber(L, 3);
-
-    array[index] = value;
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_array_get_value(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 2, HONEY_USERDATA, HONEY_INTEGER))
-        lua_error(L);
-
-    float* array = lua_touserdata(L, 1);
-    int index = lua_tointeger(L, 2);
-
-    lua_pushnumber(L, array[index]);
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_array_copy(lua_State* L) {
-    if (!honey_lua_validate_types(L, 2, HONEY_USERDATA, HONEY_INTEGER))
-        lua_error(L);
-
-    float* array = lua_touserdata(L, 1);
-    int n = lua_tointeger(L, 2);
-
-    float* copy = lua_newuserdata(L, n*sizeof(float));
-    memcpy(copy, array, n*sizeof(float));
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
- *
- * cglm vec3 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-int honey_cglm_vec3_dot(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 2, HONEY_USERDATA, HONEY_USERDATA))
-        lua_error(L);
-
-    float* a = lua_touserdata(L, 1);
-    float* b = lua_touserdata(L, 2);
-
-    float dot = glm_vec3_dot(a, b);
-    lua_pushnumber(L, dot);
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_norm2(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* v = lua_touserdata(L, 1);
-
-    float norm2 = glm_vec3_norm2(v);
-
-    lua_pushnumber(L, norm2);
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_norm(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* v = lua_touserdata(L, 1);
-
-    float norm = glm_vec3_norm(v);
-
-    lua_pushnumber(L, norm);
-    return 1;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_add(lua_State* L)
-{
-    float* a, *b, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_USERDATA, &dest);
-    glm_vec3_add(a, b, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_sub(lua_State* L)
-{
-    float* a, *b, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_USERDATA, &dest);
-    glm_vec3_sub(a, b, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_adds(lua_State* L)
-{
-    float a, *v, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_NUMBER, &a,
-                              HONEY_USERDATA, &v,
-                              HONEY_USERDATA, &dest);
-    glm_vec3_adds(v, a, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_mul(lua_State* L)
-{
-    float *a, *b, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_USERDATA, &dest);
-    glm_vec3_mul(a, b, dest);
-    return 0;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_muls(lua_State* L)
-{
-    float a, *v, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_NUMBER, &a,
-                              HONEY_USERDATA, &v,
-                              HONEY_USERDATA, &dest);
-    glm_vec3_scale(v, a, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_normalize(lua_State* L)
-{
-    float* a;
-    honey_lua_parse_arguments(L, 1, HONEY_USERDATA, &a);
-
-    glm_vec3_normalize(a);
-
-    return 0;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_distance(lua_State* L)
-{
-    float* a, *b;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b);
-
-    float distance = glm_vec3_distance(a, b);
-    lua_pushnumber(L, distance);
-
-    return 1;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec3_lerp(lua_State* L)
-{
-    float* a, *b, s, *dest;
-    honey_lua_parse_arguments(L, 4,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_NUMBER, &s,
-                              HONEY_USERDATA, &dest);
-    glm_vec3_lerp(a, b, s, dest);
-
-    return 0;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm vec4 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-int honey_cglm_vec4_dot(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 2, HONEY_USERDATA, HONEY_USERDATA))
-        lua_error(L);
-
-    float* a = lua_touserdata(L, 1);
-    float* b = lua_touserdata(L, 2);
-
-    float dot = glm_vec4_dot(a, b);
-    lua_pushnumber(L, dot);
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_norm2(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* v = lua_touserdata(L, 1);
-
-    float norm2 = glm_vec4_norm2(v);
-
-    lua_pushnumber(L, norm2);
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_norm(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* v = lua_touserdata(L, 1);
-
-    float norm = glm_vec4_norm(v);
-
-    lua_pushnumber(L, norm);
-    return 1;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_add(lua_State* L)
-{
-    float* a, *b, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_USERDATA, &dest);
-    glm_vec4_add(a, b, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_adds(lua_State* L)
-{
-    float a, *v, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_NUMBER, &a,
-                              HONEY_USERDATA, &v,
-                              HONEY_USERDATA, &dest);
-    glm_vec4_adds(v, a, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_sub(lua_State* L)
-{
-    float* a, *b, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_USERDATA, &dest);
-    glm_vec4_sub(a, b, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_mul(lua_State* L)
-{
-    float *a, *b, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_USERDATA, &dest);
-    glm_vec4_mul(a, b, dest);
-    return 0;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_muls(lua_State* L)
-{
-    float a, *v, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_NUMBER, &a,
-                              HONEY_USERDATA, &v,
-                              HONEY_USERDATA, &dest);
-    glm_vec4_scale(v, a, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_normalize(lua_State* L)
-{
-    float* a;
-    honey_lua_parse_arguments(L, 1, HONEY_USERDATA, &a);
-
-    glm_vec4_normalize(a);
-
-    return 0;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_distance(lua_State* L)
-{
-    float* a, *b;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b);
-
-    float distance = glm_vec4_distance(a, b);
-    lua_pushnumber(L, distance);
-
-    return 1;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_vec4_lerp(lua_State* L)
-{
-    float* a, *b, s, *dest;
-    honey_lua_parse_arguments(L, 4,
-                              HONEY_USERDATA, &a,
-                              HONEY_USERDATA, &b,
-                              HONEY_NUMBER, &s,
-                              HONEY_USERDATA, &dest);
-    glm_vec4_lerp(a, b, s, dest);
-
-    return 0;
-}    
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm mat3 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-int honey_cglm_mat3_identity(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    glm_mat3_identity(matrix);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_mul(lua_State* L)
-{
-    float* A, *B, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &A,
-                              HONEY_USERDATA, &B,
-                              HONEY_USERDATA, &dest);
-    glm_mat3_mul(A, B, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_muls(lua_State* L)
-{
-    float a;
-    float* M;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_NUMBER, &a,
-                              HONEY_USERDATA, &M);
-    glm_mat3_scale(M, a);
-
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_mulv(lua_State* L)
-{
-    float* M, *v, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &M,
-                              HONEY_USERDATA, &v,
-                              HONEY_USERDATA, &dest);
-    glm_mat3_mulv(M, v, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_trans(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* M = lua_touserdata(L, 1);
-
-    glm_mat3_transpose(M);
-
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_det(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* M = lua_touserdata(L, 1);
-
-    float det = glm_mat3_det(M);
-    lua_pushnumber(L, det);
-
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_trace(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* M = lua_touserdata(L, 1);
-
-    float trace = glm_mat3_trace(M);
-    lua_pushnumber(L, trace);
-
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat3_inv(lua_State* L)
-{
-    float* M, *dest;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_USERDATA, &M,
-                              HONEY_USERDATA, &dest);
-    glm_mat3_inv(M, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm mat4 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-int honey_cglm_mat4_identity(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    glm_mat4_identity(matrix);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_pick3(lua_State* L)
-{
-    float* matrix, *dest;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_USERDATA, &matrix,
-                              HONEY_USERDATA, &dest);
-    glm_mat4_pick3(matrix, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_mul(lua_State* L)
-{
-    float* A, *B, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &A,
-                              HONEY_USERDATA, &B,
-                              HONEY_USERDATA, &dest);
-    glm_mat4_mul(A, B, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_muls(lua_State* L)
-{
-    float a;
-    float* M;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_NUMBER, &a,
-                              HONEY_USERDATA, &M);
-    glm_mat4_scale(M, a);
-
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_mulv(lua_State* L)
-{
-    float* M, *v, *dest;
-    honey_lua_parse_arguments(L, 3,
-                              HONEY_USERDATA, &M,
-                              HONEY_USERDATA, &v,
-                              HONEY_USERDATA, &dest);
-    glm_mat4_mulv(M, v, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_trans(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* M = lua_touserdata(L, 1);
-
-    glm_mat4_transpose(M);
-
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_det(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* M = lua_touserdata(L, 1);
-
-    float det = glm_mat4_det(M);
-    lua_pushnumber(L, det);
-
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_trace(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 1, HONEY_USERDATA))
-        lua_error(L);
-
-    float* M = lua_touserdata(L, 1);
-
-    float trace = glm_mat4_trace(M);
-    lua_pushnumber(L, trace);
-
-    return 1;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_inv(lua_State* L)
-{
-    float* M, *dest;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_USERDATA, &M,
-                              HONEY_USERDATA, &dest);
-    glm_mat4_inv(M, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_mat4_inv_fast(lua_State* L)
-{
-    float* M, *dest;
-    honey_lua_parse_arguments(L, 2,
-                              HONEY_USERDATA, &M,
-                              HONEY_USERDATA, &dest);
-    glm_mat4_inv_fast(M, dest);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm 3d affine transforms
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-int honey_cglm_translate(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 2, HONEY_USERDATA, HONEY_USERDATA))
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    float* vector = lua_touserdata(L, 2);
-
-    glm_translate(matrix, vector);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_scale(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 2, HONEY_USERDATA, HONEY_USERDATA))
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    float* vector = lua_touserdata(L, 2);
-
-    glm_scale(matrix, vector);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_rotate(lua_State* L) {
-    if (!honey_lua_validate_types(L, 4,
-                                  HONEY_USERDATA, HONEY_USERDATA,
-                                  HONEY_USERDATA, HONEY_NUMBER))
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    float* center = lua_touserdata(L, 2);
-    float* axis   = lua_touserdata(L, 3);
-    float angle   = lua_tonumber(L, 4);
-
-    glm_rotate_at(matrix, center, angle, axis);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm camera matrix functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-int honey_cglm_perspective(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 5,
-                                  HONEY_USERDATA,
-                                  HONEY_NUMBER, HONEY_NUMBER,
-                                  HONEY_NUMBER, HONEY_NUMBER))
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    float fov     = lua_tonumber(L, 2);
-    float aspect  = lua_tonumber(L, 3);
-    float near    = lua_tonumber(L, 4);
-    float far     = lua_tonumber(L, 5);
-
-    glm_perspective(fov, aspect, near, far, matrix);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_orthographic(lua_State* L)
-{
-    if (!honey_lua_validate_types(L, 5,
-                                  HONEY_USERDATA,
-                                  HONEY_USERDATA,
-                                  HONEY_USERDATA))
-                                  
-        lua_error(L);
-
-    float* matrix = lua_touserdata(L, 1);
-    float* a = lua_touserdata(L, 2);
-    float* b = lua_touserdata(L, 3);
-
-    float* box[] = { a, b };
-    
-    glm_ortho_aabb(box, matrix);
-    return 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-int honey_cglm_look(lua_State* L)
-{
-    float *position, *direction, *up, *dest;
-    honey_lua_parse_arguments(L, 4,
-                              HONEY_USERDATA, &position,
-                              HONEY_USERDATA, &direction,
-                              HONEY_USERDATA, &up,
-                              HONEY_USERDATA, &dest);
-    glm_look(position, direction, up, dest);
-    return 0;
-}
diff --git a/src/cglm_bindings.h b/src/cglm_bindings.h
deleted file mode 100644
index 61554e3..0000000
--- a/src/cglm_bindings.h
+++ /dev/null
@@ -1,543 +0,0 @@
-#ifndef HONEY_CGLM_BINDINGS_H
-#define HONEY_CGLM_BINDINGS_H
-
-/** @file cglm_bindings.h
- * @brief Lua bindings for CGLM functions. 
- */
-
-#include "common.h"
-
-/** @brief Push the honey cglm binding functions to the lua stack.
- *
- * @returns Nothing.
- */
-void honey_setup_cglm(lua_State* L);
-
-/** @brief Push a new float array to the lua stack.
- *
- * This function initializes the array to all zeros.
- *
- * @param[in] n The size of the floating-point array to create.
- *
- * @returns The vector so generated.
- */
-int honey_cglm_new_array_zero(lua_State* L);
-
-/** @brief Set an element of a float array.
- *
- * This function does NOT check if your index is out of bounds.
- * Use caution!
- *
- * @param[in] array The array to modify.
- * @param[in] index The index to set.
- * @param[in] value The value to set array[index] to.
- *
- * @returns Nothing.
- */
-int honey_cglm_array_set_value(lua_State* L);
-
-/** @brief Get an element of a vec3.
- *
- * This function does NOT check if your index is out of bounds.
- * Use caution!
- *
- * @param[in] array The array to inspect.
- * @param[in] index The index to get.
- *
- * @returns The value at array[index].
- */
-int honey_cglm_array_get_value(lua_State* L);
-
-/** @brief Create a copy of a floating point array.
- *
- * @param[in] array The array to copy.
- * @param[in] n The size of the array.
- *
- * @returns A copy of the array.
- */
-int honey_cglm_array_copy(lua_State* L);
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
- *
- * cglm vec3 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-/** @brief Compute the dot product of two vectors.
- *
- * @param[in] a Vector a.
- * @param[in] b Vector b.
- *
- * @returns dot(a,b).
- */
-int honey_cglm_vec3_dot(lua_State* L);
-
-/** @brief Compute the square of the norm of a vector.
- *
- * Use this if you are tempted to compute norm*norm;
- * it avoids the two calls to sqrt.
- *
- * @param[in] v The vector to compute norm^2 for.
- *
- * @returns norm(v)^2.
- */
-int honey_cglm_vec3_norm2(lua_State* L);
-
-/** @brief Compute the norm of a vector.
- *
- * @param[in] v The vector.
- *
- * @returns norm(v).
- */
-int honey_cglm_vec3_norm(lua_State* L);
-
-/** @brief Add two vectors together.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[out] dest vec3 to fill with a + b.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_add(lua_State* L);
-
-/** @brief Subtract one vector from another.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[out] dest Vector to fill with a - b
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_sub(lua_State* L);
-
-/** @brief Add a scalar to a vector.
- *
- * @param[in] a The scalar.
- * @param[in] v The vector.
- * @param[out] dest vec3 to fill with a + v
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_adds(lua_State* L);
-
-/** @param Component-wise multiply two vectors together.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[out] dest vec3 to fill with [ a.x*b.x, a.y*b.y, a.z*b.z, a.w*b.w ]
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_mul(lua_State* L);
-
-/** @brief Multiply a vector by a scalar.
- *
- * @param[in] a The scalar.
- * @param[in] v The vector.
- * @param[out] dest vec3 to fill with a*v.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_muls(lua_State* L);
-
-/** @brief Normalize a vector.
- *
- * @param[in,out] v The vector.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_normalize(lua_State* L);
-
-/** @brief Compute the distance between two vectors.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- *
- * @returns norm(a-b).
- */
-int honey_cglm_vec3_distance(lua_State* L);
-
-/** @brief Linearly interpolate between two values.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[in] s A scalar.
- * @param[out] dest vec3 to fill with a + s*(b-s).
- *
- * @returns Nothing.
- */
-int honey_cglm_vec3_lerp(lua_State* L);
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm vec4 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-/** @brief Compute the dot product of two vectors.
- *
- * @param[in] a Vector a.
- * @param[in] b Vector b.
- *
- * @returns dot(a,b).
- */
-int honey_cglm_vec4_dot(lua_State* L);
-
-/** @brief Compute the square of the norm of a vector.
- *
- * Use this if you are tempted to compute norm*norm;
- * it avoids the two calls to sqrt.
- *
- * @param[in] v The vector to compute norm^2 for.
- *
- * @returns norm(v)^2.
- */
-int honey_cglm_vec4_norm2(lua_State* L);
-
-/** @brief Compute the norm of a vector.
- *
- * @param[in] v The vector.
- *
- * @returns norm(v).
- */
-int honey_cglm_vec4_norm(lua_State* L);
-
-/** @brief Add two vectors together.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[out] dest vec4 to fill with a + b.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_add(lua_State* L);
-
-/** @brief Add a scalar to a vector.
- *
- * @param[in] a The scalar.
- * @param[in] v The vector.
- * @param[out] dest vec4 to fill with a + v
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_adds(lua_State* L);
-
-/** @brief Subtract one vector from another.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[out] dest vec4 to fill with a - b.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_sub(lua_State* L);
-
-/** @param Component-wise multiply two vectors together.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[out] dest vec4 to fill with [ a.x*b.x, a.y*b.y, a.z*b.z, a.w*b.w ]
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_mul(lua_State* L);
-
-/** @brief Multiply a vector by a scalar.
- *
- * @param[in] a The scalar.
- * @param[in] v The vector.
- * @param[out] dest vec4 to fill with a*v.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_muls(lua_State* L);
-
-/** @brief Normalize a vector.
- *
- * @param[in,out] v The vector.
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_normalize(lua_State* L);
-
-/** @brief Compute the distance between two vectors.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- *
- * @returns norm(a-b).
- */
-int honey_cglm_vec4_distance(lua_State* L);
-
-/** @brief Linearly interpolate between two values.
- *
- * @param[in] a The first vector.
- * @param[in] b The second vector.
- * @param[in] s A scalar.
- * @param[out] dest vec4 to fill with a + s*(b-s).
- *
- * @returns Nothing.
- */
-int honey_cglm_vec4_lerp(lua_State* L);
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm mat3 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-/** @brief Set a matrix to be the identity matrix.
- *
- * @param[out] matrix The matrix to set to the identity.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat3_identity(lua_State* L);
-
-/** @brief Multiply two mat3s together.
- *
- * @param[in] A The first matrix.
- * @param[in] B The second matrix.
- * @param[out] dest mat3 to fill with A*B.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat3_mul(lua_State* L);
-
-/** @brief Multiply a matrix by a scalar.
- *
- * @param[in] a The scalar.
- * @param[in,out] M The matrix.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat3_muls(lua_State* L);
-
-/** @brief Multiply a matrix by a column vector.
- *
- * @param[in] M The matrix.
- * @param[in] v The column vector.
- * @param[out] dest Matrix to fill with M*v.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat3_mulv(lua_State* L);
-
-/** @brief Transpose a matrix.
- *
- * @param[in,out] M The matrix to transpose.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat3_trans(lua_State* L);
-
-/** @brief Get the determinant of a matrix.
- *
- * @param[in] M The matrix.
- *
- * @returns det(M).
- */
-int honey_cglm_mat3_det(lua_State* L);
-
-/** @brief Get the trace of a matrix.
- *
- * @param[in] M The matrix.
- *
- * @returns trace(M).
- */
-int honey_cglm_mat3_trace(lua_State* L);
-
-/** @brief Get the inverse of a matrix.
- *
- * @param[in] M The matrix to invert.
- * @param[out] dest Matrix to fill with inv(M).
- *
- * @returns Nothing.
- */
-int honey_cglm_mat3_inv(lua_State* L);
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm mat4 functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-/** @brief Set a matrix to be the identity matrix.
- *
- * @param[out] matrix The matrix to set to the identity.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_identity(lua_State* L);
-
-/** @brief Get the upper left of a matrix as a mat3.
- *
- * @param[in] matrix The matrix to extract.
- * @param[out] dest The 3x3 matrix to fill.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_pick3(lua_State* L);
-
-/** @brief Multiply two mat4s together.
- *
- * @param[in] A The first matrix.
- * @param[in] B The second matrix.
- * @param[out] dest mat4 to fill with A*B.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_mul(lua_State* L);
-
-/** @brief Multiply a matrix by a scalar.
- *
- * @param[in] a The scalar.
- * @param[in,out] M The matrix.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_muls(lua_State* L);
-
-/** @brief Multiply a matrix by a column vector.
- *
- * @param[in] M The matrix.
- * @param[in] v The column vector.
- * @param[out] dest Matrix to fill with M*v.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_mulv(lua_State* L);
-
-/** @brief Transpose a matrix.
- *
- * @param[in,out] M The matrix to transpose.
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_trans(lua_State* L);
-
-/** @brief Get the determinant of a matrix.
- *
- * @param[in] M The matrix.
- *
- * @returns det(M).
- */
-int honey_cglm_mat4_det(lua_State* L);
-
-/** @brief Get the trace of a matrix.
- *
- * @param[in] M The matrix.
- *
- * @returns trace(M).
- */
-int honey_cglm_mat4_trace(lua_State* L);
-
-/** @brief Get the inverse of a matrix.
- *
- * This is the precise version; use honey_cglm_mat4_inv_fast
- * for a faster but less precise version.
- *
- * @param[in] M The matrix to invert.
- * @param[out] dest Matrix to fill with inv(M).
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_inv(lua_State* L);
-
-/** @brief Get the inverse of a matrix.
- *
- * This is the fast version; use honey_cglm_mat4_inv
- * for a slower but more precise version.
- *
- * @param[in] M The matrix to invert.
- * @param[out] dest Matrix to fill with inv(M).
- *
- * @returns Nothing.
- */
-int honey_cglm_mat4_inv_fast(lua_State* L);
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm 3d affine transforms
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-/** @brief Translate a matrix by a vector.
- *
- * This function modifies the matrix in place.
- *
- * @param[in,out] matrix The mat4 to translate.
- * @param[in] vector The vec3 to translate by.
- *
- * @returns Nothing.
- */
-int honey_cglm_translate(lua_State* L);
-
-/** @brief Scale a matrix by a vector.
- *
- * @param[in,out] matrix The mat4 to scale.
- * @param[in] vector The vec3 to scale by.
- *
- * @returns Nothing.
- */
-int honey_cglm_scale(lua_State* L);
-
-/** @brief Rotate a matrix about a given axis.
- *
- * @param[in,out] matrix The mat4 to rotate.
- * @param[in] center The vec3 center of rotation.
- * @param[in] axis The vec3 axis of rotation.
- * @param[in] angle The angle to rotate by.
- *
- * @returns Nothing.
- */
-int honey_cglm_rotate(lua_State* L);
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- *
- * cglm camera matrix functions
- *
- * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- */
-
-/** @brief Put perspective projection matrix into float array.
- *
- * @param[out] matrix The mat4 to populate.
- * @param[in] fov The FOV for the camera.
- * @param[in] aspect The aspect ratio to use with the camera.
- * @param[in] near Distance to the near clipping plane.
- * @param[in] far Distance to the far clipping plane.
- *
- * @returns Nothing.
- */
-int honey_cglm_perspective(lua_State* L);
-
-/** @brief Put an orthographic projection matrix into float array.
- *
- * @param[out] matrix The mat4 to populate.
- * @param[in] a The first vector of the AABB bounding box.
- * @param[in] b The second vector of the AABB bounding box.
- *
- * @returns Nothing.
- */
-int honey_cglm_orthographic(lua_State* L);
-
-/** @brief Compute the view matrix.
- *
- * @param[in] position The camera's vec3 position.
- * @param[in] direction The vec3 direction the camera is facing.
- * @param[in] up The camera's vec3 up vector.
- * @param[out] dest The view matrix destination.
- *
- * @returns Nothing.
- */
-int honey_cglm_look(lua_State* L);
-
-
-#endif
diff --git a/src/common.h b/src/common.h
index 556304f..6ae1c40 100644
--- a/src/common.h
+++ b/src/common.h
@@ -72,40 +72,25 @@ typedef enum {
   HONEY_N_ERRORS
 } honey_result;
 
-#define HONEY_ERROR_DATA_STRING_LENGTH 4096
-
-static struct {
-  char string1[HONEY_ERROR_DATA_STRING_LENGTH];
-  char string2[HONEY_ERROR_DATA_STRING_LENGTH];
-} honey_error_data;
-
-void honey_error_clear_strings();
-void honey_error_set_string1(char* string);
-void honey_error_set_string2(char* string);
-
-/** @brief Generate a human-readable error message.
- *
- * @param[out] error_string A string with at least 3*HONEY_ERROR_DATA_STRING_LENGTH characters to store the result
- * @param[in] error The error to generate a message for
- */
-void honey_human_readable_error(char* error_string, honey_result error);
+honey_result honey_format_string(char** string,
+                                 char* format_string,
+                                 ...);
 
-/** @brief Generate a string from a format string.
+/** @brief Throw an error with a string generated by a printf format string.
  *
- * This function allocates memory for the destination; the user is
- * responsible for deallocating it. As a side effect of this, the destination
- * pointer cannot overlap with any of the varargs.
+ * This function attempts to create a string from the given format string; 
+ * if an error should occur, it will instead throw a lua error with the appropriate
+ * message. 
  *
- * @param[out] string Pointer to the destination string.
- * @param[in] format_string The format string used to generate the result.
+ * @param[in] L The Lua state to throw an error from.
+ * @param[in] format_string The format string used to generate the error message.
  * @param[in] ... The arguments for the format string.
  *
- * @returns HONEY_OK on success; HONEY_MEMORY_ALLOCATION_ERROR on a
- * memory allocation error.
+ * @returns Nothing.
  */
-honey_result honey_format_string(char** string,
-                                 char* format_string,
-                                 ...);
+void honey_lua_throw_error(lua_State* L,
+			   char* format_string,
+			   ...);
 
 /* lua binding functions */
 
@@ -122,35 +107,37 @@ typedef enum {
     HONEY_ANY
 } honey_lua_type;
 
+typedef struct {
+    honey_lua_type type;
+    void* ptr;
+} honey_lua_argument_pair;
+
 /** @brief Get arguments from a function, checking to ensure the types match.
  *
- * If a function should accept a variable list of arguments, but you still wish to ensure
- * correct types, use honey_lua_validate_types() and throw an error only if all of your
- * possiblities fail to match.
+ * Each argument type should be specified as [# of args], type, ptr, type, ptr...,
+ * e.g.
+ * ```
+ * honey_lua_parse_arguments(L, 3, 
+ *     // option 0
+ *     2, HONEY_INTEGER, &a, HONEY_INTEGER, &b,
+ *     // option 1
+ *     1, HONEY_INTEGER, &a,
+ *     // option 2
+ *     0);
+ * ```
  *
  * Note that this function will check for correct types of HONEY_TABLE, HONEY_NIL, and
  * HONEY_FUNCTION, but does not expect a pointer to them. It performs no check for 
  * HONEY_ANY, and also does not expect a pointer.
  *
  * @param[in] L The lua state to parse arguments from.
- * @param[in] n The number of arguments to parse.
- * @param[in] ... Variadic list of alternating types and pointers to store the type.
- *
- * @returns Nothing, but throws a lua_error if a type mismatch is detected.
- */
-void honey_lua_parse_arguments(lua_State* L, int n, ...);
-
-
-/** @brief Check that a functions' arguments are of the correct type.
- *
- * @param[in] L The lua state to validate.
- * @param[in] n_types The number of types to validate.
- * @param[in] ... Variadic list of honey_lua_types to validate against the stack.
+ * @param[in] n The number of argument options to parse.
+ * @param[in] ... Variadic list of argument options.
  *
- * @returns true if the validation was successful; false otherwise, pushing an error message
- * to the lua stack.
+ * @returns The zero-indexed index of the actual argument option used. Throws an
+ * error if no options matched the provided arguments.
  */
-bool honey_lua_validate_types(lua_State* L, unsigned int n_types, ...);
+int honey_lua_parse_arguments(lua_State* L, int n, ...);
 
 /** @brief Wrap C objects for lua. */
 typedef struct honey_lua_element {
diff --git a/src/error/error.c b/src/error/error.c
deleted file mode 100644
index 671d34e..0000000
--- a/src/error/error.c
+++ /dev/null
@@ -1,126 +0,0 @@
-#include "../common.h"
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-void honey_error_clear_strings() {
-  memset(honey_error_data.string1, 0, HONEY_ERROR_DATA_STRING_LENGTH);
-  memset(honey_error_data.string2, 0, HONEY_ERROR_DATA_STRING_LENGTH);
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-void honey_error_set_string1(char* string) {
-  size_t n_bytes = strlen(string) + 1;
-  if (n_bytes > HONEY_ERROR_DATA_STRING_LENGTH)
-    n_bytes = HONEY_ERROR_DATA_STRING_LENGTH;
-  memcpy(honey_error_data.string1, string, n_bytes);
-  honey_error_data.string1[HONEY_ERROR_DATA_STRING_LENGTH-1] = 0;
-}
-
-void honey_error_set_string2(char* string) {
-  size_t n_bytes = strlen(string) + 1;
-  if (n_bytes > HONEY_ERROR_DATA_STRING_LENGTH)
-    n_bytes = HONEY_ERROR_DATA_STRING_LENGTH;
-  memcpy(honey_error_data.string2, string, n_bytes);
-  honey_error_data.string2[HONEY_ERROR_DATA_STRING_LENGTH-1] = 0;
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-void honey_human_readable_error(char* error_string, honey_result error) {
-  size_t string_size = sizeof(char)*3*HONEY_ERROR_DATA_STRING_LENGTH;
-    
-  switch(error) {
-  case HONEY_OK:
-    snprintf(error_string, string_size, "[honey] OK");
-    break;
-
-  case HONEY_MEMORY_ALLOCATION_ERROR:
-    snprintf(error_string, string_size, "[honey] ERROR: failed to allocate memory");
-    break;
-
-  case HONEY_FILE_READ_ERROR:
-    if (honey_error_data.string1 != NULL) {
-      snprintf(error_string,
-               string_size,
-               "[honey] ERROR: failed to read file '%s'",
-               honey_error_data.string1);
-    } else {
-      snprintf(error_string, string_size, "[honey] ERROR: failed to read file");
-    }
-    break;
-
-  case HONEY_VERTEX_SHADER_COMPILATION_ERROR:
-    if (honey_error_data.string1 != NULL) {
-      if (honey_error_data.string2 != NULL) {
-        snprintf(error_string,
-                 string_size,
-                 "[honey] ERROR: failed to compile vertex shader '%s'\n"
-                 "[honey] GLSL compiler output:\n%s\n",
-                 honey_error_data.string2,
-                 honey_error_data.string1);
-      } else {
-        snprintf(error_string,
-                 string_size,
-                 "[honey] ERROR: failed to compile vertex shader\n"
-                 "[honey] GLSL compiler output:\n%s\n",
-                 honey_error_data.string1);
-      }
-    } else {
-      snprintf(error_string,
-               string_size,
-               "[honey] ERROR: failed to compile vertex shader.");
-    }
-    break;
-
-
-  case HONEY_FRAGMENT_SHADER_COMPILATION_ERROR:
-    if (honey_error_data.string1 != NULL) {
-      if (honey_error_data.string2 != NULL) {
-        snprintf(error_string,
-                 string_size,
-                 "[honey] ERROR: failed to compile fragment shader '%s'\n"
-                 "[honey] GLSL compiler output:\n%s\n",
-                 honey_error_data.string2,
-                 honey_error_data.string1);
-      } else {
-        snprintf(error_string,
-                 string_size,
-                 "[honey] ERROR: failed to compile fragment shader\n"
-                 "[honey] GLSL compiler output:\n%s\n",
-                 honey_error_data.string1);
-      }
-    } else {
-      snprintf(error_string,
-               string_size,
-               "[honey] ERROR: failed to compile fragment shader.");
-    }
-    break;
-        
-  case HONEY_SHADER_LINK_ERROR:
-    break;
-    
-  case HONEY_MESH_BAD_VERTEX_DATA:
-    break;
-    
-  case HONEY_MESH_BAD_INDEX_DATA:
-    break;
-
-  case HONEY_MODEL_LOAD_ERROR:
-    snprintf(error_string,
-             string_size,
-             "[honey] ERROR: model '%s' contains errors",
-             honey_error_data.string1);
-    break;
-
-  default:
-    break;
-  }
-}
-    
-
-    
-    
-    
-    
-    
diff --git a/src/error/error.h b/src/error/error.h
deleted file mode 100644
index e456c88..0000000
--- a/src/error/error.h
+++ /dev/null
@@ -1,7 +0,0 @@
-#ifndef HONEY_ERROR_H
-#define HONEY_ERROR_H
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-  
-#endif
diff --git a/src/glm_bindings.c b/src/glm_bindings.c
new file mode 100644
index 0000000..cfd85e5
--- /dev/null
+++ b/src/glm_bindings.c
@@ -0,0 +1,94 @@
+#include "glm_bindings.h"
+
+int honey_glm_vec3_mt_ref = LUA_NOREF;
+int honey_glm_vec4_mt_ref = LUA_NOREF;
+int honey_glm_mat3_mt_ref = LUA_NOREF;
+int honey_glm_mat4_mt_ref = LUA_NOREF;
+
+void honey_setup_glm(lua_State* L)
+{
+    honey_lua_create_table(L, NULL, 0);
+}
+
+/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * GLM Array Setup Functions
+ *
+ *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+static void setup_new_array(lua_State* L,
+			    honey_glm_array* array,
+			    honey_glm_array_type type)
+{
+    unsigned int size;
+    switch(type) {
+    case VEC3:
+	size = 3;
+	break;
+
+    case VEC4:
+	size = 4;
+	break;
+
+    case MAT3:
+	size = 9;
+	break;
+
+    case MAT4:
+	size = 16;
+	break;
+
+    default:
+	honey_lua_throw_error(L,
+			      "unknown array type: %d",
+			      type);
+	break;
+    }
+
+    array->type = type;
+    array->size = size;
+    array->data = calloc(size, sizeof(float));
+    if (array->data == NULL)
+	honey_lua_throw_error(L,
+			      "failed to allocate memory for array of type %d",
+			      type);
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+static int honey_glm_new_vec3(lua_State* L)
+{
+    honey_glm_array* vec3 = lua_newuserdata(L, sizeof(honey_glm_array));
+    setup_new_array(L, vec3, VEC3);
+    lua_rawgeti(L, LUA_REGISTRYINDEX, honey_glm_vec3_mt_ref);
+    lua_setmetatable(L, -2);
+    return 1;
+}
+
+static int honey_glm_new_vec4(lua_State* L)
+{
+    honey_glm_array* vec4 = lua_newuserdata(L, sizeof(honey_glm_array));
+    setup_new_array(L, vec4, VEC4);
+    lua_rawgeti(L, LUA_REGISTRYINDEX, honey_glm_vec4_mt_ref);
+    lua_setmetatable(L, -2);
+    return 1;
+}
+
+static int honey_glm_new_mat3(lua_State* L)
+{
+    honey_glm_array* mat3 = lua_newuserdata(L, sizeof(honey_glm_array));
+    setup_new_array(L, mat3, MAT3);
+    lua_rawgeti(L, LUA_REGISTRYINDEX, honey_glm_mat3_mt_ref);
+    lua_setmetatable(L, -2);
+    return 1;
+}
+
+static int honey_glm_new_mat4(lua_State* L)
+{
+    honey_glm_array* mat4 = lua_newuserdata(L, sizeof(honey_glm_array));
+    setup_new_array(L, mat4, MAT4);
+    lua_rawgeti(L, LUA_REGISTRYINDEX, honey_glm_mat4_mt_ref);
+    lua_setmetatable(L, -2);
+    return 1;
+}
diff --git a/src/glm_bindings.h b/src/glm_bindings.h
new file mode 100644
index 0000000..d47f153
--- /dev/null
+++ b/src/glm_bindings.h
@@ -0,0 +1,33 @@
+#ifndef HONEY_GLM_BINDINGS_H
+#define HONEY_GLM_BINDINGS_H
+
+/** @file glm_bindings.h
+ * @brief Lua bindings for GLM functions. 
+ */
+
+#include "common.h"
+
+extern int honey_glm_vec3_mt_ref;
+extern int honey_glm_vec4_mt_ref;
+extern int honey_glm_mat3_mt_ref;
+extern int honey_glm_mat4_mt_ref;
+
+typedef enum { VEC3,
+	       VEC4,
+	       MAT3,
+	       MAT4
+} honey_glm_array_type;
+
+typedef struct {
+  honey_glm_array_type type;
+  unsigned int size;
+  float* data;
+} honey_glm_array;
+
+/** @brief Push the honey glm binding functions to the lua stack.
+ *
+ * @returns Nothing.
+ */
+void honey_setup_glm(lua_State* L);
+
+#endif
diff --git a/src/honey.c b/src/honey.c
index 4ffb83f..673cd49 100644
--- a/src/honey.c
+++ b/src/honey.c
@@ -122,8 +122,8 @@ bool honey_setup(lua_State** L)
     honey_setup_input(*L);
     lua_setfield(*L, -2, "input");
 
-    honey_setup_cglm(*L);
-    lua_setfield(*L, -2, "cglm");
+    honey_setup_glm(*L);
+    lua_setfield(*L, -2, "glm");
 
     honey_setup_shader(*L);
     lua_setfield(*L, -2, "shader");
diff --git a/src/honey.h b/src/honey.h
index 5a2e6c2..0ca3d52 100644
--- a/src/honey.h
+++ b/src/honey.h
@@ -9,7 +9,7 @@
 #include "common.h"
 
 #include "camera/camera.h"
-#include "cglm_bindings.h"
+#include "glm_bindings.h"
 #include "input/input.h"
 #include "light/light.h"
 #include "mesh/mesh.h"
diff --git a/src/honey_lua.c b/src/honey_lua.c
index f427969..7730809 100644
--- a/src/honey_lua.c
+++ b/src/honey_lua.c
@@ -1,6 +1,31 @@
 #include "common.h"
 
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Lua binding helper function definitions
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+/* string must be able to hold at least 16 characters. */
+static void type_to_string(char* string,
+			   honey_lua_type type);
+
+static bool check_argument(lua_State* L,
+			   honey_lua_type type,
+			   int index);
+
+static void get_argument(lua_State* L,
+			 void* destination,
+			 honey_lua_type type,
+			 int index);
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * String wrangling helpers
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
 
 honey_result honey_format_string(char** string,
                                  char* format_string,
@@ -28,13 +53,46 @@ honey_result honey_format_string(char** string,
 
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
 
+void honey_lua_throw_error(lua_State* L,
+			   char* format_string,
+			   ...)
+{
+    honey_result result;
+    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_);
+
+    char* string = malloc((string_size + 1) * sizeof(char));
+    if (string == NULL)
+	lua_pushstring(L, "there was an error allocating memory for an error message");
+    else {
+	vsnprintf(string, string_size + 1, format_string, args);
+	lua_pushstring(L, string);
+	free(string);
+    }
+    lua_error(L);
+}
+    
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Argument parsing functions
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
 static void honey_lua_arg_error(lua_State* L,
-                                char* expected_type,
+                                honey_lua_type type,
                                 int position)
 {
+    char expected_type[16];
+    type_to_string(expected_type, type);
+    
     char* error_message;
     honey_result result;
-    char* got_type = lua_typename(L, lua_type(L, position));
+    char* got_type = (char*) lua_typename(L, lua_type(L, position));
     result = honey_format_string(&error_message,
                                  "bad argument in position %d: "
                                  "expected %s, but got %s instead.",
@@ -53,245 +111,29 @@ static void honey_lua_arg_error(lua_State* L,
 
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
 
-void honey_lua_parse_arguments(lua_State* L, int n, ...)
+int honey_lua_parse_arguments(lua_State* L, int n, ...)
 {
     va_list args;
     va_start(args, n);
 
     for (int i=1; i<=n; i++) {
-        honey_lua_type expected_type = va_arg(args, honey_lua_type);
-
-        switch (expected_type) {
-        case HONEY_BOOLEAN:
-            if (!lua_isboolean(L, i))
-                honey_lua_arg_error(L, "boolean", i);
-            {
-                bool* result = va_arg(args, bool*);
-                *result = lua_toboolean(L, i);
-            }
-            break;
-
-        case HONEY_INTEGER:
-            if (!lua_isnumber(L, i))
-                honey_lua_arg_error(L, "integer", i);
-            {
-                int* result = va_arg(args, int*);
-                *result = lua_tointeger(L, i);
-            }
-            break;
-
-        case HONEY_NUMBER:
-            if (!lua_isnumber(L, i))
-                honey_lua_arg_error(L, "number", i);
-            {
-                float* result = va_arg(args, float*);
-                *result = lua_tonumber(L, i);
-            }
-            break;
-
-        case HONEY_STRING:
-            if (!lua_isstring(L, i))
-                honey_lua_arg_error(L, "string", i);
-            {
-                char** result = va_arg(args, char**);
-                *result = lua_tostring(L, i);
-            }
-            break;
-            
-        case HONEY_TABLE:
-            if (!lua_istable(L, i))
-                honey_lua_arg_error(L, "table", i);
-            break;
-
-        case HONEY_FUNCTION:
-            if (!lua_isfunction(L, i))
-                honey_lua_arg_error(L, "function", i);
-            break;
-
-        case HONEY_NIL:
-            if (!lua_isnil(L, i))
-                honey_lua_arg_error(L, "nil", i);
-            break;
-
-        case HONEY_USERDATA:
-            if (!lua_isuserdata(L, i))
-                honey_lua_arg_error(L, "userdata", i);
-            {
-                void** result = va_arg(args, void**);
-                *result = lua_touserdata(L, i);
-            }
-            break;
-
-        case HONEY_LIGHTUSERDATA:
-            if (!lua_isuserdata(L, i))
-                honey_lua_arg_error(L, "light userdata", i);
-            {
-                void** result = va_arg(args, void**);
-                *result = lua_touserdata(L, i);
-            }
-            break;
-
-        case HONEY_ANY:
-            break;
-
-        default:
-            /* should never get here! */
-            break;
-        }
-    }
-            
-    va_end(args);
-}
+        honey_lua_type type = va_arg(args, honey_lua_type);
+	void* destination = va_arg(args, void*);
+	if (!check_argument(L, type, i))
+	    honey_lua_arg_error(L, type, i);
 
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-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_BOOLEAN:
-            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_INTEGER:
-        case HONEY_NUMBER:
-            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_FUNCTION:
-            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_USERDATA:
-            if (!lua_isuserdata(L, i+1)) {
-                result = honey_format_string(&error_message,
-                                             "Expected userdata in position %d",
-                                             i);
-                if (result != HONEY_OK)
-                    lua_pushstring(L, "Expected userdata; allocation error occurred for more detailed message.");
-                else {
-                    lua_pushstring(L, error_message);
-                    free(error_message);
-                }
-                return false;
-            }
-            break;
-
-        case HONEY_LIGHTUSERDATA:
-            if (!lua_islightuserdata(L, i+1)) {
-                result = honey_format_string(&error_message,
-                                             "Expected C pointer in position %d",
-                                             i);
-                if (result != HONEY_OK)
-                    lua_pushstring(L, "Expected C pointer; 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;
-        }
+	get_argument(L, destination, type, i);
     }
-
+            
     va_end(args);
-    return true;
 }
 
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Table creation functions
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
 
 void honey_lua_create_table(lua_State* L,
                             honey_lua_element* elements,
@@ -407,3 +249,186 @@ int honey_exit(lua_State* L)
     glfwSetWindowShouldClose(info->window, true);
     return 0;
 }
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Lua binding helper functions
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+/* string must be able to hold at least 16 characters. */
+static void type_to_string(char* string,
+			   honey_lua_type type)
+{
+    switch(type) {
+    case HONEY_BOOLEAN:
+	memcpy(string, "boolean", 8);
+	break;
+
+    case HONEY_INTEGER:
+	memcpy(string, "integer", 8);
+	break;
+
+    case HONEY_NUMBER:
+	memcpy(string, "number", 7);
+	break;
+
+    case HONEY_STRING:
+	memcpy(string, "string", 7);
+	break;
+
+    case HONEY_FUNCTION:
+	memcpy(string, "function", 9);
+	break;
+
+    case HONEY_TABLE:
+	memcpy(string, "table", 6);
+	break;
+
+    case HONEY_NIL:
+	memcpy(string, "nil", 4);
+	break;
+
+    case HONEY_USERDATA:
+	memcpy(string, "userdata", 9);
+	break;
+
+    case HONEY_LIGHTUSERDATA:
+	memcpy(string, "light userdata", 16);
+	break;
+
+    case HONEY_ANY:
+	memcpy(string, "any", 4);
+	break;
+
+    default:
+	break;
+    }
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+static bool check_argument(lua_State* L,
+			   honey_lua_type type,
+			   int index)
+{
+    switch(type) {
+    case HONEY_BOOLEAN:
+	if (!lua_isboolean(L, index))
+	    return false;
+	break;
+
+    case HONEY_INTEGER:
+    case HONEY_NUMBER:
+	if (!lua_isnumber(L, index))
+	    return false;
+	break;
+
+    case HONEY_STRING:
+	if (!lua_isstring(L, index))
+	    return false;
+	break;
+
+    case HONEY_FUNCTION:
+	if (!lua_isfunction(L, index))
+	    return false;
+	break;
+
+    case HONEY_TABLE:
+	if (!lua_istable(L, index))
+	    return false;
+	break;
+
+    case HONEY_NIL:
+	if (!lua_isnil(L, index))
+	    return false;
+	break;
+
+    case HONEY_USERDATA:
+	if (!lua_isuserdata(L, index))
+	    return false;
+	break;
+
+    case HONEY_LIGHTUSERDATA:
+	if (!lua_islightuserdata(L, index))
+	    return false;
+	break;
+
+    default:
+	break;
+    }
+
+
+    return true;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+static void get_argument(lua_State* L,
+			 void* destination,
+			 honey_lua_type type,
+			 int index)
+{
+    switch (type) {
+    case HONEY_BOOLEAN:
+	{
+	    bool* result = destination;
+	    *result = lua_toboolean(L, index);
+	}
+	break;
+
+    case HONEY_INTEGER:
+	{
+	    int* result = destination;
+	    *result = lua_tointeger(L, index);
+	}
+	break;
+
+    case HONEY_NUMBER:
+	{
+	    float* result = destination;
+	    *result = lua_tonumber(L, index);
+	}
+	break;
+
+    case HONEY_STRING:
+	{
+	    char** result = destination;
+	    *result = (char*) lua_tostring(L, index);
+	}
+	break;
+            
+    case HONEY_TABLE:
+	break;
+
+    case HONEY_FUNCTION:
+	break;
+
+    case HONEY_NIL:
+	break;
+
+    case HONEY_USERDATA:
+	{
+	    void** result = destination;
+	    *result = lua_touserdata(L, index);
+	}
+	break;
+
+    case HONEY_LIGHTUSERDATA:
+	{
+	    void** result = destination;
+	    *result = lua_touserdata(L, index);
+	}
+	break;
+
+    case HONEY_ANY:
+	break;
+
+    default:
+	/* should never get here! */
+	break;
+    }
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */