#! /bin/csh -fe
# Last edited on 2003-10-12 15:26:01 by stolfi

# Lists all Modula-3 source files below the current directory,
# in HTML format suitable for inclusion into WWW pages

set path = ( /usr/bin /bin /usr/ucb /usr/bsd )

if ( $#argv != 1 ) then
  echo "Usage: $0 <directory> "
  exit 1
endif

set dir = "$1"

/usr/bin/find ${dir} \
  -name '*.[im][3g]' \
  -print \
  | sed -e '1,$s/^\(.*\)\/\([^/]*\)$/  <a href="file:\1\/\2">\2<\/a> |/g'