1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use IPC::Open2; 6 7# An example hook script to integrate Watchman 8# (https://facebook.github.io/watchman/) with git to speed up detecting 9# new and modified files. 10# 11# The hook is passed a version (currently 1) and a time in nanoseconds 12# formatted as a string and outputs to stdout all files that have been 13# modified since the given time. Paths must be relative to the root of 14# the working tree and separated by a single NUL. 15# 16# To enable this hook, rename this file to "query-watchman" and set 17# 'git config core.fsmonitor .git/hooks/query-watchman' 18# 19my($version,$time) =@ARGV; 20#print STDERR "$0 $version $time\n"; 21 22# Check the hook interface version 23 24if($version==1) { 25# convert nanoseconds to seconds 26$time=int$time/1000000000; 27}else{ 28die"Unsupported query-fsmonitor hook version '$version'.\n". 29"Falling back to scanning...\n"; 30} 31 32# Convert unix style paths to escaped Windows style paths when running 33# in Windows command prompt 34 35my$system=`uname -s`; 36$system=~s/[\r\n]+//g; 37my$git_work_tree; 38 39if($system=~m/^MSYS_NT/) { 40$git_work_tree=`cygpath -aw "\$PWD"`; 41$git_work_tree=~s/[\r\n]+//g; 42$git_work_tree=~ s,\\,/,g; 43}else{ 44$git_work_tree=$ENV{'PWD'}; 45} 46 47my$retry=1; 48 49launch_watchman(); 50 51sub launch_watchman { 52 53# Set input record separator 54local$/=0666; 55 56my$pid= open2(\*CHLD_OUT, \*CHLD_IN,'watchman -j') 57or die"open2() failed:$!\n". 58"Falling back to scanning...\n"; 59 60# In the query expression below we're asking for names of files that 61# changed since $time but were not transient (ie created after 62# $time but no longer exist). 63# 64# To accomplish this, we're using the "since" generator to use the 65# recency index to select candidate nodes and "fields" to limit the 66# output to file names only. Then we're using the "expression" term to 67# further constrain the results. 68# 69# The category of transient files that we want to ignore will have a 70# creation clock (cclock) newer than $time_t value and will also not 71# currently exist. 72 73my$query= <<" END"; 74["query","$git_work_tree", { 75"since":$time, 76"fields": ["name"], 77"expression": ["not", ["allof", ["since",$time,"cclock"], ["not","exists"]]] 78}] 79END 80 81open(my$fh,">",".git/watchman-query.json"); 82print$fh $query; 83close$fh; 84 85print CHLD_IN $query; 86my$response= <CHLD_OUT>; 87 88open($fh,">",".git/watchman-response.json"); 89print$fh $response; 90close$fh; 91 92die"Watchman: command returned no output.\n". 93"Falling back to scanning...\n"if$responseeq""; 94die"Watchman: command returned invalid output:$response\n". 95"Falling back to scanning...\n"unless$response=~/^\{/; 96 97my$json_pkg; 98eval{ 99require JSON::XS; 100$json_pkg="JSON::XS"; 1011; 102}ordo{ 103require JSON::PP; 104$json_pkg="JSON::PP"; 105}; 106 107my$o=$json_pkg->new->utf8->decode($response); 108 109if($retry>0and$o->{error}and$o->{error} =~m/unable to resolve root .* directory (.*) is not watched/) { 110print STDERR "Adding '$git_work_tree' to watchman's watch list.\n"; 111$retry--; 112 qx/watchman watch "$git_work_tree"/; 113die"Failed to make watchman watch '$git_work_tree'.\n". 114"Falling back to scanning...\n"if$?!=0; 115 116# Watchman will always return all files on the first query so 117# return the fast "everything is dirty" flag to git and do the 118# Watchman query just to get it over with now so we won't pay 119# the cost in git to look up each individual file. 120 121open($fh,">",".git/watchman-output.out"); 122print"/\0"; 123close$fh; 124 125print"/\0"; 126eval{ launch_watchman() }; 127exit0; 128} 129 130die"Watchman:$o->{error}.\n". 131"Falling back to scanning...\n"if$o->{error}; 132 133open($fh,">",".git/watchman-output.out"); 134print$fh@{$o->{files}}; 135close$fh; 136 137binmode STDOUT,":utf8"; 138local$, ="\0"; 139print@{$o->{files}}; 140}