#! /bin/sh
# file: make-pbi		G. Moody	5 March 2008
#				Last revised:  6 February 2012

export PATH=/data1/home/pn/bin:$PATH
cd /home/physionet/html/physiobank/database
UPDATE=0

for D in `wfdbcat DBS | cut -f 1`
do
    I=`echo $D | sed s+/+_+g`
    if [ $D/RECORDS -nt pbi/$I ]
    then
	(
	    for R in `wfdbcat $D/RECORDS`
	    do
		echo $D/$R
		case $D in
		    mimic2db)
			T=`echo $R | cut -c 1-6`T
			echo $D/${R}${T} ;;
		    mimic2wdb/3*)
			N=`basename $R`n
			echo $D/$R$N ;;
		esac
	    done
	) | pbindex >/tmp/pbi-$I 2>/tmp/pbi-errors-$I
	mv -f /tmp/pbi-$I pbi/$I
	UPDATE=1
    fi
done

case $UPDATE in
    0) ;;
    1) cat pbi/[^H]* >physiobank-index ;;
esac
