head	1.1;
access;
symbols;
locks
	grog:1.1; strict;
comment	@# @;


1.1
date	95.06.24.12.28.51;	author grog;	state Exp;
branches;
next	;


desc
@Script to make an index
@


1.1
log
@Initial revision
@
text
@cat Toc/*|grep INDEX|sed 's/^.*INDEX://; s/\\.(..//g; s/\\..//g'|sort  -f -u >Index.ms
emacs -batch Index.ms -l tidyindex.el 
make Index.ps
rm Index.toc	# don't put this back in the Index!
nroff -rv8 -rz6 -rW4i -mO  chapters.ms >Contents
cat *.toc |grep CONTENTS|sed 's/^.*CONTENTS:.TC "//; s/"//g' >>Contents
sort <Contents -t'.' -n -k 1,4 -f >Contents.ms
emacs -batch Contents.ms -l tidycontents.el
make Contents.ps
rm Contents.toc
echo >Xref "\.\\\" Cross-references generated by $0 `date`"
cat *.toc|grep PAGENO|sed 's/><PAGENO://; s/ *$//'| sort -f +1 >>Xref
cat *.toc|grep PAGENO|sed 's/><PAGENO://; s/ *$//'| awk '{print $2}' | sort | uniq -d >/tmp/double-defines
if [ -s /tmp/double-defines ]; then
  echo "*** Doubly defined references:"
  ref=`xargs </tmp/double-defines`
  for i in $ref; do
    grep "ds $i" *.toc | sed 's*><PAGENO:.ds**'
  done
  exit 1
fi
@