| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | # This script reorders config_h.SH after metaconfig |
| 4 | # Changing metaconfig is too complicated |
| 5 | # |
| 6 | # This script is run just after metaconfig, and it |
| 7 | # is run ONLY ONCE. Not to be used afterwards |
| 8 | # |
| 9 | # Copyright (C) 2005-2012 by H.Merijn Brand (m)'12 [22-09-2012] |
| 10 | # |
| 11 | # You may distribute under the terms of either the GNU General Public |
| 12 | # License or the Artistic License, as specified in the README file. |
| 13 | |
| 14 | use strict; |
| 15 | use warnings; |
| 16 | |
| 17 | my ($cSH, $ch, @ch, %ch) = ("config_h.SH"); |
| 18 | open $ch, "<$cSH" or die "Cannot open $cSH: $!\n"; |
| 19 | { local $/ = "\n\n"; |
| 20 | @ch = <$ch>; |
| 21 | close $ch; |
| 22 | } |
| 23 | |
| 24 | sub ch_index () |
| 25 | { |
| 26 | %ch = (); |
| 27 | foreach my $ch (0 .. $#ch) { |
| 28 | while ($ch[$ch] =~ m{^/\* ([A-Z]\w+)}gm) { |
| 29 | $ch{$1} = $ch; |
| 30 | } |
| 31 | } |
| 32 | } # ch_index |
| 33 | |
| 34 | my %dep = ( |
| 35 | # This symbol must be defined BEFORE ... |
| 36 | BYTEORDER => [ qw( UVSIZE ) ], |
| 37 | LONGSIZE => [ qw( BYTEORDER ) ], |
| 38 | MULTIARCH => [ qw( BYTEORDER MEM_ALIGNBYTES ) ], |
| 39 | USE_CROSS_COMPILE => [ qw( BYTEORDER MEM_ALIGNBYTES ) ], |
| 40 | HAS_QUAD => [ qw( I64TYPE ) ], |
| 41 | HAS_GETGROUPS => [ qw( Groups_t ) ], |
| 42 | HAS_SETGROUPS => [ qw( Groups_t ) ], |
| 43 | ); |
| 44 | |
| 45 | my $changed; |
| 46 | do { |
| 47 | $changed = 0; |
| 48 | foreach my $sym (keys %dep) { |
| 49 | ch_index; |
| 50 | foreach my $dep (@{$dep{$sym}}) { |
| 51 | print STDERR "Check if $sym\t($ch{$sym}) precedes $dep\t($ch{$dep})\n"; |
| 52 | $ch{$sym} < $ch{$dep} and next; |
| 53 | my $ch = splice @ch, $ch{$sym}, 1; |
| 54 | splice @ch, $ch{$dep}, 0, $ch; |
| 55 | $changed++; |
| 56 | ch_index; |
| 57 | } |
| 58 | } |
| 59 | } while ($changed); |
| 60 | |
| 61 | # 30327 |
| 62 | for (grep m{echo .Extracting \$CONFIG_H} => @ch) { |
| 63 | my $case = join "\n", |
| 64 | qq{case "\$CONFIG_H" in}, |
| 65 | qq{already-done) echo "Not re-extracting config.h" ;;}, |
| 66 | qq{*)}, ""; |
| 67 | s{^(?=echo .Extracting)}{$case}m; |
| 68 | } |
| 69 | push @ch, ";;\nesac\n"; |
| 70 | |
| 71 | |
| 72 | open $ch, "> $cSH" or die "Cannot write $cSH: $!\n"; |
| 73 | print $ch <<EOW; |
| 74 | #!/bin/sh |
| 75 | # |
| 76 | # THIS IS A GENERATED FILE |
| 77 | # DO NOT HAND-EDIT |
| 78 | # |
| 79 | # See Porting/config_h.pl |
| 80 | |
| 81 | EOW |
| 82 | |
| 83 | print $ch @ch; |
| 84 | close $ch; |