#!/usr/bin/perl
#-------------------------------
# padkf.pl (ShiftJIS)
# 1999. 2.13 MIYAMORI Yoshimasa
#   (kan_ta@amcsys.com)
#   (RXE02744@nifty.ne.jp)
#-------------------------------

# nkf が使えない場合に動作を真似するためのスクリプトです.
# 使えるオプションは -e, -j, -s の３つで
# 例えば 'padkf.pl -e' と 'nkf -e' が同じように動きます.
# jcode.pl で漢字コード変換のほかに 半角カナ -> 全角カナの変換をしています.

require 'jcode.pl';
&putEuc if ($ARGV[0] eq '-e');
&putJis if ($ARGV[0] eq '-j');
&putSjis if ($ARGV[0] eq '-s');
exit;

sub putEuc {
  local($code);

  while (<STDIN>) {
    $code = &jcode'convert(*_, 'euc', '', 'z');
    print $_;
  }
}

sub putJis {
  local($code);

  while (<STDIN>) {
    $code = &jcode'convert(*_, 'jis', '', 'z');
    print $_;
  }
}

sub putSjis {
  local($code);

  while (<STDIN>) {
    $code = &jcode'convert(*_, 'sjis', '', 'z');
    print $_;
  }
}