Mercurial > hg > Members > menikon > CbC_xv6

comparison src/gearsTools/generate_context.pl @ 276:49a70efcbd3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix_arguments...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 14:06:54 +0900
parents f9df567f7f2d
children
comparison
equal deleted inserted replaced
275:84ab6c197dd8 276:49a70efcbd3a
79 79
80 use Data::Dumper; 80 use Data::Dumper;
81 my @cbc_files; 81 my @cbc_files;
82 map { push(@cbc_files,File::Spec->rel2abs($_)); } @ARGV; 82 map { push(@cbc_files,File::Spec->rel2abs($_)); } @ARGV;
83 my $gears = Gears::Context->new(compile_sources => \@cbc_files, find_root => "$FindBin::Bin/../", output => $output); 83 my $gears = Gears::Context->new(compile_sources => \@cbc_files, find_root => "$FindBin::Bin/../", output => $output);
84 my $data_gears = $gears->extraction_dg_compile_sources(); 84 my $data_gears = $gears->extraction_dg_compile_sources($gears->{compile_sources});
85 my $g = $gears->set_data_gear_header_path(keys %{$data_gears->{impl}},keys %{$data_gears->{interfaces}}); 85 my $g = $gears->set_data_gear_header_path(keys %{$data_gears->{impl}},keys %{$data_gears->{interfaces}});
86 86
87 my $dg2path = $gears->update_dg_each_header_path($data_gears,$g); 87 my $dg2path = $gears->update_dg_each_header_path($data_gears,$g);
88 my $tree = $gears->createImplTree_from_header($dg2path); 88 my $tree = $gears->createImplTree_from_header($dg2path);
89 $gears->tree2create_context_h($tree); 89 $gears->tree2create_context_h($tree);