# Copyright (c) 2008-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:
# e32toolp/e32util/gendef.pl
# 
#

use FindBin;		# for FindBin::Bin

my $PerlLibPath;    # fully qualified pathname of the directory containing our Perl modules

BEGIN {
# check user has a version of perl that will cope
	require 5.005_03;
# establish the path to the Perl libraries: currently the same directory as this script
	$PerlLibPath = $FindBin::Bin;	# X:/epoc32/tools
	$PerlLibPath =~ s/\//\\/g;	# X:\epoc32\tools
	$PerlLibPath .= "\\";
}

use lib $PerlLibPath;
use E32tpver;

# THE MAIN PROGRAM SECTION
##########################

unless (@ARGV>1)
{
	&Usage;
}
my @exports = @ARGV;
my $outfile = shift @exports;

open OUTFILE, ">$outfile" or die "Gendef.pl: Unable to open $outfile for writing";

print OUTFILE "EXPORTS\n";
my $exportNum = 1;
foreach (@exports)
{
	print OUTFILE "\t$_ @ $exportNum NONAME\n";
	++$exportNum;
}

close OUTFILE;

#######################################################################
# SUBROUTINES
#######################################################################

sub Usage () {

	print(
		"\n",
		"GENDEF - Generate a DEF file from passed exports (Build ",&E32tpver,")\n",
		"\n",
		"GENDEF.PL [output def file] [1st export name] ([Other export names]...)\n",
		"\n",
		"\n",
		"\n"
	);
	exit 1;
}