Changeset 14549 for S60/trunk/build.bat

Timestamp:

05/23/06 15:48:06 (3 years ago)

Author:

brmorris

Message:

S60WebKit ... migrated!

Files:

• S60/trunk/build.bat (modified) (1 diff)

S60/trunk/build.bat

@@ -12 +12 @@
 @rem ';
 #!perl
-#
-# Copyright (C) 2006, Bradley Morrison <bradley.morrison@nokia.com>
-# Copyright (C) 2006, Nokia Corporation, Inc.
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB.  If not, write to
-# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
+#line 15
 
 use strict;
 use warnings;
+use FindBin qw($Bin);
+use lib "$Bin/S60tools/lib";
 use File::Basename;
-use FindBin qw($Bin);
+use File::DirSync;
 use Getopt::Std;
-use Win32::TieRegistry ( Delimiter => '/');
-
-sub usage {
-        die "Usage:\n".basename $0."\t[OPTS] [COMPONENT]
-                -c      Include clean in compile
-                -d      Turn on debugging
-                -r      Delete S60Internal files and exit
-                -h      View this message
-        \n";
-}
-getopts('hdcr', \my %opts) or usage();
-$opts{h} and usage();
-
-my $component = shift;
-
-my $sdkhome = $Registry -> {
+use IO::Tee;
+use Win32::TieRegistry ( Delimiter => '/' );
+
+getopts( 'gethdfcrowns:', \my %opts );
+die basename $0. "\t[OPTS] [COMPONENT]
+    -n    Do not include clean in compile
+    -f    run freeze phase and exit
+    -g    GCCE compiler for hardware build
+    -w    Code Warrior compiler for emulator build
+    -t    Target build
+    -d    Turn on debugging, forces udeb flavour
+    -e    Export generated environment and exit
+    -r    Remove S60Internal dependencies and exit
+    -s X  Map drive to this letter (default: x)
+    -h    View this message
+" if $opts{h};
+
+my $outfile = "build.log";
+my $tee     = new IO::Tee( \*STDOUT, new IO::File(">$outfile") );
+
+my $verbose  = do { $opts{d} ? '-v'   : '' };
+my $redirect = do { $opts{d} ? '2>&1' : '' };
+my $component = shift || '';
+
+my $epocroot = dirname $Bin;
+my $toplevel = basename $Bin;
+
+build_platform() if $opts{o};
+
+$opts{s} ||= 'x:';
+$opts{s}  .= ':' unless $opts{s} =~ /:$/;
+unless ( -d "\\$toplevel" ) {
+    `subst $opts{s} /d $redirect`;
+    systemtee ("subst $opts{s} $epocroot")
+      and die "Failed to subst $opts{s} to $epocroot: $!\n";
+    chdir $opts{s} 
+      or  die "Failed to chdir to $opts{s} (subst: $epocroot): $!\n";
+}
+
+chdir '\\';
+print "Building under $opts{s} drive\n";
+
+my $sdkhome =
+  $Registry->{
 "HKEY_LOCAL_MACHINE/SOFTWARE/Symbian/Series 60/3rd Ed. SDK for Symbian OS/TargetDir"
-};
--d $sdkhome or die "ERROR: cannot find 3rd Ed. SDK for Symbian OS installation\n";
+  };
+-d $sdkhome
+  or die "ERROR: cannot find 3rd Ed. SDK for Symbian OS installation\n";
 
 my $cbdhome = $ENV{CARBIDE_HOME} || '';
 $cbdhome = "$ENV{ProgramFiles}\\Carbide" unless -d $cbdhome;
-$cbdhome = "c:\\Carbide"                                                                 unless -d $cbdhome;
-$cbdhome = "c:\\apps\\Carbide"                                   unless -d $cbdhome;
-unless (defined $cbdhome and -d $cbdhome) {
-                                die "ERROR: cannot find Carbide installation path\n".
-                                "Set CARBIDE_HOME to Carbide installation path and try again\n";
-}
-
-$ENV{'CWFolder'} = $cbdhome;
+$cbdhome = "c:\\Carbide"                 unless -d $cbdhome;
+$cbdhome = "c:\\apps\\Carbide"           unless -d $cbdhome;
+
+unless ( defined $cbdhome and -d $cbdhome ) {
+    die "ERROR: cannot find Carbide installation path\n"
+      . "Set CARBIDE_HOME to Carbide installation path and try again\n";
+}
+
+$ENV{'CWFolder'}        = $cbdhome;
 $ENV{'LM_LICENSE_FILE'} = "$cbdhome\\license.dat";
