From 48e47d9280bad0ed6cbd727df9706f4822583358 Mon Sep 17 00:00:00 2001
From: edef <edef@edef.eu>
Date: Wed, 5 Aug 2020 00:31:18 +0000
Subject: feat(edef/depot-scan): init

A small script that parses `nix-instantiate -vv` output to track the
files read while instantiating a depot build.

Change-Id: I5acf31d55f39c1d1acf9cdead03d33e2c8abab6a
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1646
Reviewed-by: edef <edef@edef.eu>
Tested-by: BuildkiteCI
---
 users/edef/depot-scan.nix | 12 ++++++++++++
 users/edef/sources.pl     | 11 +++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 users/edef/depot-scan.nix
 create mode 100755 users/edef/sources.pl

(limited to 'users')

diff --git a/users/edef/depot-scan.nix b/users/edef/depot-scan.nix
new file mode 100644
index 0000000000..faa91855e8
--- /dev/null
+++ b/users/edef/depot-scan.nix
@@ -0,0 +1,12 @@
+{ pkgs, ... }:
+
+pkgs.writeShellScriptBin "depot-scan" ''
+  set -euo pipefail
+
+  path=$(git rev-parse --show-prefix)
+  path="''${path%%/}"
+  attr="''${path//\//.}"
+  root="$(git rev-parse --show-toplevel)"
+  echo "scanning //$path" >&2
+  nix-instantiate "$root" -A "$attr" -vv 2> >(${pkgs.perl}/bin/perl sources.pl) >&2
+''
diff --git a/users/edef/sources.pl b/users/edef/sources.pl
new file mode 100755
index 0000000000..39550d83c1
--- /dev/null
+++ b/users/edef/sources.pl
@@ -0,0 +1,11 @@
+#! /usr/bin/env -S perl -ln
+use strict;
+
+if (/^evaluating file '(.*)'$/ or
+    /^copied source '(.*)' -> '.*'$/ or
+    /^trace: lorri read: '(.*)'$/) {
+    print $1;
+    next;
+}
+
+print STDERR unless /^instantiated '.*' -> '.*'$/;
-- 
cgit 1.4.1