mirror of
https://github.com/nasa/trick.git
synced 2024-12-30 09:58:53 +00:00
50 lines
1.2 KiB
Perl
Executable File
50 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use File::Basename ;
|
|
use Cwd 'abs_path';
|
|
use strict;
|
|
|
|
my @all_lines ;
|
|
my $file_contents ;
|
|
my ($current_version) ;
|
|
my ($trick_bin , $trick_home ) ;
|
|
|
|
if ( !exists $ENV{"TRICK_HOME"} ) {
|
|
$trick_bin = dirname(abs_path($0)) ;
|
|
$trick_home = dirname($trick_bin) ;
|
|
|
|
# set TRICK_HOME based on the value of trick_home
|
|
$ENV{TRICK_HOME} = $trick_home ;
|
|
}
|
|
|
|
|
|
my $trick_ver_txt = "$ENV{\"TRICK_HOME\"}/bin/trick_ver.txt" ;
|
|
open FILE, "$trick_ver_txt" or
|
|
die "trick_version: Couldn't find $trick_ver_txt\n" ;
|
|
@all_lines = <FILE> ;
|
|
close FILE ;
|
|
$file_contents = join "" , @all_lines ;
|
|
|
|
($current_version) = $file_contents =~ /current_version\s*=\s*"([^"]+)"/ ;
|
|
|
|
$current_version =~ s/^trick-// ;
|
|
|
|
if ( grep /^-y(ear)?$/ , @ARGV ) {
|
|
$current_version =~ s/\..*$// ;
|
|
print "$current_version\n" ;
|
|
}
|
|
elsif ( grep /^-m(inor)?$/ , @ARGV ) {
|
|
$current_version =~ s/.*?\.// ;
|
|
$current_version =~ s/\..*$// ;
|
|
print "$current_version\n" ;
|
|
}
|
|
elsif ( grep /^-v(ersion)?$/ , @ARGV ) {
|
|
print "$current_version\n" ;
|
|
}
|
|
elsif ( grep /^-f(ull)?$/ , @ARGV ) {
|
|
print "$current_version\n" ;
|
|
}
|
|
else {
|
|
print "Version : $current_version\n" ;
|
|
}
|