From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: AS22989 209.51.188.0/24 X-Spam-Status: No, score=-4.1 required=3.0 tests=AWL,BAYES_00,DKIM_SIGNED, DKIM_VALID,DKIM_VALID_AU,HEADER_FROM_DIFFERENT_DOMAINS, MAILING_LIST_MULTI,RCVD_IN_DNSWL_HI,SPF_HELO_PASS,SPF_PASS, T_SCC_BODY_TEXT_LINE shortcircuit=no autolearn=ham autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by dcvr.yhbt.net (Postfix) with ESMTPS id E25701F545 for ; Mon, 3 Jul 2023 00:43:18 +0000 (UTC) Authentication-Results: dcvr.yhbt.net; dkim=pass (1024-bit key; unprotected) header.d=80x24.org header.i=@80x24.org header.a=rsa-sha256 header.s=selector1 header.b=WzVYjOYu; dkim-atps=neutral Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qG7eq-0006Mo-1k; Sun, 02 Jul 2023 20:43:12 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qG7eo-0006L5-E2 for dtas-all@nongnu.org; Sun, 02 Jul 2023 20:43:10 -0400 Received: from dcvr.yhbt.net ([173.255.242.215]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qG7em-0005yw-OX for dtas-all@nongnu.org; Sun, 02 Jul 2023 20:43:10 -0400 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 2E0881F545 for ; Mon, 3 Jul 2023 00:43:05 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=80x24.org; s=selector1; t=1688344985; bh=gtWmHjq7XxJCxoZDm/JAmkAoClla0t1gr+gtyNX8Nw0=; h=From:To:Subject:Date:From; b=WzVYjOYummtcw6CD94zOKFQGRnsZGUC5tQG6t5fvAqMEynqvCn4ueW4SFOJjbd8he PWklIDMKSwqgpTcMeiukEQz+IW6glWeoqBnwvqUbpAhdbSZjLBynK/n0pPss2fHl+S /jZELxwAcApvWQHDFHzw1XGFg95bGGhF0Rmcy2dc= From: Eric Wong To: dtas-all@nongnu.org Subject: [PATCH] add dtas-2splitfx script Date: Mon, 3 Jul 2023 00:43:05 +0000 Message-ID: <20230703004305.928254-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit Received-SPF: pass client-ip=173.255.242.215; envelope-from=e@80x24.org; helo=dcvr.yhbt.net X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: dtas-all@nongnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: duct tape audio suite List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: dtas-all-bounces+e=80x24.org@nongnu.org Sender: dtas-all-bounces+e=80x24.org@nongnu.org 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 +# License: GPL-3.0+ +# 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);