beastie.4th (262703) | beastie.4th (271135) |
---|---|
1\ Copyright (c) 2003 Scott Long <scottl@freebsd.org> 2\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com> 3\ Copyright (c) 2006-2013 Devin Teske <dteske@FreeBSD.org> 4\ All rights reserved. 5\ 6\ Redistribution and use in source and binary forms, with or without 7\ modification, are permitted provided that the following conditions 8\ are met: --- 10 unchanged lines hidden (view full) --- 19\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25\ SUCH DAMAGE. 26\ | 1\ Copyright (c) 2003 Scott Long <scottl@freebsd.org> 2\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com> 3\ Copyright (c) 2006-2013 Devin Teske <dteske@FreeBSD.org> 4\ All rights reserved. 5\ 6\ Redistribution and use in source and binary forms, with or without 7\ modification, are permitted provided that the following conditions 8\ are met: --- 10 unchanged lines hidden (view full) --- 19\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25\ SUCH DAMAGE. 26\ |
27\ $FreeBSD: stable/10/sys/boot/forth/beastie.4th 262703 2014-03-03 07:28:56Z dteske $ | 27\ $FreeBSD: stable/10/sys/boot/forth/beastie.4th 271135 2014-09-04 21:01:10Z emaste $ |
28 29marker task-beastie.4th 30 31only forth definitions also support-functions 32 33variable logoX 34variable logoY 35 --- 201 unchanged lines hidden (view full) --- 237 2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+ 238 2dup at-xy 34 spaces 2drop 239 240 \ Put the cursor back at the bottom 241 0 25 at-xy 242; 243 244: beastie-start ( -- ) \ starts the menu | 28 29marker task-beastie.4th 30 31only forth definitions also support-functions 32 33variable logoX 34variable logoY 35 --- 201 unchanged lines hidden (view full) --- 237 2dup at-xy 34 spaces 1+ 2dup at-xy 34 spaces 1+ 238 2dup at-xy 34 spaces 2drop 239 240 \ Put the cursor back at the bottom 241 0 25 at-xy 242; 243 244: beastie-start ( -- ) \ starts the menu |
245 s" console" getenv dup -1 <> if 246 s" efi" 2swap contains? if 247 s" set beastie_disable=YES" evaluate 248 then 249 else drop then |
|
245 s" beastie_disable" getenv 246 dup -1 <> if 247 s" YES" compare-insensitive 0= if 248 any_conf_read? if 249 load_kernel 250 load_modules 251 then 252 exit \ to autoboot (default) --- 18 unchanged lines hidden --- | 250 s" beastie_disable" getenv 251 dup -1 <> if 252 s" YES" compare-insensitive 0= if 253 any_conf_read? if 254 load_kernel 255 load_modules 256 then 257 exit \ to autoboot (default) --- 18 unchanged lines hidden --- |