mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-12-21 23:29:16 +00:00
15ad1533e2
- create directories /lib/rinclude and /usr/ainclude, and populate them - updated entries for: initrc, aroff, binprint, gsh, /etc/glogin, syslog.conf, getvers, nroff, tmac.an, tmac.s - grab describe.src from the source repository mkboot: - create directories /var/adm and /doc, and insert 'delete.me' files - install glogin file checksizes: - initial checkin. This script complains if the extracted size of a NuFX archive is larger than will fit on an 800k disk. builddate.rez: - this has been moved to ../rinclude
36 lines
770 B
Bash
Executable File
36 lines
770 B
Bash
Executable File
#! /bin/sh
|
|
#
|
|
# This script examines NuFX archives and verifies that the extracted files
|
|
# are able to fit onto a single 800k floppy.
|
|
#
|
|
# $Id: checksizes,v 1.1 1999/01/18 03:00:15 gdr-ftp Exp $
|
|
#
|
|
|
|
TMPDIR=${TMPDIR:-/tmp}
|
|
tmpfile1=$TMPDIR/checksizes.$$a
|
|
|
|
trap "rm -f $tmpfile1" 0 1 2 15
|
|
|
|
if [ "$*" = "" ]; then
|
|
echo "Usage: $0 file1 file2 ..."
|
|
exit 1
|
|
fi
|
|
|
|
maxOnDisk=778240
|
|
errors=0
|
|
set -e
|
|
for f in $*; do
|
|
nulib tv $f > $tmpfile1
|
|
sizes="`perl -ne '(m,\%\s+(\d+)\s*$,) && print $1."\n";' $tmpfile1`"
|
|
total=0
|
|
for s in $sizes; do
|
|
newval="` expr \( $s / 512 \) \* 512 + 512`"
|
|
total="`expr $total + $newval`"
|
|
done
|
|
if [ $total -gt $maxOnDisk ]; then
|
|
echo "archive $f is too large. Max=$maxOnDisk Current=$total"
|
|
errors="`expr $errors + 1`"
|
|
fi
|
|
done
|
|
exit $errors
|