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
152
153
|
function oglconst(glheaderpath, aglheaderpath)
% OGLCONST Collect GL, GLU, and AGL 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)
if IsWin
error('Parsing of GL header files on Windows not yet supported.');
end;
% Alternate path to header files specified?
if nargin < 1
if IsOSX
glheaderpath = '/System/Library/Frameworks/OpenGL.framework/Headers';
end;
if IsLinux
glheaderpath = '/usr/include/GL';
end;
end;
if nargin < 2
if IsOSX
aglheaderpath = '/System/Library/Frameworks/AGL.framework/Headers';
end;
end;
if IsOSX
fprintf('Parsing OpenGL, GLU and AGL header files in %s and %s ...\n',glheaderpath, aglheaderpath);
else
fprintf('Parsing OpenGL and GLU header files in %s ...\n',glheaderpath);
end;
% 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(sprintf('%s/gl.h', glheaderpath), 'GL_');
GL= parsefile(sprintf('%s/glext.h', glheaderpath), 'GL_', GL);
GLU=parsefile(sprintf('%s/glu.h', glheaderpath),'GLU_');
if IsOSX
AGL=parsefile(sprintf('%s/agl.h', aglheaderpath),'AGL_');
end;
fname='oglconst.mat';
% save OpenGL-style constants
if IsOSX
save(fname,'GL_*','GLU_*','AGL_*', '-V6');
% save structure-style constants to same file
save(fname,'GL','GLU','AGL','-append', '-V6');
end;
if IsLinux
save(fname,'GL_*','GLU_*','-V6');
% save structure-style constants to same file
save(fname,'GL','GLU','-append','-V6');
end;
% 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, or AGL)
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_, or AGL_),
% 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 ];
end
% convert value to a numeric value
if ~isempty(r.value),
if strncmp(r.value,'0x',2),
% convert hex value
nvalue=hex2dec(r.value(3:end));
else
% convert decimal value
nvalue=str2num(r.value);
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);
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);
% define OpenGL-style variable in calling workspace
evalin('caller',sprintf('%s=%d;',r.symbol,nvalue));
end
% close file
fclose(fid);
return
|
