# Attempt to add href to references in my book in HTML

# (C) 1998 Philip Sargent
# 31 July 1998

BEGIN {

arr["Aho86"] =1
arr["AIL90"] =1
arr["Amm88"] =1
arr["Apm89"] =1
arr["Aro88"] =1
arr["Ash84"] =1
arr["Ash89a"] =1
arr["Ash89b"] =1
arr["Ash90"] =1
arr["Avi88"] =1
arr["Bal90"] =1
arr["Bam89"] =1
arr["Bel89"] =1
arr["Ben89"] =1
arr["Bey91"] =1
arr["Bng89"] =1
arr["Bro75"] =1
arr["Bro87"] =1
arr["Bue88"] =1
arr["CAM90"] =1
arr["Car90"] =1
arr["Ceb91"] =1
arr["CEC86"] =1
arr["Cha59"] =1
arr["Cha89"] =1
arr["Che90"] =1
arr["Col88"] =1
arr["Coy89"] =1
arr["Cra84"] =1
arr["CRV89"] =1
arr["Dat90"] =1
arr["Daw88"] =1
arr["DD88a"] =1
arr["DD88b"] =1
arr["Dea90"] =1
arr["Dem88"] =1
arr["Die83"] =1
arr["Dow91"] =1
arr["Ebe85"] =1
arr["Enc90"] =1
arr["Eri90"] =1
arr["Fie88"] =1
arr["Fin89"] =1
arr["Fin90a"] =1
arr["Fre85"] =1
arr["Fro82"] =1
arr["Gla89"] =1
arr["Gra86"] =1
arr["Gra88"] =1
arr["Har85"] =1
arr["Har87"] =1
arr["Hay89"] =1
arr["Hil86"] =1
arr["Hix89"] =1
arr["Hop89"] =1
arr["Hop91"] =1
arr["Hub88"] =1
arr["Hug90"] =1
arr["Hul87"] =1
arr["Jov89"] =1
arr["Kai88"] =1
arr["Kau88"] =1
arr["Kau89"] =1
arr["Kau91"] =1
arr["Kee76"] =1
arr["Kel86"] =1
arr["Ken78"] =1
arr["Krö85"] =1
arr["Krö87a"] =1
arr["Krö87b"] =1
arr["Krö87"] =1
arr["Krö88"] =1
arr["Lai87"] =1
arr["Lau90"] =1
arr["Lee89"] =1
arr["Lew90a"] =1
arr["Lew90b"] =1
arr["LwO90"] =1
arr["Mar86"] =1
arr["McC87"] =1
arr["McC88"] =1
arr["Mey90"] =1
arr["Neu90"] =1
arr["New87"] =1
arr["Nis90"] =1
arr["Owe87"] =1
arr["Pah84"] =1
arr["Pap90"] =1
arr["Par89"] =1
arr["Pay90"] =1
arr["Per91"] =1
arr["PRI89"] =1
arr["Ram89"] =1
arr["Rei90"] =1
arr["Rey87"] =1
arr["Rey89"] =1
arr["Ric87"] =1
arr["Rum87"] =1
arr["Rum89"] =1
arr["Rum90"] =1
arr["SAE88"] =1
arr["Sar85"] =1
arr["Sar87"] =1
arr["Sar88"] =1
arr["Sar89a"] =1
arr["Sar89b"] =1
arr["Sar89c"] =1
arr["Sar90a"] =1
arr["Sar90b"] =1
arr["Sar90c"] =1
arr["Sar90d"] =1
arr["Sar91a"] =1
arr["Sar91b"] =1
arr["Saw86"] =1
arr["Sch90"] =1
arr["Schl9"] =1
arr["Sdrc8"] =1
arr["She90"] =1
arr["Shu86"] =1
arr["Sim81"] =1
arr["Sku90"] =1
arr["Som89"] =1
arr["Sta89"] =1
arr["Swi85"] =1
arr["Swi89"] =1
arr["Swi90"] =1
arr["Tho89"] =1
arr["Vve87"] =1
arr["Vid89"] =1
arr["Wat87"] =1
arr["Wes82"] =1
arr["Wes86"] =1
arr["Wes89"] =1
arr["West8"] =1
arr["Wil88"] =1
arr["Win90"] =1
arr["Wri88"] =1
arr["Wu91"] =1
arr["Zuc89"] =1

tempfile = "temp.html"

# a recognizer for paper reference identifiers
mpat=/[A-Z]([a-z]|[A-Z]|ö)([a-z]|[A-Z]|ö)?([a-z]|[A-Z]|ö)?([a-z]|[A-Z]|ö)?([a-z]|[A-Z]|ö)?[5-9][0-9][a-d]?/
}

BEGINFILE {
	system("del " tempfile " > NUL")
	filenow = FILENAME
	print filenow >"CON"
	}

/(\[)|(\])/ {	for(i=1;i<=NF;i++) {
			# print $i > "debug.txt"
			splitp($i, tryarr, mpat)
			for(s in tryarr) {
				# print ">> " tryarr[s] >"debug.txt"
				if(arr[tryarr[s]]==1) {
					subs(tryarr[s],"<a href=\"10_references.html#" tryarr[s] "\">" tryarr[s] "</a>",$i)
				}
			}
		}
	print  >tempfile
	next
	}

//	{ print   >tempfile }

ENDFILE {
	close(FILENAME)
	close(tempfile)
	system("del " FILENAME ".old" " > NUL")
	system("ren " FILENAME " " FILENAME ".old")
	system("ren " tempfile " " FILENAME)
	}