summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/glm_bindings.c6
-rw-r--r--src/glm_bindings.h8
-rw-r--r--src/glm_mat4_bindings.c98
-rw-r--r--src/honey_lua.c142
4 files changed, 177 insertions, 77 deletions
diff --git a/src/glm_bindings.c b/src/glm_bindings.c
index 41e1d4d..a3ce419 100644
--- a/src/glm_bindings.c
+++ b/src/glm_bindings.c
@@ -87,7 +87,7 @@ void honey_setup_glm(lua_State* L)
honey_lua_create_table
(L, 2,
- HONEY_TABLE, "__index", 16,
+ HONEY_TABLE, "__index", 21,
HONEY_FUNCTION, "copy", honey_glm_mat4_copy,
HONEY_FUNCTION, "eye", honey_glm_mat4_eye,
HONEY_FUNCTION, "zero", honey_glm_mat4_zero,
@@ -105,6 +105,10 @@ void honey_setup_glm(lua_State* L)
HONEY_FUNCTION, "rotateY", honey_glm_rotate_y,
HONEY_FUNCTION, "rotateZ", honey_glm_rotate_z,
HONEY_FUNCTION, "rotate", honey_glm_rotate,
+ HONEY_FUNCTION, "perspective", honey_glm_perspective,
+ HONEY_FUNCTION, "perspectiveResize", honey_glm_perspective_resize,
+ HONEY_FUNCTION, "lookAt", honey_glm_lookat,
+ HONEY_FUNCTION, "look", honey_glm_look,
HONEY_FUNCTION, "__gc", honey_glm_array_destroy);
honey_glm_mat4_mt_ref = luaL_ref(L, LUA_REGISTRYINDEX);
diff --git a/src/glm_bindings.h b/src/glm_bindings.h
index c9eaa91..6c1898f 100644
--- a/src/glm_bindings.h
+++ b/src/glm_bindings.h
@@ -188,4 +188,12 @@ int honey_glm_rotate_z(lua_State* L);
int honey_glm_rotate(lua_State* L);
+int honey_glm_perspective(lua_State* L);
+
+int honey_glm_perspective_resize(lua_State* L);
+
+int honey_glm_lookat(lua_State* L);
+
+int honey_glm_look(lua_State* L);
+
#endif
diff --git a/src/glm_mat4_bindings.c b/src/glm_mat4_bindings.c
index f10f954..460cde2 100644
--- a/src/glm_mat4_bindings.c
+++ b/src/glm_mat4_bindings.c
@@ -397,3 +397,101 @@ int honey_glm_rotate(lua_State* L)
return 0;
}
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Camera functions
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+int honey_glm_perspective(lua_State* L)
+{
+ honey_glm_array *self;
+ float fov, aspect, near, far;
+ honey_lua_parse_arguments
+ (L, 1, 5,
+ HONEY_USERDATA, &self,
+ HONEY_NUMBER, &fov, HONEY_NUMBER, &aspect,
+ HONEY_NUMBER, &near, HONEY_NUMBER, &far);
+
+ glm_perspective(fov, aspect, near, far, self->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_perspective_resize(lua_State* L)
+{
+ honey_glm_array *self;
+ float new_aspect;
+ honey_lua_parse_arguments
+ (L, 1, 2, HONEY_USERDATA, &self, HONEY_NUMBER, new_aspect);
+
+ glm_perspective_resize(new_aspect, self->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_lookat(lua_State* L)
+{
+ honey_glm_array *self, *eye, *center, *up;
+ honey_lua_parse_arguments
+ (L, 1, 4,
+ HONEY_USERDATA, &self,
+ HONEY_USERDATA, &eye,
+ HONEY_USERDATA, &center,
+ HONEY_USERDATA, &up);
+
+ if (eye->type != VEC3)
+ honey_lua_throw_error
+ (L, "eye vector must be of type VEC3 (%d); got %d instead",
+ VEC3, eye->type);
+
+ if (center->type != VEC3)
+ honey_lua_throw_error
+ (L, "center vector must be of type VEC3 (%d); got %d instead",
+ VEC3, center->type);
+
+ if (up->type != VEC3)
+ honey_lua_throw_error
+ (L, "up vector must be of type VEC3 (%d); got %d instead",
+ VEC3, up->type);
+
+ glm_lookat(eye->data, center->data, up->data, self->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_look(lua_State* L)
+{
+ honey_glm_array *self, *eye, *dir, *up;
+ honey_lua_parse_arguments
+ (L, 1, 4,
+ HONEY_USERDATA, &self,
+ HONEY_USERDATA, &eye,
+ HONEY_USERDATA, &dir,
+ HONEY_USERDATA, &up);
+
+ if (eye->type != VEC3)
+ honey_lua_throw_error
+ (L, "eye vector must be of type VEC3 (%d); got %d instead",
+ VEC3, eye->type);
+
+ if (dir->type != VEC3)
+ honey_lua_throw_error
+ (L, "direction vector must be of type VEC3 (%d); got %d instead",
+ VEC3, dir->type);
+
+ if (up->type != VEC3)
+ honey_lua_throw_error
+ (L, "up vector must be of type VEC3 (%d); got %d instead",
+ VEC3, up->type);
+
+ glm_look(eye->data, dir->data, up->data, self->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
diff --git a/src/honey_lua.c b/src/honey_lua.c
index 2469d37..72624be 100644
--- a/src/honey_lua.c
+++ b/src/honey_lua.c
@@ -25,8 +25,7 @@ struct argument_list {
*/
/* string must be able to hold at least 16 characters. */
-static int type_to_string(char* string,
- honey_lua_type type);
+static const char* type_to_string(honey_lua_type type);
static bool check_argument(lua_State* L,
honey_lua_type type,
@@ -100,34 +99,6 @@ void honey_lua_throw_error(lua_State* L,
* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*/
-static void honey_lua_arg_error(lua_State* L,
- 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 = (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.",
- position,
- expected_type,
- got_type);
- if (result != HONEY_OK) {
- lua_pushstring(L, "error allocating memory for error message :(");
- }
- else {
- lua_pushstring(L, error_message);
- free(error_message);
- }
- lua_error(L);
-}
-
-/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
static bool check_arg_list(lua_State* L,
struct argument_list arg_list)
{
@@ -141,28 +112,22 @@ static bool check_arg_list(lua_State* L,
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-static int arg_list_to_string(char* string,
- int start_index,
+static void arg_list_to_string(char** string,
struct argument_list arg_list)
{
struct argument_pair* args = arg_list.args;
- string[start_index] = '(';
+ size_t size = sizeof(char) * (18*arg_list.length + 5);
+ *string = malloc(size);
+
+ memcpy(*string, "(", 2);
- int index = start_index + 1;
-
for (int i=0; i<arg_list.length; i++) {
- index += type_to_string(string + index, args[i].type);
- if (i != arg_list.length - 1) {
- string[index + 1] = ',';
- string[index + 2] = ' ';
- index += 2;
- }
+ strcat(*string, type_to_string(args[i].type));
+ if (i != arg_list.length-1)
+ strcat(*string, ", ");
}
-
- string[index] = ')';
-
- return index+1;
+ strcat(*string, ")");
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
@@ -176,19 +141,41 @@ static void arg_lists_to_string(char** string,
size += 18*arg_lists[i].length + 5;
*string = calloc(size, sizeof(char));
- int index = 0;
+
+ char* arg_list_string;
for (int i=0; i<n; i++) {
- index = arg_list_to_string(*string, index, arg_lists[i]);
- if (i != n) {
- *string[index] = '\n';
- index++;
- }
+ arg_list_to_string(&arg_list_string, arg_lists[i]);
+ strcat(*string, arg_list_string);
+ free(arg_list_string);
+ if (i != n-1)
+ strcat(*string, "\n");
}
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+static void arguments_to_string(lua_State* L, char** string)
+{
+ unsigned int argc = lua_gettop(L);
+
+ size_t size = sizeof(char) * (18*argc + 5);
+ *string = malloc(size);
+
+ memcpy(*string, "(", 2);
+
+ char type_string[16];
+ for (int i=0; i<argc; i++) {
+ int type = lua_type(L, i+1);
+ strncat(*string, lua_typename(L, type), 16*sizeof(char));
+ if (i != argc-1)
+ strncat(*string, ", ", 4*sizeof(char));
+ }
+ strncat(*string, ")", 4);
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
static void get_arg_list(lua_State* L,
struct argument_list arg_list)
{
@@ -218,6 +205,9 @@ int honey_lua_parse_arguments(lua_State* L, unsigned int n, ...)
for (int j=0; j<arg_lists[i].length; j++) {
honey_lua_type type = va_arg(args, honey_lua_type);
void* destination = va_arg(args, void*);
+
+ arg_lists[i].args[j].type = type;
+ arg_lists[i].args[j].ptr = destination;
}
}
@@ -233,7 +223,18 @@ int honey_lua_parse_arguments(lua_State* L, unsigned int n, ...)
}
if (index == n) {
- /* no arguments match, throw error */
+ char* arg_lists_str, *argv, *error;
+ arg_lists_to_string(&arg_lists_str, n, arg_lists);
+ arguments_to_string(L, &argv);
+ honey_format_string
+ (&error,
+ "expected arguments of the form\n%s\nbut received\n%s",
+ arg_lists_str, argv);
+ lua_pushstring(L, error);
+ free(arg_lists_str);
+ free(argv);
+ free(error);
+ lua_error(L);
}
@@ -383,57 +384,46 @@ int honey_exit(lua_State* L)
*/
/* string must be able to hold at least 16 characters. */
-static int type_to_string(char* string,
- honey_lua_type type)
+static const char* type_to_string(honey_lua_type type)
{
switch(type) {
case HONEY_BOOLEAN:
- memcpy(string, "boolean", 8);
- return 7;
+ return "boolean";
case HONEY_INTEGER:
- memcpy(string, "integer", 8);
- return 7;
+ return "integer";
case HONEY_NUMBER:
- memcpy(string, "number", 7);
- return 6;
+ return "number";
case HONEY_STRING:
- memcpy(string, "string", 7);
- return 6;
+ return "string";
case HONEY_FUNCTION:
- memcpy(string, "function", 9);
- return 8;
+ return "function";
case HONEY_TABLE:
- memcpy(string, "table", 6);
- return 5;
+ return "table";
case HONEY_NIL:
- memcpy(string, "nil", 4);
- return 3;
+ return "nil";
case HONEY_USERDATA:
- memcpy(string, "userdata", 9);
- return 8;
+ return "userdata";
case HONEY_LIGHTUSERDATA:
- memcpy(string, "light userdata", 16);
- return 15;
+ return "light userdata";
case HONEY_ANY:
- memcpy(string, "any", 4);
- return 3;
+ return "any";
default:
- return 0;
+ return "ERROR";
}
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
+
static bool check_argument(lua_State* L,
honey_lua_type type,
int index)
generated by cgit v1.2.1 (git 2.18.0) at 2025-11-04 15:50:13 +0000