add the description on CHISE_REG

diff --git a/perl/index.html.ja.iso-2022-jp b/perl/index.html.ja.iso-2022-jp
index 452306b..0926c62 100644 (file)
--- a/perl/index.html.ja.iso-2022-jp
+++ b/perl/index.html.ja.iso-2022-jp
@@ -30,29 +30,39 @@
       CHISE \e$BJ8;z%G!<%?%Y!<%9!J8=>u$G$O\e(B <a href="../xemacs/">XEmacs CHISE</a> \e$BMQ$N\e(B
       Berkeley DB \e$BHGJ8;z%G!<%?%Y!<%9!K$r\e(B Perl \e$B$+$i%"%/%;%9$9$k%b%8%e!<%k$r\e(B
       \e$B3+H/$7$F$$$^$9!#\e(B
+      \e$B8=:_!"\e(B<a href="#chise">CHISE.pm</a> \e$B$H\e(B <a href="#chise_reg">CHISE_REG.pm</a> \e$B$N\e(B
+      2\e$B%b%8%e!<%k$,$"$j$^$9!#\e(B
     </p>
 
-<h2>NAME</h2>
+
+<h2><a name="chise">CHISE.pm</a></h2>
+
+<h3>NAME</h3>
 
     <p>
       CHISE
     </p>
 
-<h2>SYNOPSIS</h2>
+<h3>SYNOPSIS</h3>
 
 <pre>use CHISE;
-
-my $s1 = CHISE->new(ideograph_daikanwa => 6942); # \e$B!V;z!W\e(B
-print $s1->strokes, "\n"; # \e$B2h?t$rI=<(\e(B
-
-my $s2 = CHISE->new(shinjigen_2 => 1777); # \e$B!V;z!W\e(B
-print $s2->compare($s1) * 100, "%\n"; # $s1\e$B$H\e(B$s2\e$B$rHf3S$7$F0lCWN($rI=<(\e(B
-
-# \e$B2h?t\e(B15\e$B!"\e$A2?JW\e(B9(\e$B$K$s$Y$s\e(B)\e$B$N4A;z$r?7$?$K:n$k\e(B
-my $s3 = CHISE->define_char(strokes => 15, radical => 9);
-</pre>
-
-<h2>METHOD</h2>
+my $s1 = CHISE->define_char(strokes => 12, radical => 9);
+my $s2 = CHISE->define_char(strokes => 12, radical => 9,
+ideograph_daikanwa => 694);
+my $c = $s1->compare($s2);
+if ($c == $CHISE::EXCLUSIVE) {
+print "\e$BGSB>E*\e(B\n";
+} elsif ($c == $CHISE::HAVE_INTERSECTION) {
+print "\e$B6&DLItJ,$"$j\e(B\n";
+} elsif ($c == $CHISE::PROPER_SUBSET) {
+print "\e$B40A4ItJ,=89g\e(B\n";
+} elsif ($c == $CHISE::PROPER_SUPERSET) {
+print "\e$B40A4>e0L=89g\e(B\n";
+} elsif ($c == $CHISE::EQSET) {
+print "\e$B40A40lCW\e(B\n";
+}</pre>
+
+<h3>METHOD</h3>
 
     <dl>
       <dt><code>new(\e$BB0@-L>\e(B=&gt;\e$BCM\e(B)</code></dt>
@@ -70,19 +80,36 @@ my $s3 = CHISE->define_char(strokes => 15, radical => 9);
       <dd>\e$BJ8;z%*%V%8%'%/%H$NB0@-$I$&$7$rHf3S$7$F!"$=$N=E$J$j6q9g$rJV$9!#\e(B
     </dl>
 
+<h2><a name="chise_reg">CHISE_REG.pm</a></h2>
+
+<h3>NAME</h3>
+
+    <p>
+      CHISE_REG
+    </p>
+
+<h3>SYNOPSIS</h3>
+
+<pre>#!/usr/bin/perl -w
+use CHISE_REG;
+use utf8;
+
+if ('\e$B;3@n\e(B' =~ /(.)\same_total-strokes_1/) {
+  print STDERR "matched!\n";
+} else {
+  print STDERR "unmatched...\n";
+}</pre>
+
 <h2>TO DO</h2>
 
     <ul>
       <li>\e$B<BAu$,$i$_\e(B
        <ul>
-         <li>\e$B%G!<%?%Y!<%9$X$N%"%/%;%9$NCj>]2=\e(B</li>
-         <li>\e$B%G!<%?%Y!<%9$N%"%/%;%9$N9bB.2=\e(B</li>
+         <li>libchise\e$B2=\e(B</li>
          <li>\e$B%G!<%?%Y!<%9$X$N=q$-9~$_\e(B</li>
        </ul></li>
       <li>IDS\e$B$,$i$_\e(B
        <ul>
-         <li><code>$s = CHISE-&gt;define_char(ids =&gt; &quot;...&quot;)</code>
-           \e$B$_$?$$$J$3$H$,$G$-$k$h$&$K!#\e(B
          <li>decompose\e$B%a%=%C%I\e(B</li>
          <li>include\e$B%a%=%C%I\e(B
            (\e$B$"$k%*%V%8%'%/%H$KItIJ$,4^$^$l$F$$$k$+D4$Y$k\e(Bboolean)</li>
@@ -93,7 +120,6 @@ my $s3 = CHISE->define_char(strokes => 15, radical => 9);
          <li>\e$B%G!<%?%Y!<%9$N\e(BPath(\e$B4D6-JQ?t!)\e(B)</li>
          <li>\e$B%G!<%?%Y!<%9$NG[I[J}K!\e(B</li>
        </ul></li>
-      <li>\e$B=89g1i;;$,$i$_\e(B</li>
     </ul>