From 5e60800e36f1de040d708e9cb982d47d08319742 Mon Sep 17 00:00:00 2001 From: Koichi KAMICHI Date: Sun, 12 Feb 2006 02:49:01 +0000 Subject: [PATCH] Added decode_char method. --- tools/chiseperl.pl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tools/chiseperl.pl b/tools/chiseperl.pl index 273faa7..4ba8911 100755 --- a/tools/chiseperl.pl +++ b/tools/chiseperl.pl @@ -10,6 +10,7 @@ # $var get_feature_value($feature, $char_id); # $var set_feature_value($feature, $char_id, $value); # $var create_new_char($feature, $value); +# $char_id decode_char($feature_char, $int); use chise_tools; use chise; @@ -80,4 +81,11 @@ sub update_chise{ # save added data to database } } +sub decode_char{ # feature, int -> charID, 0 + if(scalar(@_) != 2){ + return 0; + } + return chise::chise_ds_decode_char($chise_ds, chise_tools::get_uchar($_[0]), $_[1]); +} + 1; -- 1.7.10.4