Namazu-devel-ja(旧)

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

>                                            千葉市中央区長洲
>                                                    藤原  誠

臼> Perlのprototype自体がCやJavaプログラマがイメージするprototypeとかなり
臼> 違うと本に書かれていたので記述の厳密化にはそれほど役立たないのかもし
臼> れません。

でも、少なくとも引数の数を合せるということだけは出来ると思います。

[namazu-devel-ja : No.03119] の次の記事の中で

藤> でした。sort の subroutine がうまく作れなかった、という意味です。

かなりいい加減なものを作って、mknmz.in を並び替えて、perl -wc が
通るようにするには、次の変更が必要でした。patch の形でお送りして
も意味がないので 単純 diff にしています。

これでも 
===================
All 46 tests passed
===================
にはなっています。(stable-2-0)
---
(藤原)

372c372
< sub get_field_index_base (\%) {
---
> sub get_field_index_base ($) {
390c390
< sub complete_field_info (\%$$\$\$\$) {
---
> sub complete_field_info ($$$$$$) {
423c423
< sub put_field_index (\%$) {
---
> sub put_field_index ($$) {
623c623
< sub change_filenames ($) {
---
> sub change_filenames () {
659c659
< sub add_target ($\@\%) {
---
> sub add_target ($$$) {
781c781
< sub pickup_updated_documents (\%) {
---
> sub pickup_updated_documents ($) {
1093c1093
< sub set_target_files() {
---
> sub set_target_files(@) {
1743c1743
< sub prep () {
---
> sub prep (@) {
1790c1790
< sub wordcount_sub ($$\%) {
---
> sub wordcount_sub ($$$) {
1912c1912
< sub load_document ($$$$\%) {
---
> sub load_document ($$$$$) {
2301c2301
< sub process_file ($$$$$$) {
---
> sub process_file ($$$$$$$) {