improve accuracy

diff --git a/grepen/grepen.pl b/grepen/grepen.pl
index 5babd9b..2cf004d 100644 (file)
--- a/grepen/grepen.pl
+++ b/grepen/grepen.pl
@@ -7,6 +7,9 @@ binmode(STDIN);
 my $f = 0;\r
 \r
 while(<>){\r
+    if (eof) {     # eof() \82Å\82Í\82È\82¢\81B\r
+        close(ARGV);\r
+    }\r
     chomp;\r
     if(m@^.if 0 /\*JP@){\r
         $f = 1;\r
@@ -36,19 +39,26 @@ while(<>){
     if(/debugpline\d\(/){ next; }\r
     if(/impossible\(/){ next; }\r
     if(/panic\(/){ next; }\r
+    if(/error\(/){ next; }\r
+\r
+    if(/getobj\(/){ next; }\r
+    if(/floorfood\(/){ next; }\r
+    if(/wield_tool\(/){ next; }\r
+\r
     if(/.include/){ next; }\r
 \r
     s@/\*.*\*/@@g;\r
     my $ff = 0;\r
     while(/\"([^\"]*)\"/gc){\r
         my $m = $1;\r
-        $m =~ s/%s//g;\r
+        $m =~ s/%-?[0-9]*l?[sd]//g;\r
+        $m =~ s/[ \[\]]//g;\r
 \r
         if($m =~ /^[ !#-~]+$/a){ # }\r
             $ff = 1;\r
         }\r
     }\r
     if($ff == 1){\r
-        printf "%d:%s\n", $., $_;\r
+        printf "%s:%d:%s\n", $ARGV, $., $_;\r
     }\r
 }\r