From 57b913508461713993f88bf7bec4f1e995d34c02 Mon Sep 17 00:00:00 2001
From: "MORO, Shigeki" <s-moro@hanazono.ac.jp>
Date: Tue, 7 Oct 2003 15:18:57 +0000
Subject: [PATCH] add the description on CHISE_REG

---
 perl/index.html.ja.iso-2022-jp |   64 ++++++++++++++++++++++++++++------------
 1 file changed, 45 insertions(+), 19 deletions(-)

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