#!/usr/bin/perl
# 2003.5.15 Jinsung Park

my $tab = "        ";
my $infile = "";
my $outfile = "";
while(@ARGV) {
        if($ARGV[0] =~ /^-tab/i) {
                shift(@ARGV);
                $tab = $ARGV[0];
                shift(@ARGV);
        }
        else {
                if($infile eq "") { $infile = $ARGV[0];}
                else { $outfile = $ARGV[0];}
                shift(@ARGV);
        }
}

my $tablength=length($tab);
my @tabs=split(//,$tab);

if($infile eq "") {
        print "usage:jtab2char -tab \"___\" infile outfile\n";
        exit;
}

if($outfile eq "") {
        $outfile = "j_$infile";
}

if(-f $outfile) {
        print "$outfile exist. Do you want to overwrite it ?(y/N)";
        $achr=<STDIN>;
        if($achr!~/^y/i) { exit;}
}

open(IN,"$infile")||die("$infile can not be read.\n");
open(OUT,">$outfile")||die("$outfile can not be opened.\n");
while(my $aline=<IN>) {
        $aline =~ s/[\s\n]+$/\n/g;
        @achrs=split(//,$aline);
        my $k=0;
        for(my $i=0;$i<=$#achrs;$i++) {
                if($achrs[$i] eq "\t") {
                        my $nlength = $k % $tablength;
                        for($j=$nlength;$j<$tablength;$j++) {
                                print OUT $tabs[$j % $tablength];
                                $k++;
                        }
                }
                else {
                        print OUT $achrs[$i];
                        $k++;
                }
        }
}
close(IN);
close(OUT);