[9fans] How do I find free disk space?

[9fans] How do I find free disk space?

[Blake McBride]

Greetings,

How can I find the amount of used and free disk / file system space
ala df?  I am using a standalone system with a KFS file system.

Thanks.

Blake McBride
blake@integra-online.com

Re: [9fans] How do I find free disk space?

[FJ Ballesteros]

I think rsc sent this to 9fans

#!/bin/rc
# df

rfork e

fn h2d {
        echo 'ibase=16;' print `{echo $1|tr a-z A-Z} |bc
}

fn swap {
        echo $1 | sed 's/(..)(..)(..)(..)/\4\3\2\1/'
}

fn df {
        echo -n $1 ''
        blksz=`{xd -c $1 |grep 110 |sed 1q |
                sed 's/^.......   (.)  (.)  (.)  (.).*/\1\2\3\4/'}
        info=`{dd -bs $blksz -iseek 1 -count 1 < $1 >[2]/dev/null | xd
-l | sed
1q}
        total=$info(3)
        free=$info(4)
        if(~ $cputype 386) {
                total=`{swap $total}
                free=`{swap $free}
        }
        total=`{h2d $total}
        free=`{h2d $free}

        totalk=`{hoc -e $total^'*'^$blksz}
        freek=`{hoc -e $free^'*'^$blksz}
        totalk=`{hoc -e $totalk^'/'^1024}
        freek=`{hoc -e $freek^'/'^1024}

        echo $free / $total '*' $blksz '=' $freek / $totalk
}

disk=`{ls /dev/sd??/fs  >[2]/dev/null}
if(~ $#disk 0) {
        echo no disk found
        exit 'no disk'
}

for(i in $disk)
        df $i

Re: [9fans] How do I find free disk space?

[Russ Cox]

g% cat /bin/df
#!/bin/rc

rfork e

fn h2d {
	echo 'ibase=16;' print `{echo $1|tr a-z A-Z} |bc
}

fn swap {
	echo $1 | sed 's/(..)(..)(..)(..)/\4\3\2\1/'
}

fn df {
	echo -n $1 ''
	blksz=`{xd -c $1 |grep 110 |sed 1q |
		sed 's/^.......   (.)  (.)  (.)  (.).*/\1\2\3\4/'}
	info=`{dd -bs $blksz -iseek 1 -count 1 < $1 >[2]/dev/null | xd -l | sed 1q}
	total=$info(3)
	free=$info(4)
	if(~ $cputype 386) {
		total=`{swap $total}
		free=`{swap $free}
	}
	total=`{h2d $total}
	free=`{h2d $free}

	totalb=`{hoc -e $total^'*'^$blksz}
	freeb=`{hoc -e $free^'*'^$blksz}
	echo $free / $total '*' $blksz '=' $freeb / $totalb
}

disk=`{ls /dev/sd??/fs}
if(~ $#disk 0) {
	echo no disk found
	exit 'no disk'
}

for(i in $disk)
	df $i
g%