windowing/windowserver/test/scripts/wsini-writer.pl
author Faisal Memon <faisal.memon@nokia.com>
Fri, 14 May 2010 15:41:33 +0100
branchNewGraphicsArchitecture
changeset 64 5c983aa672ea
parent 0 5d03bc08d59c
permissions -rw-r--r--
Merge 1. Pull in cpp files in the performance enhanced Khronos RI OVG files which are newly added. I've ignored platform-specific cpp files for linux, macosx, and null operating systems because this local solution has its own platform glue (i.e. facility to target Bitmaps but no full windowing support). I've ignored sfEGLInterface.cpp because this is used as a bridge to go from EGL to Nokia's Platsim which offers an EGL service. That's not relevant to this implementation because this is ARM side code, not Intel side. I just left a comment to sfEGLInterface.cpp in case we need to pick up this later on. The current code compiles on winscw. Prior to this fix, the code works on winscw, and can launch the SVG tiger (tiger.exe). That takes about 20 seconds to render. I hope to always be able to show this icon on each commit, and the plan is for the render time to reduce with this series of submissions. On this commit, the tiger renders ok in 20 seconds.

#
# 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;
}