diff options
Diffstat (limited to 'sp/src/devtools/bin/splitdiff3.pl')
| -rw-r--r-- | sp/src/devtools/bin/splitdiff3.pl | 108 |
1 files changed, 54 insertions, 54 deletions
diff --git a/sp/src/devtools/bin/splitdiff3.pl b/sp/src/devtools/bin/splitdiff3.pl index e38b493a..ccba3a95 100644 --- a/sp/src/devtools/bin/splitdiff3.pl +++ b/sp/src/devtools/bin/splitdiff3.pl @@ -1,54 +1,54 @@ -$infilename = shift;
-$outfilename1 = shift;
-$outfilename2 = shift;
-open INPUT, $infilename || die;
-@input = <INPUT>;
-close INPUT;
-
-open MERGEDMINE, ">$outfilename1" || die;
-open MERGEDTHEIRS, ">$outfilename2" || die;
-
-for( $i = 0; $i < scalar( @input ); $i++ )
-{
- $line = $input[$i];
-
- if( $line =~ m/^(.*)<<<<<<</ )
- {
- $first = 1;
- $second = 0;
- print MERGEDMINE $1;
- print MERGEDTHEIRS $1;
- next;
- }
- # Make sure that we are in a split block so that comments with ======= don't mess us up.
- if( $line =~ m/^(.*)=======$/ && $first == 1 )
- {
- $first = 0;
- $second = 1;
- print MERGEDMINE $1;
- next;
- }
- if( $line =~ m/^(.*)>>>>>>>/ )
- {
- $first = $second = 0;
- print MERGEDTHEIRS $1;
- next;
- }
-
- if( $first )
- {
- print MERGEDMINE $line;
- }
- elsif( $second )
- {
- print MERGEDTHEIRS $line;
- }
- else
- {
- print MERGEDMINE $line;
- print MERGEDTHEIRS $line;
- }
-}
-
-close MERGEDMINE;
-close MERGEDTHEIRS;
+$infilename = shift; +$outfilename1 = shift; +$outfilename2 = shift; +open INPUT, $infilename || die; +@input = <INPUT>; +close INPUT; + +open MERGEDMINE, ">$outfilename1" || die; +open MERGEDTHEIRS, ">$outfilename2" || die; + +for( $i = 0; $i < scalar( @input ); $i++ ) +{ + $line = $input[$i]; + + if( $line =~ m/^(.*)<<<<<<</ ) + { + $first = 1; + $second = 0; + print MERGEDMINE $1; + print MERGEDTHEIRS $1; + next; + } + # Make sure that we are in a split block so that comments with ======= don't mess us up. + if( $line =~ m/^(.*)=======$/ && $first == 1 ) + { + $first = 0; + $second = 1; + print MERGEDMINE $1; + next; + } + if( $line =~ m/^(.*)>>>>>>>/ ) + { + $first = $second = 0; + print MERGEDTHEIRS $1; + next; + } + + if( $first ) + { + print MERGEDMINE $line; + } + elsif( $second ) + { + print MERGEDTHEIRS $line; + } + else + { + print MERGEDMINE $line; + print MERGEDTHEIRS $line; + } +} + +close MERGEDMINE; +close MERGEDTHEIRS; |