1ca987d46SWarner Losh\ Copyright (c) 2011-2013 Devin Teske <dteske@FreeBSD.org> 2ca987d46SWarner Losh\ All rights reserved. 3ca987d46SWarner Losh\ 4ca987d46SWarner Losh\ Redistribution and use in source and binary forms, with or without 5ca987d46SWarner Losh\ modification, are permitted provided that the following conditions 6ca987d46SWarner Losh\ are met: 7ca987d46SWarner Losh\ 1. Redistributions of source code must retain the above copyright 8ca987d46SWarner Losh\ notice, this list of conditions and the following disclaimer. 9ca987d46SWarner Losh\ 2. Redistributions in binary form must reproduce the above copyright 10ca987d46SWarner Losh\ notice, this list of conditions and the following disclaimer in the 11ca987d46SWarner Losh\ documentation and/or other materials provided with the distribution. 12ca987d46SWarner Losh\ 13ca987d46SWarner Losh\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 14ca987d46SWarner Losh\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 15ca987d46SWarner Losh\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 16ca987d46SWarner Losh\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 17ca987d46SWarner Losh\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 18ca987d46SWarner Losh\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 19ca987d46SWarner Losh\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 20ca987d46SWarner Losh\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 21ca987d46SWarner Losh\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 22ca987d46SWarner Losh\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 23ca987d46SWarner Losh\ SUCH DAMAGE. 24ca987d46SWarner Losh\ 25ca987d46SWarner Losh 26ca987d46SWarner Loshmarker task-color.4th 27ca987d46SWarner Losh 28ca987d46SWarner Losh\ This function returns FALSE if the `loader_color' environment variable is set 29bb7b569dSKyle Evans\ to NO, no, or 0. It returns TRUE if `loader_color' is set to any other value. 303630506bSToomas Soome\ If `loader_color' is unset, TRUE is returned. 31ca987d46SWarner Losh\ 32bb7b569dSKyle Evans: loader_color? ( -- t ) 33ca987d46SWarner Losh 34ca987d46SWarner Losh s" loader_color" getenv dup -1 <> if 35bb7b569dSKyle Evans \ `loader_color' is set. 36bb7b569dSKyle Evans \ Check if it is explicitly disabled. 37ca987d46SWarner Losh 2dup s" NO" compare-insensitive 0= if 38ca987d46SWarner Losh 2drop 39ca987d46SWarner Losh FALSE exit 40ca987d46SWarner Losh then 41ca987d46SWarner Losh 2dup s" 0" compare 0= if 42ca987d46SWarner Losh 2drop 43ca987d46SWarner Losh FALSE exit 44ca987d46SWarner Losh then 45ca987d46SWarner Losh drop 463630506bSToomas Soome then 473630506bSToomas Soome drop 48bb7b569dSKyle Evans \ It is enabled. 49bb7b569dSKyle Evans TRUE 50ca987d46SWarner Losh; 51