MAKESHAR revision 59243 
1#!/bin/sh
2#
3# MAKESHAR.sh: Make a shar file for the sources
4#
5# $Id: MAKESHAR,v 3.1 1992/05/09 04:03:53 christos Exp $
6
7AWK=/usr/bin/nawk	# Must be nawk or gawk cause of 2D arrays
8WC=/usr/ucb/wc		
9GREP=/usr/bin/egrep
10SORT=/usr/bin/sort
11SH=/bin/sh
12
13dirs=
14name=kit
15files=
16verbose=0
17size=45000
18
19for i 
20do
21    case $i in
22    -n)	
23	name=;;
24    -v)
25	verbose=1;;
26    -d)
27	SH=/bin/cat;;
28    -s)
29	size=$1;;
30    *)
31	if [ -z "$name" ]
32	then
33	    name=$i
34	elif [ -d $i ]
35	then
36	    dirs="$dirs $i"
37	elif [ -f $i ]
38	then
39	    files="$files $i"
40	else
41	    echo "$0: File `$i' not found." 1>&2
42	    exit 1
43	fi;;
44    esac
45done
46	
47if [ \( -z "$files" \) -a \( -z "$dirs" \) ]
48then
49    echo "Usage: $0 [-n name] [-s size] [-vd] <files>."	1>&2
50    exit 1
51fi
52
53$WC $files | $GREP -v total | $SORT +2 | $AWK '
54    BEGIN {
55	i = 0;
56	seq = 1;
57	size = 0;
58	name = 1;
59	used = 2;
60	verbose='"$verbose"';
61	tty = "/dev/tty";
62	maxsize = '"$size"';
63	dirs = "'"$dirs"'";
64    };
65    {
66	a[i, size] = $3;
67	a[i, name] = $4;
68	a[i, used] = 0;
69	i++;
70    };
71    END {
72	for (maxi = i--; i >= 0; i--) {
73	    idx = 0;
74	    if (a[i, used] == 0) {
75		if (verbose && a[i, size] > maxsize) 
76		    printf("Warning: File %s is %d > %d\n",
77			   a[i, name], a[i, size], maxsize) > tty;
78		s = a[i, size];
79		a[i, used] = 1;
80		kit[seq, idx++] = i; 
81		j = 0;
82		while (j < maxi) {
83		    # Find the greatest file we can add
84		    j = maxi;
85		    for (k = 0; k < maxi; k++)
86			if (a[k, used] == 0 && a[k, size] + s < maxsize)
87			    j = k;
88		    if (j < maxi) {
89			s += a[j, size];
90			a[j, used] = 1;
91			kit[seq, idx++] = j; 
92		    }
93		}
94		sizes[seq] = s;
95		kit[seq++, idx] = -1; 
96	    }
97	}
98	for (i = 1; i < seq; i++) {
99	    printf("shar -n%d -e%d %s ", i, seq - 1, dirs);
100	    if (verbose) {
101		printf("%3d of %3d: ", i, seq - 1) > tty;
102		len = 12;
103	    }
104	    for (j = 0; kit[i, j] != -1; j++) {
105		s = a[kit[i, j], name];
106		if (verbose) {
107		    clen = length(s) + 1;
108		    len += clen;
109		    if (len > 70) {
110			printf("\n            ") > tty;
111			len = 12 + clen;
112		    }
113		    printf("%s ", s) > tty;
114		}
115		printf("%s ", s);
116	    }
117	    printf("> '"$name"'-%d.shar;", i);
118	    if (verbose)
119		printf("= %5d\n", sizes[i]) > tty;
120	}
121    }' | $SH
122