Simplify gl loading by removing m4 and merging gldefs.h

m4 has been removed, loadgl.c.in is now gl.c, gldefs.h and loadgl.h.in
have now been merged into gl.h. loadgl.m4 has been transformed into
glfunc.h which is being used in the way of a bie index file to
generate information at 3 places.

lgl_load is now gl_load and doesn't return anything, the jongjmp.h
method of error handling was pre-emptive and for now this much simpler
system will suffice. This means that lgl_strerror is no longer neede.

1 files changed, 0 insertions, 91 deletions

diff --git a/loadgl.m4 b/loadgl.m4
deleted file mode 100644
index 7a7bde4..0000000
--- a/loadgl.m4
+++ /dev/null
@@ -1,91 +0,0 @@
-divert(-1)
-# Copyright (C) Tomasz Kramkowski <tk@the-tk.com>
-# SPDX-License
-
-# Macros
-
-# LOAD(glname, rtype, name, args)
-define(`LOAD',
-`divert(1)LGL_INTERFACE(shift($@));
-divert(2)LGL_FUNC($3, $1);
-divert(3)LGL_LOAD($3);
-divert(-1)')
-m4wrap(`m4exit')
-
-# 1 - LGL_INTERFACE(rtype, name, args);
-define(`INTERFACES', `undivert(1)')
-# 2 - LGL_FUNC(name, glname);
-define(`FUNCS', `undivert(2)')
-# 3 - LGL_LOAD(name);
-define(`LOADS', `undivert(3)')
-
-define(`FOR', `ifelse($#, 0, ``$0'', `ifelse(eval($2 <= $3), 1,
-  `pushdef(`$1', $2)$4`'popdef(`$1')$0(`$1', incr($2), $3, `$4')')')')
-
-# PAT(pattern, subst)
-define(`PAT', `pushdef(`P', $2)$1`'popdef(`P')')
-# PARAMS(start, n, pattern)
-define(`PARAMS', `ifelse(eval(`$1 < ($2 - 1)'), 1,
-  `PAT(`$3', $1), $0(incr($1), $2, `$3')', `PAT(`$3', $1)')')
-define(`TYPE', `PARAMS(0, $1, `$2 v`'P')')
-#       $1   $2   $3       $4      $5     $6    $7
-# FLOAT(vec, suf, vectype, glname, rtype, name, args...)
-define(`LOADV', `LOAD($4$1$2, $5, $6$1$2, shift(shift(shift(shift(shift(shift($@)))))), TYPE($1, $3))')
-define(`LOADP', `LOAD($4$1$2, $5, $6$1$2, shift(shift(shift(shift(shift(shift($@)))))), $3 *value)')
-define(`MULTI', `FOR(`n', 1, $1, `$2')')
-define(`FOREACH', `ifelse(eval($# > 2), 1,
-  `pushdef(`$1', `$3')$2`'popdef(`$1')dnl
-`'ifelse(eval($# > 3), 1, `$0(`$1', `$2', shift(shift(shift($@))))')')')
-
-# Functions
-
-LOAD(glGetError, GLenum, gl_error, void)
-LOAD(glViewport, void, gl_viewport, GLint x, GLint y, GLsizei width, GLsizei height)
-LOAD(glClearColor, void, gl_clearcolor, GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha)
-LOAD(glClear, void, gl_clear, GLbitfield mask)
-LOAD(glGenBuffers, void, gl_buf_gen, GLsizei n, GLuint *buffers)
-LOAD(glBindBuffer, void, gl_buf_bind, GLenum target, GLuint buffer)
-LOAD(glBufferData, void, gl_buf_data, GLenum target, GLsizeiptr size, const void *data, GLenum usage)
-LOAD(glCreateShader, GLuint, gl_shdr_create, GLenum type)
-LOAD(glDeleteShader, void, gl_shdr_del, GLuint shader)
-LOAD(glShaderSource, void, gl_shdr_source, GLuint shader, GLsizei count, const char * const *string, const GLint *length)
-LOAD(glCompileShader, void, gl_shdr_compile, GLuint shader)
-LOAD(glGetShaderiv, void, gl_shdr_param, GLuint shader, GLenum pname, GLint *params)
-LOAD(glGetShaderInfoLog, void, gl_shdr_infolog, GLuint shader, GLsizei size, GLsizei *len, char *data)
-LOAD(glCreateProgram, GLuint, gl_prog_create, void)
-LOAD(glDeleteProgram, void, gl_prog_del, GLuint program)
-LOAD(glAttachShader, void, gl_prog_attachshdr, GLuint program, GLuint shader)
-LOAD(glDetachShader, void, gl_prog_detachshdr, GLuint program, GLuint shader)
-LOAD(glGetAttachedShaders, void, gl_prog_getshdrs, GLuint program, GLsizei max, GLsizei *count, GLuint *shaders)
-LOAD(glLinkProgram, void, gl_prog_link, GLuint program)
-LOAD(glUseProgram, void, gl_prog_use, GLuint program)
-LOAD(glGetProgramiv, void, gl_prog_param, GLuint prog, GLenum pname, GLint *params)
-LOAD(glGetProgramInfoLog, void, gl_prog_infolog, GLuint prog, GLsizei size, GLsizei *len, char *data)
-LOAD(glVertexAttribPointer, void, gl_va_define, GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, const void *data)
-LOAD(glEnableVertexAttribArray, void, gl_va_enable, GLuint index)
-LOAD(glDisableVertexAttribArray, void, gl_va_disable, GLuint index)
-LOAD(glGenVertexArrays, void, gl_va_gen, GLsizei n, GLuint *arrays)
-LOAD(glBindVertexArray, void, gl_va_bind, GLuint va)
-LOAD(glDrawArrays, void, gl_draw_arrays, GLenum mode, GLint first, GLsizei count)
-LOAD(glDrawElements, void, gl_draw_elems, GLenum mode, GLsizei count, GLenum type, const void *indices)
-LOAD(glPolygonMode, void, gl_poly_mode, GLenum face, GLenum mode)
-LOAD(glGetUniformLocation, GLint, gl_uni_loc, GLuint program, const char *name);
-LOAD(glGetUniformfv, void, gl_uni_getf, GLuint program, GLint location, GLfloat *params);
-LOAD(glGetUniformiv, void, gl_uni_geti, GLuint program, GLint location, GLint *params);
-FOREACH(`type', `FOR(`n', 1, 4, `LOADV(n, type, glUniform, void, gl_uni_set, GLint location)')',
-  `f, GLfloat', `i, GLint', `ui, GLuint')
-FOREACH(`type', `FOR(`n', 1, 4, `LOADP(n, type, glUniform, void, gl_uni_set, GLint location, GLsizei count)')',
-  `fv, const GLfloat', `iv, const GLint', `uiv, const GLuint')
-FOR(`n', 2, 4, `LOAD(glUniformMatrix`'n`'fv, void, gl_uni_setm`'n`'fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)')
-LOAD(glUniformMatrix2x3fv, void, gl_uni_setm2x3fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-LOAD(glUniformMatrix2x4fv, void, gl_uni_setm2x4fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-LOAD(glUniformMatrix3x2fv, void, gl_uni_setm3x2fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-LOAD(glUniformMatrix3x4fv, void, gl_uni_setm3x4fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-LOAD(glUniformMatrix4x2fv, void, gl_uni_setm4x2fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-LOAD(glUniformMatrix4x3fv, void, gl_uni_setm4x3fv, GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-
-# Undefine
-
-undefine(`LOAD')
-
-divert(0)dnl