diff -r 9f25be3da657 -r fa7a3cc6effd sbsv1/abld/e32util/set-rvct.bat
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1/abld/e32util/set-rvct.bat	Fri Jun 25 17:29:25 2010 +0800
@@ -0,0 +1,149 @@
+@rem
+@rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+@rem All rights reserved.
+@rem This component and the accompanying materials are made available
+@rem under the terms of "Eclipse Public License v1.0"
+@rem which accompanies this distribution, and is available
+@rem at the URL "http://www.eclipse.org/legal/epl-v10.html".
+@rem
+@rem Initial Contributors:
+@rem Nokia Corporation - initial contribution.
+@rem
+@rem Contributors:
+@rem
+@rem Description:
+@rem
+@rem = '--*-Perl-*--
+@echo off
+if "%OS%" == "Windows_NT" goto WinNT
+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+:WinNT
+perl -x -S %0 %*
+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
+if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+goto endofperl
+@rem ';
+#!perl
+#line 15
+use FindBin;
+
+my $SELF_NAME = "set-rvct";
+
+my $self_path;
+
+BEGIN
+{
+    $self_path = $FindBin::Bin;
+}
+
+use lib $self_path;
+
+use RVCT_ver2set;
+
+
+# Some internal helper functions.
+sub _usage_and_die(@);
+sub _err_and_die(@);
+sub _warning(@);
+sub _fixup_path($$);
+
+
+sub main(@)
+{
+    my @available = RVCT_ver2set::get_versions();
+
+    _err_and_die("no RVCT versions found; check that ABLD_RVCT_INI is set.")
+        unless(@available);
+
+    my ($vers, @junk) = @_;
+
+    _usage_and_die(@available)
+        if ( !$vers || @junk || !RVCT_ver2set::compiler_exists($vers) );
+
+    if ($ENV{ABLD_PLAT_INI})
+    {
+        _warning("ABLD_PLAT_INI is set; the build system might clobber your settings.");
+    }
+
+    my $path = _fixup_path( $ENV{PATH}, RVCT_ver2set::get_bin_path($vers) );
+
+    # Create the batch file.
+    {
+        my $fname = "..__.bat";
+
+        open (my $file,  ">",  $fname)
+            or _err_and_die("couldn't create $fname.");
+
+        print $file "set PATH=$path\n";
+
+        my ($n, $p);
+
+        $n = RVCT_ver2set::get_bin_name($vers);
+        $p = RVCT_ver2set::get_bin_path($vers);
+        print $file "set $n=$p\n";
+
+        $n = RVCT_ver2set::get_inc_name($vers);
+        $p = RVCT_ver2set::get_inc_path($vers);
+        print $file "set $n=$p\n";
+
+        $n = RVCT_ver2set::get_lib_name($vers);
+        $p = RVCT_ver2set::get_lib_path($vers);
+        print $file "set $n=$p\n";
+
+        print $file "echo.\n";
+        print $file "armcc --vsn\n";
+
+        close $file or _err_and_die("couldn't close $fname.");
+    }
+}
+
+sub _usage_and_die(@)
+{
+    for (@_)
+    {
+        print STDERR "    $SELF_NAME $_\n";
+    }
+
+    exit 1;
+}
+
+sub _err_and_die(@)
+{
+    print STDERR "error: @_\n";
+    exit 1;
+}
+
+sub _warning(@)
+{
+    print STDERR "warning: @_\n";
+}
+
+sub _fixup_path($$)
+{
+    my @path = split(/;/, shift);
+    my $bin  = shift;
+
+    my @result = ();
+
+    foreach (@path)
+    {
+        push @result, ($_) unless ($_ eq $bin);
+    }
+
+    return join(";", $bin, @result);
+}
+
+
+main(@ARGV);
+
+
+
+__END__
+:endofperl
+
+if "%errorlevel%" == "0" (if exist ..__.bat call ..__.bat & del ..__.bat)
+
+:: vim:ft=perl
+