funpages <- funmat[,2]
names(funpages) <- as.character(funmat[,1])
termspages <- termsmat[,2]
names(termspages) <- as.character(termsmat[,1])
termsmat[,2] <- sub("--","-",termsmat[,2])
termspages <- termsmat[,2]
names(termspages) <- as.character(termsmat[,1])
termsmat <- data.frame(entry=I(names(termspages)), page=termspages)
authmat <- data.frame(entry=I(names(authpages)), page=authpages)
funentries <- paste("\\indexentry  ", "{", funmat[,1],"}{", funmat[,2], "}",sep="")
termsentries <- paste("\\indexentry  ", "{", termsmat[,1],"}{", termsmat[,2], "}",sep="")
authentries <- paste("\\indexentry  ", "{", authmat[,1],"}{", authmat[,2], "}",sep="")
write(funentries, file="fun.idx")
write(termsentries, file="terms.idx")
write(authentries, file="auth.idx")

locate()     # locates nominated tokens
termsmat <- read.table("index/terms.txt",header=F, as.is=TRUE)
termsmat <- termsmat[!duplicated(termsmat),]
authmat <- data.frame(entry=I(names(authpages)), page=authpages)
funpages <- c(sympages, funpages)
funmat <- data.frame(entry=I(names(funpages)), page=funpages)
funmat <- funmat[!duplicated(funmat),]