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     ! 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.