mirror of
https://github.com/nasa/trick.git
synced 2024-12-24 07:16:41 +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
33 lines
897 B
Perl
33 lines
897 B
Perl
package trick_version ;
|
|
|
|
use Exporter ();
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(get_trick_version);
|
|
|
|
|
|
use strict;
|
|
|
|
sub get_trick_version() {
|
|
|
|
my ($current_version , $thread_version , $service_issues ) ;
|
|
my (@all_lines , $file_contents) ;
|
|
|
|
if ( !exists $ENV{"TRICK_HOME"} ) {
|
|
die "TRICK_HOME is not set\n" ;
|
|
}
|
|
|
|
open FILE, "$ENV{\"TRICK_HOME\"}/share/trick/trick_ver.txt" or
|
|
die "trick_version: Couldn't find $ENV{\"TRICK_HOME\"}/share/trick/trick_ver.txt\n" ;
|
|
@all_lines = <FILE> ;
|
|
close FILE ;
|
|
$file_contents = join "" , @all_lines ;
|
|
|
|
($current_version) = $file_contents =~ /current_version\s*=\s*"([^"]+)"/ ;
|
|
($thread_version) = $file_contents =~ /thread_version\s*=\s*"([^"]+)"/ ;
|
|
($service_issues) = $file_contents =~ /service_issues\s*=\s*"(.+)"/s ;
|
|
|
|
return ( $current_version , $thread_version , $service_issues ) ;
|
|
}
|
|
|
|
1 ;
|