#! /bin/sh

# make an index from the sqtroff.pagelist file


grep '@Page\.' sqtroff.pagelist |
sed -e 's/^\.ds @Page\.\([^ ][^ ]*\) \([0-9][0-9]*\)[ 	]*$/.ix \1 \2/' |
sort -f | tee index.in |
sed -e 's/^\.ix \([^ ][^ ]*\) \([0-9][0-9]*\)[ 	]*$/\2 \1/' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/\([a-z]\)\([A-Z]\)/\1 \2/g' \
    -e 's/_/_ /' |
tee debug |
ptx -r -i ignore.ptx > index.ptx

