alphatau 0.1.0

data/ext/alphatau/native/sdl/src/render/opengles2/SDL_shaders_gles2.h

@@ -0,0 +1,70 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2018 Sam Lantinga <slouken@libsdl.org>
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+*/
+#include "../../SDL_internal.h"
+
+#ifndef SDL_shaders_gles2_h_
+#define SDL_shaders_gles2_h_
+
+#if SDL_VIDEO_RENDER_OGL_ES2
+
+typedef struct GLES2_ShaderInstance
+{
+    GLenum type;
+    GLenum format;
+    int length;
+    const void *data;
+} GLES2_ShaderInstance;
+
+typedef struct GLES2_Shader
+{
+    int instance_count;
+    const GLES2_ShaderInstance *instances[4];
+} GLES2_Shader;
+
+typedef enum
+{
+    GLES2_SHADER_VERTEX_DEFAULT,
+    GLES2_SHADER_FRAGMENT_SOLID_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_ABGR_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_ARGB_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_BGR_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_RGB_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_YUV_JPEG_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_YUV_BT601_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_YUV_BT709_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_NV12_JPEG_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_NV12_BT601_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_NV12_BT709_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_NV21_JPEG_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_NV21_BT601_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_NV21_BT709_SRC,
+    GLES2_SHADER_FRAGMENT_TEXTURE_EXTERNAL_OES_SRC
+} GLES2_ShaderType;
+
+#define GLES2_SOURCE_SHADER (GLenum)-1
+
+const GLES2_Shader *GLES2_GetShader(GLES2_ShaderType type);
+
+#endif /* SDL_VIDEO_RENDER_OGL_ES2 */
+
+#endif /* SDL_shaders_gles2_h_ */
+
+/* vi: set ts=4 sw=4 expandtab: */

data/ext/alphatau/native/sdl/src/render/opengles2/build_code_with_snobol/Makefile

@@ -0,0 +1,41 @@
+
+	CFLAGS = -g  -DHAVE_OPENGL=1 
+
+
+examples: testgles2.exe triangle.exe 
+
+system: SDL_gles2_stubcall_overs_wrapper.c SDL_gles2_stubcall_overs_wrapper.h SDL_gles2funcs.h
+	cp  SDL_gles2_stubcall_overs_wrapper.c SDL_gles2_stubcall_overs_wrapper.h SDL_gles2funcs.h ..
+	touch done
+
+
+testgles2.exe: testgles2.c  SDL_gles2_stubcall_overs_wrapper.c SDL_gles2_stubcall_overs_wrapper.h SDL_gles2funcs.h 
+	cp $(LOCAL_PREFIX)/lib/libSDL2*.a .
+	rm libSDL2.dll.a
+	$(CC)  -DHAVE_OPENGL=1   -I$(LOCAL_PREFI) -L.   testgles2.c SDL_gles2_stubcall_overs_wrapper.c \
+	  -lmingw32 -lSDL2main -lSDL2_test -lSDL2  -lm -ldinput8 -ldxguid -ldxerr8 -luser32 -lgdi32 -lwinmm \
+	  -limm32 -lole32 -loleaut32 -lshell32 \
+	    -lversion -luuid -static-libgcc -o testgles2.exe
+
+triangle.exe: triangle.c SDL_gles2_define_overs_wrapper.h SDL_gles2_stubcall_overs_wrapper.c
+	cp /usr/local/x86_64-w64-mingw32/lib/libSDL2*.a .
+	rm libSDL2.dll.a
+	$(CC)  -DHAVE_OPENGL=1   -I(LOCAL_PREFIX) -L.   triangle.c SDL_gles2_stubcall_overs_wrapper.c \
+	  -lmingw32 -lSDL2main -lSDL2_test -lSDL2  -lm -ldinput8 -ldxguid -ldxerr8 -luser32 -lgdi32 \
+	  -lwinmm -limm32 -lole32 -loleaut32 -lshell32 \
+	    -lversion -luuid -static-libgcc -o triangle.exe
+	    
+SDL_gles2funcs.h: gl2.h
+	snobol4 convert_gl2_h_into_gles2funcs_h.sno <gl2.h >SDL_gles2funcs.h
+
+SDL_gles2_define_overs_wrapper.h: SDL_gles2funcs.h
+	snobol4 convert_gles2funcs_into_gles2_define_overs_h.sno <SDL_gles2funcs.h >SDL_gles2_define_overs_wrapper.h
+
+SDL_gles2_stubcall_overs_wrapper.h: gl2.h
+	snobol4 convert_gl2_h_into_gles2_stubcall_overs_h.sno <gl2.h >SDL_gles2_stubcall_overs_wrapper.h
+
+SDL_gles2_stubcall_overs_wrapper.c: gl2.h
+	snobol4 convert_gl2_h_into_gles2_stubcall_overs_c.sno <gl2.h >SDL_gles2_stubcall_overs_wrapper.c
+	 
+
+	

