mirror of
https://github.com/nasa/trick.git
synced 2024-12-30 18:07:00 +00:00
19025d77ad
Reorganized. Created a new top level include directory that will hold all of Trick's header files. Moved all of the Trick headers to this directory. Created a libexec directory that holds all of the executables that users don't need to execute directly. Changed all of the executables remaining in bin to start with "trick-". In the sim_services directories changed all source files to find the Trick headers in their new location. Since all of the include files are gone in sim_services, removed the src directories as well, moving all of the source files up a level. Moved the makefiles, docs, man, and other architecture independent files into a top level share directory. Renamed lib_${TRICK_HOST_CPU} to lib64 or lib depending on the platform we're currently on.
refs #63
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\"}/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" ;
|
|
}
|