source: trunk/third/tcsh/MAKESHAR @ 9006

#!/bin/sh
#
# MAKESHAR.sh: Make a shar file for the sources
#
# $Id: MAKESHAR,v 1.1.1.1 1996-10-02 06:09:30 ghudson Exp $

AWK=/usr/bin/nawk       # Must be nawk or gawk cause of 2D arrays
WC=/usr/ucb/wc          
GREP=/usr/bin/egrep
SORT=/usr/bin/sort
SH=/bin/sh

dirs=
name=kit
files=
verbose=0
size=45000

for i 
do
    case $i in
    -n) 
        name=;;
    -v)
        verbose=1;;
    -d)
        SH=/bin/cat;;
    -s)
        size=$1;;
    *)
        if [ -z "$name" ]
        then
            name=$i
        elif [ -d $i ]
        then
            dirs="$dirs $i"
        elif [ -f $i ]
        then
            files="$files $i"
        else
            echo "$0: File `$i' not found." 1>&2
            exit 1
        fi;;
    esac
done
        
if [ \( -z "$files" \) -a \( -z "$dirs" \) ]
then
    echo "Usage: $0 [-n name] [-s size] [-vd] <files>." 1>&2
    exit 1
fi

$WC $files | $GREP -v total | $SORT +2 | $AWK '
    BEGIN {
        i = 0;
        seq = 1;
        size = 0;
        name = 1;
        used = 2;
        verbose='"$verbose"';
        tty = "/dev/tty";
        maxsize = '"$size"';
        dirs = "'"$dirs"'";
    };
    {
        a[i, size] = $3;
        a[i, name] = $4;
        a[i, used] = 0;
        i++;
    };
    END {
        for (maxi = i--; i >= 0; i--) {
            idx = 0;
            if (a[i, used] == 0) {
                if (verbose && a[i, size] > maxsize) 
                    printf("Warning: File %s is %d > %d\n",
                           a[i, name], a[i, size], maxsize) > tty;
                s = a[i, size];
                a[i, used] = 1;
                kit[seq, idx++] = i; 
                j = 0;
                while (j < maxi) {
                    # Find the greatest file we can add
                    j = maxi;
                    for (k = 0; k < maxi; k++)
                        if (a[k, used] == 0 && a[k, size] + s < maxsize)
                            j = k;
                    if (j < maxi) {
                        s += a[j, size];
                        a[j, used] = 1;
                        kit[seq, idx++] = j; 
                    }
                }
                sizes[seq] = s;
                kit[seq++, idx] = -1; 
            }
        }
        for (i = 1; i < seq; i++) {
            printf("shar -n%d -e%d %s ", i, seq - 1, dirs);
            if (verbose) {
                printf("%3d of %3d: ", i, seq - 1) > tty;
                len = 12;
            }
            for (j = 0; kit[i, j] != -1; j++) {
                s = a[kit[i, j], name];
                if (verbose) {
                    clen = length(s) + 1;
                    len += clen;
                    if (len > 70) {
                        printf("\n            ") > tty;
                        len = 12 + clen;
                    }
                    printf("%s ", s) > tty;
                }
                printf("%s ", s);
            }
            printf("> '"$name"'-%d.shar;", i);
            if (verbose)
                printf("= %5d\n", sizes[i]) > tty;
        }
    }' | $SH