zip and tgz archive creation functions

archive.create.tgz is a function
archive.create.tgz ()
{
    local dir="$1";
    local archivename="$dir.tgz";
    shift;
    echo tar --exclude=*~ $@ -cvzf $archivename $dir;
    tar --exclude=*~ $@ -cvzf $archivename $dir
}
archive.create.zip is a function
archive.create.zip ()
{
    local dir="$1";
    local archivename="$dir.zip";
    shift;
    zip "$archivename" -r "$dir"
}