data/ext/alphatau/native/sdl/src/render/opengles2/build_code_with_snobol/convert_gl2_h_into_gles2_stubcall_overs_c.sno

@@ -0,0 +1,181 @@
+
+
+
+* usage:
+* sbl convert_gl2_h_into_gles2_stubcall_overs_c.sno <gl2.h >SDL_gles2_stubcall_overs_wrapper.c
+* -or-
+* snobol4 convert_gl2_h_into_gles2_stubcall_overs_c.sno  <gl2.h >SDL_gles2_stubcall_overs_wrapper.c  
+*
+
+	sz = ( span(' 	') | '' )
+	s = span(' 	') 
+	
+	
+	funcname = any('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_')
++		 ( span('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789') | '' )
+	
+	
+	parameters = '(' arbno(any(&alphabet)) . the_parameter_list ')'
+
+
+	everything_no_comma = &alphabet
+	&anchor = 0
+	everything_no_comma ',' = ''
+	&anchor = 1
+
+	apicall_line = sz 'GL_APICALL' s  ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . the_return_datatype sz 'GL_APIENTRY' s 
++                                    funcname . the_function_name sz parameters . the_parameters sz ';' sz rpos(0) 
+
+
+
+
+
+
+	define('noname_protocol(par),a,b,c,d,e,f') :(done_noname_protocol)
+noname_protocol
+	par sz = ''
+	d = ''
+	c = ''
+np_loop
+	par 'void' sz rpos(0) :s(np_is_void)
+	ident(par,'')	:s(np_done)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . b sz funcname . f sz ',' sz  = ''	:f(np_junk_left)s(np_extract_parameter)
+np_junk_left
+	ident(par,'')	:s(np_done)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . b sz funcname . f sz rpos(0)  = '' :s(np_extract_parameter)
+	b = par
+	par = ''
+np_extract_parameter
+	d = d c b 
+	c = ','
+	:(np_loop)
+np_is_void
+	d = d c par
+	par = ''
+	:(np_loop)
+
+
+np_done
+	noname_protocol = d
+	:(return)
+done_noname_protocol
+
+	
+			
+
+	define('variable_list(par),a,b,c,d,e,f') :(done_variable_list)
+variable_list
+	par sz = ''
+	d = ''
+	c = ''
+vl_loop
+	par 'void' sz rpos(0) :s(vl_is_void)
+	ident(par,'')	:s(vl_done)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . f sz funcname . b sz ',' sz  = ''	:f(vl_junk_left)s(vl_extract_parameter)
+vl_junk_left
+	ident(par,'')	:s(vl_done)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . f sz funcname . b sz rpos(0)  = '' :s(vl_extract_parameter)
+	b = par
+	par = ''
+vl_extract_parameter
+	d = d c b 
+	c = ','
+	:(vl_loop)
+vl_is_void
+	d = d 
+	par = ''
+	:(vl_loop)
+
+
+vl_done
+	variable_list = d
+	:(return)
+done_variable_list
+
+	&anchor = 1
+	
+	
+	
+	
+	output = '/* generated with convert_gles2funcs_into_gles_wrapper_overs_c.sno '
+	output = '  Generator by Hibbard M. Engler'
+	output = '  */'
+	output = ''
+	output = ''
+	output = '#include <stdlib.h>'
+	output = '#include <stdio.h>'
+	output = '#include <string.h>'
+	output = '#include <math.h>'
+	output = '#ifdef __EMSCRIPTEN__'
+	output = '#include <emscripten/emscripten.h>'
+	output = '#endif'
+	output = ''
+	output = ''
+	output = '#define HAVE_OPENGLES2'
+	output = ''
+	output = '#include "SDL_gles2_stubcall_overs_wrapper.h"'
+	output = ''
+	output = '#ifdef HAVE_OPENGLES2'
+	output = ''
+        output = 'static GLES2_Context *my_context=NULL;'
+	output = ''
+	output = 'int LoadContext(GLES2_Context * data)'
+	output = '{'
+	output = '#if SDL_VIDEO_DRIVER_UIKIT'
+	output = '#define __SDL_NOGETPROCADDR__'
+	output = '#elif SDL_VIDEO_DRIVER_ANDROID'
+	output = '#define __SDL_NOGETPROCADDR__'
+	output = '#elif SDL_VIDEO_DRIVER_PANDORA'
+	output = '#define __SDL_NOGETPROCADDR__'
+	output = '#endif'
+	output = ''
+	output = '#if defined __SDL_NOGETPROCADDR__'
+	output = '#define SDL_PROC(ret,func,params) data->func=func;'
+	output = '#else'
+	output = '#define SDL_PROC(ret,func,params) \'
+	output = '    do { \'
+	output = '        data->func = SDL_GL_GetProcAddress(#func); \'
+	output = '        if ( ! data->func ) { \'
+	output = '            return SDL_SetError("Couldn' "'" 't load GLES2 function %s: %s", #func, SDL_GetError()); \'
+	output = '        } \'
+	output = '    } while ( 0 );'
+	output = '#endif /* __SDL_NOGETPROCADDR__ */'
+	output = '#include "SDL_gles2funcs.h"'
+	output = '#undef SDL_PROC'
+	output = '    my_context = data;'
+	output = '    return 0;'
+	output = '}'
+
+        output = ''
+	output = ''
+	output = '#pragma GCC diagnostic ignored "-Wattributes"'
+	output = ''
+	output = ''
+	
+loop	x = input	:f(endd)	
+	x apicall_line	:f(nokeep)
+	
+	output = '__declspec(dllimport) ' the_return_datatype ' GL_APIENTRY  ' the_function_name ' '	the_parameters 
+	output = '{'
+	ident(the_return_datatype,'void') :s(noret)
+	output = '    return my_context->' the_function_name '('
++                      variable_list(the_parameter_list) ');' :(ocont)
+        
+
+noret	output = '    my_context->' the_function_name '('
++ 	                     variable_list(the_parameter_list) ');' :(ocont)
+	
+ocont	output = '}'
+	output = ' __declspec(dllexport) ' the_return_datatype ' GL_APIENTRY  (*__imp_' the_function_name ') '	the_parameters  ' = &' the_function_name ';'
+        output = ''
+	:(loop)
+		
+	
+nokeep	
+	:(loop)	
+		
+endd
+	output = ''
+	output = ''
+	output = '#endif //HAVE_OPENGLES2'
+end

