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

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.