Return to help.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / admin

Annotation of qemu/roms/openbios/forth/admin/help.fs, revision 1.1.1.1

1.1       root        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:   

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.