data/ext/alphatau/native/sdl/src/render/opengles2/build_code_with_snobol/convert_gl2_h_into_gles2_stubcall_overs_h.sno

@@ -0,0 +1,116 @@
+
+
+
+* usage:
+* sbl convert_gl2_h_into_gles2_stubcall_overs_h.sno <gl2.h >SDL_gles2_stubcall_overs_wrapper.h
+* -or-
+* snobol4 convert_gl2_h_into_gles2_stubcall_overs_h.sno <gl2.h >SDL_gles2_stubcall_overs_wrapper.h
+
+
+*
+
+	sz = ( span(' 	') | '' )
+	s = span(' 	') 
+	
+	
+	funcname = any('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_')
++		 ( span('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789') | '' )
+	
+	
+	parameters = '(' arbno(any(&alphabet)) . the_parameter_list ')'
+
+
+	everything_no_comma = &alphabet
+	&anchor = 0
+	everything_no_comma ',' = ''
+	&anchor = 1
+
+	apicall_line = sz 'GL_APICALL' s  ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . the_return_datatype sz 'GL_APIENTRY' s 
++                                    funcname . the_function_name sz parameters . the_parameters sz ';' sz rpos(0) 
+
+	define('noname_protocol(par),a,b,c,d,e,f') :(done_noname_protocol)
+noname_protocol
+	par sz = ''
+	d = ''
+	c = ''
+np_loop
+	ident(par,'')	:s(np_done)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . b sz funcname . f sz ',' sz  = ''	:f(np_junk_left)s(np_extract_parameter)
+np_junk_left
+	ident(par,'')	:s(np_done)
+	par 'void' sz rpos(0) :s(np_is_void)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . b sz funcname . f sz rpos(0)  = '' :s(np_extract_parameter)
+	b = par
+	par = ''
+np_extract_parameter
+	d = d c b 
+	c = ','
+	:(np_loop)
+np_is_void
+	d = d c par
+	par = ''
+	:(np_loop)
+
+
+np_done
+	noname_protocol = d
+	:(return)
+done_noname_protocol
+
+	
+			
+
+	&anchor = 1
+	
+	
+	
+	output = '/* generated with convert_gl2_h_into_gles2_stubcall_overs_h.sno '
+	output = '  Generator by Hibbard M. Engler'
+	output = '  */'
+	output = ''
+	output = ''
+	output = '#include <stdlib.h>'
+	output = '#include <stdio.h>'
+	output = '#include <string.h>'
+	output = '#include <math.h>'
+	output = '#ifdef __EMSCRIPTEN__'
+	output = '#include <emscripten/emscripten.h>'
+	output = '#endif'
+	output = '#include <SDL2/SDL_test_common.h>'
+	output = ''
+	output = '#if defined(__IPHONEOS__) || defined(__ANDROID__) || defined(__EMSCRIPTEN__) || defined(__NACL__) \'
+	output = '  || defined(__WINDOWS__) || defined(__LINUX__)'
+	output = '  #define HAVE_OPENGLES2'
+	output = ' #endif'
+	output = ''
+	output = '#ifdef HAVE_OPENGLES2'
+	output = ''
+	output = '#include <SDL2/SDL_opengles2.h>'
+	output = ''
+	output = 'typedef struct GLES2_Context'
+	output = '{'
+	output = '#define SDL_PROC(ret,func,params) ret (APIENTRY *func) params;'
+	output = '#include "SDL_gles2funcs.h"'
+	output = '#undef SDL_PROC'
+	output = '} GLES2_Context;'
+	output = ''
+	output = '#endif // HAVE_OPENGLES2'
+	output = ''
+	output = 'extern int LoadContext(GLES2_Context * data);'
+	output = ''
+	output = ''
+	
+loop	x = input	:f(endd)	
+	x apicall_line	:f(nokeep)
+
+*	output = x
+	
+	:(loop)
+	
+nokeep	
+	:(loop)	
+		
+endd
+	output = ''
+	output = ''
+end

