namazu-ml(avocado)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
make_abstract
- From: Rei FURUKAWA <furukawa@xxxxxxxxxxxxxxxx>
- Date: Tue, 16 Jun 1998 12:35:30 +0900
- X-ml-name: namazu
- X-mail-count: 00832
古川です。
# 近々、親戚宅 (名東区) に行きます。
NMZ.f の要約に、'┏━━━━━' のような罫線や、罫線代わりに使われている、
'------------' のようなパターンが入るのは、あまりうれしくない、と思い、
パッチを作ってみました。
その分、有意義な情報が入って、よろしいのではないかと思います。
罫線を削除し、
罫線の代わりに使われている、'------------' '============' '************'
というパターン (うちではこれが多い) を短くします。
------------------------------ ここから ------------------------------
*** mknmz.pl.orig Wed Jun 3 12:49:04 1998
--- mknmz.pl Sun Jun 14 18:32:03 1998
***************
*** 1751,1754 ****
--- 1751,1755 ----
my ($contents, $header, $headings) = @_;
my ($abstract, $kanji, $tmp);
+ my ($offset, $tmplen);
# 頭の $ABSTRACT_LENGTH bytes (または $ABSTRACT_LENGTH + 1) を取り出し
***************
*** 1757,1764 ****
$$headings =~ s/\s+/ /g;
$tmp = $$headings;
! $tmp .= substr($$contents, 0, $ABSTRACT_LENGTH + 1)
! if length($tmp) < ($ABSTRACT_LENGTH + 1);
! } else {
! $tmp = substr($$contents, 0, $ABSTRACT_LENGTH + 1);
}
$abstract = substr($tmp, 0, $ABSTRACT_LENGTH);
--- 1758,1769 ----
$$headings =~ s/\s+/ /g;
$tmp = $$headings;
! }
! while (($tmplen = $ABSTRACT_LENGTH + 1 - length($tmp)) > 0
! && $offset < length($$contents)
! ){
! $tmp .= substr($$contents, $offset, $tmplen);
! $offset += $tmplen;
! $tmp =~ s/([\xa1-\xfe])./$1 eq "\xa8"? '': $&/ge;
! $tmp =~ s/([-=*])\1{2,}/$1$1/g;
}
$abstract = substr($tmp, 0, $ABSTRACT_LENGTH);
------------------------------ ここまで ------------------------------
--
ヤマハ(株)ピアノプレーヤ設計課
古川 令
furukawa@xxxxxxxxxxxxxxxx