#

# 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: 

#

#!perl

use strict;

my $file = $ARGV[0];

die "Usage: $0 filename\n" if (!$file);

die "ERROR: \"$file\" does not exist\n" if (!-f $file);

&AddNoRedrawStoring($file) if($ARGV[3] =~ /^noredrawstoring$/i);

&AddAutoLine($file) if ($ARGV[2] =~ /^auto$/i);

&AddMultiLine($file) if ($ARGV[1] =~ /^multiscreen$/i);

# This function adds a line to a wsini.ini so that it runs the tests in auto mode

# This functions assumes the file is in UTF16

sub AddAutoLine

{

  my $file = shift;

  my $string = &ascii_to_utf16('SHELLCMD AUTO');

  &Write_UTF16_Newline($file);

  open(FILE, ">>$file") or warn "WARNING: Could not open file: $!\n";

  print FILE $string;

  close FILE;

  &Write_UTF16_Newline($file);

}

# This function adds a line to a wsini.ini so that it runs in multiscreen

# This functions assumes the file is in UTF16

sub AddMultiLine

{

  my $file = shift;

  my $string0 = &ascii_to_utf16('[SCREEN0]');

  my $string1 = &ascii_to_utf16('[SCREEN1]');

  &Write_UTF16_Newline($file);

  open(FILE0, ">>$file") or warn "WARNING: Could not open file: $!\n";

  print FILE0 $string0;

  close FILE0;

  &Write_UTF16_Newline($file);

  open(FILE1, ">>$file") or warn "WARNING: Could not open file: $!\n";

  print FILE1 $string1;

  close FILE1;

  &Write_UTF16_Newline($file);

}

# This function adds a line to a wsini.ini so that it runs the tests with NOREDRAWSTORING flag

# This functions assumes the file is in UTF16

sub AddNoRedrawStoring

{

  my $file = shift;

  my $string = &ascii_to_utf16('NOREDRAWSTORING');

  &Write_UTF16_Newline($file);

  open(FILE, ">>$file") or warn "WARNING: Could not open file: $!\n";

  print FILE $string;

  close FILE;

  &Write_UTF16_Newline($file);

}

sub Write_UTF16_Newline

{

  my $file = shift;

  open(BIN, ">>$file") or warn "WARNING: Could not open \"$file\": $!\n";

  binmode BIN;

  sysseek BIN, 0, 'SEEK_END';

  syswrite BIN, "\x0D\x00\x0A\x00" or warn "WARNING: Could not write to file\n";

  close BIN;

}

# Function that accepts an ASCII string and returns the same string in UTF16

sub ascii_to_utf16 {

  my $utf16_string = "";

  my $ascii_string = shift;

  my $lengthofstring = length($ascii_string);

  for (my $count=1; $count<=$lengthofstring; $count++)

  {

    my $char = substr($ascii_string,$count-1,1);

    $utf16_string .= $char;

    $utf16_string .= "\x00";

  }

  return $utf16_string;

}