|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet 32 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet 32 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1023 (0x3ff)
Types: TextFile
Notes: UNIX file
Names: »getprtb«
└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
└─⟦28c352965⟧ »/a« UNIX Filesystem
└─⟦this⟧ »sys/build/getprtb«
#! /bin/csh -f
if (-f $subs/partab) then
echo ""
echo "Partition info already known"
source $subs/partab
@ gotthem = 1
else
set dc1a = (0 filsys /)
set dc1b = (0 - swap)
set dc1c = (0 - disk)
set dc1d = (0 - -)
set dc1e = (0 - -)
set dc1f = (0 - -)
set dc1g = (0 - -)
set dc1h = (0 - -)
if (-f /etc/partab) then
echo ""
echo "Checking out partition sizes from /etc/partab:"
awk -f $build/awkprtb /etc/partab > /tmp/partab
source /tmp/partab
@ gotthem = 1
else
echo ""
echo "File /etc/partab does not exist - set sizes manually"
@ gotthem = 0
endif
endif
while (1)
if ($gotthem) then
source $build/shoprtb
switch (`ask ynptsiz "Are the partition sizes correct?"`)
case quit:
exit(1)
case yes:
break
endsw
endif
foreach part (dc1a dc1b dc1c dc1d dc1e dc1f dc1g dc1h)
set num = `ask partnum "Give sectors in ${part}:"`
switch ($num)
case quit:
exit(1)
case ok:
breaksw
default:
set ${part}[1] = $num
endsw
end
@ gotthem = 1
end
source $build/wriprtb