Author: dteske
Date: Mon Aug 12 03:52:23 2013
New Revision: 254237
URL: http://svnweb.freebsd.org/changeset/base/254237
Log:
Add optional support for default override of standard setup; but only if
corresponding functions are provided. If override function does not exist,
boot remains unmodified. This patch should not result in any changes.
Modified:
head/sys/boot/forth/beastie.4th
Modified: head/sys/boot/forth/beastie.4th
==============================================================================
--- head/sys/boot/forth/beastie.4th Mon Aug 12 02:21:44 2013
(r254236)
+++ head/sys/boot/forth/beastie.4th Mon Aug 12 03:52:23 2013
(r254237)
@@ -181,8 +181,10 @@ variable logoY
\ beastie Color ``Helper Daemon'' mascot (19 rows x 34 columns)
\ beastiebw B/W ``Helper Daemon'' mascot (19 rows x 34 columns)
\ fbsdbw "FreeBSD" logo in B/W (13 rows x 21 columns)
-\ orb Color ``Orb'' mascot (15 rows x 30 columns) (default)
+\ orb Color ``Orb'' mascot (15 rows x 30 columns) (2nd default)
\ orbbw B/W ``Orb'' mascot (15 rows x 32 columns)
+\ tribute Color ``Tribute'' (must fit 19 rows x 34 columns) (default)
+\ tributebw B/W ``Tribute'' (must fit 19 rows x 34 columns)
\
\ NOTE: Setting `loader_logo' to an undefined value (such as "none") will
\ prevent beastie from being drawn.
@@ -203,9 +205,21 @@ variable logoY
s" loader_logo" getenv dup -1 = if
logoX @ logoY @
loader_color? if
- orb-logo
+ s" tribute-logo"
+ sfind if
+ execute
+ else
+ drop
+ orb-logo
+ then
else
- orbbw-logo
+ s" tributebw-logo"
+ sfind if
+ execute
+ else
+ drop
+ orbbw-logo
+ then
then
drop exit
then
@@ -230,6 +244,24 @@ variable logoY
logoX @ logoY @ orbbw-logo
2drop exit
then
+ 2dup s" tribute" compare-insensitive 0= if
+ logoX @ logoY @
+ s" tribute-logo" sfind if
+ execute
+ else
+ orb-logo
+ then
+ 2drop exit
+ then
+ 2dup s" tributebw" compare-insensitive 0= if
+ logoX @ logoY @
+ s" tributebw-logo" sfind if
+ execute
+ else
+ orbbw-logo
+ then
+ 2drop exit
+ then
2drop
;
_______________________________________________
svn-src-head@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/svn-src-head
To unsubscribe, send any mail to "svn-src-head-unsubscr...@freebsd.org"
