1*cdf0e10cSrcweir: 2*cdf0e10cSrcweir eval 'exec perl -S $0 ${1+"$@"}' 3*cdf0e10cSrcweir if 0; 4*cdf0e10cSrcweir#************************************************************************* 5*cdf0e10cSrcweir# 6*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 7*cdf0e10cSrcweir# 8*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 9*cdf0e10cSrcweir# 10*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 11*cdf0e10cSrcweir# 12*cdf0e10cSrcweir# This file is part of OpenOffice.org. 13*cdf0e10cSrcweir# 14*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 15*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 16*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 17*cdf0e10cSrcweir# 18*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 19*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 20*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 22*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 23*cdf0e10cSrcweir# 24*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 25*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 26*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 27*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 28*cdf0e10cSrcweir# 29*cdf0e10cSrcweir#************************************************************************* 30*cdf0e10cSrcweir 31*cdf0e10cSrcweir 32*cdf0e10cSrcweirmy ( $srcfile, $destfile ) = @ARGV; 33*cdf0e10cSrcweirmy ( @srclines, @destlines ); 34*cdf0e10cSrcweirmy $dest_existing = 0; 35*cdf0e10cSrcweir@destlines = (); 36*cdf0e10cSrcweir 37*cdf0e10cSrcweirusage() if ( ! defined $srcfile || ! defined $destfile); 38*cdf0e10cSrcweir 39*cdf0e10cSrcweiropen(SRCFILE, "$srcfile") or die "ERROR: Can't open $srcfile\n"; 40*cdf0e10cSrcweir@srclines = <SRCFILE>; 41*cdf0e10cSrcweirclose SRCFILE; 42*cdf0e10cSrcweir 43*cdf0e10cSrcweirif ( -f $destfile ) { 44*cdf0e10cSrcweir open(DESTFILE, "$destfile") or die "ERROR: Can't open $destfile\n"; 45*cdf0e10cSrcweir @destlines = <DESTFILE>; 46*cdf0e10cSrcweir close DESTFILE; 47*cdf0e10cSrcweir $dest_existing = 1; 48*cdf0e10cSrcweir} 49*cdf0e10cSrcweir 50*cdf0e10cSrcweirif ( ! check_if_lists_equal(\@srclines, \@destlines) ) { 51*cdf0e10cSrcweir print STDERR "Updating \"$destfile\".\n"; 52*cdf0e10cSrcweir unlink "$destfile" or die "ERROR: Can't remove old $destfile\n" if ( $dest_existing ); 53*cdf0e10cSrcweir rename "$srcfile", "$destfile" or die "ERROR: Can't rename $srcfile to $destfile\n"; 54*cdf0e10cSrcweir} else { 55*cdf0e10cSrcweir print STDERR "\"$destfile\" unchanged.\n"; 56*cdf0e10cSrcweir} 57*cdf0e10cSrcweir 58*cdf0e10cSrcweirsub check_if_lists_equal 59*cdf0e10cSrcweir{ 60*cdf0e10cSrcweir my ( $srclist_ref, $destlist_ref ) = @_; 61*cdf0e10cSrcweir my @srclist = @{ $srclist_ref }; 62*cdf0e10cSrcweir my @destlist = @{ $destlist_ref }; 63*cdf0e10cSrcweir return 0 if ( $#srclist != $#destlist ); 64*cdf0e10cSrcweir for ( my $i = 0; $i < $#srclist; $i++ ) { 65*cdf0e10cSrcweir return 0 if ( $srclist[$i] ne $destlist[$i]); 66*cdf0e10cSrcweir } 67*cdf0e10cSrcweir return 1; 68*cdf0e10cSrcweir} 69*cdf0e10cSrcweir 70*cdf0e10cSrcweirsub usage 71*cdf0e10cSrcweir{ 72*cdf0e10cSrcweir print STDERR "Usage: diffmv sourcefile destfile\n"; 73*cdf0e10cSrcweir print STDERR "Do move diffing file only\n"; 74*cdf0e10cSrcweir exit 1; 75*cdf0e10cSrcweir} 76*cdf0e10cSrcweir 77