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

⟦623bb3154⟧ TextFile

    Length: 455 (0x1c7)
    Types: TextFile
    Notes: UNIX file
    Names: »readin«

Derivation

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

TextFile

#! /bin/csh -f

while ($#argv != 0)
	set flop = $argv[1]
	switch (`ask readin "Read in $flop?"`)
	case no:
		shift
		continue
	case quit:
		exit(1)
	case what:
		set kludge = `echo $flop | sed -e "s#/#:#g"`
		sed -e "/^:$kludge/,/^:/\!d" -e "/^:/d" $subs/flinfo
		continue
	endsw
	echo ""
	echo "Executing: cd /; far -vxi $flop"
	cd /; far -vxi $flop
	if ($status) then
		echo ""
		echo "Far returns error status - try again"
		continue
	endif
	shift
end