DataMuseum.dk

Presents historical artifacts from the history of:

ICL Comet 32

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about ICL Comet 32

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦0b7b791e3⟧ TextFile

    Length: 1245 (0x4dd)
    Types: TextFile
    Notes: UNIX file
    Names: »filsys«

Derivation

└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
    └─⟦28c352965⟧ »/a« UNIX Filesystem
        └─⟦this⟧ »sys/build/filsys« 

TextFile

#! /bin/csh -f

getprtb
if ($status) exit(1)
if (! -f $subs/partab) then
	echo "No partition info - cannot continue"
	exit(0)
endif
source $subs/partab

if (! -f $subs/autohelp) then
	echo ""
	echo "Type first 'h' (help) to next question."
endif

while (1)
	set part = `ask partsys "Give partition (dc1d to dc1h):"`
	switch ($part)
	case quit:
		echo "Skipping write of partition info"
		exit(1)
	case show:
		source $build/shoprtb
		continue
	case dc1[d-h]:
		eval @ size = \$$part\[1\] / 2
		breaksw
	case done:
		break
	endsw
	if ($size == 0) then
		echo "Partition $part has size 0 - cannot make a file system"
		continue
	endif
	echo "Partition $part - $size kilobytes"
	switch (`ask ynmkfs "All data in $part will be destroyed - continue?"`)
	case yes:
		breaksw
	default:
		continue
	endsw
	echo ""
	echo "Executing: mkfs /dev/r$part $size"
	echo "This is not a test - sleeping 10 seconds before proceeding"
	sleep 10
	mkfs /dev/r$part $size
	if ($status) then
		echo "Error in mkfs - are partition sizes correct?"
		continue
	endif
	echo ""
	echo "Executing: fsck -p /dev/r$part"
	fsck -p /dev/r$part
	if ($status) then
		echo "Excessive errors in $part - try again"
		continue
	endif
	set ${part}[2] = filsys
end

source $build/wriprtb