mirror of
https://github.com/nasa/trick.git
synced 2025-03-11 06:54:12 +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
51 lines
1.2 KiB
Perl
Executable File
51 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use Cwd 'abs_path' ;
|
|
use File::Basename;
|
|
use strict ;
|
|
|
|
my $full_path ;
|
|
my $dir ;
|
|
my $dir_no_src ;
|
|
my $file_base ;
|
|
my $word ;
|
|
my $cont ;
|
|
|
|
#$full_path = abs_path(@ARGV[0]) ;
|
|
$full_path = abs_path(dirname(@ARGV[0])) . "/" . basename(@ARGV[0]) ;
|
|
|
|
$dir = dirname($full_path) ;
|
|
($dir_no_src = $dir) =~ s/\/src$// ;
|
|
|
|
$file_base = basename($full_path) ;
|
|
$file_base =~ s/\.[^\.]+$// ;
|
|
|
|
open FILE, "$dir_no_src/object_$ENV{TRICK_HOST_CPU}/${file_base}.d" or die "Could not open $dir_no_src/object_$ENV{TRICK_HOST_CPU}/${file_base}.d" ;
|
|
|
|
open OUTFILE, "> $dir_no_src/object_$ENV{TRICK_HOST_CPU}/${file_base}.dep" or die "Could not open $dir_no_src/object_$ENV{TRICK_HOST_CPU}/${file_base}.dep" ;
|
|
|
|
while ( <FILE> ) {
|
|
next if ( /^#/ ) ;
|
|
next if ( /^\s+\\/ ) ;
|
|
|
|
$cont = 0 ;
|
|
foreach $word ( split ) {
|
|
|
|
if ( $word eq "\\" ) {
|
|
$word = "\\\n" ;
|
|
$cont = 1 ;
|
|
}
|
|
else {
|
|
if ( $word !~ /^\// and $dir ne "\/" ) {
|
|
$word = "$dir/$word" ;
|
|
}
|
|
$word = abs_path($word) ;
|
|
}
|
|
print OUTFILE "$word " ;
|
|
}
|
|
if ( $cont == 0 ) {
|
|
print OUTFILE "\n" ;
|
|
}
|
|
}
|
|
|