# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1574603953 -32400
# Node ID 3c35bcb82f0802adefe0696f046a26e6108a4a05
# Parent  d9c3bccaa13cfc4542458e72a15e794e2535a026
mv Gears.pm to Gears/Context.pm

diff -r d9c3bccaa13c -r 3c35bcb82f08 src/parallel_execution/auto_generate_context.pl
--- a/src/parallel_execution/auto_generate_context.pl	Sun Nov 24 22:55:33 2019 +0900
+++ b/src/parallel_execution/auto_generate_context.pl	Sun Nov 24 22:59:13 2019 +0900
@@ -1,12 +1,12 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Gears;
+use Gears::Context;
 use DDP {deparse => 1};
 
 my @cbc_files = <DATA>;
 chomp @cbc_files;
-my $gears = Gears->new(compile_sources => \@cbc_files);
+my $gears = Gears::Context->new(compile_sources => \@cbc_files);
 $gears->extraction_dg_compile_sources();
 $gears->search_data_gears();
 
diff -r d9c3bccaa13c -r 3c35bcb82f08 src/parallel_execution/lib/Gears.pm
--- a/src/parallel_execution/lib/Gears.pm	Sun Nov 24 22:55:33 2019 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,62 +0,0 @@
-package Gears;
-
-use strict;
-use warnings;
-
-use Gears::Util;
-use DDP {deparse => 1};
-
-sub new {
-  my ($class, %args) = @_;
-  p %args;
-
-  my $self = {
-    interfaces => [],
-    data_gears_with_count => {},
-  };
-
-  if ($args{compile_sources}) {
-    $self->{compile_sources} = $args{compile_sources};
-    map { Gears::Util->file_checking($_); } @{$self->{compile_sources}};
-  }
-  return bless $self, $class;
-}
-
-sub extraction_dg_compile_sources {
-  my $self = shift;
-  map { $self->extraction_data_gears($_) } @{$self->{compile_sources}};
-}
-
-sub extraction_data_gears {
-  my ($self, $cbc_file)  = @_;
-  open my $fh , '<', $cbc_file;
-  while (my $line = <$fh>) {
-     if ($line =~ /#interface\s*"(.*)\.h"/) {
-        $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}->{caller}->{$cbc_file}++;
-       }
-     }
-  }
-  close $fh;
-}
-
-sub search_data_gears {
-  my $self = shift;
-  my @data_gears_name;
-  if (@_) {
-    @data_gears_name = @_;
-  } else {
-    @data_gears_name = keys %{$self->{data_gears_with_count}};
-  }
-  #my @data_gears_name =  keys %{$self->{data_gears_with_count}};
-  p @data_gears_name;
-}
-
-
-1;
diff -r d9c3bccaa13c -r 3c35bcb82f08 src/parallel_execution/lib/Gears/Context.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/parallel_execution/lib/Gears/Context.pm	Sun Nov 24 22:59:13 2019 +0900
@@ -0,0 +1,62 @@
+package Gears::Context;
+
+use strict;
+use warnings;
+
+use Gears::Util;
+use DDP {deparse => 1};
+
+sub new {
+  my ($class, %args) = @_;
+  p %args;
+
+  my $self = {
+    interfaces => [],
+    data_gears_with_count => {},
+  };
+
+  if ($args{compile_sources}) {
+    $self->{compile_sources} = $args{compile_sources};
+    map { Gears::Util->file_checking($_); } @{$self->{compile_sources}};
+  }
+  return bless $self, $class;
+}
+
+sub extraction_dg_compile_sources {
+  my $self = shift;
+  map { $self->extraction_data_gears($_) } @{$self->{compile_sources}};
+}
+
+sub extraction_data_gears {
+  my ($self, $cbc_file)  = @_;
+  open my $fh , '<', $cbc_file;
+  while (my $line = <$fh>) {
+     if ($line =~ /#interface\s*"(.*)\.h"/) {
+        $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}->{caller}->{$cbc_file}++;
+       }
+     }
+  }
+  close $fh;
+}
+
+sub search_data_gears {
+  my $self = shift;
+  my @data_gears_name;
+  if (@_) {
+    @data_gears_name = @_;
+  } else {
+    @data_gears_name = keys %{$self->{data_gears_with_count}};
+  }
+  #my @data_gears_name =  keys %{$self->{data_gears_with_count}};
+  p @data_gears_name;
+}
+
+
+1;