banner.fs

来自「BIOS Open Platform!」· FS 代码 · 共 50 行

\ 7.4.10    Banner

defer builtin-logo
defer builtin-banner
0 value suppress-banner?

:noname
  0 0
; to builtin-logo

:noname
	builddate s"  built on " version s" Welcome to OpenBIOS v" pocket
	tmpstrcat tmpstrcat tmpstrcat drop
; to builtin-banner

: suppress-banner ( -- )
  1 to suppress-banner?
;

: banner ( -- )
  suppress-banner
  stdout @ ?dup 0= if exit then
  
  \ draw logo if stdout is a "display" node
  dup ihandle>phandle " device_type" rot get-package-property if 0 0 then
  " display" strcmp if
    drop
  else
    \ draw logo ( ihandle )
    dup ihandle>phandle " draw-logo" rot find-method if
      ( ihandle xt )
      swap >r >r
      0    \ line #
      oem-logo? if oem-logo else builtin-logo then
      ( 0 addr logo-len )
      200 = if
        d# 64 d# 64
        r> r> call-package
      else
        r> r> 2drop 2drop
      then
    else
      drop
    then
  then

  oem-banner? if oem-banner else builtin-banner then
  type cr
;