aboutsummaryrefslogtreecommitdiff
path: root/wpdf
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2021-07-12 13:24:49 +0200
committerJohn Ankarström <john@ankarstrom.se>2021-07-12 13:27:07 +0200
commit03d827e2fbc409ef97829f25b8eeca5204f81a3c (patch)
tree6099f0feb9adf3425fba87549b164043e18bd0c7 /wpdf
parent45cddd072119c5abd7ec076cf28d51ee01f125b7 (diff)
downloadxutil-03d827e2fbc409ef97829f25b8eeca5204f81a3c.tar.gz
Re-organize files
Diffstat (limited to 'wpdf')
-rwxr-xr-xwpdf76
1 files changed, 0 insertions, 76 deletions
diff --git a/wpdf b/wpdf
deleted file mode 100755
index 94e5029..0000000
--- a/wpdf
+++ /dev/null
@@ -1,76 +0,0 @@
-#!/usr/bin/perl
-
-# wpdf -- view, watch and remake pdf based on Makefile
-
-use strict;
-use warnings;
-
-my $alive; # number of children alive
-my %deptarget; # dependency => target
-my $parent = $$; # pid of parent
-
-$SIG{USR1} = sub { kill 'HUP', 0 if not --$alive };
-$SIG{HUP} = sub { exit 0 };
-
-# collect dependencies for given files
-for my $target (@ARGV) {
- # if pdf, collect from Makefile
- if ($target =~ /\.pdf$/) {
- (my $basename = $target) =~ s/\.pdf$//;
- open my $f, '<', 'Makefile'
- or die "could not open Makefile: $!\n";
- while (<$f>) {
- # explicit
- if (/^\Q$target\E:\s*(.*)/) {
- $deptarget{$_} = $target for split /\s/, $1;
- last;
- }
- # implicit
- if (/^\.([^ .]+)\.pdf\s*:\s*(.*)/) {
- $deptarget{"$basename.$1"} = $target;
- $deptarget{$_} = $target for split /\s/, $2;
- last;
- }
- }
- close $f;
- }
-
- # if not pdf, assume target is actually source file and collect from it
- # (with build(1) syntax)
- else {
- my $i = 0;
- my $source = $target;
- $target =~ s,\.[^./]*$,,; $target .= '.pdf';
- $deptarget{$source} = $target;
-
- open my $f, '<', $source;
- while (<$f>) {
- last if ++$i > 20;
- if (/\s% (.*)/) {
- $deptarget{$_} = $target for split /\s/, $1;
- last;
- }
- }
- close $f;
- }
-
- if (fork == 0) {
- system 'xpdf', '-remote', "wpdf-$target", $target;
- kill 'USR1', $parent;
- exit;
- }
- $alive++;
-}
-
-die "no dependencies found\n" if not keys %deptarget;
-
-# make pdf on demand
-open my $p, '-|', 'watch', keys %deptarget
- or die "could not start watch: $!\n";
-while (<$p>) {
- chomp;
- system('make', "$deptarget{$_}") == 0
- && system('xpdf', '-remote', "wpdf-$deptarget{$_}", '-reload');
-}
-close $p;
-exit($? != 0);