namazu-dev(ring)

[藤原 誠 Makoto Fujiwara <makoto@xxxxx>]

>                                            千葉市中央区長洲
>                                                    藤原  誠
高林さん、いつもありがとうございます。さて、
~/.mknmzrc などの中に書く
$EXCLUDE_REGEX ですが、いまは
sub wanted ($$){
の中で見ていますが、これを find.pl の中で見るようにすると、
とても大きな(沢山の数の譜がある)directory を避けるような時に、
効果的な気がします。

きょう 1.9.5 で試して、その方がいいと思いました。
しかし 1.9.5 に対する差分を作ってもつまらないという雰囲気なの
で :-) cvs で取って来たもので差分を作って見ました。

しかし きょうのものですが、
Making all in po
make: don't know how to make cat-id-tbl.c. Stop
*** Error code 1
となってしまうので、動作はまだ確めていません。これは何が悪い
のでしょうか。
---
(藤原)

--- pl/find.pl-oooo	Mon Oct 11 13:25:18 1999
+++ pl/find.pl	Thu Dec  2 22:44:34 1999
@@ -88,7 +88,9 @@
 	return(0);
     }
     ##
-
+    if ( defined($conf::EXCLUDE_REGEX) && ( $dir =~ /$conf::EXCLUDE_REGEX/ )) { 
+	print ' find.pl -- skipping: ', $dir, " (", $conf::EXCLUDE_REGEX, ")\n"; }
+    else {
 
     # Get the list of files in the current directory.
 
@@ -142,7 +144,7 @@
 	    }
 	}
     }
-}
+}}
 
 # public function.
 sub findfiles ($\@) {