namazu-ml(avocado)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

make_abstract



古川です。

# 近々、親戚宅 (名東区) に行きます。


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