d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
f5f7c05209
freebsd-dev/sys/boot/forth/beastie.4th
Devin Teske 46aecc551b Add an echo to say we're "Booting..." when the overloaded "boot" Ficl word is 
executed to better differentiate between loader-specific errors and kernel-
specific errors (if ever any of either).

This type of functionality hasn't been required before the introduction of the
advanced menu system (r222417). Adding this functionality will help different-
iate errors at the loader-level such as a BTX halt caused by heap exhaustion
and errors that may be involved with executing the kernel (wrong architecture
for example). A user can learn that messages before "Booting..." are related to
the loader(8) environment and it's Forth-ilk, while those after are not
related to loader(8) -- the point that loader(8) has ``left the building''.

This patch also includes a man-page update to color.4th(8) as the color logic
moves to a lower-level (from being included by beastie.4th to being included
by loader.4th).

After noticing a delay between execution of the overloaded "boot" FICL word and
the display of text on-screen, gcooper confirmed that the introduction of a
builtin memory test (disabled by adding hw.memtest.tests="0" to loader.conf(5))
was the cause of the delay.

This patch adds an echo to produce "Booting..." when the overloaded "boot" word
is executed (this includes from the interactive command-prompt on all arches,
from the menu system on arches that run the beastie menu, and even those arches
that run the menu but disable it by setting beastie_disable="YES" in
loader.conf(5)). When loader_color="YES" in loader.conf(5), the same message is
produced but in white text on a blue background (only the letters produced have
this background -- opposed to perhaps the entire line).
2012-10-08 23:02:35 +00:00

275 lines
9.3 KiB
Forth
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

\ Copyright (c) 2003 Scott Long <scottl@freebsd.org>
\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
\ Copyright (c) 2006-2011 Devin Teske <dteske@FreeBSD.org>
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD$
marker task-beastie.4th
include /boot/delay.4th
variable logoX
variable logoY
\ Initialize logo placement to defaults
46 logoX !
4 logoY !
: beastie-logo ( x y -- ) \ color BSD mascot (19 rows x 34 columns)
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 ." `--{__________)"
\ Put the cursor back at the bottom
0 25 at-xy
;
: beastiebw-logo ( x y -- ) \ B/W BSD mascot (19 rows x 34 columns)
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 ." `--{__________)"
\ Put the cursor back at the bottom
0 25 at-xy
;
: fbsdbw-logo ( x y -- ) \ "FreeBSD" logo in B/W (13 rows x 21 columns)
\ We used to use the beastie himself as our default... until the
\ eventual complaint derided his reign of the advanced boot-menu.
\
\ This is the replacement of beastie to satiate the haters of our
\ beloved helper-daemon (ready to track down and spear bugs with
\ his trident and sporty sneakers; see above).
\
\ Since we merely just changed the default and not the default-
\ location, below is an adjustment to the passed-in coordinates,
\ forever influenced by the proper location of beastie himself
\ kept as the default loader_logo_x/loader_logo_y values.
\
5 + swap 6 + swap
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 ." ____ _____ _____" 1+
2dup at-xy ." | _ \ / ____| __ \" 1+
2dup at-xy ." | |_) | (___ | | | |" 1+
2dup at-xy ." | _ < \___ \| | | |" 1+
2dup at-xy ." | |_) |____) | |__| |" 1+
2dup at-xy ." | | | |" 1+
at-xy ." |____/|_____/|_____/"
\ Put the cursor back at the bottom
0 25 at-xy
;
: orb-logo ( x y -- ) \ color Orb mascot (15 rows x 30 columns)
3 + \ beastie adjustment (see `fbsdbw-logo' comments above)
2dup at-xy ." ``` `" 1+
2dup at-xy ." s` `.....---.......--.``` -/" 1+
2dup at-xy ." +o .--` /y:` +." 1+
2dup at-xy ." yo`:. :o `+-" 1+
2dup at-xy ." y/ -/` -o/" 1+
2dup at-xy ." .- ::/sy+:." 1+
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 ." `:` `:`" 1+
2dup at-xy ." .-- `--." 1+
at-xy ." .---.....----."
\ Put the cursor back at the bottom
0 25 at-xy
;
: orbbw-logo ( x y -- ) \ B/W Orb mascot (15 rows x 32 columns)
3 + \ beastie adjustment (see `fbsdbw-logo' comments above)
2dup at-xy ." ``` `" 1+
2dup at-xy ." s` `.....---.......--.``` -/" 1+
2dup at-xy ." +o .--` /y:` +." 1+
2dup at-xy ." yo`:. :o `+-" 1+
2dup at-xy ." y/ -/` -o/" 1+
2dup at-xy ." .- ::/sy+:." 1+
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 ." `:` `:`" 1+
2dup at-xy ." .-- `--." 1+
at-xy ." .---.....----."
\ Put the cursor back at the bottom
0 25 at-xy
;
\ This function draws any number of beastie logos at (loader_logo_x,
\ loader_logo_y) if defined, else (46,4) (to the right of the menu). To choose
\ your beastie, set the variable `loader_logo' to the respective logo name.
\
\ Currently available:
\
\ NAME DESCRIPTION
\ 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)
\ orbbw B/W ``Orb'' mascot (15 rows x 32 columns) (default)
\
\ NOTE: Setting `loader_logo' to an undefined value (such as "none") will
\ prevent beastie from being drawn.
\
: draw-beastie ( -- ) \ at (loader_logo_x,loader_logo_y), else (46,4)
s" loader_logo_x" getenv dup -1 <> if
?number 1 = if logoX ! then
else
drop
then
s" loader_logo_y" getenv dup -1 <> if
?number 1 = if logoY ! then
else
drop
then
s" loader_logo" getenv dup -1 = if
logoX @ logoY @
loader_color? if
orb-logo
else
orbbw-logo
then
drop exit
then
2dup s" beastie" compare-insensitive 0= if
logoX @ logoY @ beastie-logo
2drop exit
then
2dup s" beastiebw" compare-insensitive 0= if
logoX @ logoY @ beastiebw-logo
2drop exit
then
2dup s" fbsdbw" compare-insensitive 0= if
logoX @ logoY @ fbsdbw-logo
2drop exit
then
2dup s" orb" compare-insensitive 0= if
logoX @ logoY @ orb-logo
2drop exit
then
2dup s" orbbw" compare-insensitive 0= if
logoX @ logoY @ orbbw-logo
2drop exit
then
2drop
;
: clear-beastie ( -- ) \ clears beastie from the screen
logoX @ logoY @
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+
2dup at-xy 34 spaces 2drop
\ Put the cursor back at the bottom
0 25 at-xy
;
: beastie-start ( -- ) \ starts the menu
s" beastie_disable" getenv
dup -1 <> if
s" YES" compare-insensitive 0= if
exit
then
else
drop
then
s" loader_delay" getenv
-1 = if
s" include /boot/menu.rc" evaluate
else
drop
." Loading Menu (Ctrl-C to Abort)" cr
s" set delay_command='include /boot/menu.rc'" evaluate
s" set delay_showdots" evaluate
delay_execute
then
;
Reference in New Issue View Git Blame Copy Permalink