findinclude.pm

来自「无线通信的主要编程软件,是无线通信工作人员的必备工具,关天相关教程我会在后续传上」· PM 代码 · 共 43 行

package FindInclude;
use strict;

my @dirs = ();
my %found = ();


sub parse_include_opts {
  my @args_in = @_;
  my @args_out = ();
  for my $arg (@args_in) {
    if( $arg =~ /-I(.*)/ ) {
      my $dir = $1;
      #print "DIR = $1\n";
      $dir =~ s/^\%T/$ENV{TOSDIR}/ if defined $ENV{TOSDIR};
      push( @dirs, $dir );
    } else {
      push( @args_out, $arg );
    }
  }
  for (@dirs) { $_ .= "/" unless /\/$/; }
  #print "OUT DIRS = " . join(" ",@dirs) . "\n";
    return @args_out;
}


sub find_file {
  my $file = shift;
  return $found{$file} if defined $found{$file};
  #print "IN  DIRS = " . join(" ",@dirs) . "\n";
  for my $dir (@dirs ? @dirs : "") {
    my $full = "$dir$file";
    #print "FULL = $full\n";
    return $found{$file}=$full if -f $full;
  }
  return undef;
}


1;