#!/usr/local/perl/bin/perl

$tmp_file = "/tmp/make_sphere_$$.ul";
$prompt_text_file = "%ENV{SWB_DCOL}/prompts/AAREADME.text";
$sphere_extension = "sphere";

foreach $file (@ARGV) {

    $pnr_name = $file;
    $file =~ s/^(.*)\..*$/$1/g;
    $ext = $file;
    $ext =~ s/^.*\.(.*)$/$1/g;

    $sphere_file = "$pnr_name.$sphere_extension";

    printf "converting $file -> $sphere_file\n";

    open(FP,"sox -t .$ext $file -U -r 8000 $tmp_file stat 2>&1|cat|");
    read(FP, $data, 8192);
    close FP;
#    DATA=`sox -t .wav $file -U -r 8000 $tmp_file stat 2>&1|cat`;
    
    open(FP,"wc $tmp_file | cut -b'17-25'|");
    $sample_count = <FP>;
    close FP;
#    SAMPLE_COUNT=`wc $TMP_FILE|cut -b'17-25'`;
  #  sox -V $TMP_FILE -e stat
    
    $basename = `basename $FILENAME|cut -d'.' -f1`;
    
    printf "basename = >$basename<\n";
    #BASENAME=`basename $FILENAME|cut -d'.' -f1`;
    #echo "BASENAME=$BASENAME";
    
    exit;
    echo "Searching for prompt text for $BASENAME in $PROMPT_TEXT_FILE"
    PROMPT_TEXT=`grep $BASENAME $PROMPT_TEXT_FILE|cut -f3`;
    echo "PROMPT_TEXT=>$PROMPT_TEXT<";
    
#    echo "DATA=$DATA";
    echo "SAMPLE_COUNT=$SAMPLE_COUNT";
    SAMPLE_COUNT=`echo $SAMPLE_COUNT`;
    h_add $TMP_FILE $SPHERE_FILE;
    h_edit -Isample_count=$SAMPLE_COUNT $SPHERE_FILE;
    h_edit -Isample_rate=8000 $SPHERE_FILE;
    h_edit -Isample_n_bytes=1 $SPHERE_FILE;
    h_edit -Ichannel_count=1 $SPHERE_FILE;
    h_edit -Isample_max=255 $SPHERE_FILE;
    h_edit -Isample_min=0 $SPHERE_FILE;
    h_edit -Ssample_byte_format="1" $SPHERE_FILE;
    h_edit -Ssample_coding="ulaw" $SPHERE_FILE;

    rm $TMP_FILE;
    
done
