|
DataMuseum.dkPresents historical artifacts from the history of: RC9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: @ F T
Length: 602 (0x25a)
Types: TextFile
Notes: @(#)Form.unmount 13.3 (RC International) 91/10/11
Names: »Form.unmount«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦bbf173f5c⟧ »0004«
└─⟦this⟧ »./usr/sadm/sysadm/menu/files/unmount/Form.unmount«
# @(#)Form.unmount 13.3 (RC International) 91/10/11
#ident "@(#)oamintf:files/unmount/Form.unmount 1.5"
Form="Unmount a File System"
help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO
`readfile $INTFBASE/form.msg | message -p;
set -l ERRTLE="Unmount-Error"`
done=`indicator -w;
set -l FS=$F1;
set -l CMD="OPEN $OBJ_DIR/Form.umountfs";
`$CMD
name="Volume to be unmounted:"
lininfo=Form.unmount:F1
nrow=1
ncol=1
frow=1
fcol=24
rows=1
columns=30
rmenu={ `find /dev -type xlv -exec ls \{\} \;` }
menuonly=true
valid=`$OAMBASE/bin/validdev "$F1"`
invalidmsg="Press CHOICES to select valid response."