qemu/roms/openbios/packages/cmdline.fs

   1 \ tag: Utility functions
   2 \
   3 \ deblocker / filesystem support
   4 \
   5 \ Copyright (C) 2003, 2004 Samuel Rydh
   6 \
   7 \ See the file "COPYING" for further information about
   8 \ the copyright and warranty status of this work.
   9 \
  10
  11 \ -------------------------------------------------------------
  12 \ command line editor (/packages/cmdline)
  13 \ -------------------------------------------------------------
  14
  15 [IFDEF] CONFIG_CMDLINE
  16
  17 dev /packages
  18 new-device
  19   " cmdline" device-name
  20
  21   :noname
  22     " " [active-package], open-package
  23     ?dup if
  24       " cmdline" rot $call-method
  25     else
  26       ." cmdline is missing!" cr
  27     then
  28     \ cmdline must close itself upon return
  29   ;
  30
  31   :noname
  32     [ ['] (lit) , swap , ] to outer-interpreter
  33   ; SYSTEM-initializer
  34
  35   external
  36   : prepare 0 to my-self ;
  37
  38 finish-device
  39
  40 [THEN]
  41 device-end