trick/bin/trick-version

#!/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\"}/share/trick/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" ;
}