forth/packages/disklabel.fs

   1 \ tag: disklabel support package
   2 \
   3 \ Copyright (C) 2003 Stefan Reinauer
   4 \
   5 \ See the file "COPYING" for further information about
   6 \ the copyright and warranty status of this work.
   7 \
   8
   9 " /packages" find-device
  10
  11 \
  12 \ IEEE 1275 disklabel package
  13 \
  14
  15 new-device
  16   " disklabel" device-name
  17   \ now the methods...
  18
  19 finish-device
  20
  21 \ clean up afterwards
  22 device-end