#!/bin/sh
##############################################
#  Create fields + catalog
##############################################

rm -f fields.dat ; touch fields.dat
for f in cdrom/*.cat; do
    gawk -f get_fields.awk $f >> fields.dat
done
anafile -f ReadMe fields.dat

# Now create the catalog
rm -f catalog.dat; touch catalog.dat
nf=0
for f in cdrom/*.cat; do
    n=`expr $n + 1`
    #echo2 $f
    echo $n $f | gawk '{printf "#...File#%3d: %s ... ", $1, $2}'
    trim $f | gawk '/^field:/{ f=$2; next} \
      /^----------*$/{cat++; next } \
      {if (cat>0) print f substr($0,2)}
    ' | tee tmp.cat1 \
    | trcol -b17,24,36,43,44,45,46,71,78,91,98,105  \
    | acut -c1-9 -c10-15%6.1 -c16-51 -c52-54's/ \([+-]\)\([0-9]\)/\1 \2/' \
      -c55-75 -c76-77l -c- \
    | tee tmp.cat2 | uniq >> catalog.dat
    anafile -f ReadMe -t catalog.dat tmp.cat2
done
anafile -f ReadMe  catalog.dat