use warnings;
use strict;
use Path::Iterator::Rule;

Main();

sub Main {
	my @aBasedir = ();
	if(scalar(@ARGV) < 1){
		print "Please enter Dirlist\n";
		my $sInput = <>; chop($sInput);
		@aBasedir = split(' ',$sInput);
	}
	else { @aBasedir = @ARGV; }
	print "Dirlist given = @aBasedir \n";
	my $fPIR = Path::Iterator::Rule->new;
	my $next = $fPIR->iter(@aBasedir);
	while( my $sCurfile = $next->() ){
		process_file($sCurfile);
	}	
	print "End buildin lub\n";
}

sub process_file { my $sCurfile = shift;
#my $sCurfile = $File::Find::name;
	return unless(-f $sCurfile);
	return unless ($sCurfile =~ /.lua/ );
	CompileFile($sCurfile);
}

sub CompileFile { my ($sFile) = @_;
	my $sOutputFilane = $sFile;
	$sOutputFilane =~ s/.lua/.lub/;
	print "CC -o $sOutputFilane $sFile\n";
	system("luac -o $sOutputFilane $sFile");
}