From: imiyazaki <imiyazaki>
Date: Fri, 10 Oct 2003 12:34:14 +0000 (+0000)
Subject: removed.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=132564cd4179de9403eab3d4585e8bca955cbfd7;p=chise%2Fperl.git

removed.
---

diff --git a/Chise_utils/sample.PL b/Chise_utils/sample.PL
deleted file mode 100644
index 5548e96..0000000
--- a/Chise_utils/sample.PL
+++ /dev/null
@@ -1,109 +0,0 @@
-#!/usr/bin/perl -w
-
-use Getopt::Long;  
-use strict;
-use vars qw($atr $value $char
-	    $opt_map $opt_rev_map $opt_mapfrom $opt_mapto
-	    $opt_atr $opt_allatr $opt_showatr
-	    $opt_query
-	    $opt_help
-	    );
-use Chise_utils ':all';
-
-my $usage=<<EOF;
-Usage: perl $0 [-m <map> | --map <map> |
-		-r <reverse map> |
-		--mapfrom <map> |
-		--mapto <map> |
-                -q <expression> |
-		--show-attribute |
-                -h | --help |
-		-a=<atribuite> <char> |
-		-aa <char>]
-    -q  <expression>
-      ex. of <expression>
-         total-strokes==8 means
-           the attribute of total-strokes exactly matches to 8.
-         ids-parts=~矢 means
-           the attribute of ids-parts contains the string 矢.
-         total-strokes==8,ids-parts=~矢 means both at the same time.
-    -a  get <attribute> of <char>
-    -aa get all attributes of <char>
-EOF
-
-&GetOptions("mapto=s"=>\$opt_mapto,
-	    "mapfrom=s"=>\$opt_mapfrom,
-	    "m=s"=>\$opt_map,
-	    "r=s"=>\$opt_rev_map,
-	    "a=s"=>\$opt_atr,
-	    "aa"=>\$opt_allatr,
-	    "show-attribute"=>\$opt_showatr,
-	    "q"=>\$opt_query,
-	    "help",\$opt_help,
-	    "h",\$opt_help);
-
-if($opt_help
-   or !((($opt_map or $opt_rev_map or $opt_mapfrom or $opt_mapto) and @ARGV==0)
-	or($opt_showatr and @ARGV==0)
-	or @ARGV==1
-	)
-   ){
-    print $usage;
-    exit 1;
-}else{
-    $char=shift or $char="";
-}
-
-if($opt_mapfrom){
-    $opt_map="<=".$opt_mapfrom;
-}elsif($opt_mapto){
-    $opt_map="=>".$opt_mapto;
-}
-
-if($opt_map){
-    if(&get_db($opt_map)){
-	foreach $char (sort keys %{$chardb{$opt_map}}){
-	    if($chardb{$opt_map}->{$char}){
-		print $char,"\t",$chardb{$opt_map}->{$char},"\n";
-	    }
-	}
-    }else{
-	print STDERR "No map for $opt_map.\n";
-    }
-}elsif($opt_rev_map){
-    if(&get_reverse_db($opt_rev_map)){
-	foreach $char (sort keys %{$reverse_chardb{$opt_rev_map}}){
-	    if($reverse_chardb{$opt_rev_map}->{$char}){
-		print $char,"\t",$reverse_chardb{$opt_rev_map}->{$char},"\n";
-	    }
-	}
-    }else{
-	print STDERR "No map for $opt_rev_map.\n";
-    }
-}elsif($opt_allatr){
-    $char=&de_er($char) if($char=~/\d/);
-    print $char,"\n";
-    foreach $atr (sort keys %db){
-	if($value=&get_char_attribute($char,$atr)){
-	    print "  ",$atr,":",$value,"\n";
-	}
-    }
-}elsif($opt_atr){
-    $char=&de_er($char) if($char=~/\d/);
-    print $char,"\n";
-    print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"\n";
-}elsif($opt_showatr){
-#    print "In DB\n";
-    foreach $atr (sort keys %db){
-	print "  ",$atr,"\n";
-    }
-#    print "In reverse DB\n";
-#    foreach $atr (sort keys %reverse_db){
-#	print "  ",$atr,"\n";
-#    }
-}elsif($opt_query){
-    my $query=$char;
-    print join "\n",&get_chars_for($query),"\n";
-}
-
-exit 0;