#!/bin/sh -e

# here we get two arguments.  A start directory and an end directory.
# we expect the start and end arguments given to be complete directories
# from root

if [ ! -d $1 ] ; then
  echo Start directory given \( $1 \) is not there... quitting.
  exit 10 
else
  start_dir=$1 ; export start_dir 
fi

# all directories in place.  Now transfer our directory structure over.

transfer_dirs=`cd $start_dir ; find . -type d` ; export transfer_dirs

# ok now to transfer the files.
(
cd $start_dir
for i in `find . -type f -name '*.el'` ; do
  if [ -r ${i}c ] ; then
    gzip $i
  fi
done
)



