From d1f48f34e8af4842efb6952d72b9a52969e632ea Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Sat, 13 Apr 2024 16:28:48 -0400
Subject: soxdial: improve --input/--stdin.

---
 soxdial | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/soxdial b/soxdial
index aa5469e..b1c6770 100755
--- a/soxdial
+++ b/soxdial
@@ -590,12 +590,18 @@ sub check_stereo {
 sub read_file {
 	my $file = shift;
 	my $result = shift;
+	my $filename = ($file eq '-' ? "stdin" : "file '$file'");
+
+	warn "$SELF: reading $filename.\n";
 
 	open my $fh, "<$file" or die "$SELF: $file: $!\n";
 	while(<$fh>) {
 		chomp;
-		push @$result, split "";
+		push @$result, split " ";
 	}
+
+	warn "$SELF: read " . @$result . " dial strings from $filename.\n" if $verbose;
+
 	close $fh;
 }
 
@@ -632,6 +638,8 @@ for(@ARGV) {
 	if($input_seen) {
 		read_file($_, \@newargv);
 		$input_seen = 0;
+	} elsif(/^--?v(?:erbose)?$/) {
+		$verbose = 1;
 	} elsif(/^--?stdin$/) {
 		read_file("-", \@newargv);
 	} elsif(/^--?i(?:nput)?=?(.+)?$/) {
@@ -674,8 +682,6 @@ for ($argc = 0; $argc < @ARGV; $argc++) {
 		$SOX = $ARGV[++$argc];
 		die "$SELF: missing argument for --sox.\n" unless defined $SOX;
 		warn "$SELF: sox executable set to '$SOX'\n" if $verbose;
-	} elsif(/^--?v(?:erbose)?$/) {
-		$verbose = 1;
 	} elsif(/^--?n(?:oexec)?$/) {
 		$verbose = 1;
 		$noexec = 1;
-- 
cgit v1.2.3