diff options
| author | Devin Teske <dteske@FreeBSD.org> | 2013-08-29 15:29:48 +0000 |
|---|---|---|
| committer | Devin Teske <dteske@FreeBSD.org> | 2013-08-29 15:29:48 +0000 |
| commit | 9219231a8295d15fddf38e164add0644864fdf05 (patch) | |
| tree | 790334fdab0e545a801978a4d064686cfdd03c7f | |
| parent | ab5450e01f3a28010cc58b200b9640527cf19cdb (diff) | |
Notes
| -rw-r--r-- | sys/boot/forth/beastie.4th | 22 | ||||
| -rw-r--r-- | sys/boot/forth/version.4th | 33 | ||||
| -rw-r--r-- | sys/boot/forth/version.4th.8 | 2 |
3 files changed, 36 insertions, 21 deletions
diff --git a/sys/boot/forth/beastie.4th b/sys/boot/forth/beastie.4th index e6ad4128a9b5..e767f65711f1 100644 --- a/sys/boot/forth/beastie.4th +++ b/sys/boot/forth/beastie.4th @@ -134,7 +134,7 @@ variable logoY \ Move the menu to the center of the screen s" set loader_menu_x=26" evaluate - s" set loader_menu_y=13" evaluate + s" set loader_menu_y=12" evaluate s" set loader_menu_timeout_x=21" evaluate s" set loader_menu_timeout_y=24" evaluate @@ -275,21 +275,9 @@ variable logoY s" loader_logo" getenv dup -1 = if logoX @ logoY @ loader_color? if - s" tribute-logo" - sfind if - execute - else - drop - orb-logo - then + orb-logo else - s" tributebw-logo" - sfind if - execute - else - drop - orbbw-logo - then + orbbw-logo then drop exit then @@ -319,7 +307,7 @@ variable logoY s" tribute-logo" sfind if execute else - orb-logo + drop orb-logo then 2drop exit then @@ -328,7 +316,7 @@ variable logoY s" tributebw-logo" sfind if execute else - orbbw-logo + drop orbbw-logo then 2drop exit then diff --git a/sys/boot/forth/version.4th b/sys/boot/forth/version.4th index 358b6b12ef84..0d458940ec8c 100644 --- a/sys/boot/forth/version.4th +++ b/sys/boot/forth/version.4th @@ -1,4 +1,4 @@ -\ Copyright (c) 2006-2011 Devin Teske <dteske@FreeBSD.org> +\ Copyright (c) 2006-2013 Devin Teske <dteske@FreeBSD.org> \ All rights reserved. \ \ Redistribution and use in source and binary forms, with or without @@ -29,6 +29,9 @@ marker task-version.4th variable versionX variable versionY +\ Default $loader_version value if not overridden or using tribute screen +: str_loader_version ( -- C-ADDR/U|-1 ) s" FreeBSD `Nakatomi Socrates' 9.2" ; + \ Initialize text placement to defaults 80 versionX ! \ NOTE: this is the ending column (text is right-justified) 24 versionY ! @@ -43,9 +46,33 @@ variable versionY ?number drop versionY ! -1 then drop - \ Exit if a version was not set + \ Default version if none was set s" loader_version" getenv dup -1 = if - drop exit + drop + \ Default version if no logo is requested + s" loader_logo" getenv dup -1 = if + drop str_loader_version + else + 2dup s" tribute" compare-insensitive 0= if + 2drop + s" tribute-logo" sfind if + drop exit \ see beastie tribute-text + else + drop str_loader_version + then + else 2dup s" tributebw" compare-insensitive 0= if + 2drop + s" tributebw-logo" sfind if + drop exit \ see beastie tribute-text + else + drop str_loader_version + then + else + 2drop str_loader_version + then then + then + then dup -1 = if + drop exit \ default version (above) is disabled then \ Right justify the text diff --git a/sys/boot/forth/version.4th.8 b/sys/boot/forth/version.4th.8 index efa6aa66b71a..fe8b61808c9a 100644 --- a/sys/boot/forth/version.4th.8 +++ b/sys/boot/forth/version.4th.8 @@ -91,7 +91,7 @@ causes the version to be printed without color .Pq default is ANSI Cyan . .El .Sh FILES -.Bl -tag -width /boot/loader.4th -compact +.Bl -tag -width /boot/version.4th -compact .It Pa /boot/loader The .Xr loader 8 . |
