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
|
function glShaderSource( shader, shadersource, debug )
% glShaderSource Interface to glShaderSource
%
% usage: glShaderSource(shader, shadersource, debug)
%
% This function differs from its C counterpart. You have to pass in the
% handle of the shader as returned by glCreateShader in 'shader'.
%
% You have to pass a single character string 'shadersource' that
% contains the ASCII text of the shaders source code. Each line in the
% string needs to be terminated by a '\n' aka ASCII code 10 aka newline.
% This string will be split up into the array of strings as expected by
% the C function glShaderSource.
%
% A simple way to read a shader from a standard text file is as follows:
% fid=fopen('MyShader.txt', 'r');
% shadersource=fread(fid);
% fclose(fid);
% glShaderSource(shader, shadersource);
%
% C function: void glShaderSource(GLuint shader, int numOfStrings, const char **strings, int *lenOfStrings);
% 29-Mar-2006 -- created manually by MK.
% ---protected---
if nargin<2,
error('invalid number of arguments');
end
% Special debug flag: If provided and set to non-zero, then glShaderSource is
% not executed, but only the parser inside moglcore is exercised and the result
% of parsing is output to the Matlab command window.
if nargin < 3
debug = 0;
end
shadersource = char(shadersource);
if size(shadersource,1)==1
shadersource = transpose(shadersource);
end
% Replace all CR's by LF's:
repidx = find(double(shadersource) == 13);
shadersource(repidx) = char(10);
% Flag newstyle = 1 at the end chooses simple glShaderSource implementation,
% which just passes the string "as is". A flag of 0 would select the old
% behavior from pre August 2017, which splits the source string into individual
% substrings, one per line of newline terminated GLSL source code.
newstyle = 1;
if debug
% Need old style for debug flag, as the debug output code is only
% implemented in that code path:
newstyle = 0;
end
moglcore('glShaderSource', shader, transpose(shadersource), debug, newstyle);
return
|
