From 9ace720577eded649339496bc62854ef4b560fec Mon Sep 17 00:00:00 2001 From: "MORO, Shigeki" Date: Wed, 12 Feb 2003 06:05:50 +0000 Subject: [PATCH] UTF-2000 -> CHISE, and more. --- glyph/index.html.ja.iso-2022-jp | 6 ++-- ids/index.html.ja.iso-2022-jp | 6 ++-- index.html.ja.iso-2022-jp | 8 ++--- omega/index.html.ja.iso-2022-jp | 6 ++-- perl/index.html.ja.iso-2022-jp | 50 +++++++++++++++++++++---------- ruby/index.html.ja.iso-2022-jp | 10 +++---- topicmaps/index.html.ja.iso-2022-jp | 6 ++-- visualization/index.html.ja.iso-2022-jp | 6 ++-- xemacs/index.html.ja.iso-2022-jp | 6 ++-- 9 files changed, 62 insertions(+), 42 deletions(-) diff --git a/glyph/index.html.ja.iso-2022-jp b/glyph/index.html.ja.iso-2022-jp index 00847bb..95db44b 100644 --- a/glyph/index.html.ja.iso-2022-jp +++ b/glyph/index.html.ja.iso-2022-jp @@ -9,9 +9,9 @@

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] - [Perl/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] + [Perl/CHISE] [TopicMaps] [IDS] [glyph] diff --git a/ids/index.html.ja.iso-2022-jp b/ids/index.html.ja.iso-2022-jp index 1445b5c..03c08b6 100644 --- a/ids/index.html.ja.iso-2022-jp +++ b/ids/index.html.ja.iso-2022-jp @@ -9,9 +9,9 @@

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] - [Perl/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] + [Perl/CHISE] [TopicMaps] [IDS] [glyph] diff --git a/index.html.ja.iso-2022-jp b/index.html.ja.iso-2022-jp index fcc9c6f..66b506b 100644 --- a/index.html.ja.iso-2022-jp +++ b/index.html.ja.iso-2022-jp @@ -71,9 +71,9 @@ CHISE (CHaracter Information Service Environment)

