--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1/abld/genutil/modload.pm	Wed Jun 30 11:35:58 2010 +0800
@@ -0,0 +1,64 @@
+# 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:
+# Runtime module-loading routine for loading e32tools modules into 'main' module
+# 
+#
+
+
+package Modload;
+
+require Exporter;
+@ISA=qw(Exporter);
+
+@EXPORT=qw(
+	Load_SetVerbose
+	Load_SetModulePath
+	Load_ModuleL
+);
+
+
+use Pathutl;
+
+my %Mode=(
+	Verbose=>0
+);
+my $ModulePath;
+
+sub Load_SetVerbose () {
+	$Mode{Verbose}=1;
+}
+
+sub Load_SetModulePath ($) {
+	$ModulePath=$_[0];
+}
+
+sub Load_ModuleL (@) {
+# Loads a module into the 'main' package, including all the functions the module defines for export
+
+	my @ModBaseList=@_;
+	my $ModBase;
+	foreach $ModBase (@ModBaseList) {
+		$ModBase=uc $ModBase;
+		die "ERROR: Can't load \"$ModulePath$ModBase.PM\"\n" unless -e "$ModulePath$ModBase.PM";
+		if ($Mode{Verbose}) {
+			print "Loading Module: \"",$ModBase,".PM\"\n";
+		}
+		package main;
+		require $ModBase.".PM" or die "ERROR: Can't load function from \"$ModulePath$ModBase.PM\"\n";
+		my $Package=ucfirst lc $ModBase;
+		$Package->import;
+	}
+}
+
+1;