mirror of
https://github.com/nasa/trick.git
synced 2024-12-24 07:16:41 +00:00
14a75508a3
Changed all header file once include variables to follow the same naming convention and not start with any underscores. Also deleted old incorrect copyright notices. Also removed $Id: tags from all files. Fixes #14. Fixes #22.
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" ;
|
|
}
|
|
}
|
|
|