# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1580186506 -32400
# Node ID 84ab6c197dd847b7682baba066a0be22425c6db9
# Parent  58da7a1234f7e67733c679b0564c7b711a9335c6
remove dead code

diff -r 58da7a1234f7 -r 84ab6c197dd8 src/gearsTools/lib/Gears/Util.pm
--- a/src/gearsTools/lib/Gears/Util.pm	Tue Jan 28 12:35:11 2020 +0900
+++ b/src/gearsTools/lib/Gears/Util.pm	Tue Jan 28 13:41:46 2020 +0900
@@ -10,11 +10,6 @@
   return $ir;
 }
 
-sub parse_code_verbose {
-  my ($class, $file_name) = @_;
-  my $ir = _parse_base($file_name,1);
-  return $ir;
-}
 
 sub parse_interface {
   my ($class, $file_name) = @_;
@@ -27,16 +22,6 @@
 }
 
 
-sub parse_impl {
-  my ($class, $file_name) = @_;
-  my $ir = _parse_base($file_name);
-
-  unless ($ir->{isa} && $ir->{name}) {
-    croak 'invalid struct name';
-  }
-  return $ir;
-}
-
 sub _parse_base {
   my ($file,$code_verbose) = @_;
   my $ir  = {};
@@ -128,7 +113,7 @@
   find(
     {
       wanted => sub {
-        if ($_ =~ /\/$header_name\.(h|dg)/) {
+        if ($_ =~ /\/$header_name\.(h|dg)$/) {
           push(@header_list,$_);
         }
       },