# Copyright (c) 1997-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:
# this package does various ancillary things for windows modules
#
#
package Winutl;
my $BaseAddress='';
my @Win32LibList=();
my $Win32Resrc='';
my $CopyForStaticLinkage=0;
my $Win32StdHeaders=0;
my $MSVCVer=0;
my $MSVCSubVer=0;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
Winutl_Help_Mmp
Winutl_DoMmp_Parse
Winutl_DoMmp
Winutl_BaseAddress
Winutl_Win32LibList
Winutl_Win32Resrc
Winutl_CopyForStaticLinkage
Winutl_Win32StdHeaders
Winutl_AdjustTargetPath
Winutl_MSVCVer
Winutl_MSVCSubVer
Winutl_CheckSourceMMPMetaData
);
use strict;
use Genutl;
use E32Variant;
use CheckSource;
use Pathutl;
use Cwd;
my %CheckSourceMMPMetaData;
sub Winutl_Help_Mmp {
# provide the help text for START <windows platforms> END blocks
print
"BASEADDRESS [base address for dll loading]\n",
"WIN32_LIBRARY [win32 libraries]\n",
"WIN32_RESOURCE [win32 resource]\n",
"COPY_FOR_STATIC_LINKAGE // copy dll from emulated Z drive\n",
"WIN32_HEADERS // instruct compiler to look into standard header directories\n",
" // (implied by WIN32_LIBRARY)\n"
;
}
sub Winutl_DoMmp_Parse ($$) {
# takes reference to platform text and semicolon-separated list
# of compiler-specific include directories
my @PlatTxt=@{$_[0]};
my $CompilerIncPaths=$_[1];
# process the START <windows platforms> END blocks
my $BaseTrg=&main::BaseTrg;
my $BasicTrgType=&main::BasicTrgType;
my $MakeFilePath=&main::MakeFilePath;
my $MMPFILE=&main::MmpFile;
# set up START WINS ... END block module variables
my @MmpWarn=();
my $Line;
LINE: foreach $Line (@PlatTxt) {
my $LineInfo=shift @$Line;
$LineInfo =~ /^(.+)\((\d+)\)$/;
my $CurFile = $1;
my $LineNum = $2;
my $BldInfDir = cwd;
$BldInfDir =~ s/\//\\/g;
$BldInfDir =~ s/^\w+://;
$BldInfDir .= "\\";
$_=shift @$Line;
if (/^BASEADDRESS$/oi) {
if (@$Line) {
$BaseAddress=shift @$Line;
$BaseAddress=~s/X/x/o;
next LINE;
}
push @MmpWarn, "$LineInfo : No base address specified for keyword BASEADDRESS\n";
next LINE;
}
if (/^WIN32_LIBRARY$/oi) {
if (@$Line)
{
$Win32StdHeaders = 1;
foreach (@$Line)
{
if (/^\./)
{
# local - check for UNIX slash and physical consistency of file as it exists relative to the bld.inf
CheckSource_MetaData(%CheckSourceMMPMetaData, $CurFile, "WIN32_LIBRARY", $_, $LineNum, $CheckSource_PhysicalCheck, $BldInfDir);
}
else
{
# global - check for UNIX slash and assume that it must be lower case
CheckSource_MetaData(%CheckSourceMMPMetaData, $CurFile, "WIN32_LIBRARY", $_, $LineNum);
}
$_ = &Path_Norm($_);
push @Win32LibList, $_;
}
}
else
{
push @MmpWarn, "$LineInfo : No libraries specified for keyword WIN32_LIBRARY\n";
}
next LINE;
}
if (/^WIN32_RESOURCE$/oi) {
if (@$Line) {
$Win32Resrc=shift @$Line;
CheckSource_MetaData(%CheckSourceMMPMetaData, $CurFile, "WIN32_RESOURCE", $Win32Resrc, $LineNum, $CheckSource_PhysicalCheck);
$Win32Resrc = &Path_Norm($Win32Resrc);
$Win32Resrc=&main::Path_MakeAbs($MMPFILE, $Win32Resrc);
next LINE;
}
push @MmpWarn, "$LineInfo : No resource specified for keyword WIN32_RESOURCE\n";
next LINE;
}
if (/^COPY_FOR_STATIC_LINKAGE$/oi) {
if ($BasicTrgType!~/^DLL$/oi) {
push @MmpWarn, "$LineInfo : COPY_FOR_STATIC_LINKAGE only applies to DLLs\n";
next LINE;
}
if (&main::TrgPath eq "") {
push @MmpWarn, "$LineInfo : COPY_FOR_STATIC_LINKAGE requires TARGETPATH\n";
next LINE;
}
$CopyForStaticLinkage=1;
next LINE;
}
if (/^WIN32_HEADERS$/oi) {
$Win32StdHeaders = 1;
next LINE;
}
push @MmpWarn, "$LineInfo : Unrecognised Keyword \"$_\"\n";
}
undef $Line;
if (@MmpWarn) {
warn
"\nMMPFILE \"",$MMPFILE,"\"\n",
"START .. END BLOCK WARNINGS(S)\n",
@MmpWarn,
"\n"
;
}
undef @MmpWarn;
# if Win32 Libraries required - set the Windows standard include paths
if ($Win32StdHeaders || $Win32Resrc || &main::Plat eq 'TOOLS' || &main::Plat eq 'CWTOOLS'
|| &main::Plat eq 'TOOLS2')
{ # show where to find win32 libraries
# include env variable takes everything between ';', including spaces and '"', as part of path
my @StdIncPaths=split ';', $CompilerIncPaths;
my $path;
foreach $path (@StdIncPaths) {
$path =~ s-/-\\-go; # for those working with UNIX shells
if ($path =~ /^\+/) {
# expand CodeWarrior "recursive" entries
$path =~ s-^\+--go; # remove the + from the current entry
if (opendir DIR, $path) {
my @list = grep !/^\.\.?$/, readdir DIR;
closedir DIR;
foreach (@list) {
my $newpath="$path\\$_";
if (-d $newpath) {
push @StdIncPaths,"+$newpath"; # add subdirs for later expansion
}
}
}
}
}
&main::SetStdIncPaths(@StdIncPaths);
&main::AddPlatMacros('WIN32','_WINDOWS');
}
}
sub Winutl_DoMmp ($$) {
# takes reference to platform text and semicolon-separated list
# of compiler-specific include directories
my @PlatTxt=@{$_[0]};
my $CompilerIncPaths=$_[1];
my $Plat=&main::Plat;
if ($Plat ne "WINSCW" and $Plat ne "CWTOOLS" and $Plat ne "TOOLS2") {
# check that we're using VC6 SP3
&Winutl_MSVCVer();
}
&Winutl_DoMmp_Parse(\@PlatTxt, $CompilerIncPaths);
my $BaseTrg=&main::BaseTrg;
my $BasicTrgType=&main::BasicTrgType;
my $MakeFilePath=&main::MakeFilePath;
my $MMPFILE=&main::MmpFile;
my @UidList=&main::UidList;
if ($BasicTrgType=~/^(EXE|DLL)$/oi) {
# create the UID source file
my $priority = "EPriorityForeground";
if (&main::ProcessPriority) {
$priority="EPriority".&main::ProcessPriority;
}
my $UidText=join(
"\n",
'// Makmake-generated uid source file',
'#include <e32cmn.h>',
'#pragma data_seg(".SYMBIAN")',
'__EMULATOR_IMAGE_HEADER2('
);
foreach (@UidList) {
$UidText.="$_,";
}
my $vstr = "0x".&Genutl_VersionToHexString(&main::Version);
my $vid = &main::VendorId;
if(!$vid) { $vid="0"; }
$UidText.="$priority,".(&main::CapabilityFlags)[0]."u,".(&main::CapabilityFlags)[1]."u,".&main::SecureId.",".$vid.",$vstr,"; # second capability word always 0 for now
if (&main::AllowDllData) {
$UidText.="1,";
} else {
$UidText.="0,";
}
chop $UidText;
$UidText.=")\n";
$UidText.="#pragma data_seg()\n";
unless (&main::Plat eq 'TOOLS' || &main::Plat eq 'CWTOOLS' || &main::Plat eq 'TOOLS2' ) {
&main::AddSrc("$MakeFilePath$BaseTrg.UID.CPP", $UidText);
};
}
}
sub Winutl_BaseAddress () {
$BaseAddress;
}
sub Winutl_Win32LibList () {
@Win32LibList;
}
sub Winutl_Win32Resrc () {
$Win32Resrc;
}
sub Winutl_CopyForStaticLinkage () {
$CopyForStaticLinkage;
}
sub Winutl_Win32StdHeaders () {
$Win32StdHeaders;
}
sub Winutl_AdjustTargetPath () {
my ($TrgPathRef) = @_;
if (&main::EPOCSecurePlatform) {
my $plan=1;
my @macros = &Variant_GetMacroList;
foreach my $macro (@macros) {
if ($macro =~ m/^SYMBIAN_IGNORE_BIN_TARGETPATH.*/) {
$plan = 2;
last;
}
}
if ($plan == 1) {
# Intermediate step: TARGETPATH => COPY_FOR_STATIC_LINKAGE
$CopyForStaticLinkage = 1 if ($$TrgPathRef ne "");
} else {
# Finally: Ignore TARGETPATH and COPY_FOR_STATIC_LINKAGE
# unless it's a subdir of sys\bin
if (&main::TrgPath !~ /^Z\\sys\\bin\\.+/i) {
$$TrgPathRef = "";
$CopyForStaticLinkage = 0;
}
}
}
}
sub Winutl_MSVCVer ($) {
my $platcommand=shift;
if(!defined $platcommand) {
$platcommand=0; }
open PIPE, "LINK.EXE 2>&1 |" or die "ERROR: Can't invoke LINK.EXE\n";
my $DoneCheck=0;
while (<PIPE>) {
unless ($DoneCheck) {
if (/^.+\s+Version\s+(\d)\.(\d{2})\.((\d{4})|(\d{5})(.\d{2}))\s*$/o) {
if (($1<6) or ($1==6 and $2<0) or ($1==6 and $2==0 and $3<8447)) {
warn "WARNING: Should install MSVC6 Service Pack 3\n";
}
$MSVCVer = $1;
$MSVCSubVer = $2;
$DoneCheck=1;
}
}
}
close PIPE;
# Do not throw any error when link.exe not present while displaying
# a list of the supported platforms using bldmake plat command.
if (!$DoneCheck && !$platcommand) {
# Couldn't find version information? Might not have link.exe at all
die "ERROR: failed to find version information for LINK.EXE\n";
}
$MSVCVer;
}
sub Winutl_MSVCSubVer ($) {
my $platcommand=@_;
&Winutl_MSVCVer($platcommand);
$MSVCSubVer;
}
sub Winutl_CheckSourceMMPMetaData () {
%CheckSourceMMPMetaData;
}
1;