#!/bin/sh
: Usage message.
usage="Usage: $0 [ -o output ] [ -r ] [ file ] ..."
: Output file -- standard output default.
output=''
: Separator.
separator='+ END-OF-FILE'
: Default is: recursively archive subdirectories.
recurse=yes
: Procedure to set the mode of the file to the correct value.
chmod='
    ls="`/bin/ls -ld $f`"
    echo "chmod '\''`echo $ls | sed -e '\''s/.\(...\)\(...\)\(...\).*/u=\1,g=\2,o=\3/'\'' -e '\''s/-//g'\''`'\'' '\''$f'\''"
'
: Procedure to archive the file / directory
shar='
    if test -d $f
    then    : We have a directory here.
        case $recurse in
        yes)    : Check whether there is a file with the same name
            :    if so, remove it.
            echo "if test -f '\''$f'\''"
            echo "then  rm '\''$f'\''"
            echo "fi"
            : If the directory does not yet exist, create it.
            echo "if test -d '\''$f'\''"
            echo "then  :"
            echo "else  echo '\''Making     $f/'\''"
            echo "  mkdir '\''$f'\''"
            echo "fi"
            : Change the mode of the directory to the correct value.
            eval "$chmod"
            : Now archive the contents of the directory.
            for f in $f/*
            do  : Recursive call.
                eval "$shar"
            done
        esac
    else    : We have a file.
        echo "echo '\''Extracting $f'\''"
        echo "sed '\''s/^X//'\'' > $f << '\''$separator $f'\''"
        : Here the file is put into the archive.
        sed '\''s/^/X/'\'' $f
        : End with the separator.
        echo "$separator $f"
        : Change the mode of the file to the correct value.
        eval "$chmod"
        : Show the size of the file as sent.
        echo "echo '\''$ls (as sent)'\''"
        : Show the size of the file as received.
        echo "/bin/ls -l $f"
    fi
'
for arg
do  case $arg in
    -o) : Output file name.
        : Get rid of the -o.
        shift
        : Is there an argument left?
        case $# in
        0)  : No.  Exit with an error message.
            echo "$usage" 1>&2
            exit 1
        esac
        : Yes.
        output="$1"
        ;;
    -o*)    : Output file name.
        output=`expr "$arg" : '-o\(.*\)'`
        ;;
    -r) : Do not archive subdirectories.
        recurse=no
        ;;
    -*) : Unknown option.
        echo "$usage" 1>&2
        exit 1
        ;;
    *)  : Break out of the for loop.
        break
    esac
    shift
done
: If no arguments left.  Archive current directory.
case $# in
0)  set *
esac
: Redirect output if necessary.
case "X$output" in
X)  ;;
*)  exec >"$output"
esac
echo ': This is a shar archive created by cshar.  Extract with sh, not csh.'
echo ': This archive ends with exit, so do not worry about trailing junk.'
: Here the work is being done.
for f in $*
do  eval "$shar"
done
: Let the archive end with an exit.
echo 'exit 0'
exit 0