# 2000.03.12
# files required: 
# ????.html -- from d:/zoonomen/avtax
#  tagsed
#/d:/zoonomen/avtax/scr/trim.awk
#/d:/zoonomen/avtax/scr/ord.awk
#/d:/zoonomen/avtax/scr/ordsed.sed
#/html.scr

# index genera and specis_genus to Order.
# first make up to date numbered files.
# next strip tags

cp -m d:/zoonomen/avtax/????.html .
#d:/zoonomen/avtax/scr/addnum.scr
sed -f tagsed ????.html >tmp.1; rm ????.html
awk -f d:/zoonomen/avtax/scr/trim.awk tmp.1 > tmp.2;  rm tmp.1
#Document now looks like this.
#we need to pick off the order name and append it on the end of the
#species and genera.
#
#STRUTHIONIFORMES
#Struthio
#Struthio camelus
#Struthio molybdophanes
#Rhea
#Rhea americana
#Rhea pennata
#Casuarius
awk -f d:/zoonomen/avtax/scr/ord.awk tmp.2 > tmp.3
rm tmp.2

egrep '^A[a-z]* [A-Z]' tmp.3|sort -d > genla.001; egrep ' a[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >spla.001
egrep '^B[a-z]* [A-Z]' tmp.3|sort -d > genlb.001; egrep ' b[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splb.001
egrep '^C[a-z]* [A-Z]' tmp.3|sort -d > genlc.001; egrep ' c[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splc.001
egrep '^D[a-z]* [A-Z]' tmp.3|sort -d > genld.001; egrep ' d[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >spld.001
egrep '^E[a-z]* [A-Z]' tmp.3|sort -d > genle.001; egrep ' e[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >sple.001
egrep '^F[a-z]* [A-Z]' tmp.3|sort -d > genlf.001; egrep ' f[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splf.001
egrep '^G[a-z]* [A-Z]' tmp.3|sort -d > genlg.001; egrep ' g[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splg.001
egrep '^H[a-z]* [A-Z]' tmp.3|sort -d > genlh.001; egrep ' h[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splh.001
egrep '^I[a-z]* [A-Z]' tmp.3|sort -d > genli.001; egrep ' i[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >spli.001
egrep '^J[a-z]* [A-Z]' tmp.3|sort -d > genlj.001; egrep ' j[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splj.001
egrep '^K[a-z]* [A-Z]' tmp.3|sort -d > genlk.001; egrep ' k[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splk.001
egrep '^L[a-z]* [A-Z]' tmp.3|sort -d > genll.001; egrep ' l[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >spll.001
egrep '^M[a-z]* [A-Z]' tmp.3|sort -d > genlm.001; egrep ' m[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splm.001
egrep '^N[a-z]* [A-Z]' tmp.3|sort -d > genln.001; egrep ' n[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >spln.001
egrep '^O[a-z]* [A-Z]' tmp.3|sort -d > genlo.001; egrep ' o[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splo.001
egrep '^P[a-z]* [A-Z]' tmp.3|sort -d > genlp.001; egrep ' p[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splp.001
egrep '^Q[a-z]* [A-Z]' tmp.3|sort -d > genlq.001; egrep ' q[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splq.001
egrep '^R[a-z]* [A-Z]' tmp.3|sort -d > genlr.001; egrep ' r[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splr.001
egrep '^S[a-z]* [A-Z]' tmp.3|sort -d > genls.001; egrep ' s[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >spls.001
egrep '^T[a-z]* [A-Z]' tmp.3|sort -d > genlt.001; egrep ' t[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splt.001
egrep '^U[a-z]* [A-Z]' tmp.3|sort -d > genlu.001; egrep ' u[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splu.001
egrep '^V[a-z]* [A-Z]' tmp.3|sort -d > genlv.001; egrep ' v[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splv.001
egrep '^W[a-z]* [A-Z]' tmp.3|sort -d > genlw.001; egrep ' w[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splw.001
egrep '^X[a-z]* [A-Z]' tmp.3|sort -d > genlx.001; egrep ' x[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splx.001
egrep '^Y[a-z]* [A-Z]' tmp.3|sort -d > genly.001; egrep ' y[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >sply.001
egrep '^Z[a-z]* [A-Z]' tmp.3|sort -d > genlz.001; egrep ' z[a-z]* [A-z]' tmp.3|awk '{print $2,$1,$3}'|sort -d >splz.001

