diff -r 000000000000 -r 83f4b4db085c sbsv1_os/e32toolp/makmake/makdeps.pm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sbsv1_os/e32toolp/makmake/makdeps.pm Tue Feb 02 01:39:43 2010 +0200 @@ -0,0 +1,410 @@ +# 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: +# Module which wraps the dependency information provided the preprocessor when invoked with certain switches +# so that dependency information rather than preprocessing information is produced. +# +# + +package Makdeps; +require Exporter; +@ISA=qw(Exporter); +@EXPORT=qw( + Deps_InitL + Deps_SetVerbose + Deps_SetUserHdrsOnly + Deps_SetNoDependencies + Deps_SetSysIncPaths + Deps_SetUserIncPaths + Deps_SetPlatMacros + Deps_SetStdIncSysIncPaths + Deps_GenDependsL + Deps_SetPrefixFile + Deps_GetNoDependencies + Deps_SetNoDependenciesStatus + Deps_GetOSVariantFile + Deps_SetOSVariantFile +); + +use strict; +use Checkgcc; +use Pathutl; +use Preprocessor; + + +my $ChopSysDecoyPath; +my $EPOCIncPath; +my @StdPaths; +my %Mode; +my @PlatMacros; +my $SysDecoyPath; +my @SysFlags; +my @SysPaths; +my @UserFlags; +my @UserPaths; +my $PrefixFileOption = ""; +my $VariantFile=&main::VariantFile(); + +# special variable used in pattern-matching - special characters nullified +my $S_SysDecoyPath; + +BEGIN { # NB don't initialise essential items to be provided later by calling module, then will cause errors with undef + $Mode{'Verbose'}=0; + $Mode{'UserHdrsOnly'}=0; + $Mode{'NoDependencies'}=0; + @PlatMacros=(); + # note -MG option assumes missing user headers live in 1st userincpath and missing sys headers in 1st sysdir + @SysPaths=(); + @UserPaths=(); + @StdPaths=(); + @SysFlags=(); + @UserFlags=(); + # Use random number to ensure DecoyPath is unique (ish) + srand(); + my $randnum=int(rand(100)); + if (defined $ENV{PBUILDPID}) { + $SysDecoyPath=&Path_WorkPath."TEMPMAK$ENV{PBUILDPID}SYSDECOY$randnum\\"; + } else { + $SysDecoyPath=&Path_WorkPath."TEMPMAKSYSDECOY$randnum\\"; + } + $S_SysDecoyPath=quotemeta($SysDecoyPath); + $ChopSysDecoyPath=&Path_Chop($SysDecoyPath); +} + +sub Deps_InitL ($@) { # abs Generated Hdr dir, StdIncsysdir (with drive letter if required) +# set up a decoy system include path, and set which path will contain generated headers, eg .RSG files, and which +# paths are the standard system include paths for the compiler used - eg \MSDEV\INCLUDE + ($EPOCIncPath,@StdPaths)=@_; + +# remove the decoy directory then try to make it again - if it contains files rmdir won't work, so mkdir won't +# work and the user will have to sort it out. If it doesn't contain files and has been left lying around +# because someone has killed the program half-way through, then rmdir will remove it and mkdir will work OK + rmdir $ChopSysDecoyPath if -d $ChopSysDecoyPath; + mkdir $ChopSysDecoyPath,2 or die "ERROR: Can't make temp dir \"$ChopSysDecoyPath\"\nIf it already exists, please remove it\n"; +} +sub Deps_SetVerbose { + $Mode{'Verbose'}=1; +} + +sub Deps_SetUserHdrsOnly { +# allow calling program to dictate that only listings of user headers, not system headers, be produced + $Mode{'UserHdrsOnly'}=1; +} + +sub Deps_SetNoDependencies { +# Ensure that we do not create a list of dependencies. + $Mode{'NoDependencies'}=1; +} + +sub Deps_GetNoDependencies { +# Get the status of NoDependencies. + return $Mode{'NoDependencies'}; +} + +sub Deps_SetNoDependenciesStatus($) { +# Ensure that we do not create a list of dependencies. + $Mode{'NoDependencies'}=shift; +} + +sub Deps_GetOSVariantFile() { +# Return the variant .hrh file currently defined + return $VariantFile; +} + +sub Deps_SetOSVariantFile($) { +# Override the variant .hrh file currently defined + $VariantFile=shift; +} + +sub Deps_SetSysIncPaths (@) { # takes list abs paths +# set the system include paths where we'll look for system included files, and +# for user included files if these are not found in the user include directories + return unless @_; + @SysPaths=@_; + @SysFlags=&Path_Chop(@SysPaths); # newer gcc doesn't like trailing backslash + @SysFlags=&Path_PrefixWithDriveAndQuote(@SysFlags); + my $Flag; + foreach $Flag (@SysFlags) { + $Flag=~s/^(.*)$/-I $1/o; + } +} +sub Deps_SetUserIncPaths (@) { # takes list of abs paths +# set the user include paths to find user included files in + return unless @_; + @UserPaths=@_; + @UserFlags=&Path_Chop(@UserPaths); # newer gcc doesn't like trailing backslash + @UserFlags=&Path_PrefixWithDriveAndQuote(@UserFlags); + my $Flag; + foreach $Flag (@UserFlags) { + $Flag=~s/^(.*)$/-I $1/o; + } +} +sub Deps_SetPlatMacros (@) { +# set the macros to be defined by the preprocessor + return unless @_; + @PlatMacros=@_; + my $Flag; + foreach $Flag (@PlatMacros) { + if($Flag =~ m/\\\"/) { + $Flag =~ s/\\\"/\"/g ; + } + $Flag=~s/^(.*)$/-D$1/o; + } +} + +sub Deps_SetPrefixFile($) { + my ($file) = @_; + $PrefixFileOption = " -include $file "; +} + +sub Deps_GenDependsL ($@) { # takes abs source filepath and list of Build Macros + + if ( $Mode{'NoDependencies'} ) { + # no need build a dependency list. + return; + } + +# Set any more macros the preprocessor needs to be defined for the source file +# to be preprocessed. +# Call preprocessor and produce the dependency listing. + + my ($Src,@BldMacros)=@_; + + if (not -e $Src) { + warn "WARNING: \"",$Src,"\" not found!\n"; + return; + } + +# Always put the source path at the head of the user path list +# and take it out at the end of this function + unshift @UserPaths, &Path_Split('Path', lc $Src); + + my $ChopSysDecoyPath=&Path_Chop($SysDecoyPath); # newer gcc doesn't like trailing backslash + my $MacroFlag; + foreach $MacroFlag (@BldMacros) { + $MacroFlag=~s/^(.*)$/-D$1/o; + } + undef $MacroFlag; + + my $ChopSrcPath=&Path_Chop(&Path_Split('Path',$Src)); # newer gcc doesn't like trailing backslash + my $ProductVariantFlag = ""; + if($VariantFile){ + $ProductVariantFlag = "-include " . &Path_PrefixWithDriveAndQuote($VariantFile); + } + my $VariantIncludePath; + if (defined &main::PMPrefixFile) + { + $VariantIncludePath = &main::PMPrefixFile; + $VariantIncludePath =~ s/"//g; + $VariantIncludePath = Path_Split("path", $VariantIncludePath); + + $VariantIncludePath = Path_Chop($VariantIncludePath); + $VariantIncludePath = Path_PrefixWithDriveAndQuote($VariantIncludePath); + } + my $CPPCommand; + my $exe = &PreprocessorToUseExe(); + $CPPCommand = "$exe -undef -M -MG -nostdinc $PrefixFileOption"; + $CPPCommand .= " -I $VariantIncludePath" if $VariantIncludePath; + $CPPCommand .= " -I ".&Path_PrefixWithDriveAndQuote($ChopSrcPath)." @UserFlags -I- -I ".&Path_PrefixWithDriveAndQuote($ChopSysDecoyPath)." @SysFlags @PlatMacros @BldMacros $ProductVariantFlag ".&Path_PrefixWithDriveAndQuote($Src); + + if ($Mode{'Verbose'}) { + print "$CPPCommand\n" + } + open CPPPIPE,"$CPPCommand |" or die "ERROR: Can't invoke $exe.EXE\n"; + + # XYZ.CPP.o: \ + # ..\..\..\base\bafl\src\xyz.cpp \ + # ..\..\..\EPOC32\INCLUDE\E32DES16.H ..\..\..\EPOC32\INCLUDE\E32STD.INL \ + # ..\..\..\EPOC32\INCLUDE\E32BASE.INL \ + # ..\..\..\base\bafl\inc\bautil.h \ + # ..\..\..\awkward\ name\bafl\inc\bautil.h \ + # ..\..\..\lastthing.h + + my @RTWDepList; + while () { + s/ \\$//oi; # remove trailing continuation character + s/\\ /;/go; # convert embedded spaces (\) into semicolon which can't occur in filenames + # avoid the target of the rule by requiring whitespace in front of each element + while (/\s(\S+)/go) { + my $dep = $1; + $dep =~ s/;/ /go; # spaces were turned into semicolon, so convert back again here + $dep =~ s-/-\\-go; # replace forward slashes with backward slashes + $dep =~ s/^.\://; + $dep =~ s/\s+$//; # remove trailing spaces + push @RTWDepList,$dep; + } + } + close CPPPIPE or die "ERROR: $exe.EXE failure\n"; + + # drop the first dependent, which is the source file itself + shift @RTWDepList; + +# make all paths absolute + my @DepList=&Path_AbsToWork(@RTWDepList); + undef @RTWDepList; + +# test the dependencies + eval { @DepList=&TestDepends($Src,@DepList); }; + die $@ if $@; + + my @SortedDepList; +# get just those headers found in the user include path if user headers only specified + if (not $Mode{'UserHdrsOnly'}) { + @SortedDepList=sort @DepList; + } + else { + my @UserDepList=(); + my $Dep; + my $UserPath; + DEPLOOP: foreach $Dep (@DepList) { + foreach $UserPath (@UserPaths) { + if ($UserPath eq &Path_Split('Path',$Dep)) { + push @UserDepList, $Dep; + next DEPLOOP; + } + } + } + @SortedDepList=sort @UserDepList; + } + +# take the source path out of the user path list + shift @UserPaths; + + @SortedDepList; +} + + +sub TestDepends (@) { # takes source list of absolute dependencies - called by GenDepends +# check that the dependencies exist or are to be generated later, because gcc with the -MG switch +# will assume that missing system headers live in the first system include path specified (the decoy +# directory in our case), and the missing user headers live in the current working directory + + my ($Src,@DepList)=@_; + + my @BadSysList; + my @BadUserList; + my $Dep; + my @GoodList; + my $SrcPath=&Path_Split('Path', $Src); + + my $Path; + my $File; + DEPLOOP: foreach $Dep (@DepList) { # system dependencies not found + $Path=&Path_Split('Path', lc $Dep); + if ($Dep=~/^$S_SysDecoyPath(.*)$/o) { # allow things like "#include " +# any files listed as existing in the system decoy directory will be missing system include files + $File=$1; +# change any missing generated header entries so that they are thought to be in $EPOCIncPath, where they will be generated to + if ($File=~/\.(RSG|MBG)$/oi) { + push @GoodList, "$EPOCIncPath$File"; + next DEPLOOP; + } +# remove missing system include files from the list if they actually exist in standard directories - since the makefiles can't handle +# files which may be on a different drive - we don't mind this because if we're using MSVC then we can assume +# the MSVC include files will exist + my $LR; + foreach $LR (@StdPaths) { # tackle MSDEV include dir on diff drive + if (-e "$LR$File") { # don't put MSDEV includes in dep list - drive letter would end up in makefile + next DEPLOOP; + } + } +# put any other missing system files on the bad list after checking that they really don't exist on the system paths +# at this point in time. This check is applied in an attempt to avoid sporadic warnings in the build where system +# headers have been listed in the system decoy directory, and hence flagged as missing, when they do seem to have +# been present at this time post-build... + foreach $Path (@SysPaths) { + if (-e "$Path$File") { + next DEPLOOP; + } + } + push @BadSysList, $File; + next DEPLOOP; + } +# preprocessor lists any missing user headers as existing in the current directory, +# and, if no userinclude paths are specified, +# searches to path containing the source file for user headers by default + if ($Path eq lc &Path_WorkPath) { # possible missing user headers + $File=&Path_Split('File',$Dep); + # does the userinclude path contain the current working directory? + my $LoopPath; + my $WorkPathInUserPaths=0; + foreach $LoopPath (@UserPaths) { + if ( (lc $LoopPath) eq (lc &Path_WorkPath) ) { + $WorkPathInUserPaths=1; + next; + } + } + if ($WorkPathInUserPaths) { # the user include path contains the current working directory + if (-e $Dep) { + push @GoodList,$Dep; # file found in specified userinclude path, OK + next DEPLOOP; + } + } + push @BadUserList, $File; # file not found in specified userinclude path, bad + next DEPLOOP; + } + push @GoodList, $Dep; + } + + my $Bad; + if (@BadSysList) { + warn "\nWARNING: Can't find following headers in System Include Path\n"; + foreach $Bad (@BadSysList) { + print STDERR " <$Bad>"; + } + print STDERR "\n(Sys Inc Paths"; + foreach $Path (@SysPaths,@StdPaths) { + print STDERR " \"$Path\""; + } + warn + ")\nDependency list for \"$Src\" may be incomplete\n", + "\n" + ; + } + if (@BadUserList) { + warn "\nWARNING: Can't find following headers in User or System Include Paths\n"; + my $GenHdr=0; + foreach $Bad (@BadUserList) { + print STDERR " \"$Bad\""; + if ($File=~/\.(RSG|MBG)$/o) { + $GenHdr=1; + } + } + print STDERR "\n(User Inc Paths"; + foreach $Path (@UserPaths) { + print STDERR " \"$Path\""; + } + warn + ")\nDependency list for \"$Src\" may be incomplete\n", + "\n" + ; + if ($GenHdr) { + warn + "Note that generated headers should be system-included with angle brackets <>\n", + "\n" + ; + } + } + + @GoodList; +} + + +END { + # remove the dependency decoy directories + if (-d "$ChopSysDecoyPath") { + rmdir "$ChopSysDecoyPath" or warn "Please remove temp dir \"$ChopSysDecoyPath\"\n"; + } +} + +1;