|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T U b
Length: 1369 (0x559)
Types: TextFile
Notes: UNIX file
Names: »bldflop«
└─⟦b1d6695d7⟧ Bits:30004155/sitdisk.imd SW95713I 386/ix Software Development System Rel. 2.0
└─⟦b1d6695d7⟧ UNIX Filesystem
└─⟦this⟧ »sitls/new/usr/subsets/tools/bldflop«
# Copyrighted as an unpublished work.
# (c) Copyright 1987 INTERACTIVE Systems Corporation
# All rights reserved.
#
# RESTRICTED RIGHTS
#
# These programs are supplied under a license. They may be used,
# disclosed, and/or copied only as permitted under such license
# agreement. Any copy must contain the above copyright notice and
# this restricted rights notice. Use, copying, and/or disclosure
# of the programs is strictly prohibited unless otherwise provided
# in the license agreement.
#
pkg=$1
nbr=1
total=`cat NBRDISKS`
if [ "$FLOP" = 3 ]
then
DISKETTE=f0q18dt
else
DISKETTE=f0q15dt
fi
while [ $nbr -le $total ]
do
echo "▶07◀Insert $pkg diskette number $nbr. Enter 'f' to format:"
echo "OR 's' to skip: \c"
read resp
case "$resp" in
f|F) /bin/format -i 3 /dev/rdsk/${DISKETTE};;
s|S) nbr=`expr $nbr + 1`
continue;;
esac
set `wc -l FILES.$nbr`
if [ "$1" -gt 250 ]
then
inodes=`expr $1 + 50`
else
inodes=270
fi
cat <<! >proto.file
/dev/null
2300 $inodes
!
cat proto.$nbr >>proto.file
if /etc/mkfs /dev/dsk/${DISKETTE} proto.file 2 30
then :
else
echo Error from mkfs
exit 1
fi
# For split pkgs will convert "fm hu" to fmhu"
pkg=`echo $pkg | sed 's/ //'`
if /etc/labelit /dev/dsk/${DISKETTE} install $pkg.$nbr
then :
else
echo Error in labeling diskette.
exit 1
fi
nbr=`expr $nbr + 1`
done
exit 0