Add WebGL helper (CreateProgramHelper)

vendor/wasm/WebGL/webgl_helpers.odin

@@ -0,0 +1,49 @@
+package webgl
+
+import "core:fmt"
+
+CreateProgramHelper :: proc(vs_sources, fs_sources: []string) -> (program: Program, ok: bool) {
+	ok = true
+	log: [1024]byte
+
+	vs := CreateShader(VERTEX_SHADER)
+	fs := CreateShader(FRAGMENT_SHADER)
+	defer DeleteShader(vs)
+	defer DeleteShader(fs)
+	ShaderSource(vs, vs_sources)
+	ShaderSource(fs, fs_sources)
+	CompileShader(vs)
+	if GetShaderiv(vs, COMPILE_STATUS) == 0 {
+		err := GetShaderInfoLog(vs, log[:])
+		fmt.eprintln("Vertex shader did not compile successfully", err)
+		ok = false
+		return
+	}
+
+	CompileShader(fs)
+	if GetShaderiv(fs, COMPILE_STATUS) == 0 {
+		err := GetShaderInfoLog(fs, log[:])
+		fmt.eprintln("Fragment shader did not compile successfully", err)
+		ok = false
+		return
+	}
+
+	program = CreateProgram()
+	defer if !ok do DeleteProgram(program)
+
+	AttachShader(program, vs)
+	AttachShader(program, fs)
+	LinkProgram(program)
+	DetachShader(program, vs)
+	DetachShader(program, fs)
+
+	if GetProgramParameter(program, LINK_STATUS) == 0 {
+		err := GetProgramInfoLog(program, log[:])
+		fmt.eprintln("Shader program did not link successfully", err)
+		ok = false
+		return
+	}
+
+	return
+
+}