data/ext/alphatau/native/sdl/src/render/opengles2/build_code_with_snobol/convert_gl2_h_into_gles2funcs_h.sno

@@ -0,0 +1,82 @@
+
+
+
+* usage:
+* sbl convert_gl2_h_into_gles2funcs_h.sno <gl2.h >SDL_gles2funcs.h
+* -or-
+* snobol4 convert_gl2_h_into_gles2funcs_h.sno <gl2.h >SDL_gles2funcs.h
+*
+
+	sz = ( span(' 	') | '' )
+	s = span(' 	') 
+	
+	
+	funcname = any('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_')
++		 ( span('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789') | '' )
+	
+	
+	parameters = '(' arbno(any(&alphabet)) . the_parameter_list ')'
+
+
+	everything_no_comma = &alphabet
+	&anchor = 0
+	everything_no_comma ',' = ''
+	&anchor = 1
+
+	apicall_line = sz 'GL_APICALL' s  ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . the_return_datatype sz 'GL_APIENTRY' s 
++                                    funcname . the_function_name sz parameters . the_parameters sz ';' sz rpos(0) 
+
+	define('noname_protocol(par),a,b,c,d,e,f') :(done_noname_protocol)
+noname_protocol
+	par sz = ''
+	d = ''
+	c = ''
+np_loop
+	ident(par,'')	:s(np_done)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . b sz funcname . f sz ',' sz  = ''	:f(np_junk_left)s(np_extract_parameter)
+np_junk_left
+	ident(par,'')	:s(np_done)
+	par 'void' sz rpos(0) :s(np_is_void)
+	par sz ( any(everything_no_comma) arbno(any(everything_no_comma)) ) . b sz funcname . f sz rpos(0)  = '' :s(np_extract_parameter)
+	b = par
+	par = ''
+np_extract_parameter
+	d = d c b 
+	c = ','
+	:(np_loop)
+np_is_void
+	d = d c par
+	par = ''
+	:(np_loop)
+
+
+np_done
+	noname_protocol = d
+	:(return)
+done_noname_protocol
+
+	
+			
+
+	&anchor = 1
+	
+	
+	output = '/* generated with convert_gl2_h_into_gles2funcs_h.sno '
+	output = '  Generator by Hibbard M. Engler'
+	output = ''
+	output = '  */'
+	output = ''
+	
+loop	x = input	:f(endd)	
+	x apicall_line	:f(nokeep)
+
+	output = 'SDL_PROC(' the_return_datatype ', ' the_function_name ', (' noname_protocol(the_parameter_list)  '))'
+	:(loop)
+	
+nokeep	
+	:(loop)	
+		
+endd
+	output = ''
+	output = ''
+end