rm tmp.3

# now replace the order names with tagged order names.
cp d:/zoonomen/avtax/scr/ordsed.sed sedscr
runsed [s,g]*.001
# now create the output html indices.

date -c '+%Y.%m.%d %T' > d
cat htmpa.a1 gtmp.b1 genla.001 sptmp.c1 spla.001 b d tail.d1 > 	 indxa.html
cat htmpb.a1 gtmp.b1 genlb.001 sptmp.c1 splb.001 b d tail.d1 > 	 indxb.html
cat htmpc.a1 gtmp.b1 genlc.001 sptmp.c1 splc.001 b d tail.d1 > 	 indxc.html
cat htmpd.a1 gtmp.b1 genld.001 sptmp.c1 spld.001 b d tail.d1 > 	 indxd.html
cat htmpe.a1 gtmp.b1 genle.001 sptmp.c1 sple.001 b d tail.d1 > 	 indxe.html
cat htmpf.a1 gtmp.b1 genlf.001 sptmp.c1 splf.001 b d tail.d1 > 	 indxf.html
cat htmpg.a1 gtmp.b1 genlg.001 sptmp.c1 splg.001 b d tail.d1 > 	 indxg.html
cat htmph.a1 gtmp.b1 genlh.001 sptmp.c1 splh.001 b d tail.d1 > 	 indxh.html
cat htmpi.a1 gtmp.b1 genli.001 sptmp.c1 spli.001 b d tail.d1 > 	 indxi.html
cat htmpj.a1 gtmp.b1 genlj.001 sptmp.c1 splj.001 b d tail.d1 > 	 indxj.html
cat htmpk.a1 gtmp.b1 genlk.001 sptmp.c1 splk.001 b d tail.d1 > 	 indxk.html
cat htmpl.a1 gtmp.b1 genll.001 sptmp.c1 spll.001 b d tail.d1 > 	 indxl.html
cat htmpm.a1 gtmp.b1 genlm.001 sptmp.c1 splm.001 b d tail.d1 > 	 indxm.html
cat htmpn.a1 gtmp.b1 genln.001 sptmp.c1 spln.001 b d tail.d1 > 	 indxn.html
cat htmpo.a1 gtmp.b1 genlo.001 sptmp.c1 splo.001 b d tail.d1 > 	 indxo.html
cat htmpp.a1 gtmp.b1 genlp.001 sptmp.c1 splp.001 b d tail.d1 > 	 indxp.html
cat htmpq.a1 gtmp.b1 genlq.001 sptmp.c1 splq.001 b d tail.d1 > 	 indxq.html
cat htmpr.a1 gtmp.b1 genlr.001 sptmp.c1 splr.001 b d tail.d1 > 	 indxr.html
cat htmps.a1 gtmp.b1 genls.001 sptmp.c1 spls.001 b d tail.d1 > 	 indxs.html
cat htmpt.a1 gtmp.b1 genlt.001 sptmp.c1 splt.001 b d tail.d1 > 	 indxt.html
cat htmpu.a1 gtmp.b1 genlu.001 sptmp.c1 splu.001 b d tail.d1 > 	 indxu.html
cat htmpv.a1 gtmp.b1 genlv.001 sptmp.c1 splv.001 b d tail.d1 > 	 indxv.html
cat htmpw.a1 gtmp.b1 genlw.001 sptmp.c1 splw.001 b d tail.d1 > 	 indxw.html
cat htmpx.a1 gtmp.b1 genlx.001 sptmp.c1 splx.001 b d tail.d1 > 	 indxx.html
cat htmpy.a1 gtmp.b1 genly.001 sptmp.c1 sply.001 b d tail.d1 > 	 indxy.html
cat htmpz.a1 gtmp.b1 genlz.001 sptmp.c1 splz.001 b d tail.d1 > 	 indxz.html
#./html.scr