diff -uNr eijiro-fpw1.0b.orig/catalogs.sjis eijiro-fpw1.0b/catalogs.sjis --- eijiro-fpw1.0b.orig/catalogs.sjis Wed Oct 4 12:31:13 2000 +++ eijiro-fpw1.0b/catalogs.sjis Tue Mar 22 01:16:19 2005 @@ -4,6 +4,6 @@ Books = 1 [Book] -Title = "英辞郎" +Title = "略辞郎" BookType = 2001 -Directory = "EIJIRO" +Directory = "RYAKU" diff -uNr eijiro-fpw1.0b.orig/eijiro-fpw.pl eijiro-fpw1.0b/eijiro-fpw.pl --- eijiro-fpw1.0b.orig/eijiro-fpw.pl Mon Oct 9 00:32:54 2000 +++ eijiro-fpw1.0b/eijiro-fpw.pl Tue Mar 22 01:16:36 2005 @@ -112,6 +112,7 @@ &new_entry($wc, $current_word); $prev_word = $current_word; $prev_pos = $current_pos; + $pos_index = 1; if (/^【/) { &write_word_info($_); $fpwtext->add_indent_level(2); @@ -454,7 +455,7 @@ # # extract examples if any. # - if ($mean =~ s/ \/ 【用例(?:・$sjis_any+(?:\-[0-9]+)?)?】(.*)$//) { + if ($mean =~ s/■・(.*)$//) { $yorei = $1; } @@ -472,7 +473,7 @@ # if ('' ne $yorei) { $fpwtext->add_indent_level(3); - @list = split(/ \/ /, $yorei); + @list = split(/■・/, $yorei); foreach $yorei (@list) { $yorei =~ s/^\s+//; $yorei =~ s/\s+$//;