Mercurial > hg > CbC > CbC_xv6

comparison src/gearsTools/generate_stub.pl @ 387:ba8f847f4769

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author anatofuz
date Mon, 27 Jul 2020 19:18:53 +0900
parents aa97e53b167c
children bfcfba3860c3
comparison
equal deleted inserted replaced
386:aa97e53b167c 387:ba8f847f4769
725 my ($filename) = @_; 725 my ($filename) = @_;
726 open my $fh, '<', $filename; 726 open my $fh, '<', $filename;
727 while (my $line = <$fh>) { 727 while (my $line = <$fh>) {
728 if ($line =~ /extern\s+_\_code\s+(\w+)\((.*)\)/) { 728 if ($line =~ /extern\s+_\_code\s+(\w+)\((.*)\)/) {
729 push(@{$filename2localCodes{$filename}},$1); 729 push(@{$filename2localCodes{$filename}},$1);
730 } elsif ($line =~ /^\s\s*_\_code\s+(\w+)\((.*)\)(.*)/) { 730 } elsif ($line =~ /^\s*_\_code\s+(\w+)\((.*)\)(.*)/) {
731 push(@{$filename2localCodes{$filename}},$1); 731 push(@{$filename2localCodes{$filename}},$1);
732 } elsif ($line =~ /^\s\s*_\_code *\(\s*\*\s*(\w+)\)\((.*)\)(.*)/) { 732 } elsif ($line =~ /^\s*_\_code *\(\s*\*\s*(\w+)\)\((.*)\)(.*)/) {
733 push(@{$filename2localCodes{$filename}},$1); 733 push(@{$filename2localCodes{$filename}},$1);
734 } elsif ($line =~ /^\_\_code (\w+)\((.*)\)(.*)/) { 734 } elsif ($line =~ /^\_\_code (\w+)\((.*)\)(.*)/) {
735 push(@{$filename2localCodes{$filename}},$1); 735 push(@{$filename2localCodes{$filename}},$1);
736 } 736 }
737 } 737 }