# tmp.2; tmp.2a; tmp.2b; tmp.3
	## MOD 2002.06.25
	# 2000.03.12
	# files required: 
	# ????.html -- from c:/zoonomen/avtax
	#  tagsed
	#/c:/zoonomen/avtax/scr/tagsed
	#/c:/awk/reccon.awk
	#/c:/zoonomen/avtax/scr/ordsed.sed

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

	cp -m c:/zoonomen/avtax/????.html .

	#d:/zoonomen/avtax/scr/addnum.scr
	#sed -f ../tagsed ????.html >tmp.1
	#; rm ????.html
#reccon.awk
#BEGIN {RS = ""}
#{print $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21}

#awk -f c:/awk/reccon.awk  ????.html|sed -f ../tagsed >tmp.2

sed 's/^<h4>/h4 /' ????.html|awk '$0!~/^\[/'|awk -f c:/awk/reccon.awk  |sed -f ../tagsed >tmp.2
sed -f c:/zoonomen/avtax/scr/aused.scr tmp.2 > tmp.2a
awk '{print $1,$2}' tmp.2a > tmp.2b
## NEED to make ALL author names start with CAPS.

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