changeset 275:84ab6c197dd8

remove dead code
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 13:41:46 +0900
parents 58da7a1234f7
children 49a70efcbd3a
files src/gearsTools/lib/Gears/Util.pm
diffstat 1 files changed, 1 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- 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,$_);
         }
       },