-$ENV{'EPOCROOT'}='\\';
-$ENV{'MWCSym2Includes'}='1';
-$ENV{'MWLibraries'}= "$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\Win32-x86 Support\\Libraries\\Win32 SDK;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\MSL\\MSL_C\\MSL_Common\\Include;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\MSL\\MSL_C\\MSL_Win32\\Include;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\MSL\\MSL_C++\\MSL_Common\\Include;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\Runtime\\Runtime_x86\\Runtime_Win32\\Libs";
-$ENV{'MWSym2LibraryFiles'}= 'gdi32.lib;user32.lib;kernel32.lib;MSL_All_MSE.lib;MSL_All_MSE_Symbian.lib;MSL_All_x86.lib;MSL_All_x86_Symbian.lib';
-$ENV{'PATH'}= "$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Tools\\Command_Line_Tools;$sdkhome\\epoc32\\tools;$sdkhome\\epoc32\\gcc\\bin;".$ENV{PATH};
-
-if ($opts{d}) {
-        print "ENV: $_\n\n$ENV{$_}\n\n" for keys %ENV;
-}
-my $epocroot = dirname $Bin; 
-my $toplevel = basename $Bin;
-
-# only subst if current drive ne subst dir                      
-unless ( -d "\\$toplevel" ) {
-        `subst x: /d 2>&1`;     # discards STDERR & STDOUT                              
-        system "subst x: $epocroot"     and warn "Failed to subst x: to $epocroot: $!\n";
-}
-chdir 'x:' or die "Failed to chdir to x: (subst: $epocroot): $!\n";
-chdir '\\';
+$ENV{'EPOCROOT'}        = '\\';
+$ENV{'MWCSym2Includes'} = '1';
+$ENV{'MWLibraries'}     =
+"$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\Win32-x86 Support\\Libraries\\Win32 SDK;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\MSL\\MSL_C\\MSL_Common\\Include;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\MSL\\MSL_C\\MSL_Win32\\Include;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\MSL\\MSL_C++\\MSL_Common\\Include;$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Support\\Runtime\\Runtime_x86\\Runtime_Win32\\Libs";
+$ENV{'MWSym2LibraryFiles'} =
+'gdi32.lib;user32.lib;kernel32.lib;MSL_All_MSE.lib;MSL_All_MSE_Symbian.lib;MSL_All_x86.lib;MSL_All_x86_Symbian.lib';
+$ENV{'PATH'} =
+"$cbdhome\\plugins\\com.nokia.carbide.cpp.support_1.0.0\\Symbian_Tools\\Command_Line_Tools;$sdkhome\\epoc32\\tools;$sdkhome\\epoc32\\gcc\\bin;"
+  . $ENV{PATH};
+delete $ENV{'MWSYM2LIBRARIES'};
+$ENV{'ARCHIVER'} = 'arm-none-symbianelf-ar';
+
+if ( $opts{e} ) {
+    for (
+        qw /CWFolder LM_LICENSE_FILE EPOCROOT MWCSym2Includes MWLibraries MWSym2LibraryFiles PATH ARCHIVER/
+      )
+    {
+        print "set $_=$ENV{$_}\n";
+    }
+    exit;
+}
+
+if ( $opts{d} ) {
+    print "$_=$ENV{$_}\n\n" for sort keys %ENV;
+}
 
 if ( $opts{r} ) {
-                foreach (`unzip -l $toplevel\\S60Internals\\*.zip`) {
-                                if ( /\d\d:\d\d\s*(.*)/ ) {
-                                                next unless -f $1;
-                                                print "Removing $1\n";
-                                                unlink $1;
-                                }
-                }
-                exit;
-}
-
-system "unzip -od \\ $toplevel\\S60Internals\\*.zip" 
-        if glob <$toplevel/S60Internals/*.zip>;
-        
-chdir $toplevel or die "Cannot cd to $toplevel: $!\n";
-if ( $component ) {
-        chdir "$component\\group"       or die "Cannot cd to $component: $!\n";
-}
-
-my $verbose = do {$opts{d} ? '-v' : ''};
-system "bldmake $verbose bldfiles winscw";
-system "abld $verbose reallyclean winscw udeb" if $opts{c};
-system "abld $verbose build winscw udeb";
-
+    foreach (`unzip -l $toplevel\\S60Internals\\*.zip $redirect`) {
+        if (/\d\d:\d\d\s*(.*)/) {
+            next unless -f $1;
+            print "Removing $1\n";
+            unlink $1;
+        }
+    }
+    exit;
+}
+
+`unzip -od \\ $toplevel\\S60Internals\\*.zip $redirect`
+  if glob <$toplevel/S60Internals/*.zip>;
+
+print
+  "Synching \\$toplevel\\LayoutTests with \\epoc32\\winscw\\c\\LayoutTests\n";
+
+my $dirsync = new File::DirSync {
+    verbose => $opts{d},
+    src     => "$Bin/LayoutTests",
+    dst     => "\\epoc32\\winscw\\c\\LayoutTests",
+    nocache => 1,
+};
+$dirsync->ignore('.svn');
+$dirsync->dirsync();
+print $dirsync ->entries_updated() . " LayoutTests files updated\n";
+print $dirsync ->entries_removed() . " LayoutTests files removed\n";
+
+chdir $toplevel or die "Cannot cd to $toplevel: $!\n";
+
+if ( $opts{w} ) {
+    build( 'udeb', 'winscw' );
+}
+elsif ( $opts{g} ) {
+    build( 'urel', 'gcce' );
+}
+else {
+    build( 'udeb', 'winscw' );
+
+    #   build ('urel','gcce');
+}
+
+if ( $opts{g} ) {
+    chdir '\\s60\\s60webui\\webui\\install';
+    systemtee('buildsis');
+    chdir '\\s60';
+}
+
+finish();
+
+sub build {
+    my ( $flavour, $platform ) = @_;
+    do { systemtee("abld $verbose freeze $platform"); exit $? }
+      if $opts{f};
+    if ( $opts{t} ) {
+        systemtee("abld $verbose target $platform $flavour $component");
+        return;
+    }
+    $flavour = 'udeb' if $opts{d};    # debugging forces udeb flavour
+    systemtee("bldmake $verbose bldfiles $platform");
+
+    # disable logging
+    system("abld $verbose reallyclean $platform $flavour $component")
+      unless $opts{n};
+    systemtee("abld $verbose build $platform $flavour $component");
+}
+
+sub build_platform {
+    $ENV{EPOCROOT} = '\\';
+    chdir 'S60Internals';
+    `unzip -o S60Libs.zip $redirect`;
+    `unzip -o S60Headers.zip $redirect`;
+    chdir '../S60Tools';
+    systemtee("perl \\epoc32\\tools\\genbuild.pl WebEngine.txt");
+    for (qw/bldfiles export makefile clean what/) {
+        system "WebEngine_${_}.cmd";
+    }
+    for (qw/resource library target/) {
+        system("WebEngine_${_}.cmd");
+    }
+    finish();
+}
+
+sub systemtee {
+    my ($cmd) = @_;
+    return unless $cmd;
+    open( my $STATUS, "$cmd 2>&1 |" )
+      || die "can't fork: $!";
+    while (<$STATUS>) {
+        print $tee $_;
+    }
+    close $STATUS || warn "Bad cmd $! exit value: $?\n";
+    return $?;
+}
+
+sub finish {
+    my ( $sec, $min, $hour, @trash ) = gmtime( time - $^T );
+    printf "\n\tCompleted in: %02d:%02d:%02d\n", $hour, $min, $sec;
+    print "\n\tScanning build output for errors: ";
+    my $summary = `perl \\epoc32\\tools\\scanlog.pl $outfile`;
+    unless ( $summary =~ /Total\s*\d\d:\d\d\:\d\d\s*(\d+)/ ) {
+        warn("\nFailed to parse build summary:\n$summary");
+    }
+    else {
+        print "$1 found\n";
+    }
+    exit $1;
+}
 __END__
 :endofperl