tools/sample.pl

   1 use chise;
   2
   3 $chise = new chise;
   4
   5 @feature = $chise->get_feature_list();
   6 print join("\n", @feature)."\n";
   7
   8 print $chise->db_format_version()."\n";
   9 print $chise->db_dir()."\n";
  10 print $chise->ds_location()."\n";
  11 print $chise->system_db_dir()."\n";
  12
  13 print $chise->char_gets_feature_value(0x5555, "ideographic-structure")."\n";
  14 printf "%x\n", $chise->ds_decode_char("=daikanwa", 8);
  15 printf "%x\n", $chise->char_gets_feature_value($chise->ds_decode_char("=gt-k", 1873), "=gt-pj-k2");
  16
  17 print $chise->feature_gets_property_value("=daikanwa", "description")."\n";
  18 print $chise->feature_gets_property_value('=ucs@JP', "mother")."\n";
  19
  20 printf "%x\n", $chise->get_newid();
  21
  22 #&set_feature_value('glyph@kage', 0x4e00, "abcdefghijkl");
  23 #&set_feature_value('glyph@kage', 0x4e00);
  24
  25 #print &get_feature_value('glyph@kage', 0x4e00)."\n";
  26 #print &get_feature_value('glyph@kage', 0x4e01)."\n";
  27
  28 #print &create_new_char('glyph@kage', "aaaaaaaaaaaaaaaaaaaaaaaa")."\n";
  29
  30 #print &get_feature_value('glyph@kage', 987587)."\n";
  31
  32 #&update_chise;
  33