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

   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 ;