diff options
author | scottl <scottl@FreeBSD.org> | 2003-09-13 18:35:01 +0000 |
---|---|---|
committer | scottl <scottl@FreeBSD.org> | 2003-09-13 18:35:01 +0000 |
commit | 95f4f93f32bdc0c824678d4a1ef3e33981cb6b3e (patch) | |
tree | 1a71b385ab59f7e1e028c235dcdf23c1992a5d96 /sys/boot/forth | |
parent | 2d2b8d38238602b1febd08c5e2a5f31a770b79f1 (diff) | |
download | FreeBSD-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.4th | 39 |
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;31m, ," 1+ +2dup at-xy ." /( )`" 1+ +2dup at-xy ." \ \___ / |" 1+ +2dup at-xy ." /- [37m_[31m `-/ '" 1+ +2dup at-xy ." ([37m/\/ \[31m \ /\" 1+ +2dup at-xy ." [37m/ / |[31m ` \" 1+ +2dup at-xy ." [34mO O [37m) [31m/ |" 1+ +2dup at-xy ." [37m`-^--'[31m`< '" 1+ +2dup at-xy ." (_.) _ ) /" 1+ +2dup at-xy ." `.___/` / " 1+ +2dup at-xy ." `-----' /" 1+ +2dup at-xy ." [33m<----.[31m __ / __ \" 1+ +2dup at-xy ." [33m<----|====[31mO)))[33m==[31m) \) /[33m====|" 1+ +2dup at-xy ." [33m<----'[31m `--' `.__,' \" 1+ +2dup at-xy ." | |" 1+ +2dup at-xy ." \ / /\" 1+ +2dup at-xy ." [36m______[31m( (_ / \______/" 1+ +2dup at-xy ." [36m,' ,-----' |" 1+ +at-xy ." `--{__________) [0m" 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 |