#!/bin/bash
  
  # Copyright 2013  The Shenzhen Key Laboratory of Intelligent Media and Speech,
  #                 PKU-HKUST Shenzhen Hong Kong Institution (Author: Wei Shi)
  #           2016  Johns Hopkins University (Author: Daniel Povey)
  # Apache 2.0
  # Combine PLP and pitch features together
  # Note: This file is based on make_plp.sh and make_pitch_kaldi.sh
  
  # Begin configuration section.
  nj=4
  cmd=run.pl
  plp_config=conf/plp.conf
  pitch_config=conf/pitch.conf
  pitch_postprocess_config=
  paste_length_tolerance=2
  compress=true
  write_utt2num_frames=true  # If true writes utt2num_frames.
  write_utt2dur=true
  # End configuration section.
  
  echo "$0 $@"  # Print the command line for logging.
  
  if [ -f ./path.sh ]; then . ./path.sh;  fi
  . parse_options.sh || exit 1;
  
  if [ $# -lt 1 ] || [ $# -gt 3 ]; then
    cat >&2 <<EOF
  Usage: $0 [options] <data-dir> [<log-dir> [<plp-dir>] ]
   e.g.: $0 data/train
  Note: <log-dir> defaults to <data-dir>/log, and
        <plp-dir> defaults to <data-dir>/data
  Options:
    --plp-config <plp-config-file>       # config passed to compute-plp-feats.
    --pitch-config <pitch-config-file>   # config passed to compute-kaldi-pitch-feats.
    --pitch-postprocess-config <postprocess-config-file> # config passed to process-kaldi-pitch-feats.
    --paste-length-tolerance <tolerance> # length tolerance passed to paste-feats.
    --nj <nj>                            # number of parallel jobs.
    --cmd <run.pl|queue.pl <queue opts>> # how to run jobs.
    --write-utt2num-frames <true|false>  # If true, write utt2num_frames file.
    --write-utt2dur <true|false>         # If true, write utt2dur file.
  EOF
     exit 1;
  fi
  
  data=$1
  if [ $# -ge 2 ]; then
    logdir=$2
  else
    logdir=$data/log
  fi
  if [ $# -ge 3 ]; then
    plp_pitch_dir=$3
  else
    plp_pitch_dir=$data/data
  fi
  
  # make $plp_pitch_dir an absolute pathname.
  plp_pitch_dir=`perl -e '($dir,$pwd)= @ARGV; if($dir!~m:^/:) { $dir = "$pwd/$dir"; } print $dir; ' $plp_pitch_dir ${PWD}`
  
  # use "name" as part of name of the archive.
  name=`basename $data`
  
  mkdir -p $plp_pitch_dir || exit 1;
  mkdir -p $logdir || exit 1;
  
  if [ -f $data/feats.scp ]; then
    mkdir -p $data/.backup
    echo "$0: moving $data/feats.scp to $data/.backup"
    mv $data/feats.scp $data/.backup
  fi
  
  scp=$data/wav.scp
  
  required="$scp $plp_config $pitch_config"
  
  for f in $required; do
    if [ ! -f $f ]; then
      echo "$0: no such file $f"
      exit 1;
    fi
  done
  utils/validate_data_dir.sh --no-text --no-feats $data || exit 1;
  
  if [ ! -z "$pitch_postprocess_config" ]; then
    postprocess_config_opt="--config=$pitch_postprocess_config";
  else
    postprocess_config_opt=
  fi
  
  if [ -f $data/spk2warp ]; then
    echo "$0 [info]: using VTLN warp factors from $data/spk2warp"
    vtln_opts="--vtln-map=ark:$data/spk2warp --utt2spk=ark:$data/utt2spk"
  elif [ -f $data/utt2warp ]; then
    echo "$0 [info]: using VTLN warp factors from $data/utt2warp"
    vtln_opts="--vtln-map=ark:$data/utt2warp"
  fi
  
  for n in $(seq $nj); do
    # the next command does nothing unless $plp_pitch_dir/storage/ exists, see
    # utils/create_data_link.pl for more info.
    utils/create_data_link.pl $plp_pitch_dir/raw_plp_pitch_$name.$n.ark
  done
  
  if $write_utt2num_frames; then
    write_num_frames_opt="--write-num-frames=ark,t:$logdir/utt2num_frames.JOB"
  else
    write_num_frames_opt=
  fi
  
  if $write_utt2dur; then
    write_utt2dur_opt="--write-utt2dur=ark,t:$logdir/utt2dur.JOB"
  else
    write_utt2dur_opt=
  fi
  
  if [ -f $data/segments ]; then
    echo "$0 [info]: segments file exists: using that."
    split_segments=
    for n in $(seq $nj); do
      split_segments="$split_segments $logdir/segments.$n"
    done
  
    utils/split_scp.pl $data/segments $split_segments || exit 1;
    rm $logdir/.error 2>/dev/null
  
    plp_feats="ark:extract-segments scp,p:$scp $logdir/segments.JOB ark:- | \
      compute-plp-feats $vtln_opts $write_utt2dur_opt --verbose=2 \
        --config=$plp_config ark:- ark:- |"
    pitch_feats="ark,s,cs:extract-segments scp,p:$scp $logdir/segments.JOB ark:- | \
      compute-kaldi-pitch-feats --verbose=2 --config=$pitch_config ark:- ark:- | \
      process-kaldi-pitch-feats $postprocess_config_opt ark:- ark:- |"
  
    $cmd JOB=1:$nj $logdir/make_plp_pitch_${name}.JOB.log \
      paste-feats --length-tolerance=$paste_length_tolerance \
        "$plp_feats" "$pitch_feats" ark:- \| \
      copy-feats --compress=$compress $write_num_frames_opt ark:- \
        ark,scp:$plp_pitch_dir/raw_plp_pitch_$name.JOB.ark,$plp_pitch_dir/raw_plp_pitch_$name.JOB.scp \
       || exit 1;
  
  else
    echo "$0: [info]: no segments file exists: assuming wav.scp indexed by utterance."
    split_scps=
    for n in $(seq $nj); do
      split_scps="$split_scps $logdir/wav_${name}.$n.scp"
    done
  
    utils/split_scp.pl $scp $split_scps || exit 1;
  
    plp_feats="ark:compute-plp-feats $vtln_opts $write_utt2dur_opt --verbose=2 \
      --config=$plp_config scp,p:$logdir/wav_${name}.JOB.scp ark:- |"
    pitch_feats="ark,s,cs:compute-kaldi-pitch-feats --verbose=2 \
        --config=$pitch_config scp,p:$logdir/wav_${name}.JOB.scp ark:- | \
      process-kaldi-pitch-feats $postprocess_config_opt ark:- ark:- |"
  
    $cmd JOB=1:$nj $logdir/make_plp_pitch_${name}.JOB.log \
      paste-feats --length-tolerance=$paste_length_tolerance \
        "$plp_feats" "$pitch_feats" ark:- \| \
      copy-feats --compress=$compress $write_num_frames_opt ark:- \
        ark,scp:$plp_pitch_dir/raw_plp_pitch_$name.JOB.ark,$plp_pitch_dir/raw_plp_pitch_$name.JOB.scp \
        || exit 1;
  fi
  
  
  if [ -f $logdir/.error.$name ]; then
    echo "$0: Error producing PLP and pitch features for $name:"
    tail $logdir/make_plp_pitch_${name}.1.log
    exit 1;
  fi
  
  # Concatenate the .scp files together.
  for n in $(seq $nj); do
    cat $plp_pitch_dir/raw_plp_pitch_$name.$n.scp || exit 1
  done > $data/feats.scp || exit 1
  
  if $write_utt2num_frames; then
    for n in $(seq $nj); do
      cat $logdir/utt2num_frames.$n || exit 1
    done > $data/utt2num_frames || exit 1
  fi
  
  if $write_utt2dur; then
    for n in $(seq $nj); do
      cat $logdir/utt2dur.$n || exit 1
    done > $data/utt2dur || exit 1
  fi
  
  # Store frame_shift, plp_config and pitch_config along with features.
  frame_shift=$(perl -ne 'if (/^--frame-shift=(\d+)/) {
                            printf "%.3f", 0.001 * $1; exit; }' $plp_config)
  echo ${frame_shift:-'0.01'} > $data/frame_shift
  mkdir -p $data/conf &&
    cp $plp_config $data/conf/plp.conf &&
    cp $pitch_config $data/conf/pitch.conf || exit 1
  
  rm $logdir/wav_${name}.*.scp  $logdir/segments.* \
     $logdir/utt2num_frames.* $logdir/utt2dur.* 2>/dev/null
  
  nf=$(wc -l < $data/feats.scp)
  nu=$(wc -l < $data/utt2spk)
  if [ $nf -ne $nu ]; then
    echo "$0: It seems not all of the feature files were successfully procesed" \
         "($nf != $nu); consider using utils/fix_data_dir.sh $data"
  fi
  
  if (( nf < nu - nu/20 )); then
    echo "$0: Less than 95% the features were successfully generated."\
         "Probably a serious error."
    exit 1
  fi
  
  echo "$0: Succeeded creating PLP and pitch features for $name"