]>
Commit | Line | Data |
---|---|---|
34d3a672 TB |
1 | #!/usr/bin/perl -w |
2 | ||
3 | # (C) 2013 Free Software Foundation | |
4 | # Contributed by Tobias Burnus | |
5 | # | |
6 | # This script is Free Software, and it can be copied, distributed and | |
7 | # modified as defined in the GNU General Public License. A copy of | |
8 | # its license can be downloaded from http://www.gnu.org/copyleft/gpl.html | |
9 | ||
10 | use strict; | |
11 | use File::Basename; | |
12 | ||
13 | ||
14 | if ($#ARGV != 0 or $ARGV[0] eq "") { | |
15 | my $name = basename($0); | |
16 | ||
17 | print "\nUSAGE: `$name` memory.texi\n\n"; | |
18 | print "Reads GLIBC's manual/memory.texi and extracts the obstacks section\n" | |
19 | ."Redirect the output to update GCC's libiberty/obstacks.texi\n\n"; | |
20 | exit 1; | |
21 | } | |
22 | ||
23 | open (IN, "<$ARGV[0]") || die "Cannot open '$ARGV[0]': $!"; | |
24 | my $data = join ("", <IN>); | |
25 | close (IN); | |
26 | ||
27 | $data =~ s/.*\@node Obstacks\n/\@node Obstacks\n/s; | |
28 | $data =~ s/\n\@node [^\n]+\n\@subsection.*/\n/s; | |
29 | ||
30 | # Add refs to GLIBC | |
31 | $data =~ s/(\@p?xref{[^}]*)}/$1, , , libc, The GNU C Library Reference Manual}/gs; | |
32 | ||
33 | ||
34 | # And undo the refs which are in this file | |
35 | my @nodes = grep /^\@node /, (split /\n/, $data); | |
36 | ||
37 | foreach my $node (@nodes) { | |
38 | $node =~ s/\@node //; | |
39 | $node =~ s/,.*//; | |
40 | $node =~ s/ / *\n?/g; | |
41 | chomp ($node); | |
42 | ||
43 | $data =~ s/(\@p?xref{$node), , , libc, The GNU C Library Reference Manual}/$1}/gsi; | |
44 | } | |
45 | ||
46 | print $data; |