aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8/contrib/make-obstacks-texi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.8/contrib/make-obstacks-texi.pl')
-rw-r--r--gcc-4.8/contrib/make-obstacks-texi.pl46
1 files changed, 0 insertions, 46 deletions
diff --git a/gcc-4.8/contrib/make-obstacks-texi.pl b/gcc-4.8/contrib/make-obstacks-texi.pl
deleted file mode 100644
index 63a0bac0b..000000000
--- a/gcc-4.8/contrib/make-obstacks-texi.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl -w
-
-# (C) 2013 Free Software Foundation
-# Contributed by Tobias Burnus
-#
-# This script is Free Software, and it can be copied, distributed and
-# modified as defined in the GNU General Public License. A copy of
-# its license can be downloaded from http://www.gnu.org/copyleft/gpl.html
-
-use strict;
-use File::Basename;
-
-
-if ($#ARGV != 0 or $ARGV[0] eq "") {
- my $name = basename($0);
-
- print "\nUSAGE: `$name` memory.texi\n\n";
- print "Reads GLIBC's manual/memory.texi and extracts the obstacks section\n"
- ."Redirect the output to update GCC's libiberty/obstacks.texi\n\n";
- exit 1;
-}
-
-open (IN, "<$ARGV[0]") || die "Cannot open '$ARGV[0]': $!";
-my $data = join ("", <IN>);
-close (IN);
-
-$data =~ s/.*\@node Obstacks\n/\@node Obstacks\n/s;
-$data =~ s/\n\@node [^\n]+\n\@subsection.*/\n/s;
-
-# Add refs to GLIBC
-$data =~ s/(\@p?xref{[^}]*)}/$1, , , libc, The GNU C Library Reference Manual}/gs;
-
-
-# And undo the refs which are in this file
-my @nodes = grep /^\@node /, (split /\n/, $data);
-
-foreach my $node (@nodes) {
- $node =~ s/\@node //;
- $node =~ s/,.*//;
- $node =~ s/ / *\n?/g;
- chomp ($node);
-
- $data =~ s/(\@p?xref{$node), , , libc, The GNU C Library Reference Manual}/$1}/gsi;
-}
-
-print $data;