#!/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::Binmy $PerlLibPath; # fully qualified pathname of the directory containing our Perl modulesBEGIN {# check user has a version of perl that will cope require 5.005_03;}# Versionmy $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;}