refactor: bind all basic matrix & vector functions from cglm

1 files changed, 352 insertions, 0 deletions

diff --git a/src/glm/quaternion.c b/src/glm/quaternion.c
new file mode 100644
index 0000000..408c3ca
--- /dev/null
+++ b/src/glm/quaternion.c
@@ -0,0 +1,352 @@
+#include <lua.h>
+#include <lauxlib.h>
+#include <cglm/cglm.h>
+#include "glm.h"
+
+
+int glm_quat_create(lua_State *L)
+{
+	lua_newuserdata(L, sizeof(versor));
+	luaL_getmetatable(L, glm_versor_tname);
+	lua_setmetatable(L, -2);
+	return 1;
+}
+
+
+int glm_quat_identity_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	glm_quat_identity(*q);
+	return 0;
+}
+
+
+int glm_quat_init_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float x = luaL_checknumber(L, 2);
+	float y = luaL_checknumber(L, 3);
+	float z = luaL_checknumber(L, 4);
+	float w = luaL_checknumber(L, 5);
+	glm_quat_init(*q, x, y, z, w);
+	return 0;
+}
+
+
+int glm_quat_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float angle = luaL_checknumber(L, 2);
+	float x = luaL_checknumber(L, 3);
+	float y = luaL_checknumber(L, 4);
+	float z = luaL_checknumber(L, 5);
+	glm_quat(*q, angle, x, y, z);
+	return 0;
+}
+
+
+int glm_quatv_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float angle = luaL_checknumber(L, 2);
+	vec3 *axis = luaL_checkudata(L, 3, glm_vec3_tname);
+	glm_quatv(*q, angle, *axis);
+	return 0;
+}
+
+
+int glm_quat_copy_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 2, glm_versor_tname);
+	glm_quat_copy(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_from_vecs_bind(lua_State *L)
+{
+	vec3 *a = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *b = luaL_checkudata(L, 2, glm_vec3_tname);
+	versor *dest = luaL_checkudata(L, 3, glm_versor_tname);
+	glm_quat_from_vecs(*a, *b, *dest);
+	return 0;
+}
+
+
+int glm_quat_norm_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float bind_result = glm_quat_norm(*q);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_quat_normalize_to_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 2, glm_versor_tname);
+	glm_quat_normalize_to(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_normalize_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	glm_quat_normalize(*q);
+	return 0;
+}
+
+
+int glm_quat_dot_bind(lua_State *L)
+{
+	versor *p = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	float bind_result = glm_quat_dot(*p, *q);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_quat_conjugate_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 2, glm_versor_tname);
+	glm_quat_conjugate(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_inv_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 2, glm_versor_tname);
+	glm_quat_inv(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_add_bind(lua_State *L)
+{
+	versor *p = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 3, glm_versor_tname);
+	glm_quat_add(*p, *q, *dest);
+	return 0;
+}
+
+
+int glm_quat_sub_bind(lua_State *L)
+{
+	versor *p = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 3, glm_versor_tname);
+	glm_quat_sub(*p, *q, *dest);
+	return 0;
+}
+
+
+int glm_quat_real_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float bind_result = glm_quat_real(*q);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_quat_imag_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	vec3 *dest = luaL_checkudata(L, 2, glm_vec3_tname);
+	glm_quat_imag(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_imagn_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	vec3 *dest = luaL_checkudata(L, 2, glm_vec3_tname);
+	glm_quat_imagn(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_imaglen_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float bind_result = glm_quat_imaglen(*q);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_quat_angle_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	float bind_result = glm_quat_angle(*q);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_quat_axis_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 2, glm_versor_tname);
+	glm_quat_axis(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_mul_bind(lua_State *L)
+{
+	versor *p = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	versor *dest = luaL_checkudata(L, 3, glm_versor_tname);
+	glm_quat_mul(*p, *q, *dest);
+	return 0;
+}
+
+
+int glm_quat_mat4_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	mat4 *dest = luaL_checkudata(L, 2, glm_mat4_tname);
+	glm_quat_mat4(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_mat4t_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	mat4 *dest = luaL_checkudata(L, 2, glm_mat4_tname);
+	glm_quat_mat4t(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_mat3_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	mat3 *dest = luaL_checkudata(L, 2, glm_mat3_tname);
+	glm_quat_mat3(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_mat3t_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	mat3 *dest = luaL_checkudata(L, 2, glm_mat3_tname);
+	glm_quat_mat3t(*q, *dest);
+	return 0;
+}
+
+
+int glm_quat_lerp_bind(lua_State *L)
+{
+	versor *from = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *to = luaL_checkudata(L, 2, glm_versor_tname);
+	float t = luaL_checknumber(L, 3);
+	versor *dest = luaL_checkudata(L, 4, glm_versor_tname);
+	glm_quat_lerp(*from, *to, t, *dest);
+	return 0;
+}
+
+
+int glm_quat_nlerp_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *r = luaL_checkudata(L, 2, glm_versor_tname);
+	float t = luaL_checknumber(L, 3);
+	versor *dest = luaL_checkudata(L, 4, glm_versor_tname);
+	glm_quat_nlerp(*q, *r, t, *dest);
+	return 0;
+}
+
+
+int glm_quat_slerp_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	versor *r = luaL_checkudata(L, 2, glm_versor_tname);
+	float t = luaL_checknumber(L, 3);
+	versor *dest = luaL_checkudata(L, 4, glm_versor_tname);
+	glm_quat_slerp(*q, *r, t, *dest);
+	return 0;
+}
+
+
+int glm_quat_look_bind(lua_State *L)
+{
+	vec3 *eye = luaL_checkudata(L, 1, glm_vec3_tname);
+	versor *ori = luaL_checkudata(L, 2, glm_versor_tname);
+	mat4 *dest = luaL_checkudata(L, 3, glm_mat4_tname);
+	glm_quat_look(*eye, *ori, *dest);
+	return 0;
+}
+
+
+int glm_quat_for_bind(lua_State *L)
+{
+	vec3 *dir = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *up = luaL_checkudata(L, 2, glm_vec3_tname);
+	versor *dest = luaL_checkudata(L, 3, glm_versor_tname);
+	glm_quat_for(*dir, *up, *dest);
+	return 0;
+}
+
+
+int glm_quat_forp_bind(lua_State *L)
+{
+	vec3 *from = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *to = luaL_checkudata(L, 2, glm_vec3_tname);
+	vec3 *up = luaL_checkudata(L, 3, glm_vec3_tname);
+	versor *dest = luaL_checkudata(L, 4, glm_versor_tname);
+	glm_quat_forp(*from, *to, *up, *dest);
+	return 0;
+}
+
+
+int glm_quat_rotatev_bind(lua_State *L)
+{
+	versor *q = luaL_checkudata(L, 1, glm_versor_tname);
+	vec3 *v = luaL_checkudata(L, 2, glm_vec3_tname);
+	vec3 *dest = luaL_checkudata(L, 3, glm_vec3_tname);
+	glm_quat_rotatev(*q, *v, *dest);
+	return 0;
+}
+
+
+int glm_quat_rotate_bind(lua_State *L)
+{
+	mat4 *m = luaL_checkudata(L, 1, glm_mat4_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	mat4 *dest = luaL_checkudata(L, 3, glm_mat4_tname);
+	glm_quat_rotate(*m, *q, *dest);
+	return 0;
+}
+
+
+int glm_quat_rotate_at_bind(lua_State *L)
+{
+	mat4 *m = luaL_checkudata(L, 1, glm_mat4_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	vec3 *pivot = luaL_checkudata(L, 3, glm_vec3_tname);
+	glm_quat_rotate_at(*m, *q, *pivot);
+	return 0;
+}
+
+
+int glm_quat_rotate_atm_bind(lua_State *L)
+{
+	mat4 *m = luaL_checkudata(L, 1, glm_mat4_tname);
+	versor *q = luaL_checkudata(L, 2, glm_versor_tname);
+	vec3 *pivot = luaL_checkudata(L, 3, glm_vec3_tname);
+	glm_quat_rotate_atm(*m, *q, *pivot);
+	return 0;
+}