sub createHeaderNameToInfo {
    my ($fn, $search_root) = @_;
    my $dirname = dirname $fn;
    my $files = Gears::Util->find_headers_from_path($search_root);
    my $interface_name2headerpath = {};

    #This process assumes that there are no header files of the same name
    for my $file (@{$files}) {
      if ($file =~ m|/(\w+)\.\w+$|) {
        my $file_name = $1;
        my $isInterface = Gears::Interface->isThisFileInterface($file);
        if (defined $interface_name2headerpath->{$file_name}) {
          next if ($file !~ m|$dirname|);
        }
        $interface_name2headerpath->{$file_name} = { path => $file, isInterface => $isInterface };
      }
    }

    return $interface_name2headerpath;
}