Mercurial > hg > Members > menikon > CbC_xv6

comparison src/gearsTools/lib/Gears/Stub.pm @ 281:4d76280758db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
move context.pm to util.pm ...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 16:50:07 +0900
parents 21a5761e3e7a
children
comparison
equal deleted inserted replaced
280:21a5761e3e7a 281:4d76280758db
20 20
21 sub findInterfacewImpl { 21 sub findInterfacewImpl {
22 my $self = shift; 22 my $self = shift;
23 my $cbc_file = shift // $self->{file_name}; 23 my $cbc_file = shift // $self->{file_name};
24 my $findInterfaces = Gears::Util->extraction_dg_compile_sources([$cbc_file]); 24 my $findInterfaces = Gears::Util->extraction_dg_compile_sources([$cbc_file]);
25 p $findInterfaces; 25 my $edgcs = Gears::Util->extraction_dg_compile_sources([$cbc_file]);
26 my $findInterfaces = {};
27
28 my %ifs = ();
29 map { $ifs{$_}++ } keys %{$edgcs->{interfaces}};
30 delete $ifs{Meta};
31 delete $ifs{TaskManager};
32
33 push(@{$findInterfaces->{interfaces}}, keys %ifs);
34 push(@{$findInterfaces->{impls}}, keys %{$edgcs->{impl}});
35
36 return $findInterfaces;
26 } 37 }
27 38
28 1; 39 1;