rbb 00/11/30 21:50:23
Modified: helpers make_export.pl
Log:
Fix a couple of bugs with the script that generates the apr.exports file.
This script is really not extensible as it is currently written, but at
least it works for APR.
Revision Changes Path
1.2 +6 -6 apr/helpers/make_export.pl
Index: make_export.pl
===================================================================
RCS file: /home/cvs/apr/helpers/make_export.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- make_export.pl 2000/11/30 23:46:32 1.1
+++ make_export.pl 2000/12/01 05:50:22 1.2
@@ -31,10 +31,10 @@
s/^\s*//;
- if (/\#if (APR_HAS.*)/) {
+ if (/\#if(def)? (APR_.*)/) {
$count++;
$found++;
- $macro = $1;
+ $macro = $2;
$line = "$macro\n";
next;
}
@@ -53,14 +53,14 @@
elsif (/\#endif/) {
if ($count > 0) {
$count--;
- $line .= "\\$macro\n";
+ $line .= "\/$macro\n";
}
- if ($found == 1) {
- $found = 0;
+ if ($found == $count + 1) {
+ $found--;
$line = "";
next;
}
- elsif ($found > 1) {
+ elsif ($found > $count + 1) {
$found = 0;
}
}
