Return to banner.fs CVS log

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

Annotation of qemu/roms/openbios/forth/admin/banner.fs, revision 1.1

1.1     ! root        1: \ 7.4.10    Banner
        !             2: 
        !             3: defer builtin-logo
        !             4: defer builtin-banner
        !             5: 0 value suppress-banner?
        !             6: 
        !             7: :noname
        !             8:   0 0
        !             9: ; to builtin-logo
        !            10: 
        !            11: :noname
        !            12:        builddate s"  built on " version s" Welcome to OpenBIOS v" pocket
        !            13:        tmpstrcat tmpstrcat tmpstrcat drop
        !            14: ; to builtin-banner
        !            15: 
        !            16: : suppress-banner ( -- )
        !            17:   1 to suppress-banner?
        !            18: ;
        !            19: 
        !            20: : banner ( -- )
        !            21:   suppress-banner
        !            22:   stdout @ ?dup 0= if exit then
        !            23:   
        !            24:   \ draw logo if stdout is a "display" node
        !            25:   dup ihandle>phandle " device_type" rot get-package-property if 0 0 then
        !            26:   " display" strcmp if
        !            27:     drop
        !            28:   else
        !            29:     \ draw logo ( ihandle )
        !            30:     dup ihandle>phandle " draw-logo" rot find-method if
        !            31:       ( ihandle xt )
        !            32:       swap >r >r
        !            33:       0    \ line #
        !            34:       oem-logo? if oem-logo else builtin-logo then
        !            35:       ( 0 addr logo-len )
        !            36:       200 = if
        !            37:         d# 64 d# 64
        !            38:         r> r> call-package
        !            39:       else
        !            40:         r> r> 2drop 2drop
        !            41:       then
        !            42:     else
        !            43:       drop
        !            44:     then
        !            45:   then
        !            46: 
        !            47:   oem-banner? if oem-banner else builtin-banner then
        !            48:   type cr
        !            49: ;

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