shithub: riscv

ref: 57d107f5b1773342db98f17923e5ceb43b14366e
dir: /rc/bin/inst/prepdisk/

#!/bin/rc

# desc: subdivide plan 9 disk partition
# prereq: partdisk

fn autotype {
	switch($fstype){
	case cwfs cwfs64 cwfs64x
		echo -a 9fat -a nvram -a fscache -a fsworm -a other
	case hjfs
		echo -a 9fat -a nvram -a fs
	}
}

switch($1) {
case checkready
	disks=(/dev/sd*/plan9*)
	if(! test -f $disks(1)){
		prepdisk=notdone
		export prepdisk
	}

case go
	echo 'The following Plan 9 disk partitions were found.'
	echo
	disks=(/dev/sd*/plan9*)
	for (i in $disks){
		echo $i
		echo q | disk/prep -r $i >[2]/dev/null
		echo
	}
	if(~ $#disks 1)
		default=(-d $disks)
	if not
		default=()
	prompt $default 'Plan 9 partition to subdivide' $disks
	disk=$rd

	echo 'This is disk/prep; use it to subdivide the Plan 9 partition.'
	echo 'If it is not yet subdivided, a sensible layout will be suggested;'
	echo 'you can probably just type ''w'' and then ''q''.'
	echo
	disk/prep `{autotype} $disk
	disk/prep -p $disk >`{basename -d $disk}^/ctl >[2]/dev/null

case checkdone
	disks=(/dev/sd*/9fat)
	if(! test -f $disks(1))
		prepdisk=ready
	if(! ~ $prepdisk ready)
		prepdisk=done
	export prepdisk
}