From aa6c30a140afbe7bb850f0b8eb85c5be9c281d5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 19 Jul 2021 16:39:18 +0200
Subject: wpdf: Fix build(1) support

---
 etc/wpdf | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'etc')

diff --git a/etc/wpdf b/etc/wpdf
index 94e5029..077b699 100755
--- a/etc/wpdf
+++ b/etc/wpdf
@@ -7,6 +7,7 @@ use warnings;
 
 my $alive;        # number of children alive
 my %deptarget;    # dependency => target
+my %depsource;    # dependency => source
 my $parent = $$;  # pid of parent
 
 $SIG{USR1} = sub { kill 'HUP', 0 if not --$alive };
@@ -42,12 +43,14 @@ for my $target (@ARGV) {
 		my $source = $target;
 		$target =~ s,\.[^./]*$,,; $target .= '.pdf';
 		$deptarget{$source} = $target;
+		$depsource{$source} = $source;
 
 		open my $f, '<', $source;
 		while (<$f>) {
 			last if ++$i > 20;
 			if (/\s% (.*)/) {
 				$deptarget{$_} = $target for split /\s/, $1;
+				$depsource{$_} = $source for split /\s/, $1;
 				last;
 			}
 		}
@@ -69,7 +72,9 @@ open my $p, '-|', 'watch', keys %deptarget
 	or die "could not start watch: $!\n";
 while (<$p>) {
 	chomp;
-	system('make', "$deptarget{$_}") == 0
+	my $cmd = ($_ =~ /\.pdf$/) ? 'make' : 'build';
+	my $arg = ($_ =~ /\.pdf$/) ? $deptarget{$_} : $depsource{$_};
+	system($cmd, $arg) == 0
 		&& system('xpdf', '-remote', "wpdf-$deptarget{$_}", '-reload');
 }
 close $p;
-- 
cgit v1.2.3