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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
function oglconst
% OGLCONST Collect GL and GLU constants from C header files, and
% store them in oglconst.mat
%
% usage: oglconst
% 09-Dec-2005 -- created (RFM)
% 23-Jan-2005 -- constants saved in both struct and OpenGL style (RFM)
% 05-Mar-2006 -- ability to spec. system header file path added (MK)
% 30-Aug-2012 -- Also parse own glext.h file for up-to-date definitions (MK)
% 30-Aug-2012 -- Make more robust: Handle 64-Bit integer defines and their
% quirks, as well ad #define GL_THIS GL_THAT "recursive"
% definitions (MK).
% 08-Aug-2020 -- Parse our own local glext_edit.h and glew.h instead of system
% files, as we can carry more up to date copies.
if IsWin
error('Parsing of GL header files on Windows not yet supported.');
end
fprintf('Parsing OpenGL and GLU header files in ./GL/ and ./headers/ ...\n');
% get constants from the OpenGL header files. the 'parsefile' routine
% defines the constants in the calling workspace, as variables with the
% same names as the #defined OpenGL constants, e.g., GL_COLOR_BUFFER_BIT.
% the return argument contains all the constants as fields of a structure,
% e.g., GL.COLOR_BUFFER_BIT. (note that the first underscore has been
% changed to a period.) the first style is more like the C convention,
% and the second style prevents the workspace from being swamped with
% hundreds of global variables. later on, we can load whichever style
% we want from the file where they're all saved.
GL = parsefile('./GL/glew.h', 'GL_');
GL = parsefile('./headers/glext_edit.h', 'GL_', GL); %#ok<*NASGU>
GLU = parsefile('./headers/glu_edit.h','GLU_');
fname = 'oglconst.mat';
save(fname,'GL_*','GLU_*','-V6');
% save structure-style constants to same file
save(fname,'GL','GLU','-append','-V6');
% put a copy into the 'core' directory
copyfile(fname,'../core');
return
% function to parse header files
function S = parsefile( fname, prefix, origin )
% initialize return argument
if nargin < 3
S=[];
else
S=origin;
end;
% check size of prefix (GL, GLU)
nprefix=length(prefix);
% open input file
fid=fopen(fname,'r');
% step through lines of input file
while ~feof(fid),
% read a line and parse it as '#define SYMBOL VALUE'
codeline=fgets(fid);
r=regexp(codeline,'^\s*#define\s+(?<symbol>\S+)\s*(?<value>\S*)','names');
% if it's not a #define statement, then skip it
if isempty(r),
continue
end
% if the symbol doesn't have the required prefix, (GL_, GLU_),
% then skip it
if ~strncmp(r.symbol,prefix,nprefix),
continue
end
% remove prefix from symbol
fieldname=r.symbol((nprefix+1):end);
% if remainder of symbol name begins with a digit, then add 'N' to make
% it a valid field name
if ismember(fieldname(1),'0123456789'),
fieldname=[ 'N' fieldname ]; %#ok<*AGROW>
end
% convert value to a numeric value
if ~isempty(r.value),
try
if strncmp(r.value,'0x',2),
% convert hex value:
% First strip trailing u or l characters, which would
% define (u)nsigned (l)ong values etc., as hex2dec can't
% handle such trailing specifiers:
inpstring = r.value(3:end);
inpstring = inpstring(inpstring ~= 'u');
inpstring = inpstring(inpstring ~= 'l');
% Convert filtered string to decimal:
nvalue=hex2dec(inpstring);
elseif strncmp(r.value,prefix,length(prefix)),
% Constant defined by name of a previously defined
% constant, e.g., #define GL_THIS GL_THAT.
%
% Try to find value of predecessor constant:
substitutionField = r.value(length(prefix)+1:end);
if isfield(S, substitutionField)
nvalue = getfield(S, substitutionField); %#ok<*GFLD>
fprintf('\n-> Substituted %s with %s value of %x \n', fieldname, substitutionField, nvalue);
else
fprintf('\n-> FAILED Substitution of %s with %s due to missing preceeding definition!\n', fieldname, substitutionField);
nvalue = [];
end
else
% convert decimal value
nvalue=str2num(r.value); %#ok<*ST2NM>
end
catch %#ok<*CTCH>
nvalue = [];
end
% assign value of zero if conversion failed, e.g., if symbol was
% defined using another #define, as in #define GL_THIS GL_THAT.
% if anything important is #defined this way, we'll have to fix
% up this part.
if isempty(nvalue),
warning('error converting numeric value from line: %s',codeline); %#ok<*WNTAG>
nvalue=0;
end
else
% assign zero if symbol has no value, e.g., #define GL_I_WAS_HERE
nvalue=0;
end
% add numeric value to struct
fprintf(1,'%s\t%-20s\t%s\t%.0f\n',prefix,fieldname,r.value,nvalue);
S=setfield(S,fieldname,nvalue); %#ok<*SFLD>
% define OpenGL-style variable in calling workspace
evalin('caller',sprintf('%s=%d;',r.symbol,nvalue));
end
% close file
fclose(fid);
return
|
