util/ghc_setup.pl

   1 #!/usr/bin/perl
   2 #
   3 # Silly GHC ./Setup helper, simply to strip the DESTDIR away
   4 # when it is not passed in, and add "--copy-prefix" if it is.
   5 #
   6
   7 use Config;
   8 use File::Spec;
   9
  10 my $setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
  11 my @args = grep !/^--[-\w]*prefix=$/, @ARGV;
  12 my $prompt_register;
  13
  14 if ($args[0] eq 'copy') {
  15     if (@args != @ARGV and is_root()) {
  16         # if there's no prefix, we want an install.
  17         $args[0] = 'install';
  18     }
  19     else {
  20         # If this is merely a copy, tell the user to "make register".
  21         $prompt_register = 1;
  22     }
  23 }
  24 print "*** Running: $setup @args\n";
  25
  26 my $rv = system($setup, @args);
  27 if ($rv == 0) {
  28     if ($prompt_register) {
  29         print << ".";
  30 *** Installed!  If you would like to make Pugs a system-wide GHC package
  31     for use with other Haskell programs, type '$Config{make} register'.
  32 .
  33     }
  34     else {
  35         print << ".";
  36 *** Installed successfully!
  37 .
  38     }
  39 }
  40 else {
  41     print << ".";
  42 *** Installation failed (exit code $rv).
  43 .
  44 }
  45
  46 exit $rv;
  47
  48 sub is_root {
  49     local $@;
  50     eval('$> == 0') || $@; # System with no concepts of UIDs
  51 }