$BJ8;zCN<1%G!<%?%Y!<%9$K4p$E$/J8;z=hM}%"!<%-%F%/%A%c$N3+H/(B
- XEmacs UTF-2000 -
- Ruby/UTF-2000 -
- Perl/UTF-2000 +
- XEmacs CHISE +
- Ruby/CHISE +
- Perl/CHISE
TopicMaps$B$K$h$kJ8;zCN<1%G!<%?%Y!<%9!&%7%9%F%`$N3+H/(B

[

CHaracter Information Service Environment

Perl/CHISE: CHaracter Information Service Environment

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] [Perl/CHISE] [TopicMaps] [IDS] @@ -27,41 +27,61 @@

- CHISE $BJ8;z%G!<%?%Y!<%9!J8=>u$G$O(B XEmacs UTF-2000 $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 + CHISE $BJ8;z%G!<%?%Y!<%9!J8=>u$G$O(B XEmacs CHISE $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

NAME

- UTF2000 + CHISE

SYNOPSIS

use UTF2000;
+use CHISE;
 
-my $s1 = UTF2000->new(ideograph_daikanwa => 6942); # $B!V;z!W(B
+my $s1 = CHISE->new(ideograph_daikanwa => 6942); # $B!V;z!W(B
 print $s1->strokes, "\n"; # $B2h?t$rI=<((B
 
-my $s2 = UTF2000->new(shinjigen_2 => 1777); # $B!V;z!W(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 = UTF2000->define_char(strokes => 15, radical => 9);
+my $s3 = CHISE->define_char(strokes => 15, radical => 9);
 
 
 METHOD
 
+    
+      new($BB0@-L>(B=>$BCM(B)
+      $BB0@-L>$H$=$NCM$KBP1~$9$kJ8;z%*%V%8%'%/%H$r@8@.$9$k!#(B
+	$B4XO"$9$kB>$NB0@-$b<+F0E*$Kdefine_char($BB0@-L>(B=>$BCM(B[, ...])
+      
$BB0@-L>$H$=$NCM(B($B$N=89g(B)$B$r;}$DJ8;z%*%V%8%'%/%H$r?7$7$/@8@.$9$k!#(B
+      
dump_attr
+      $BJ8;z%*%V%8%'%/%H$,;}$DB0@-$NL>A0$HCM$r=PNO$9$k!#(B
+      
add_attr($BB0@-L>(B=>$BCM(B)
+      $BJ8;z%*%V%8%'%/%H$KB0@-L>$H$=$NCM$rDI2C$9$k!#(B
+      
del_attr($BB0@-L>(B)
+      $BJ8;z%*%V%8%'%/%H$+$iB0@-$r:o=|$9$k!#(B
+      
compare($B%*%V%8%'%/%HL>(B)
+      $BJ8;z%*%V%8%'%/%H$NB0@-$I$&$7$rHf3S$7$F!"$=$N0lCWN((B(0$B!e&A!e(B1)$B$rJV$9!#(B
+    
+
 TO DO
 
     
-      $B%G!<%?%Y!<%9$X$N%"%/%;%9$NCj>]2=(B
-      $B%G!<%?%Y!<%9$N%"%/%;%9$N9bB.2=(B
+      $B
+	  
$B%G!<%?%Y!<%9$X$N%"%/%;%9$NCj>]2=(B
+	  $B%G!<%?%Y!<%9$N%"%/%;%9$N9bB.2=(B
+	  $B%G!<%?%Y!<%9$X$N=q$-9~$_(B
+	
       IDS$B$,$i$_(B
 	
-	  $s = UTF2000->define_char(ids => "...")
+	  
$s = CHISE->define_char(ids => "...")
 	    $B$_$?$$$J$3$H$,$G$-$k$h$&$K!#(B
 	  
decompose$B%a%=%C%I(B
 	  include$B%a%=%C%I(B
@@ -73,7 +93,7 @@ my $s3 = UTF2000->define_char(strokes => 15, radical => 9);
 	  
$B%G!<%?%Y!<%9$N(BPath($B4D6-JQ?t!)(B)
 	  $B%G!<%?%Y!<%9$NG[I[J}K!(B
 	
-      $B%G!<%?%Y!<%9$X$N=q$-9~$_(B
+      $B=89g1i;;$,$i$_(B

@@ -98,7 +118,7 @@ my $s3 = UTF2000->define_char(strokes => 15, radical => 9);

-Last modified: Sun Feb 2 18:05:36 JST 2003 +Last modified: Wed Feb 12 14:47:00 JST 2003 .

diff --git a/ruby/index.html.ja.iso-2022-jp b/ruby/index.html.ja.iso-2022-jp index e6fe4c8..df5b4c6 100644 --- a/ruby/index.html.ja.iso-2022-jp +++ b/ruby/index.html.ja.iso-2022-jp @@ -9,9 +9,9 @@

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] - [Perl/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] + [Perl/CHISE] [TopicMaps] [IDS] [glyph] @@ -21,13 +21,13 @@

CHISE

- CHISE $BJ8;z%G!<%?%Y!<%9!J8=>u$G$O(B XEmacs UTF-2000 $BMQ$N(B Berkeley DB + CHISE $BJ8;z%G!<%?%Y!<%9!J8=>u$G$O(B XEmacs CHISE $BMQ$N(B Berkeley DB $BHGJ8;z%G!<%?%Y!<%9!K$r(B Ruby $B$+$i%"%/%;%9$9$k;n$_$r9T$C$F$$$^$9!#(B

diff --git a/topicmaps/index.html.ja.iso-2022-jp b/topicmaps/index.html.ja.iso-2022-jp index e9188bb..4d3d095 100644 --- a/topicmaps/index.html.ja.iso-2022-jp +++ b/topicmaps/index.html.ja.iso-2022-jp @@ -9,9 +9,9 @@

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] - [Perl/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] + [Perl/CHISE] [TopicMaps] [IDS] [glyph] diff --git a/visualization/index.html.ja.iso-2022-jp b/visualization/index.html.ja.iso-2022-jp index 97382e4..9e1f2cd 100644 --- a/visualization/index.html.ja.iso-2022-jp +++ b/visualization/index.html.ja.iso-2022-jp @@ -9,9 +9,9 @@

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] - [Perl/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] + [Perl/CHISE] [TopicMaps] [IDS] [glyph] diff --git a/xemacs/index.html.ja.iso-2022-jp b/xemacs/index.html.ja.iso-2022-jp index f7401e6..26dbe78 100644 --- a/xemacs/index.html.ja.iso-2022-jp +++ b/xemacs/index.html.ja.iso-2022-jp @@ -32,9 +32,9 @@

[CHISE] - [XEmacs UTF-2000] - [Ruby/UTF-2000] - [Perl/UTF-2000] + [XEmacs CHISE] + [Ruby/CHISE] + [Perl/CHISE] [TopicMaps] [IDS] [glyph] -- 1.7.10.4