[PATCH] add dtas-2splitfx script

[Eric Wong]

This generates a dtas-splitfx-compatible YAML snippet based
on a sorted list of audio tracks:

  dtas-2splitfx 1.flac 2.flac ... >tracks.yml
---
 GNUmakefile          |  2 +-
 script/dtas-2splitfx | 44 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+), 1 deletion(-)
 create mode 100755 script/dtas-2splitfx

diff --git a/GNUmakefile b/GNUmakefile
index 084a2d8..9019b31 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -82,7 +82,7 @@ bindir = $(prefix)/bin
 symlink-install :
        mkdir -p $(bindir)
        dtas=$(CURDIR)/dtas.sh && cd $(bindir) && \
-       for x in $(CURDIR)/bin/*; do \
+       for x in $(CURDIR)/bin/* $(CURDIR)/script/*; do \
                ln -sf "$$dtas" $$(basename "$$x"); \
        done
 
diff --git a/script/dtas-2splitfx b/script/dtas-2splitfx
new file mode 100755
index 0000000..afa761d
--- /dev/null
+++ b/script/dtas-2splitfx
@@ -0,0 +1,44 @@
+#!/usr/bin/perl -w
+# Copyright (C) all contributors <dtas-all@nongnu.org>
+# License: GPL-3.0+ <https://www.gnu.org/licenses/gpl-3.0.txt>
+# parse soxi output and generates a dtas-splitfx-compatible YAML snippet
+# usage: dtas-2splitfx 1.flac 2.flac ... >tracks.yml
+use v5.12;
+use POSIX qw(strftime);
+open my $fh, '-|', 'soxi', @ARGV or die $!;
+my $title = '';
+my $off = 0;
+my $sec = 0;
+
+my $flush = sub {
+       my ($start) = @_;
+       my $frac = $start =~ s/\.([0-9]+)\z// ? $1 : 0;
+       $start = strftime('%H:%M:%S', gmtime($start));
+       $start .= ".$frac" if $frac;
+       $start;
+};
+
+while (<$fh>) {
+       if (/^Duration\s*:\s*([0-9:\.]+)/) {
+               my $t = $1;
+               $sec = $t =~ s/\.([0-9]+)\z// ? "0.$1" : 0;
+               my @t = split(/:/, $t); # HH:MM:SS
+               my $mult = 1;
+               while (defined(my $part = pop @t)) {
+                       $sec += $part * $mult;
+                       $mult *= 60;
+               }
+       } elsif (s/^title=//i) {
+               chomp;
+               $title = $_;
+               $title =~ tr!"!'!;
+       } elsif (/^\s*\z/s && $sec) {
+               my $start = $flush->($off);
+               say qq(- t $start "), , $title, '"';
+               $off += $sec;
+               $sec = 0;
+               $title = '';
+       }
+}
+close $fh or die "soxi failed: \$?=$?";
+say qq(- stop ), $flush->($off);