1#!/usr/bin/perl 2# Copyright (c) 2009, 2010 David Aguilar 3# Copyright (c) 2012 Tim Henigan 4# 5# This is a wrapper around the GIT_EXTERNAL_DIFF-compatible 6# git-difftool--helper script. 7# 8# This script exports GIT_EXTERNAL_DIFF and GIT_PAGER for use by git. 9# The GIT_DIFF* variables are exported for use by git-difftool--helper. 10# 11# Any arguments that are unknown to this script are forwarded to 'git diff'. 12 13use5.008; 14use strict; 15use warnings; 16use File::Basename qw(dirname); 17use File::Copy; 18use File::Compare; 19use File::Find; 20use File::stat; 21use File::Path qw(mkpath); 22use File::Temp qw(tempdir); 23use Getopt::Long qw(:config pass_through); 24use Git; 25 26sub usage 27{ 28my$exitcode=shift; 29print<<'USAGE'; 30usage: git difftool [-t|--tool=<tool>] [--tool-help] 31[-x|--extcmd=<cmd>] 32[-g|--gui] [--no-gui] 33[--prompt] [-y|--no-prompt] 34[-d|--dir-diff] 35['git diff' options] 36USAGE 37exit($exitcode); 38} 39 40sub find_worktree 41{ 42my($repo) =@_; 43 44# Git->repository->wc_path() does not honor changes to the working 45# tree location made by $ENV{GIT_WORK_TREE} or the 'core.worktree' 46# config variable. 47my$worktree; 48my$env_worktree=$ENV{GIT_WORK_TREE}; 49my$core_worktree= Git::config('core.worktree'); 50 51if(defined($env_worktree)and(length($env_worktree) >0)) { 52$worktree=$env_worktree; 53}elsif(defined($core_worktree)and(length($core_worktree) >0)) { 54$worktree=$core_worktree; 55}else{ 56$worktree=$repo->wc_path(); 57} 58 59return$worktree; 60} 61 62sub filter_tool_scripts 63{ 64my($tools) =@_; 65if(-d $_) { 66if($_ne".") { 67# Ignore files in subdirectories 68$File::Find::prune =1; 69} 70}else{ 71if((-f $_) && ($_ne"defaults")) { 72push(@$tools,$_); 73} 74} 75} 76 77sub print_tool_help 78{ 79my($cmd,@found,@notfound,@tools); 80my$gitpath= Git::exec_path(); 81 82 find(sub{ filter_tool_scripts(\@tools) },"$gitpath/mergetools"); 83 84foreachmy$tool(@tools) { 85$cmd="TOOL_MODE=diff"; 86$cmd.=' && . "$(git --exec-path)/git-mergetool--lib"'; 87$cmd.=" && get_merge_tool_path$tool>/dev/null 2>&1"; 88$cmd.=" && can_diff >/dev/null 2>&1"; 89if(system('sh','-c',$cmd) ==0) { 90push(@found,$tool); 91}else{ 92push(@notfound,$tool); 93} 94} 95 96print"'git difftool --tool=<tool>' may be set to one of the following:\n"; 97print"\t$_\n"for(sort(@found)); 98 99print"\nThe following tools are valid, but not currently available:\n"; 100print"\t$_\n"for(sort(@notfound)); 101 102print"\nNOTE: Some of the tools listed above only work in a windowed\n"; 103print"environment. If run in a terminal-only session, they will fail.\n"; 104 105exit(0); 106} 107 108sub setup_dir_diff 109{ 110my($repo,$workdir,$symlinks) =@_; 111 112# Run the diff; exit immediately if no diff found 113# 'Repository' and 'WorkingCopy' must be explicitly set to insure that 114# if $GIT_DIR and $GIT_WORK_TREE are set in ENV, they are actually used 115# by Git->repository->command*. 116my$repo_path=$repo->repo_path(); 117my$diffrepo= Git->repository(Repository =>$repo_path, WorkingCopy =>$workdir); 118my$diffrtn=$diffrepo->command_oneline('diff','--raw','--no-abbrev','-z',@ARGV); 119exit(0)if(length($diffrtn) ==0); 120 121# Setup temp directories 122my$tmpdir= tempdir('git-difftool.XXXXX', CLEANUP =>1, TMPDIR =>1); 123my$ldir="$tmpdir/left"; 124my$rdir="$tmpdir/right"; 125 mkpath($ldir)or die$!; 126 mkpath($rdir)or die$!; 127 128# Build index info for left and right sides of the diff 129my$submodule_mode='160000'; 130my$symlink_mode='120000'; 131my$null_mode='0' x 6; 132my$null_sha1='0' x 40; 133my$lindex=''; 134my$rindex=''; 135my%submodule; 136my%symlink; 137my@working_tree= (); 138my@rawdiff=split('\0',$diffrtn); 139 140my$i=0; 141while($i<$#rawdiff) { 142if($rawdiff[$i] =~/^::/) { 143print"Combined diff formats ('-c' and '--cc') are not supported in directory diff mode.\n"; 144exit(1); 145} 146 147my($lmode,$rmode,$lsha1,$rsha1,$status) =split(' ',substr($rawdiff[$i],1)); 148my$src_path=$rawdiff[$i+1]; 149my$dst_path; 150 151if($status=~/^[CR]/) { 152$dst_path=$rawdiff[$i+2]; 153$i+=3; 154}else{ 155$dst_path=$src_path; 156$i+=2; 157} 158 159if(($lmodeeq$submodule_mode)or($rmodeeq$submodule_mode)) { 160$submodule{$src_path}{left} =$lsha1; 161if($lsha1ne$rsha1) { 162$submodule{$dst_path}{right} =$rsha1; 163}else{ 164$submodule{$dst_path}{right} ="$rsha1-dirty"; 165} 166next; 167} 168 169if($lmodeeq$symlink_mode) { 170$symlink{$src_path}{left} =$diffrepo->command_oneline('show',"$lsha1"); 171} 172 173if($rmodeeq$symlink_mode) { 174$symlink{$dst_path}{right} =$diffrepo->command_oneline('show',"$rsha1"); 175} 176 177if(($lmodene$null_mode)and($status!~/^C/)) { 178$lindex.="$lmode$lsha1\t$src_path\0"; 179} 180 181if($rmodene$null_mode) { 182if($rsha1ne$null_sha1) { 183$rindex.="$rmode$rsha1\t$dst_path\0"; 184}else{ 185push(@working_tree,$dst_path); 186} 187} 188} 189 190# If $GIT_DIR is not set prior to calling 'git update-index' and 191# 'git checkout-index', then those commands will fail if difftool 192# is called from a directory other than the repo root. 193my$must_unset_git_dir=0; 194if(not defined($ENV{GIT_DIR})) { 195$must_unset_git_dir=1; 196$ENV{GIT_DIR} =$repo_path; 197} 198 199# Populate the left and right directories based on each index file 200my($inpipe,$ctx); 201$ENV{GIT_INDEX_FILE} ="$tmpdir/lindex"; 202($inpipe,$ctx) =$repo->command_input_pipe(qw/update-index -z --index-info/); 203print($inpipe $lindex); 204$repo->command_close_pipe($inpipe,$ctx); 205my$rc=system('git','checkout-index','--all',"--prefix=$ldir/"); 206exit($rc| ($rc>>8))if($rc!=0); 207 208$ENV{GIT_INDEX_FILE} ="$tmpdir/rindex"; 209($inpipe,$ctx) =$repo->command_input_pipe(qw/update-index -z --index-info/); 210print($inpipe $rindex); 211$repo->command_close_pipe($inpipe,$ctx); 212$rc=system('git','checkout-index','--all',"--prefix=$rdir/"); 213exit($rc| ($rc>>8))if($rc!=0); 214 215# If $GIT_DIR was explicitly set just for the update/checkout 216# commands, then it should be unset before continuing. 217delete($ENV{GIT_DIR})if($must_unset_git_dir); 218delete($ENV{GIT_INDEX_FILE}); 219 220# Changes in the working tree need special treatment since they are 221# not part of the index 222formy$file(@working_tree) { 223my$dir= dirname($file); 224unless(-d "$rdir/$dir") { 225 mkpath("$rdir/$dir")or die$!; 226} 227if($symlinks) { 228symlink("$workdir/$file","$rdir/$file")or die$!; 229}else{ 230 copy("$workdir/$file","$rdir/$file")or die$!; 231my$mode=stat("$workdir/$file")->mode; 232chmod($mode,"$rdir/$file")or die$!; 233} 234} 235 236# Changes to submodules require special treatment. This loop writes a 237# temporary file to both the left and right directories to show the 238# change in the recorded SHA1 for the submodule. 239formy$path(keys%submodule) { 240if(defined($submodule{$path}{left})) { 241 write_to_file("$ldir/$path","Subproject commit$submodule{$path}{left}"); 242} 243if(defined($submodule{$path}{right})) { 244 write_to_file("$rdir/$path","Subproject commit$submodule{$path}{right}"); 245} 246} 247 248# Symbolic links require special treatment. The standard "git diff" 249# shows only the link itself, not the contents of the link target. 250# This loop replicates that behavior. 251formy$path(keys%symlink) { 252if(defined($symlink{$path}{left})) { 253 write_to_file("$ldir/$path",$symlink{$path}{left}); 254} 255if(defined($symlink{$path}{right})) { 256 write_to_file("$rdir/$path",$symlink{$path}{right}); 257} 258} 259 260return($ldir,$rdir,@working_tree); 261} 262 263sub write_to_file 264{ 265my$path=shift; 266my$value=shift; 267 268# Make sure the path to the file exists 269my$dir= dirname($path); 270unless(-d "$dir") { 271 mkpath("$dir")or die$!; 272} 273 274# If the file already exists in that location, delete it. This 275# is required in the case of symbolic links. 276unlink("$path"); 277 278open(my$fh,'>',"$path")or die$!; 279print($fh $value); 280close($fh); 281} 282 283sub main 284{ 285# parse command-line options. all unrecognized options and arguments 286# are passed through to the 'git diff' command. 287my%opts= ( 288 difftool_cmd =>undef, 289 dirdiff =>undef, 290 extcmd =>undef, 291 gui =>undef, 292 help =>undef, 293 prompt =>undef, 294 symlinks =>$^One'MSWin32'&&$^One'msys', 295 tool_help =>undef, 296); 297 GetOptions('g|gui!'=> \$opts{gui}, 298'd|dir-diff'=> \$opts{dirdiff}, 299'h'=> \$opts{help}, 300'prompt!'=> \$opts{prompt}, 301'y'=>sub{$opts{prompt} =0; }, 302'symlinks'=> \$opts{symlinks}, 303'no-symlinks'=>sub{$opts{symlinks} =0; }, 304't|tool:s'=> \$opts{difftool_cmd}, 305'tool-help'=> \$opts{tool_help}, 306'x|extcmd:s'=> \$opts{extcmd}); 307 308if(defined($opts{help})) { 309 usage(0); 310} 311if(defined($opts{tool_help})) { 312 print_tool_help(); 313} 314if(defined($opts{difftool_cmd})) { 315if(length($opts{difftool_cmd}) >0) { 316$ENV{GIT_DIFF_TOOL} =$opts{difftool_cmd}; 317}else{ 318print"No <tool> given for --tool=<tool>\n"; 319 usage(1); 320} 321} 322if(defined($opts{extcmd})) { 323if(length($opts{extcmd}) >0) { 324$ENV{GIT_DIFFTOOL_EXTCMD} =$opts{extcmd}; 325}else{ 326print"No <cmd> given for --extcmd=<cmd>\n"; 327 usage(1); 328} 329} 330if($opts{gui}) { 331my$guitool= Git::config('diff.guitool'); 332if(length($guitool) >0) { 333$ENV{GIT_DIFF_TOOL} =$guitool; 334} 335} 336 337# In directory diff mode, 'git-difftool--helper' is called once 338# to compare the a/b directories. In file diff mode, 'git diff' 339# will invoke a separate instance of 'git-difftool--helper' for 340# each file that changed. 341if(defined($opts{dirdiff})) { 342 dir_diff($opts{extcmd},$opts{symlinks}); 343}else{ 344 file_diff($opts{prompt}); 345} 346} 347 348sub dir_diff 349{ 350my($extcmd,$symlinks) =@_; 351 352my$rc; 353my$repo= Git->repository(); 354 355my$workdir= find_worktree($repo); 356my($a,$b,@worktree) = setup_dir_diff($repo,$workdir,$symlinks); 357if(defined($extcmd)) { 358$rc=system($extcmd,$a,$b); 359}else{ 360$ENV{GIT_DIFFTOOL_DIRDIFF} ='true'; 361$rc=system('git','difftool--helper',$a,$b); 362} 363 364exit($rc| ($rc>>8))if($rc!=0); 365 366# If the diff including working copy files and those 367# files were modified during the diff, then the changes 368# should be copied back to the working tree. 369# Do not copy back files when symlinks are used and the 370# external tool did not replace the original link with a file. 371formy$file(@worktree) { 372next if$symlinks&& -l "$b/$file"; 373next if! -f "$b/$file"; 374 375my$diff= compare("$b/$file","$workdir/$file"); 376if($diff==0) { 377next; 378}elsif($diff== -1) { 379my$errmsg="warning: Could not compare "; 380$errmsg+="'$b/$file' with '$workdir/$file'\n"; 381warn$errmsg; 382}elsif($diff==1) { 383 copy("$b/$file","$workdir/$file")or die$!; 384my$mode=stat("$b/$file")->mode; 385chmod($mode,"$workdir/$file")or die$!; 386} 387} 388exit(0); 389} 390 391sub file_diff 392{ 393my($prompt) =@_; 394 395if(defined($prompt)) { 396if($prompt) { 397$ENV{GIT_DIFFTOOL_PROMPT} ='true'; 398}else{ 399$ENV{GIT_DIFFTOOL_NO_PROMPT} ='true'; 400} 401} 402 403$ENV{GIT_PAGER} =''; 404$ENV{GIT_EXTERNAL_DIFF} ='git-difftool--helper'; 405 406# ActiveState Perl for Win32 does not implement POSIX semantics of 407# exec* system call. It just spawns the given executable and finishes 408# the starting program, exiting with code 0. 409# system will at least catch the errors returned by git diff, 410# allowing the caller of git difftool better handling of failures. 411my$rc=system('git','diff',@ARGV); 412exit($rc| ($rc>>8)); 413} 414 415main();