mirror of
https://github.com/nasa/trick.git
synced 2025-01-09 14:32:53 +00:00
25 lines
408 B
Perl
25 lines
408 B
Perl
|
package find_module ;
|
||
|
|
|
||
|
|
use Exporter ();
|
||
|
|
@ISA = qw(Exporter);
|
||
|
|
@EXPORT = qw(find_header_file );
|
||
|
|
|
||
|
|
use strict ;
|
||
|
|
|
||
|
|
sub find_header_file ($$) {
|
||
|
|
my ($relpath, $inc_paths_ref) = @_ ;
|
||
|
|
my $file_name ;
|
||
|
|
my $rel_dir ;
|
||
|
|
|
||
|
|
foreach ( @{$inc_paths_ref} ) {
|
||
|
|
(my $path = $_) =~ s/\\//g ;
|
||
|
|
return ( "$path/$relpath" ) if ( -e "$path/$relpath" ) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Didn't find file
|
||
|
|
return("");
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|