summaryrefslogtreecommitdiffstats
path: root/sys/boot/forth
diff options
context:
space:
mode:
authorscottl <scottl@FreeBSD.org>2003-09-13 18:35:01 +0000
committerscottl <scottl@FreeBSD.org>2003-09-13 18:35:01 +0000
commit95f4f93f32bdc0c824678d4a1ef3e33981cb6b3e (patch)
tree1a71b385ab59f7e1e028c235dcdf23c1992a5d96 /sys/boot/forth
parent2d2b8d38238602b1febd08c5e2a5f31a770b79f1 (diff)
downloadFreeBSD-src-95f4f93f32bdc0c824678d4a1ef3e33981cb6b3e.zip
FreeBSD-src-95f4f93f32bdc0c824678d4a1ef3e33981cb6b3e.tar.gz
Apply Aleksander Fafula's crayons to the beastie. Add the this line to
/boot/loader.conf to see the pretty colors =-) loader_color="YES"
Diffstat (limited to 'sys/boot/forth')
-rw-r--r--sys/boot/forth/beastie.4th39
1 files changed, 38 insertions, 1 deletions
diff --git a/sys/boot/forth/beastie.4th b/sys/boot/forth/beastie.4th
index 415f100..7fa2043 100644
--- a/sys/boot/forth/beastie.4th
+++ b/sys/boot/forth/beastie.4th
@@ -1,4 +1,5 @@
\ Copyright (c) 2003 Scott Long <scottl@freebsd.org>
+\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
@@ -48,7 +49,29 @@ variable rebootkey
46 constant dot
\ The BSD Daemon. He is 19 rows high and 34 columns wide
-: print-beastie ( x y -- )
+: technicolor-beastie ( x y -- )
+2dup at-xy ." , ," 1+
+2dup at-xy ." /( )`" 1+
+2dup at-xy ." \ \___ / |" 1+
+2dup at-xy ." /- _ `-/ '" 1+
+2dup at-xy ." (/\/ \ \ /\" 1+
+2dup at-xy ." / / | ` \" 1+
+2dup at-xy ." O O ) / |" 1+
+2dup at-xy ." `-^--'`< '" 1+
+2dup at-xy ." (_.) _ ) /" 1+
+2dup at-xy ." `.___/` / " 1+
+2dup at-xy ." `-----' /" 1+
+2dup at-xy ." <----. __ / __ \" 1+
+2dup at-xy ." <----|====O)))==) \) /====|" 1+
+2dup at-xy ." <----' `--' `.__,' \" 1+
+2dup at-xy ." | |" 1+
+2dup at-xy ." \ / /\" 1+
+2dup at-xy ." ______( (_ / \______/" 1+
+2dup at-xy ." ,' ,-----' |" 1+
+at-xy ." `--{__________) " 1+
+;
+
+: boring-beastie ( x y -- )
2dup at-xy ." , ," 1+
2dup at-xy ." /( )`" 1+
2dup at-xy ." \ \___ / |" 1+
@@ -70,6 +93,20 @@ variable rebootkey
at-xy ." `--{__________)"
;
+: print-beastie ( x y -- )
+ s" loader_color" getenv
+ dup -1 = if
+ drop
+ boring-beastie
+ exit
+ then
+ s" YES" compare-insensitive 0<> if
+ boring-beastie
+ exit
+ then
+ technicolor-beastie
+;
+
: acpienabled? ( -- flag )
s" acpi_load" getenv
dup -1 = if
OpenPOWER on IntegriCloud