#!/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);