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

tweak
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 18 Nov 2019 21:32:08 +0900
parents 1eb2a22ec1e3
children 2dc06f944a85
line wrap: on
line diff
--- a/src/parallel_execution/trans_impl.pl	Mon Nov 18 21:22:34 2019 +0900
+++ b/src/parallel_execution/trans_impl.pl	Mon Nov 18 21:32:08 2019 +0900
@@ -7,8 +7,11 @@
 use Gears::Util;
 
 use DDP { deparse => 1};
+my $cur_path = "$FindBin::Bin";
 
 my $impl_file = shift or die 'require impl file';
 my $ir =  Gears::Util->parse_impl($impl_file);
-my $hoge  =  Gears::Util->find_interface($ir->{isa});
-my $foo =  Gears::Util->slup($hoge);
+my $hoge  =  Gears::Util->find_header($ir->{isa},$cur_path);
+#my $foo =  Gears::Util->slup($hoge);
+p $hoge;
+