rbb 00/12/02 11:00:08
Modified: helpers make_export.pl
Log:
Get make_exports.pl to recognize functions that return a const value
Revision Changes Path
1.5 +2 -2 apr/helpers/make_export.pl
Index: make_export.pl
===================================================================
RCS file: /home/cvs/apr/helpers/make_export.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- make_export.pl 2000/12/01 07:01:28 1.4
+++ make_export.pl 2000/12/02 19:00:07 1.5
@@ -38,7 +38,7 @@
$line .= "$macro\n";
next;
}
- elsif (/^(APR_DECLARE[^\(]*\()?[a-z_]+\)?\s+([A-Za-z0-9_]+)\(/) {
+ elsif
(/^(APR_DECLARE[^\(]*\()?(const\s)?[a-z_]+\)?\s+\*?([A-Za-z0-9_]+)\(/) {
# We only want to increase this if we are in the middle of a
# #if ... #endif block.
if ($found) {
@@ -47,7 +47,7 @@
for (my $i=0; $i < $count; $i++) {
$line .= "\t";
}
- $line .= "$2\n";
+ $line .= "$3\n";
next;
}
elsif (/\#endif/) {
