Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Rename.pm

package Psh::Builtins::Rename;
use strict;

use Psh::Util ':all';

=item * C<rename> [-i] perlcode [files]

"rename" provides the filename in $_ to perlcode
and renames according to the new value of $_ modified
by perlcode.

Originally written by Larry Wall

=cut


sub bi_rename
{
	my ($line, $words)= @_;
	my @words=@$words;
	my $inspect=0;
	my $op= shift @words;
	if ($Psh::interactive && $op eq '-i') {
		$inspect=1;
		$op= shift @words;
	}
	$op= Psh::Parser::unquote($op);
	@words = Psh::Parser::glob_expansion(\@words);
	@words = map { Psh::Parser::unquote($_)} @words;
	my $count=0;
	foreach my $file (@words) {
		unless (-e $file) {
			print STDERR "$Psh::bin: $file: $!\n";
			next;
		}
		my $was= $file;
		$Psh::PerlEval::lastscalar=$was;
		Psh::PerlEval::protected_eval($op);
		my $now= $Psh::PerlEval::lastscalar;
		if ($was ne $now) {
			if ($inspect && -e $now) {
				next unless Psh::Util::prompt("yn","remove $now?") eq 'y';
			} elsif (-e $now) {
				print STDERR "$_ exists. $was not renamed\n";
				next
			}
			if (CORE::rename($was,$now)) {
				$count++;
			} else {
				print STDERR "$Psh::bin: can't rename $was to $now: $!\n";
			}
		}
	}
	return ($count>0,$count);
}



1;

# Local Variables:
# mode:perl
# tab-width:4
# indent-tabs-mode:t
# c-basic-offset:4
# perl-label-offset:0
# perl-indent-level:4
# cperl-indent-level:4
# cperl-label-offset:0
# End: