use strict;
use File::Find;

my $appnum = shift;
my $baseuid = 0xA000018A;
my $baseuidstr = uid( 1 );
my $base = `cd`;
$base =~s/(\s+)$//; #remove linefeed from end
my $patternbase = $base."\\pattern";
my $globaliter = 0;

generate();

sub generate()
    {
    my $i = 0;
    for ( $i=1; $i<=$appnum; $i++ ) 
        {
        $globaliter = $i;
        createappdir($globaliter);
        find( \&reader, $patternbase );        
        }    
    createpkg();
    creategroup();
    system "perl devide_sis.pl $appnum";
    }

sub uid
    {
    my $iter = shift;
    my $uuid = $baseuid + $iter -1;
    my $hu = sprintf '%#X',  $uuid;
    $hu =~s/X/x/;
    return $hu;
    }

sub reader()     
    {
    my $file=$_;
	my $winpath=$File::Find::name;
	$winpath=~s/\//\\/g;	
	my $nefilepath = "";
	if ( -f $file && not($winpath =~/svn/) )
        {
        $nefilepath = newpath( $winpath, $globaliter );
        my $appuid = uid( $globaliter );
        rewritefile( $winpath, $nefilepath, $globaliter, $appuid );
        }
    }
    
sub newpath()
{
    my $patternpath = shift;
    my $iter = shift;
    my $appdir = "helloworldbasic".$iter;
    my $appbasicfilepath = "basic".$iter;
    my $appBasicfilepath = "Basic".$iter;
    $patternpath =~ s/basic1/$appbasicfilepath/;    
    $patternpath =~ s/Basic1/$appBasicfilepath/;    
    $patternpath =~ s/pattern/$appdir/;
    return $patternpath; 
}    

sub createappdir()
{
   my $iter = shift;
   my $appdir = "helloworldbasic".$iter;
   my $src = $appdir."\\src";
   my $inc = $appdir."\\inc";
   my $data = $appdir."\\data";
   my $sis = $appdir."\\sis";
   my $group = $appdir."\\group";
   system "mkdir $appdir";
   system "mkdir $src";
   system "mkdir $inc";
   system "mkdir $data";   
   system "mkdir $sis";  
   system "mkdir $group";  
}

sub rewritefile()
{
    my $input = shift;
    my $output = shift;
    my $iter = shift;
    my $uid = shift;
    my $basic = "basic".$iter;
    my $Basic = "Basic".$iter;
    my $World = "World".$iter;
    
    open FRI, $input or die "Couldn't open $input to read";
    binmode FRI;
    open FWO, ">$output" or die "Couldn't open $output to write";
    binmode FWO;
    while( <FRI> )
        {
        my $line = $_;
        $line =~ s/basic1/$basic/g;
        $line =~ s/Basic1/$Basic/g;
        $line =~ s/World1/$World/g;
        $line =~ s/$baseuidstr/$uid/gi;
        print FWO $line;
        }
    close FRI;
    close FWO;
}

sub createpkg()
{
    system "mkdir sis";
    open FRS, ".\\pattern\\sis\\helloworldbasic_armv5.pkg" or die "Couldn't open pkg file to read";
    binmode FRS;
    open FWS, ">sis\\helloworldbasic_armv5.pkg" or die "Couldn't open pkg file to write";
    binmode FWS;
    my @exports;
    my $begin = 0;
        
    while ( <FRS> )
        {
        my $line = $_;
        print FWS $line;
        if ($line =~ /;Files/)
            {
            $begin = 1;
            }
        if ($begin == 1)
            {
            push(@exports, $line);
            }    
        }        
    close FRS;
    
    for (my $i=2; $i<=$globaliter; $i++)
        {
        my $basic = "basic".$i;
        my $Basic = "Basic".$i;
        my $it = 0;
        while (defined($exports[$it]))
            {     
            my $line = $exports[$it];       
            $line =~ s/basic1/$basic/g;
            $line =~ s/Basic1/$Basic/g;
            print FWS $line;
            $it++;
            } 
        print FWS "\r\n\r\n";    
        }
    close FWS;
}   

sub creategroup()
    {
    system "mkdir group";
    open FWG, ">group\\bld.inf" or die "Couldn't open bld.inf file to write";
    binmode FWG;
    for (my $i=1; $i<=$globaliter; $i++)
        {
        my $path = "../helloworldbasic".$i."/group/bld.inf";
        print FWG "\#include \"$path\"\r\n";
        }
    }
    close FWG;