Mercurial > hg > GearsTemplate

comparison src/parallel_execution/trans_impl.pl @ 558:8a825fc15817

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tweak
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 18 Nov 2019 21:32:08 +0900
parents 1eb2a22ec1e3
children 2dc06f944a85
comparison
equal deleted inserted replaced
557:1eb2a22ec1e3 558:8a825fc15817
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 DDP { deparse => 1}; 9 use DDP { deparse => 1};
10 my $cur_path = "$FindBin::Bin";
10 11
11 my $impl_file = shift or die 'require impl file'; 12 my $impl_file = shift or die 'require impl file';
12 my $ir = Gears::Util->parse_impl($impl_file); 13 my $ir = Gears::Util->parse_impl($impl_file);
13 my $hoge = Gears::Util->find_interface($ir->{isa}); 14 my $hoge = Gears::Util->find_header($ir->{isa},$cur_path);
14 my $foo = Gears::Util->slup($hoge); 15 #my $foo = Gears::Util->slup($hoge);
16 p $hoge;
17