1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#include "gl/glad/glad.h"
#include <GLFW/glfw3.h>
#include <lua.h>
#include <honeysuckle.h>
int gl_create_shader(lua_State *L);
int gl_shader_set_source(lua_State *L);
int gl_shader_compile(lua_State *L);
int gl_shader_delete(lua_State *L);
int gl_program_create(lua_State *L);
int gl_program_attach_shader(lua_State *L);
int gl_program_link(lua_State *L);
int gl_program_use(lua_State *L);
void setup_shader(lua_State *L, int gl_index)
{
int shader_types = hs_create_table(L,
hs_str_int("vertexShader", GL_VERTEX_SHADER),
hs_str_int("fragmentShader", GL_FRAGMENT_SHADER),
);
hs_create_table(L,
hs_str_cfunc("create", gl_create_shader),
hs_str_cfunc("setSource", gl_shader_set_source),
hs_str_cfunc("compile", gl_shader_compile),
hs_str_cfunc("delete", gl_shader_delete),
hs_str_cfunc("createProgram", gl_program_create),
hs_str_cfunc("attachShader", gl_program_attach_shader),
hs_str_cfunc("link", gl_program_link),
hs_str_cfunc("use", gl_program_use),
hs_str_tbl("type", shader_types),
);
lua_setfield(L, gl_index, "shader");
}
int gl_create_shader(lua_State *L)
{
lua_Integer type;
hs_parse_args(L, hs_int(type));
lua_Integer shader = glCreateShader(type);
lua_pushinteger(L, shader);
return 1;
}
int gl_shader_set_source(lua_State *L)
{
lua_Integer shader;
char *code;
hs_parse_args(L, hs_int(shader), hs_str(code));
glShaderSource(shader, 1, &code, NULL);
return 0;
}
int gl_shader_compile(lua_State *L)
{
lua_Integer shader;
hs_parse_args(L, hs_int(shader));
glCompileShader(shader);
int success; char log[1024];
glGetShaderiv(shader, GL_COMPILE_STATUS, &success);
if (!success) {
glGetShaderInfoLog(shader, 1024, NULL, log);
hs_throw_error(L, "shader compilation failed: %s", log);
}
return 0;
}
int gl_shader_delete(lua_State *L)
{
lua_Integer shader;
hs_parse_args(L, hs_int(shader));
glDeleteShader(shader);
return 0;
}
int gl_program_create(lua_State *L)
{
lua_Integer program = glCreateProgram();
lua_pushinteger(L, program);
return 1;
}
int gl_program_attach_shader(lua_State *L)
{
lua_Integer program, shader;
hs_parse_args(L, hs_int(program), hs_int(shader)),
glAttachShader(program, shader);
return 0;
}
int gl_program_link(lua_State *L)
{
lua_Integer program;
hs_parse_args(L, hs_int(program));
glLinkProgram(program);
int success; char log[1024];
glGetProgramiv(program, GL_LINK_STATUS, &success);
if (!success) {
glGetProgramInfoLog(program, 1024, NULL, log);
hs_throw_error(L, "shader linking failed: %s", log);
}
return 0;
}
int gl_program_use(lua_State *L)
{
lua_Integer program;
hs_parse_args(L, hs_int(program));
glUseProgram(program);
return 0;
}
|