Changeset View
Changeset View
Standalone View
Standalone View
sys/boot/forth/beastie.4th
Show First 20 Lines • Show All 79 Lines • ▼ Show 20 Lines | s" logo" sfind if | ||||
logoX @ logoY @ rot execute | logoX @ logoY @ rot execute | ||||
else drop then | else drop then | ||||
then | then | ||||
; | ; | ||||
also support-functions | also support-functions | ||||
: beastie-start ( -- ) \ starts the menu | : beastie-start ( -- ) \ starts the menu | ||||
s" console" getenv dup -1 <> if | |||||
s" efi" 2swap contains? if | |||||
s" set beastie_disable=YES" evaluate | |||||
then | |||||
else drop then | |||||
s" beastie_disable" getenv dup -1 <> if | s" beastie_disable" getenv dup -1 <> if | ||||
s" YES" compare-insensitive 0= if | s" YES" compare-insensitive 0= if | ||||
any_conf_read? if | any_conf_read? if | ||||
load_xen_throw | load_xen_throw | ||||
load_kernel | load_kernel | ||||
load_modules | load_modules | ||||
then | then | ||||
exit \ to autoboot (default) | exit \ to autoboot (default) | ||||
Show All 15 Lines |