diff -r 851206cea67b -r 35d98d69ca78 imgtools/imaker/src/s60ibymacros.pm --- a/imgtools/imaker/src/s60ibymacros.pm Mon Jun 21 17:57:23 2010 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,119 +0,0 @@ -# Copyright (c) 2006 Nokia Corporation and/or its subsidiary(-ies). -# All rights reserved. -# This component and the accompanying materials are made available -# under the terms of the License "Symbian Foundation License v1.0" -# which accompanies this distribution, and is available -# at the URL "http://www.symbianfoundation.org/legal/licencesv10.html". -# -# Initial Contributors: -# Nokia Corporation - initial contribution. -# -# Contributors: -# -# Description: -# S60 specific IBY file macro handling -# - -package s60ibymacros; - -BEGIN - { - use Exporter (); - our ( $VERSION, @ISA, @EXPORT ); - # set the version for version checking - $VERSION = 1.00; - - @ISA = qw( Exporter ); - @EXPORT = qw( &s60ibymacros_info &DoS60IbyModifications ); - } - -my %s60ibymacros_infostruct = - ( - name => "s60ibymacros", - invocation => "InvocationPoint1", - single => "s60ibymacros::DoS60IbyModifications" - ); - -my @newobydata; - -sub s60ibymacros_info - { - return \%s60ibymacros_infostruct; - } - -sub DoS60IbyModifications - { - my $obydata = shift; - - undef @newobydata; - foreach $line (@{$obydata}) - { - if ($line =~ /^\s*REM/i) - { - # Ignore REM statements, to avoid processing "REM __SCALABLE_IMAGE( ... )" - push @newobydata, $line; - } - elsif( ! ( HandleIconMacros($line) || HandleCenrepMacros($line) ) ) - { - push @newobydata, $line; - } - } - @{$obydata} = @newobydata; - } - -sub HandleCenrepMacros - { - my $line = shift; - if ( $line =~ m/^.*__CENREP_TXT_FILES\(\s*(\S+)\s*,\s*(\S+)\s*,\s*(\S+)\s*\)/i ) - # __CENREP_TXT_FILES(dataz_, source dir, target dir) - { - my $sourcepath="$1\\$2"; - my $targetpath=$3; - my $s60extras_export_list_filename = "$sourcepath"."\\s60extras_export_list.txt"; - - open(DH, $s60extras_export_list_filename); - my @dlist = ; - chop @dlist; - close(DH); - - my $cenreptxtfile; - foreach $cenreptxtfile (@dlist) - { - if ($cenreptxtfile =~ /^\S+\.txt/) - { - push @newobydata, "data=$sourcepath\\$cenreptxtfile $targetpath\\$cenreptxtfile\n"; - } - } - return 1; - } - } - -sub HandleIconMacros - { - my $line = shift; - if ( $line =~ m/^.*__SCALABLE_IMAGE\(\s*(\S+)\s*,\s*(\S+)\s*,\s*(\S+)\s*,\s*(\S+)\s*\)/i ) - # __SCALABLE_IMAGE(emulator directory, file rom dir, dataz_, resource rom dir, - # filename, resource filename) - { - - my $sourcepath="$1\\$2"; - my $targetpath=$3; - my $filename=$4; - - if( -e "$sourcepath\\$filename.mbm" ) - { - push @newobydata, "AUTO-BITMAP=$sourcepath\\$filename.mbm $targetpath\\$filename.mbm\n"; - } - if( -e "$sourcepath\\$filename.mif" ) - { - push @newobydata, "data=$sourcepath\\$filename.mif $targetpath\\$filename.mif\n"; - } - elsif( ! -e "$sourcepath\\$filename.mbm ") - { - print STDERR "* Invalid image file name: $sourcepath\\$filename.mbm or .mif\n"; - } - return 1; - } - } - -1; # Return a true value from the file \ No newline at end of file