X-Git-Url: https://gerrit.opnfv.org/gerrit/gitweb?a=blobdiff_plain;f=qemu%2Froms%2Fopenbios%2Fforth%2Fadmin%2Fbanner.fs;fp=qemu%2Froms%2Fopenbios%2Fforth%2Fadmin%2Fbanner.fs;h=5439fc082471b24531bf007cc5c1d54f4250f09b;hb=e44e3482bdb4d0ebde2d8b41830ac2cdb07948fb;hp=0000000000000000000000000000000000000000;hpb=9ca8dbcc65cfc63d6f5ef3312a33184e1d726e00;p=kvmfornfv.git

diff --git a/qemu/roms/openbios/forth/admin/banner.fs b/qemu/roms/openbios/forth/admin/banner.fs
new file mode 100644
index 000000000..5439fc082
--- /dev/null
+++ b/qemu/roms/openbios/forth/admin/banner.fs
@@ -0,0 +1,49 @@
+\ 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
+;