Deleted Added
full compact
menu.4th (280974) menu.4th (280975)
1\ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org>
2\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
3\ Copyright (c) 2006-2015 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-2015 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: head/sys/boot/forth/menu.4th 280974 2015-04-02 01:46:17Z dteske $
27\ $FreeBSD: head/sys/boot/forth/menu.4th 280975 2015-04-02 01:48:12Z dteske $
28
29marker task-menu.4th
30
31\ Frame drawing
32include /boot/frames.4th
33
34vocabulary menu-infrastructure
35vocabulary menu-namespace

--- 354 unchanged lines hidden (view full) ---

390
391 \ Assign second to menu_caption[x][y]
392 kerncapbuf 0 s" [K]ernel: " strcat
393 2over strcat
394 kernidx @ kernmenuidx @ menu_caption[x][y]
395 setenv
396
397 \ Assign third to ansi_caption[x][y]
28
29marker task-menu.4th
30
31\ Frame drawing
32include /boot/frames.4th
33
34vocabulary menu-infrastructure
35vocabulary menu-namespace

--- 354 unchanged lines hidden (view full) ---

390
391 \ Assign second to menu_caption[x][y]
392 kerncapbuf 0 s" [K]ernel: " strcat
393 2over strcat
394 kernidx @ kernmenuidx @ menu_caption[x][y]
395 setenv
396
397 \ Assign third to ansi_caption[x][y]
398 kerncapbuf 0 s" Kernel: " strcat
398 kerncapbuf 0 s" @[1mK@[37mernel: " [char] @ escc! strcat
399 kernmenuidx @ [char] 0 = if
399 kernmenuidx @ [char] 0 = if
400 s" default/"
400 s" default/@[32m"
401 else
401 else
402 s" "
403 then strcat
402 s" @[34;1m"
403 then
404 [char] @ escc! strcat
404 2over strcat
405 2over strcat
405 s" " strcat
406 s" @[37m" [char] @ escc! strcat
406 kernidx @ kernmenuidx @ ansi_caption[x][y]
407 setenv
408
409 2drop ( c-addr/u c-addr/u2 -- c-addr/u )
410
411 kernmenuidx @ 1+ dup kernmenuidx ! [char] 8 > if
412 2drop ( c-addr/u -- ) exit
413 then

--- 903 unchanged lines hidden ---
407 kernidx @ kernmenuidx @ ansi_caption[x][y]
408 setenv
409
410 2drop ( c-addr/u c-addr/u2 -- c-addr/u )
411
412 kernmenuidx @ 1+ dup kernmenuidx ! [char] 8 > if
413 2drop ( c-addr/u -- ) exit
414 then

--- 903 unchanged lines hidden ---