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; | |
27 | output("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 | close STDOUT or die "$0: stdout: $!\n"; |