#!/bin/sh
#####################################################-*-mode:shell-script-*-
##                                                                       ##
##                   Carnegie Mellon University and                      ##
##                   Alan W Black and Kevin A. Lenzo                     ##
##                      Copyright (c) 1998-2000                          ##
##                        All Rights Reserved.                           ##
##                                                                       ##
##  Permission is hereby granted, free of charge, to use and distribute  ##
##  this software and its documentation without restriction, including   ##
##  without limitation the rights to use, copy, modify, merge, publish,  ##
##  distribute, sublicense, and/or sell copies of this work, and to      ##
##  permit persons to whom this work is furnished to do so, subject to   ##
##  the following conditions:                                            ##
##   1. The code must retain the above copyright notice, this list of    ##
##      conditions and the following disclaimer.                         ##
##   2. Any modifications must be clearly marked as such.                ##
##   3. Original authors' names are not deleted.                         ##
##   4. The authors' names are not used to endorse or promote products   ##
##      derived from this software without specific prior written        ##
##      permission.                                                      ##
##                                                                       ##
##  CARNEGIE MELLON UNIVERSITY AND THE CONTRIBUTORS TO THIS WORK         ##
##  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ##
##  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ##
##  SHALL CARNEGIE MELLON UNIVERSITY NOR THE CONTRIBUTORS BE LIABLE      ##
##  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ##
##  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ##
##  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ##
##  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ##
##  THIS SOFTWARE.                                                       ##
##                                                                       ##
###########################################################################
###                                                                      ##
###  Generate EST pm label format from xlabel format                     ##
###  used for putting back edited pm files                               ##
###                                                                      ##
###########################################################################

if [ $# = 0 ]
then
   echo "Make pm from pm labels (after editing)"
   echo "Usage:  bin/make_pm_pmlab pm_lab/*.lab"
   echo "Will overwrite pm/*.pm"
   exit 1
fi

if [ `dirname $1` = "pm" ]
then
   echo 
   echo "ERROR"
   echo "This function generates pm from pmlab files.  "
   echo "you probably wanted to type "
   echo "      bin/make_pm_pmlab pm_lab/*.lab"
   echo "not"
   echo "      bin/make_pm_pmlab pm/*.pm"
   echo
   exit
fi

for i in $*
do
   fname=`basename $i .lab`
   echo $fname
   echo "EST_File Track" >pm/$fname.pm
   echo "DataType ascii" >>pm/$fname.pm
   echo "NumFrames" `awk '{if ($1 == "#") t=NR} END {print NR-t}' $i` >>pm/$fname.pm
   echo "NumChannels 0" >>pm/$fname.pm
   echo "NumAuxChannels 0" >>pm/$fname.pm
   echo "EqualSpace 0" >>pm/$fname.pm
   echo "BreaksPresent true" >>pm/$fname.pm
   echo "file_type 13" >>pm/$fname.pm
   echo "EST_Header_End" >>pm/$fname.pm
   awk '{if (NF == 3) printf("%f 1\n",$1)}' <$i >>pm/$fname.pm
done