Commit | Line | Data |
---|---|---|
a05e4467 RK |
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; | |
3fbdc96d | 27 | output("%s (DisOrder) $version\n"); |
3fbdc96d RK |
28 | output("Copyright (C) 2003-2008 Richard Kettlewell et al\n"); |
29 | output("License GPLv2+: GNU GPL version 2 or later:\n"); | |
30 | output(" http://www.gnu.org/licenses/old-licenses/gpl-2.0.html\n"); | |
31 | output("This is free software: you are free to change and redistribute it.\n"); | |
32 | output("There is NO WARRANTY, to the extent permitted by law.\n"); | |
240f4b16 | 33 | output("WARNING: -Werror not used in this build\n") if $cc !~ /-Werror/; |
3fbdc96d | 34 | |
a05e4467 | 35 | close STDOUT or die "$0: stdout: $!\n"; |