Mercurial > hg > Members > tobaru > CbC_xv6

comparison src/gearsTools/trans_impl.pl @ 122:f6558602f31e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tweak
author anatofuz
date Mon, 02 Dec 2019 19:21:20 +0900
parents b9df8ea87b42
children 004e825f37c7 53be0626c3fa
comparison
equal deleted inserted replaced
121:6ac3f95e38a4 122:f6558602f31e
4 4
5 use FindBin; 5 use FindBin;
6 use lib "$FindBin::Bin/lib"; 6 use lib "$FindBin::Bin/lib";
7 use Gears::Util; 7 use Gears::Util;
8 8
9 use File::Spec;
9 use Getopt::Std; 10 use Getopt::Std;
10 11
11 my %opt; 12 my %opt;
12 getopts("w" => \%opt); 13 getopts("w" => \%opt);
13 14
14 my $impl_file = shift or die 'require impl file'; 15 my $impl_file = shift or die 'require impl file';
15 my $impl_ir = Gears::Util->parse_with_rewrite($impl_file); 16
17 use Data::Dumper;
18 my $impl_ir = Gears::Util->parse_with_rewrite(File::Spec->rel2abs($impl_file));
16 my $interface_file = Gears::Util->find_header($impl_ir->{isa},"$FindBin::Bin/.."); 19 my $interface_file = Gears::Util->find_header($impl_ir->{isa},"$FindBin::Bin/..");
17 20
18 my $inter_ir = Gears::Util->parse_with_rewrite($interface_file); 21 my $inter_ir = Gears::Util->parse_with_rewrite($interface_file);
19 22
20 23