#!/bin/sh
#
# gethists.sh shows us (in Phones2.hist) that we have

#201 p aa  159 b aa  145 t aa  698 d aa  284 k aa  106 g aa  117 m aa  246 n aa
#185 p eh  147 b eh  258 t eh  111 d eh  606 k eh  105 g eh  226 m eh  195 n eh
#163 p ix   146 b ix    837 t ix    496 d ix   421 k ix     50 g ix    483 m ix   353 n ix
#161 p er  103 b er  114 t er     58 d er   133 k er     38 g er     77 m er    33 n er
#155 p ih   230 b ih   279 t ih   364 d ih   196 k ih    125 g ih    229 m ih  253 n ih
#143 p iy   399 b iy   260 t iy   158 d iy    124 k iy      10 g iy    731 m iy   339 n iy
#140 p ey  43 b ey   231 t ey   178 d ey   136 k ey   50 g ey    316 m ey   82 n ey
# 80 p ay  270 b ay  190 t ay    64 d ay     35 k ay    14 g ay    227 m ay  116 n ay
# 92 p ae  140 b ae  200 t ae   68 d ae    289 k ae   82 g ae   172 m ae  259 n ae
# 41 p ah  149 b ah  101 t ah  119 d ah   249 k ah   69 g ah   259 m ah  179 n ah
#

for f in `cat filelist`
do
  gawk -v file=$f '
  BEGIN { count=1 }
{ 
   s1[count] = $1; s2[count] = $2; lab[count] = $3
   count++
}
END { for(n=2; n<count; n++){
             if(lab[n-1] ~ /^(p|b|t|d|k|g|m|n)$/ && lab[n] ~ /^(aa|eh|ix|er|ih|iy|ey|ay|ae|ah)$/){
                printf("%s %d %d %d %s %s\n",
                      file, s1[n-1], s1[n], s2[n], lab[n-1], lab[n])
            }
    }
    prev = $3
}' $f.PHN
done  >SegEffect1.txt