sbsv1/abld/group/perlprep.bat
author Ross Qin <ross.qin@nokia.com>
Thu, 18 Nov 2010 16:02:32 +0800
changeset 697 818fe0ed324b
parent 599 fa7a3cc6effd
permissions -rw-r--r--
Moving feature configuration out of the buildrom scope.

@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
@echo off

REM a basic perl preprocessor

if exist %0.bat perl -x %0.bat %1 %2 %3 %4 %5
if exist %0 perl -x %0 %1 %2 %3 %4 %5
GOTO End

#!perl

use strict;

die "Usage:\nPERLPREP [infile] [outfile]\n" unless @ARGV==2;

my ($INFILE, $OUTFILE)=map lc $_, @ARGV;
die "Can't find $INFILE\n" unless -e $INFILE;

if ($INFILE=~/\.(bat|cmd|pm|pl)$/io) {
	open INFILE,$INFILE or die "Can't open $INFILE: $!\n";
	my $FileText='';
	while (<INFILE>) {
		s/(perl)(\.exe)?\s+-w/$1$2/io;		# remove perl -w switch - has to be first switch
		s/use\s+strict;\s*\n//oe;	# remove use strict; statement
		$FileText.=$_;
	}
	close INFILE or die "Can't close $INFILE: $!\n";
	open OUTFILE,">$OUTFILE" or die "Can't open $OUTFILE: $!\n";
	print OUTFILE $FileText;
	close OUTFILE or die "Can't close $OUTFILE: $!\n";
}
else {
	system "copy $INFILE $OUTFILE";
}


__END__

:End