mdw@git.distorted.org.uk Git - disorder/blob - scripts/make-version-string

   1 #! /usr/bin/perl -w
   2 use strict;
   3 sub output {
   4     print @_ or die "$0: stdout: $!\n";
   5 }
   6 my @csv = `../config.status --version`;
   7 my $version;
   8 my $options;
   9 my $cc;
  10 my $compiler;
  11 for(@csv) {
  12     chomp;
  13     if(/disorder config\.status (\S+)/) {
  14         $version = $1;
  15     }
  16     if(/with options \"(.*)\"/) {
  17         $options = $1;
  18     }
  19 }
  20 if(exists $ENV{CC}) {
  21     $cc = $ENV{CC};
  22     $cc =~ s/\s+/ /g;
  23     my @cv = `$cc --version`;
  24     $compiler = $cv[0];
  25 }
  26 die "no version found\n" unless defined $version;
  27 output("%s (DisOrder) $version\n");
  28 output(" configure options: $options\n") if defined $options;
  29 output(" compiler: $cc\n") if defined $compiler;
  30 output(" version: $compiler\n") if defined $cc;
  31 output("Copyright (C) 2003-2008 Richard Kettlewell et al\n");
  32 output("License GPLv2+: GNU GPL version 2 or later:\n");
  33 output("        http://www.gnu.org/licenses/old-licenses/gpl-2.0.html\n");
  34 output("This is free software: you are free to change and redistribute it.\n");
  35 output("There is NO WARRANTY, to the extent permitted by law.\n");
  36
  37 close STDOUT or die "$0: stdout: $!\n";