diff -r fa9d7d89d3d6 -r 68f68128601f sbsv1/abld/e32util/gendef.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sbsv1/abld/e32util/gendef.pl Thu Nov 25 13:59:07 2010 +0000 @@ -0,0 +1,74 @@ +#!/usr/bin/perl +# 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; +} + +# Version +my $MajorVersion = 1; +my $MinorVersion = 1; +my $PatchVersion = 0; + + +# 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 V$MajorVersion.$MinorVersion.$PatchVersion\n", + "\n", + "GENDEF.PL [output def file] [1st export name] ([Other export names]...)\n", + "\n", + "\n", + "\n" + ); + exit 1; +} + +