#! /usr/local/bin/perl

# 与えられた文字列の最初の文字のタイプを判定する (EUC only)
# このスクリプトは単独では実行できません。注意。

sub char_type {
  local($buf) = @_;
  local(@mode) = ( '-', 'kigou', 'kigou', 'alphabet', 'hira', 'kata',
                   'lussia', 'lussia', 'keisen');  # 0xa0 .. 0xa8
  if($buf =~ /^[ -~]/) {
    return 'ascii';
  }
  local($za,$zb) = unpack("CC", $buf);
  $za -= 0xa0;
  if($za < 9) {
    if($za == 1) {
      if($zb == 0xa1) {  return 'zenspace' };
      if($zb == 0xbc) {  return 'nobasi' };
    }
    return($mode[$za]);
  }
  return 'kanji';
}