From owner-doc-jp@jp.freebsd.org  Wed Mar 22 10:21:47 2000
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id KAA69938;
	Wed, 22 Mar 2000 10:21:47 +0900 (JST)
	(envelope-from owner-doc-jp@jp.FreeBSD.org)
Received: from sv01.geocities.co.jp (sv01.geocities.co.jp [210.153.89.155])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id KAA69933
	for <doc-jp@jp.freebsd.org>; Wed, 22 Mar 2000 10:21:47 +0900 (JST)
	(envelope-from hrs@geocities.co.jp)
Received: from mail.geocities.co.jp (mail.geocities.co.jp [210.153.89.137]) by sv01.geocities.co.jp (8.9.3+3.2W/3.7W) with ESMTP id KAA26292 for <doc-jp@jp.freebsd.org>; Wed, 22 Mar 2000 10:21:46 +0900 (JST)
Received: from mail.hrs.jp (sutnmax1-ppp33.ed.noda.sut.ac.jp [133.31.173.43]) by mail.geocities.co.jp (1.3G-GeocitiesJ-3.3) with ESMTP id KAA26837 for <doc-jp@jp.freebsd.org>; Wed, 22 Mar 2000 10:21:45 +0900 (JST)
Message-Id: <200003220121.KAA26837@mail.geocities.co.jp>
Received: from localhost (alph.hrs.jp [192.168.0.10])
	by mail.hrs.jp (8.9.3/3.7W/DomainMaster) with ESMTP id KAA53852
	for <doc-jp@jp.freebsd.org>; Wed, 22 Mar 2000 10:06:41 +0900 (JST)
	(envelope-from hrs@hrs.jp)
To: doc-jp@jp.freebsd.org
In-Reply-To: <38D7D1E3.6B862AB2@mail.wbs.ne.jp>
References: <38D7D1E3.6B862AB2@mail.wbs.ne.jp>
X-Mailer: Mew version 1.94 on Emacs 19.34 / Mule 2.3 (SUETSUMUHANA)
Mime-Version: 1.0
Content-Type: Text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Wed, 22 Mar 2000 10:06:40 +0900
From: Hiroki Sato <hrs@geocities.co.jp>
X-Dispatcher: imput version 990905(IM130)
Lines: 61
Reply-To: doc-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+000315
X-Sequence: doc-jp 7181
Subject: [doc-jp 7181] Re: Doesn't someone make 'Document Title database
 file'?
Errors-To: owner-doc-jp@jp.freebsd.org
Sender: owner-doc-jp@jp.freebsd.org
X-Originator: hrs@geocities.co.jp

$B:4F#!wEl5~M}2JBg3X$G$9!#(B

"Naoyuki (condle) Mori." <condle@mail.wbs.ne.jp> wrote
 in <38D7D1E3.6B862AB2@mail.wbs.ne.jp>:

> $BF14|>pJs$r(BML$B>e$GDs6!$9$k$K$"$?$j!"$3$NA0(B verup $B$7$?(B
> $B%=%U%H%&%'%"$r$D$+$&$K$7$F$b%U%!%$%kL>$H%I%-%e%a%s%H$N(B
> $B%?%$%H%k$H$N4XO"$,$D$+$a$J$$$?$a!"%G!<%?%Y!<%9%U%!%$%k$r(B

 $B<j=q$-$@$HJ]<i$,BgJQ$J$N$G!"$d$k$J$i(B
 source $B$+$i@8@.$5$;$?J}$,NI$$$H;W$$$^$9!#(B

 $B;29M$K$J$k$+$I$&$+J,$+$j$^$;$s$,!":#;H$C$F$$$k%9%/%j%W%H$+$i(B
 $B@Z$j=P$7$?$b$N$r$D$1$F$*$-$^$9!#$A$c$s$HF0$/$+$I$&$+$O(B
 $BL$%A%'%C%/$G$9$,!"0l1~!"%"%k%4%j%:%`E*$K$OBg>fIW$J$O$:$J$N$G!"(B
 $B$3$s$J46$8$N$r(B tree $B$G$0$k$0$k$^$o$;$P$$$1$k$N$G$O!#(B

 # $BA4It$,A4It!"$A$c$s$H$7$?%?%$%H%k$,$"$k$o$1$G$b$J$$$N$G!"(B
 # $B<BBN;2>H$rE83+$7$F$+$i%?%$%H%k$C$]$$J8;zNs$r=&$C$F$^$9!#(B

my $stag;
my $title;
my $linenum;
my %ent;
while(<>)
{
    ($linenum++>60)     and last;
    ($title and !$stag) and last;

    foreach $e (keys %ent){ s/&\Q$e;/$ent{$e}/eg; }

    if ($stag){
        if (m!(.*)<(/$stag|author)>!i){
            $title .= $1;
            $stag = undef;
            next;
        }
        $title .= $_;
        next;
    }

    if (!$title){
        if (m!<(title|headings)>(.+)!i){
            ($stag, $title) = ($1, $2);
            if (m!<$stag>(.+)<(/$stag|author)>!i){
                $title = $1;
                $stag = undef;
            }
            next;
        }
        (/<\!ENTITY\s*title\s*'([^\']+)'/i) and do { $title = $1; next; };
        (/<\!ENTITY\s*title\s*"([^\"]+)"/i) and do { $title = $1; next; };
        (/<\!ENTITY\s*(\w+)\s*"([^\"]+)"/i) and do { $ent{$1} = $2; next; };
    }
}

--
| $B:4F#(B $B9-@8!wEl5~M}2JBg3X(B <hrs@geocities.co.jp>
|
|                                  j7397067@ed.noda.sut.ac.jp(univ)
|                        hrs@jp.FreeBSD.org(FreeBSD doc-jp Project)
