#!/usr/bin/env ruby
#  -- ruby to perl converter (just a joke ;P)
#
#  NISHI Takao <zophos@koka-in.org>
#  Time-stamp: <2004-04-01 10:28:51 zophos>
#

def usage
    $stderr<< <<'_EOS_'
convert from ruby script to perl script
Usage: ruby2perl [option] rubyscript

option:
  -o filename : output filename [STDOUT]
  -p path : path to perl [guess]
  -r path : path to ruby [guess]
  -h, --help : show this message and quit
_EOS_
    exit(-1)
end

def convert(infile,outfh,perl_path,ruby_path)
    begin
	outfh<< DATA.read.sub('#{perl}',perl_path).sub('#{ruby}',ruby_path)
	File.foreach(infile){|l|
	    outfh<<l
	}
    rescue
	$stderr<<"file cannot access\n"
    end
end


RUBY=''
PERL='/usr/bin/perl'

ruby_path=RUBY
perl_path=PERL
begin
    IO.popen('which perl'){|io|
	perl_path=io.gets.chomp
    }
rescue
end

infile=nil
outfile=nil

while(x=ARGV.shift)
    case x
    when '-o'
	outfile=ARGV.shift
    when '-p'
	perl_path=ARGV.shift
    when '-r'
	ruby_path=ARGV.shift
    when '-h','--help'
	usage
    else
	infile=x
    end
end

if(infile.nil?)
    usage
elsif(!FileTest.file?(infile))
    $stderr<<"file not found\n"
    usage
end

if(outfile.nil?)
    convert(infile,$stdout,perl_path,ruby_path)
else
    File.open(outfile,'w'){|f|
	convert(infile,f,perl_path,ruby_path)
    }
end
exit(0)
__END__
#!#{perl}
# generated by ruby2perl
# 
use File::Temp qw/ tempfile tempdir /;

$dir=tempdir(CLEANUP=>1);
($fh,$filename)=tempfile(DIR=>$dir);
while(<DATA>){
        print $fh $_;
}
$ruby="#{ruby}";
if($ruby eq ""){
	$ruby=readpipe("which ruby");
	chomp($ruby);
}
system($ruby,$filename,@ARGV);
__END__