d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Apply Aleksander Fafula's crayons to the beastie. Add the this line to

Browse Source 
/boot/loader.conf to see the pretty colors =-)

loader_color="YES"
This commit is contained in:
scottl 2003-09-13 18:35:01 +00:00
parent 2d2b8d3823
commit 95f4f93f32
1 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
sys/boot/forth/beastie.4th
View File

@ -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