shithub: riscv

ref: 326c8d9c4261d8e58e2469adb66f5c8438a8838c
dir: /rc/bin/inst/startwin/

View raw version 
#!/bin/rc

fn time { date | sed 's/.........$//'}

rm -f /srv/log

if(~ $#* 2) {
	wid=$1
	ht=$2
} 
if not {
	scr=(`{cat /dev/draw/new >[2]/dev/null || status=''})
	wid=$scr(7)
	ht=$scr(8)
}

if(test $ht -gt 800)
	ht=800

if(test $wid -gt 800)
	wid=800

statwid=`{hoc -e $wid^'*.2'}
if(test $statwid -lt 180)
	statwid=180
if(test $statwid -gt 300)
	statwid=300

logwid=`{hoc -e $wid^-$statwid}
if(test $logwid -gt 1000)
	logwid=1000

loght=`{hoc -e $ht^'*.25'}
if(test $loght -lt 130)
	loght=130

textht=`{hoc -e $ht^-$loght}

window 0,$textht,$statwid,$ht stats -lmisce
window 0,0,^`{hoc -e $logwid+$statwid}^,$textht inst/mainloop
rm -f /srv/log
window $statwid,$textht,^`{hoc -e $logwid+$statwid}^,$ht 'echo 2 >/srv/log; while(){sleep 1000}'
while(! test -f /srv/log)
	sleep 1
log `{time} Installation process started