#

# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description:

#

# Module for TraceCompiler

#

package tracecompiler;

# If this is 1, debug prints are shown

my $DEBUG = 0;

use FindBin;

# Get current directory as TraceCompiler path

my $trace_compiler_path = $FindBin::Bin;  # e.g. X:/epoc32/tools

$trace_compiler_path =~ s/\\/\//g; # Replace all "\" with "/"

$trace_compiler_path =~ s/\/$//; # Remove possible trailing slash

#-------------------------------------------------------

# Concatenate path

#-------------------------------------------------------

sub concatenatePath

{

  my $concatenatePathBase = $_[0];

  my $concatenatePathFile = $_[1];

  my $backCount = 0;

  # Change all "\" characters to "/"

  $concatenatePathBase =~ s/\\/\//g;

  $concatenatePathFile =~ s/\\/\//g;

  # Replace all "/./" with "/"

  $concatenatePathBase =~ s/\/\.\//\//g;

  $concatenatePathFile =~ s/\/\.\//\//g;

  # Find how many back references there are and remove them

  while ($concatenatePathFile =~ /\.\.\//g) 

  { 

    $backCount++ 

  }

  $concatenatePathFile =~ s/\.\.\///g;

  # If there is / in the end of the base remove it

  $concatenatePathBase =~ s/\/$//;

  # Remove directories from the end of the path

  $concatenatePathBase = reverse($concatenatePathBase);

  for (my $i=0; $i<$backCount; $i++)

  {

    $concatenatePathBase =~ s/.*?\///;

  }

  $concatenatePathBase = reverse($concatenatePathBase);

  my $concatenatePathFullFilePath = "$concatenatePathBase\/$concatenatePathFile";

  # Replace again all "/./" with "/"

  $concatenatePathFullFilePath =~ s/\/\.\//\//g;

  debugMsg("Concatenate returns $concatenatePathFullFilePath");

  return $concatenatePathFullFilePath;

}

#-------------------------------------------------------

# Get java command

#-------------------------------------------------------

sub getJavaCommand

{

  my @java_commands = ("/tools/ncp_tools/helium/external/jdk1.5/jre/bin/java.exe", "java.exe", "c:/apps/seeinstaller/jre/bin/java.exe");

  my $java_command;

  foreach my $command (@java_commands)

  {

    if (checkJava($command))

    {

      $java_command = $command;

      last;

    }

  }

  return $java_command;

}

#-------------------------------------------------------

# Check java

#-------------------------------------------------------

sub checkJava

{

  open (IN, "$_[0] -version 2>&1 |");

  while(<IN>)

  {

    if (/(\d+\.\d+)/)

    {

      if ($1 >= 1.5)

      {

        return 1;

      }

    } 

  }

  return 0;

}

#-------------------------------------------------------

# Gets TraceCompiler version number

#-------------------------------------------------------

sub getTraceCompilerVersion

{

  # Get Java command or EXIT if not found

  my $java_command = getJavaCommand();

  if (not defined $java_command)

  {

    return "Java 1.5 or newer required!\n";

    exit;

  }

   # run from class files class files

  my $version_query_command = "$java_command -classpath $trace_compiler_path/tracecompiler com.nokia.tracecompiler.TraceCompilerMain -v";

  # run from jar  file	command

  #my $version_query_command = "$java_command -jar $trace_compiler_path/tracecompiler.jar -version"; 

  my $version = qx($version_query_command);

  return $version;

}

#-------------------------------------------------------

# Debug Message. Writes to log file and outputs to screen.

#-------------------------------------------------------

sub debugMsg

{

  if ($DEBUG)

  {

    open FILE, ">>/tracecompiler_debug.txt" or die $!;

    print FILE $_[0] . "\n";

    close FILE;

    return print "DEBUG: $_[0]\n";

  }

}

#-------------------------------------------------------

# Writes TraceCompiler version to log and screen if Debug is on.

#-------------------------------------------------------

sub debugTraceCompilerVersion

{

  if ($DEBUG)

  {   

    open FILE, ">>/tracecompiler_debug.txt" or die $!;

    my $version = getTraceCompilerVersion();

    print FILE $version;

    close FILE;

    return print "DEBUG: $version\n";

  }

}

1;