Mercurial > hg > CbC > CbC_xv6

changeset 251:cabe731b1c88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renames...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 04 Feb 2020 13:40:45 +0900
parents 9e8441699711
children 274bbf78b87b
files src/gearsTools/lib/Gears/Util.pm src/gearsTools/trans_impl.pl
diffstat 2 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/lib/Gears/Util.pm	Tue Feb 04 13:28:20 2020 +0900
+++ b/src/gearsTools/lib/Gears/Util.pm	Tue Feb 04 13:40:45 2020 +0900
@@ -82,7 +82,7 @@
   return grep { !$seen{$_}++ } @_;
 }
 
-sub parse_with_rewrite {
+sub parse_with_separate_code_data_gears{
   my ($class, $file)  = @_;
   my $ir = _parse_base($file);
 
@@ -123,7 +123,7 @@
   return $f;
 }
 
-sub find_header {
+sub find_using_interface_header {
   my $class = shift;
   my $header_name = shift;
 
--- a/src/gearsTools/trans_impl.pl	Tue Feb 04 13:28:20 2020 +0900
+++ b/src/gearsTools/trans_impl.pl	Tue Feb 04 13:40:45 2020 +0900
@@ -13,11 +13,10 @@
 getopts("wo:" => \%opt);
 
 my $impl_file = shift or die 'require impl file';
-my $impl_ir         = Gears::Util->parse_with_rewrite(File::Spec->rel2abs($impl_file));
-my $interface_file  = Gears::Util->find_header($impl_ir->{isa},"$FindBin::Bin/..");
+my $impl_ir         = Gears::Util->parse_with_separate_code_data_gears(File::Spec->rel2abs($impl_file));
+my $interface_file  = Gears::Util->find_using_interface_header($impl_ir->{isa},"$FindBin::Bin/..");
 
-my $inter_ir        = Gears::Util->parse_with_rewrite($interface_file);
-
+my $inter_ir        = Gears::Util->parse_with_separate_code_data_gears($interface_file);
 
 my $output_file = $impl_file;
 $output_file =~ s/\.h/.cbc/;