# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1574495004 -32400
# Node ID 9adcf0da19b3f932193721d8af8a72437312c690
# Parent  dada17cba91d586f0291f67b1c16d82ef7b9847a
tweak

diff -r dada17cba91d -r 9adcf0da19b3 src/parallel_execution/auto_generate_context.pl
--- a/src/parallel_execution/auto_generate_context.pl	Sat Nov 23 16:27:58 2019 +0900
+++ b/src/parallel_execution/auto_generate_context.pl	Sat Nov 23 16:43:24 2019 +0900
@@ -3,6 +3,7 @@
 use warnings;
 use Gears;
 use DDP {deparse => 1};
+use Data::Dumper;
 
 my @cbc_files = <DATA>;
 chomp @cbc_files;
@@ -10,6 +11,7 @@
 $gears->extraction_dg_compile_sources();
 
 p $gears;
+print Dumper $gears;
 
 __DATA__
 /Users/anatofuz/src/firefly/hg/Gears/src/parallel_execution/examples/calc/calc.cbc
diff -r dada17cba91d -r 9adcf0da19b3 src/parallel_execution/lib/Gears.pm
--- a/src/parallel_execution/lib/Gears.pm	Sat Nov 23 16:27:58 2019 +0900
+++ b/src/parallel_execution/lib/Gears.pm	Sat Nov 23 16:43:24 2019 +0900
@@ -24,9 +24,7 @@
 
 sub extraction_dg_compile_sources {
   my $self = shift;
-  for my $cbc (@{$self->{compile_sources}}) {
-    $self->extraction_data_gears($cbc);
-  }
+  map { $self->extraction_data_gears($_) } @{$self->{compile_sources}};
 }
 
 sub extraction_data_gears {
@@ -34,14 +32,14 @@
   open my $fh , '<', $cbc_file;
   while (my $line = <$fh>) {
      if ($line =~ /#interface\s*"(.*)\.h"/) {
-        $self->{data_gears_with_count}->{$1}++;
+        $self->{data_gears_with_count}->{$1}->{caller}->{$cbc_file}++;
         push(@{$self->{interfaces}}, "$1.h");
         next;
      }
 
      if ($line =~ /__code/) {
        while ($line =~ /struct (\w+)*/g) {
-         $self->{data_gears_with_count}->{$1}++;
+         $self->{data_gears_with_count}->{$1}->{caller}->{$cbc_file}++;
        }
      }
   }