#!/bin/sh
# Take excerpts from a TeX file generated by Weave

LIB=$HOME/lib/`cputype`

if [ $# -ne 1 ]; then
  echo "Usage: excerpt name" 1>&2
  exit 1
fi

if [ -r $1.tex ]; then
  lines=`sed '/^ *\([0-9]*\).*\\N[0-9]*[.] *\([^ ]\)\([^.]*\)[.].*$/!d
/^ *\([0-9]*\).*\\N[0-9]*[.] *\([^ ]\)\([^.]*\)[.].*$/=
s/^.*\\N[0-9]*[.] *\([^ ]\)\([^.]*\)[.].*$/\1	\2/
' $1.tex | awk 'BEGIN { FS="	" # tab
	OFS="	" # tab
	level["="]=-1
	level["1"]=1
	level["2"]=2
	level["3"]=3
	level["4"]=4
	}
NF==1 {line=$1}
NF==2 {
#	print "\"" $1 "\"", level[$1]
	if (level[$1]==0) {
		name = $1 $2
	} else {
		name = $2
		}
	
	print line
	print level[$1]+1
	print name
	}' | $LIB/section`
  while true; do
    echo -n "Did you include the index in the excerpts [ny]? " 1>&2
    read reply
    if [ "$reply" = "" ]; then reply="n" ; fi
    case $reply in
      [ny]) break ;;
      *) echo "respond with y or n" 1>&2 ;;
    esac
  done
  echo Splitting $1.tex... 1>&2
  $LIB/filesplit - $lines < $1.tex > $1-excerpts.tex
  if [ "$reply" = "n" ]; then
     echo \\inx\\fin\\con >> $1-excerpts.tex
  fi
else
  echo "I can't find the file $1.tex" 1>&2
  exit 1
fi