sys/boot/forth/brand.4th

   1 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
   2 \ All rights reserved.
   3 \
   4 \ Redistribution and use in source and binary forms, with or without
   5 \ modification, are permitted provided that the following conditions
   6 \ are met:
   7 \ 1. Redistributions of source code must retain the above copyright
   8 \    notice, this list of conditions and the following disclaimer.
   9 \ 2. Redistributions in binary form must reproduce the above copyright
  10 \    notice, this list of conditions and the following disclaimer in the
  11 \    documentation and/or other materials provided with the distribution.
  12 \
  13 \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  14 \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  15 \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  16 \ ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  17 \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  18 \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  19 \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  20 \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  21 \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  23 \ SUCH DAMAGE.
  24 \
  25 \ $FreeBSD$
  26
  27 marker task-brand.4th
  28
  29 variable brandX
  30 variable brandY
  31
  32 \ Initialize brand placement to defaults
  33 2 brandX !
  34 1 brandY !
  35
  36 \ This function draws any number of company brands at (loader_brand_x,
  37 \ loader_brand_y) if defined, or (2,1) (top-left). To choose your brand, set
  38 \ the variable `loader_brand' to the respective brand name.
  39 \
  40 \ NOTE: Each is defined as a brand function in /boot/brand-${loader_brand}.4th
  41 \ NOTE: If `/boot/brand-${loader_brand}.4th' does not exist or does not define
  42 \       a `brand' function, no brand is drawn.
  43 \
  44 : draw-brand ( -- ) \ at (loader_brand_x,loader_brand_y), else (2,1)
  45
  46         s" loader_brand_x" getenv dup -1 <> if
  47                 ?number 1 = if brandX ! then
  48         else drop then
  49         s" loader_brand_y" getenv dup -1 <> if
  50                 ?number 1 = if brandY ! then
  51         else drop then
  52
  53         \ If `brand' is defined, execute it
  54         s" brand" sfind ( -- xt|0 bool ) if
  55                 brandX @ brandY @ rot execute
  56         else
  57                 \ Not defined; try-include desired brand file
  58                 drop ( xt = 0 ) \ cruft
  59                 s" loader_brand" getenv dup -1 = over 0= or if
  60                         dup 0= if 2drop else drop then \ getenv result unused
  61                         s" try-include /boot/brand-fbsd.4th"
  62                 else
  63                         2drop ( c-addr/u -- ) \ getenv result unused
  64                         s" try-include /boot/brand-${loader_brand}.4th"
  65                 then
  66                 evaluate
  67                 1 spaces
  68
  69                 \ Execute `brand' if defined now
  70                 s" brand" sfind if
  71                         brandX @ brandY @ rot execute
  72                 else drop then
  73         then
  74 ;