#use strict;
use constant SCRIPT_NAME => "patch_mapping.pl";
use constant SCRIPT_VERSION => "1.0.1";
#use Log4TA


#Log_Info("USAGE: " . SCRIPT_NAME . <Frame Report Folder> <FRAME_NAME>,<FRAME_NAME>  [<output directory>]");

#Log_SetOutDir(".");
#Log_SetOutFile("log_patch_mapping.log");

my $ScrDIR = $ARGV[0]; 
my $FrameName = $ARGV[1];
my $out_dir = $ARGV[2];

my $frame;
my $emptyFrame;
my @added_frames;
my $Count = 0;
my $line;
my @array;

#-----Open source file------------------        
my $FrameReport = $ScrDIR."\\test.txt"; #Source document: Frame report list
my $fhR; 
open ($fhR, $FrameReport) or die "Unable to open the file $FrameReport\n"; 
#----------------------------------------

#-----add signal to mapping file--------
my $fhWrite = $out_dir."\\mapping".".txt";# Created document: mapping INCA Signal name - Internal signal name
open ($out_dir, '>>', $fhWrite) or die "Unable to open the file $fhWrite\n";
#----------------------------------------

# check for valid input parameter
if(! defined $FrameReport or ! -f $FrameReport)
{
    Log_Error("No frame report file given!");
    die;
}

if(!defined $FrameName)
{
    Log_Error("No frame name given!");
    die;
}
else
{
    #$FrameName =~ s/^frame=//i;
    #@added_frames = split("[\,\;]",$FrameName);
    @added_frames = split(/,/,$FrameName);
}

if(defined $out_dir)
{
    if(! -d $out_dir)
    {
        mkdir $out_dir;
    }
}
else
{
    $out_dir = ".";
}

#my $read_state;

#local $/ = q||;


while ($line = <$fhR>) #As long as the file fhR contains data, we read the data
{
        $Count++;
    foreach $frame(@added_frames)
    {           
        if($line=~ /$frame/ .. $line =~ /^$/)
        {
           print"my frame: $frame\n";
           print"my line: $Count\n";
                
           if($line =~ /::::0x/ and $line =~ /\_FA,/ and $line =~ /\(/) 
           {                            
                if($line =~ /FREI/ or $line =~ /ID2\)/) #ignore lines with "FREI" or "(ID2)"
                {}
                                                                        
                else
                {   
                   ( $_, $line) = split(/\(/,$line);     #selects string after the opened bracket
                   ( $_, $line) = split(/\)/,$line);             #from the selected string, selects the one before the closed bracket
                                                                                                
                   @array = split(/, /,$line);
                   print $out_dir  $_, ";", "$array[1]\n";
                   #$countPar = $countPar +1;                             #count the number of mapping <internal variables> to <INCA variables>
                   }
                }
           }
                        
        }
        #print"my total lines: $Count\n";       
}

if($line=~ /$frame/ .. $line =~ /^$/)