mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
24 lines
369 B
Forth
24 lines
369 B
Forth
|
\ tag: disklabel support package
|
||
|
|
\
|
||
|
|
\ Copyright (C) 2003 Stefan Reinauer
|
||
|
|
\
|
||
|
|
\ See the file "COPYING" for further information about
|
||
|
|
\ the copyright and warranty status of this work.
|
||
|
|
\
|
||
|
|
|
||
|
|
" /packages" find-device
|
||
|
|
|
||
|
|
\
|
||
|
|
\ IEEE 1275 disklabel package
|
||
|
|
\
|
||
|
|
|
||
|
|
new-device
|
||
|
|
" disklabel" device-name
|
||
|
|
external
|
||
|
|
\ now the methods...
|
||
|
|
|
||
|
|
finish-device
|
||
|
|
|
||
|
|
\ clean up afterwards
|
||
|
|
device-end
|