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

⟦0382178eb⟧ TextFile

    Length: 418 (0x1a2)
    Types: TextFile
    Notes: UNIX file
    Names: »makedir«

Derivation

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

TextFile

#! /bin/csh -f

if (-d "$1") exit(0)
if ("$1" =~ "/"*) cd /
set dpath = (`echo $1 | sed -e 's#/# #g'`)

while ($#dpath != 0)
	set name = "$dpath[1]"
	if (-f "$name") then
		echo "File $name exists in $cwd - cannot make directory"
		exit(1)
	endif
	if (! -d "$name") then
		echo "Creating directory $name in $cwd"
		mkdir "$name"
		if ($status) exit(1)
	endif
	cd "$name"
	if ($status) exit(1)
	shift dpath
end
exit(0)