#!/bin/sh
#
# "anise"	K. J. Turner	09/03/98
#
# This script runs "m4" on the given ".anise" files, stripping out "%..."
# comments first and then removing initial blank lines

prog="`basename $0`"				# program name
anise_ext=".anise"				# ANISE file extension
lotos_ext=".lot"				# LOTOS file extension

while [ $# -gt 0 ]
  do
    name="`expr Z$1 : Z'\(.*\)\'$anise_ext`"	# get name without extension
    if [ "$name" = "" ]				# no extension given?
      then name=$1; filename=$name$anise_ext	# add extension
      else filename=$1				# use filename as given
    fi
    if [ -f $filename -a -r $filename ]		# readable file?
      then
	sed -e 's/[ 	]*%.*//' $filename | \
          m4 | \
	    sed -e '/^[ 	]*$/d' -e '/[^ 	]/{
              :rest
              n
              b rest
            }' > $name.lot
      else
	echo "$prog: cannot read $filename"	# complain about file
    fi
    shift
  done
