diff options
Diffstat (limited to 'winsup/cygwin/sortdin')
-rwxr-xr-x | winsup/cygwin/sortdin | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/winsup/cygwin/sortdin b/winsup/cygwin/sortdin deleted file mode 100755 index dafb329ff..000000000 --- a/winsup/cygwin/sortdin +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl - -my %data = (); -my %code = (); - -my @out = (); - -my $fn = $ARGV[0]; - -while (<>) { - push(@out, $_); - /^\s*exports/i and last; -} - -while (<>) { - my $key; - $arr = /\sDATA\s*$/o ? \%data : \%code; - $_ =~ s/^\s+//; - my $key = (split(' ', $_))[0]; - substr($key, 0, 1) = '' while $key =~ /^_/o; - chomp $key; - $arr->{$key}->{$_} = 1; -} - -for my $k (sort keys %data) { - push(@out, sort {$b cmp $a} keys %{$data{$k}}); -} - -for my $k (sort keys %code) { - push(@out, sort {$b cmp $a} keys %{$code{$k}}); -} - -open(R, '>', $fn); -print R @out; -close R; |