mrthreeplates, thats great!!!
Will try it asap!
thanks for the effort
mrthreeplates;411189 Wrote:
> Hi,
>
> I wrote a simple perl wrapper script for hdcd.exe which passes the
> inputstream unmodified if no HDCD is dectected. Otherwise, the
> stream is decoded via hdcd.exe.
>
> I call it via convert.conf as noted earlier in the thread:
>
> flc flc transcode *
> # FT:{START=--skip=%t}U:{END=--until=%v}D:{RESAMPLE=-r %d}
> [flac] -dcs $START$ $END$ -- $FILE$ | perl c:\hdcdwrapper.pl | [sox]
> -q -t wav - -t flac -C 0 $RESAMPLE$ -
>
>
> Note that the script expects the hdcd.exe to be in a sub folder
> as hard coded in the script.
>
> I use mostly cue and flac files so this works great for me. I have
> noticed
> that this doesn't work well with HDCD and softsqueeze. I expect that
> softsqueeze probably doesn't like the 24-bit files that this produces
> when decoding HDCD tracks. I haven't tried it with squeezeplay yet.
>
> You will need perl installed, I believe ( I use activestate ).
>
> Any improvements, suggestions, bug fixes welcome...
>
> I've tried this on a number of CDs and it seems to work, but I
> make no guarantees.
>
> George
>
> Here is the script hdcdwrapper.pl:
> -----------------------------
>
> #
> # Author: George Hines, [email protected]
> #
> # Note: because windows i/o redirection is brain dead, you must invoke
> this
> # script with perl command.pl. See:
> #
> http://community.activestate.com/faq/perl-redirect-problems-on-windows
> #
>
> use strict;
> use diagnostics;
> use warnings;
>
> use File::Basename;
>
> binmode (STDIN);
> binmode (STDOUT);
>
> my $basedir=dirname $0;
> my $hdcd=$basedir . '\hdcd-convert\hdcd\hdcd.exe';
>
> my $nframes = 750 + 1; # Add an extra frame to include the WAV header
> my $framesize = 2352; # 2352bytes = 1/75th second @ 44.1khz 16bit
> stereo
> my $chunksize = $nframes * $framesize; # roughly 10 seconds...
>
> my $buffer;
> my $nbytes;
>
> my $offset = 0;
> my $count = $chunksize;
> # Read enough to test for HDCD, may come in multiple reads
> while ($count > 0 and ($nbytes = sysread (STDIN, $buffer, $count,
> $offset)) > 0) {
> $count -= $nbytes;
> $offset += $nbytes;
> }
> $nbytes = $offset;
>
> my $hdcd_detected = 0;
> # launch pipe to check for HDCD stream
> if (-x $hdcd) {
> open (CMD, "| $hdcd -i 2>nul");
> binmode (CMD);
> syswrite (CMD, $buffer, $nbytes);
> $hdcd_detected = close (CMD);
> } else {
> print STDERR "$0: can't find executable $hdcd\n";
> }
>
> if ($hdcd_detected) {
> #print STDERR "$0: decoding HDCD\n";
> #launch pipe to decode HDCD stream
> # Note: the pipe (child process) will share and write to our
> STDOUT
> open (CMD, "| $hdcd 2>nul");
> binmode (CMD);
> } else {
> #print STDERR "$0: no HDCD found, just copy input to output.\n";
> *CMD = *STDOUT;
> }
>
> # write out entire input stream
> do {
> syswrite (CMD, $buffer, $nbytes);
> } while (($nbytes = sysread (STDIN, $buffer, $chunksize)) > 0);
>
> close (CMD);
>
> exit (0);
>
> -----------------------------
--
Néstor
Whole album Flac files --> Squeezebox (3) --> Outlaw 950 --> Outlaw
7100 amp --> Monitor Audio S6i
------------------------------------------------------------------------
Néstor's Profile: http://forums.slimdevices.com/member.php?userid=60
View this thread: http://forums.slimdevices.com/showthread.php?t=57782
_______________________________________________
ripping mailing list
[email protected]
http://lists.slimdevices.com/mailman/listinfo/ripping
