Porting/config_h.pl

   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;