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
|
function p = cparse( str , openal)
% CPARSE Parse a C language function declaration
%
% p = cparse( str )
% 22-Dec-2005 -- created (RFM)
% 28-Aug-2012 -- Modified; Handle datatypes GLint64, GLuint64 and GLsync. (MK)
% 28-Aug-2012 -- Modified; Make more robust against unparseable functions. (MK)
if nargin<2
openal = 0;
end
%str = [];
if nargin<1 || isempty(str),
if openal
str=' const AL_API void AL_APIENTRY alFunction ( int arg1 , const char** arg2 ) ; ';
else
str=' const void * *glFunction ( int arg1 , const char** arg2 ) ; ';
end
end
% delete extra spaces
str=sed(str,'s/^[[:space:]]*//','s/[[:space:]]*$//','s/[[:space:]]+/ /g','s/GLAPIENTRY //');
% record full declaration
p.full=str;
% make list of data types
ctypes='void|char|unsigned char|signed char|short|unsigned short|signed short|short int|unsigned short int|signed short int|int|unsigned int|signed int|long|unsigned long|signed long|long int|unsigned long int|signed long int|float|double';
ogltypes='GLenum|GLboolean|GLbitfield|GLbyte|GLshort|GLint64EXT|GLint64|GLintptr|GLint|GLsizeiptr|GLsizei|GLubyte|GLushort|GLuint64EXT|GLuint64|GLuintptr|GLuint|GLfloat|GLclampf|GLdouble|GLclampd|GLvoid|GLcharARB|GLchar|GLUnurbs|GLUquadric|GLUtesselator|GLhandleARB|GLsync';
oaltypes='ALenum|ALboolean|ALbitfield|ALbyte|ALshort|ALint|ALsizei|ALubyte|ALushort|ALuint|ALfloat|ALclampf|ALdouble|ALclampd|ALvoid|ALintptr|ALsizeiptr|ALchar';
types=[ ctypes '|' ogltypes '|' oaltypes];
% parse full declaration
if openal
% OpenAL parser expression: ?(?<stars>[\\* ]*)
r=regexp(str,sprintf('(?<const>const)? .* ?(?<basetype>%s) .* ?(?<fname>\\w+) ?\\( ?(?<argin>.*) ?\\).*',types),'names');
if ~isempty(r)
r.stars = '';
end
else
% OpenGL parser expression:
r=regexp(str,sprintf('(?<const>const)? ?(?<basetype>%s) ?(?<stars>[\\* ]*) ?(?<fname>\\w+) ?\\( ?(?<argin>.*) ?\\).*',types),'names');
end
if isempty(r) || length(r) < 1
p = [];
fprintf('Skipped! [%s]\n', str);
return;
end
% disp(r);
p.fname=r.fname;
p.argin.full=strtrim(r.argin);
r.stars=r.stars(find(r.stars~=' ')); %#ok<*FNDSB>
p.argouttype.full=strtrim([ r.const ' ' r.basetype r.stars ]);
p.argouttype.const=r.const;
p.argouttype.basetype=r.basetype;
p.argouttype.stars=r.stars;
% parse input arguments
p.argin.args=regexp(p.argin.full,'(?<full>\w[^,]+[\w\*])','names');
p.argin.full='';
for i=1:numel(p.argin.args),
r=regexp(p.argin.args(i).full,sprintf('(?<const>const)? ?(?<basetype>%s) ?(?<stars>[\\* ]*) ?(?<argname>\\w*)',types),'names');
if isempty(r) || length(r) < 1
p = [];
fprintf('Skipped-II! [%s]\n', str);
return;
end
r.stars=r.stars(find(r.stars~=' '));
p.argin.args(i).type.full=strtrim([ r.const ' ' r.basetype r.stars ]);
p.argin.args(i).full=strtrim([ r.const ' ' r.basetype r.stars ' ' r.argname ]);
p.argin.args(i).type.const=r.const;
p.argin.args(i).type.basetype=r.basetype;
p.argin.args(i).type.stars=r.stars;
p.argin.args(i).argname=r.argname;
% reassemble full declaration
p.argin.full=[ p.argin.full p.argin.args(i).full ];
if i<numel(p.argin.args),
p.argin.full=[ p.argin.full ', ' ];
end
end
% reassemble full declaration
p.full=strtrim([ p.argouttype.full ' ' p.fname '(' p.argin.full ')' ]);
return
|
