mirror of
https://github.com/nasa/trick.git
synced 2025-01-09 14:32:53 +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.
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;
|