1 # Make prototypes from .c files
17 my $private_func_re = "^_";
24 getopts
('x:m:o:p:dqE:R:P:') || die "foo";
42 $private_func_re = $opt_R;
45 'multiline-proto' => 1,
47 'function-blocking' => 0,
48 'gnuc-attribute' => 1,
52 foreach $i (split(/,/, $opt_m)) {
54 $flags{"multiline-proto"} = 0;
56 $flags{"function-blocking"} = 0;
57 $flags{"gnuc-attribute"} = 0;
60 if(substr($i, 0, 3) eq "no-") {
61 $flags{substr($i, 3)} = 0;
72 open(EXP
, '<', $opt_x) || die "open ${opt_x}";
73 my $obj = JSON
->new->utf8->decode(<EXP
>);
76 foreach my $x (keys %$obj) {
77 if (defined $obj->{$x}->{"export"}) {
78 $exported{$x} = $obj->{$x};
80 if (defined $obj->{$x}->{"deprecated"}) {
81 $deprecated{$x} = $obj->{$x}->{"deprecated"};
87 print $brace, " ", $_ if($debug);
92 if ( s@
/\
*\
*(.*)@@
) { $comment = 1; $doxygen = 1; $funcdoc = $1;
93 } elsif ( s@
/\
*.*@@
) { $comment = 1;
94 } elsif ($comment && s@
.*\
*/@@
) { $comment = 0; $doxygen = 0;
95 } elsif ($doxygen) { $funcdoc .= $_; next;
96 } elsif ($comment) { next; }
101 if($if_0 && /^\#endif/) {
124 if(!/^static/ && !/^PRIVATE/){
126 if(m/(.*)(__attribute__\s?\(.*\))/) {
130 if(m/(.*)\s(\w+DEPRECATED_FUNCTION)\s?(\(.*\))(.*)/) {
131 $depfunction{$2} = 1;
135 if(m/(.*)\s(\w+DEPRECATED)(.*)/) {
143 while(s/\(([^()]*),(.*)\)/($1\$$2)/g){}
144 s/\<\s*void\s*\>/<>/;
145 # remove parameter names
146 if($opt_P eq "remove") {
147 s/(\s*)([a-zA-Z0-9_]+)([,>])/$3/g;
149 s/\(\*(\s*)([a-zA-Z0-9_]+)\)/(*)/g;
150 } elsif($opt_P eq "comment") {
151 s/([a-zA-Z0-9_]+)([,>])/\/\
*$1\
*\
/$2/g;
152 s/\(\*([a-zA-Z0-9_]+)\)/(*\/\
*$1\
*\
/)/g;
155 # add newlines before parameters
156 if($flags{"multiline-proto"}) {
163 # match function name
164 /([a-zA-Z0-9_]+)\s*\</;
173 # only add newline if more than one parameter
174 if($flags{"multiline-proto"} && /,/){
180 # insert newline before function name
181 if($flags{"multiline-proto"}) {
182 s/(.*)\s([a-zA-Z0-9_]+ \Q$LP\E)/$1\n$2/;
188 $documentation{$f} = $funcdoc;
191 if ($apple && exists $exported{$f}) {
192 $ios = $exported{$f}{ios
};
193 $ios = "NA" if (!defined $ios);
194 $mac = $exported{$f}{macos
};
195 $mac = "NA" if (!defined $mac);
196 die "$f neither" if ($mac eq "NA" and $ios eq "NA");
197 $_ = $_ . " __OSX_AVAILABLE_STARTING(__MAC_${mac}, __IPHONE_${ios})";
199 if (exists $deprecated{$f}) {
200 $_ = $_ . " GSSAPI_DEPRECATED_FUNCTION(\"$deprecated{$f}\")";
201 $depfunction{GSSAPI_DEPRECATED_FUNCTION
} = 1;
216 $line = $line . " " . $_;
220 die "reached end of code and still in doxygen comment" if ($doxygen);
221 die "reached end of code and still in comment" if ($comment);
233 open(OUT
, ">${opt_o}.new");
234 $block = &foo
($opt_o);
236 $block = "__public_h__";
240 open(PRIV
, ">${opt_p}.new");
241 $private = &foo
($opt_p);
243 $private = "__private_h__";
249 $public_h_header .= "/* This is a generated file */
255 $public_h_header .= "#ifdef __STDC__
268 $public_h_header .= "#include <stdarg.h>
272 $public_h_trailer = "";
274 $private_h_header = "/* This is a generated file */
280 $private_h_header .= "#ifdef __STDC__
293 $private_h_header .= "#include <stdarg.h>
297 $private_h_trailer = "";
299 foreach(sort keys %funcs){
300 if(/^(main)$/) { next }
301 if ($funcs{$_} =~ /\^/) {
302 $beginblock = "#ifdef __BLOCKS__\n";
303 $endblock = "#endif /* __BLOCKS__ */\n";
305 $beginblock = $endblock = "";
307 # if we have an export table and doesn't have content, or matches private RE
308 if((scalar(keys(%exported)) ne 0 && !exists $exported{$_} ) || /$private_func_re/) {
309 $private_h .= $beginblock;
310 $private_h .= $funcs{$_} . "\n" ;
311 $private_h .= $endblock . "\n";
312 if($funcs{$_} =~ /__attribute__/) {
313 $private_attribute_seen = 1;
316 if($documentation{$_}) {
317 $public_h .= "/**\n";
318 $public_h .= "$documentation{$_}";
319 $public_h .= " */\n";
321 if($flags{"function-blocking"}) {
323 if($exported{$_} =~ /proto/) {
324 $public_h .= "#if !defined(HAVE_$fupper) || defined(NEED_${fupper}_PROTO)\n";
326 $public_h .= "#ifndef HAVE_$fupper\n";
329 $public_h .= $beginblock . $funcs{$_} . "\n" . $endblock;
330 if($funcs{$_} =~ /__attribute__/) {
331 $public_attribute_seen = 1;
333 if($flags{"function-blocking"}) {
334 $public_h .= "#endif\n";
340 if($flags{"gnuc-attribute"}) {
341 if ($public_attribute_seen) {
342 $public_h_header .= "#if !defined(__GNUC__) && !defined(__attribute__)
343 #define __attribute__(x)
349 if ($private_attribute_seen) {
350 $private_h_header .= "#if !defined(__GNUC__) && !defined(__attribute__)
351 #define __attribute__(x)
360 foreach (keys %depfunction) {
361 $depstr .= "#ifndef $_
362 #ifndef __has_extension
363 #define __has_extension(x) 0
364 #define ${_}has_extension 1
366 #if __has_extension(attribute_deprecated_with_message)
367 #define $_(x) __attribute__((__deprecated__(x)))
368 #elif defined(__GNUC__) && ((__GNUC__ > 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1 )))
369 #define $_(X) __attribute__((__deprecated__))
373 #ifdef ${_}has_extension
374 #undef __has_extension
375 #undef ${_}has_extension
381 $public_h_trailer .= "#undef $_
384 $private_h_trailer .= "#undef $_
390 $public_h_header .= $depstr;
391 $private_h_header .= $depstr;
395 $public_h_header .= "#ifdef __cplusplus
400 $public_h_trailer = "#ifdef __cplusplus
404 " . $public_h_trailer;
408 $public_h_header .= "#ifndef $opt_E
409 #ifndef ${opt_E}_FUNCTION
411 #define ${opt_E}_FUNCTION __declspec(dllimport)
412 #define ${opt_E}_CALL __stdcall
413 #define ${opt_E}_VARIABLE __declspec(dllimport)
415 #define ${opt_E}_FUNCTION
416 #define ${opt_E}_CALL
417 #define ${opt_E}_VARIABLE
423 $private_h_header .= "#ifndef $opt_E
424 #ifndef ${opt_E}_FUNCTION
426 #define ${opt_E}_FUNCTION __declspec(dllimport)
427 #define ${opt_E}_CALL __stdcall
428 #define ${opt_E}_VARIABLE __declspec(dllimport)
430 #define ${opt_E}_FUNCTION
431 #define ${opt_E}_CALL
432 #define ${opt_E}_VARIABLE
440 $public_h_trailer .= $undepstr;
441 $private_h_trailer .= $undepstr;
443 if ($public_h ne "" && $flags{"header"}) {
444 $public_h = $public_h_header . $public_h .
445 $public_h_trailer . "#endif /* $block */\n";
447 if ($private_h ne "" && $flags{"header"}) {
448 $private_h = $private_h_header . $private_h .
449 $private_h_trailer . "#endif /* $private */\n";
456 print PRIV
$private_h;
464 if (compare
("${opt_o}.new", ${opt_o
}) != 0) {
465 printf("updating ${opt_o}\n");
466 rename("${opt_o}.new", ${opt_o
});
468 unlink("${opt_o}.new");
473 if (compare
("${opt_p}.new", ${opt_p
}) != 0) {
474 printf("updating ${opt_p}\n");
475 rename("${opt_p}.new", ${opt_p
});
477 unlink("${opt_p}.new");