qemu/roms/openbios/forth/admin/help.fs

   1 \ tag: firmware help
   2 \
   3 \ this code implements IEEE 1275-1994 ch. 7.4.1
   4 \
   5 \ Copyright (C) 2003 Stefan Reinauer
   6 \
   7 \ See the file "COPYING" for further information about
   8 \ the copyright and warranty status of this work.
   9 \
  10
  11 hex
  12
  13 : (help-generic)
  14   ." Enter 'help command-name' or 'help category-name' for more help" cr
  15   ." (Use ONLY the first word of a category description)" cr
  16   ." Examples: help select -or- help line" cr cr
  17   ." Categories:" cr
  18   ."   boot (Load and execute a client program)" cr
  19   ."   diag (Diagnostic routines)" cr
  20   ;
  21
  22 : (help-diag)
  23   ." test <device>  Run the selftest method for specified device" cr
  24   ." test-all       Execute test for all devices using selftest method" cr
  25   ;
  26
  27 : (help-boot)
  28   ." boot [<device-specifier>:<device-arguments>] [boot-arguments]" cr
  29   ." Examples:" cr
  30   ." boot             Default boot (values specified in nvram variables)" cr
  31   ." boot disk1:a     Boot from disk1 partition a" cr
  32   ." boot hd:1,\boot\vmlinuz root=/dev/hda1" cr
  33   ;
  34
  35 : help ( "{name}<cr>" -- )
  36   \ Provide information for category or specific command.
  37   linefeed parse cr
  38   dup 0= if
  39     (help-generic)
  40     2drop
  41   else
  42     2dup " diag" rot min comp not if
  43       (help-diag) 2drop exit
  44     then
  45     2dup " boot" rot min comp not if
  46       (help-boot) 2drop exit
  47     then
  48     ." No help available for " type cr
  49   then
  50   ;
  51