# HG changeset patch
# User anatofuz
# Date 1595845929 -32400
# Node ID bfcfba3860c3fc7913bb591741a9cf68254e022b
# Parent  ba8f847f4769f407a7c5c4a49a3a1659be6a0a13
...

diff -r ba8f847f4769 -r bfcfba3860c3 src/gearsTools/generate_stub.pl
--- a/src/gearsTools/generate_stub.pl	Mon Jul 27 19:18:53 2020 +0900
+++ b/src/gearsTools/generate_stub.pl	Mon Jul 27 19:32:09 2020 +0900
@@ -642,7 +642,7 @@
                 my $next = $2;
                 my @args = split(/,/, $3);
                 my $v = 0;
-                if (findFromFilename2CodeGear($filename, $next)) {
+                if (exists $filename2localCodes{$filename}->{$next}) {
                     print $fd $_; next;
                 }
                 for my $n ( @{$dataGearVar{$codeGearName}} ) {
@@ -726,23 +726,16 @@
   open my $fh, '<', $filename;
   while (my $line = <$fh>) {
     if ($line =~ /extern\s+_\_code\s+(\w+)\((.*)\)/) {
-       push(@{$filename2localCodes{$filename}},$1);
+       $filename2localCodes{$filename}->{$1} = 1;
     } elsif ($line =~ /^\s*_\_code\s+(\w+)\((.*)\)(.*)/) {
-       push(@{$filename2localCodes{$filename}},$1);
+       $filename2localCodes{$filename}->{$1} = 1;
     } elsif ($line =~ /^\s*_\_code  *\(\s*\*\s*(\w+)\)\((.*)\)(.*)/) {
-       push(@{$filename2localCodes{$filename}},$1);
+       $filename2localCodes{$filename}->{$1} = 1;
     } elsif ($line =~ /^\_\_code (\w+)\((.*)\)(.*)/) {
-       push(@{$filename2localCodes{$filename}},$1);
+       $filename2localCodes{$filename}->{$1} = 1;
     }
  }
  close $fh;
 }
 
-sub findFromFilename2CodeGear {
-  my ($filename, $cgname) = @_;
-  
-  my @result = grep { /^$cgname$/ } @{$filename2localCodes{$filename}};  
-  return @result;
-}
-
 # end