stand/lua/screen.lua

   1 --
   2 -- Copyright (c) 2015 Pedro Souza <pedrosouza@freebsd.org>
   3 -- All rights reserved.
   4 --
   5 -- Redistribution and use in source and binary forms, with or without
   6 -- modification, are permitted provided that the following conditions
   7 -- are met:
   8 -- 1. Redistributions of source code must retain the above copyright
   9 --    notice, this list of conditions and the following disclaimer.
  10 -- 2. Redistributions in binary form must reproduce the above copyright
  11 --    notice, this list of conditions and the following disclaimer in the
  12 --    documentation and/or other materials provided with the distribution.
  13 --
  14 -- THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  15 -- ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16 -- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17 -- ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  18 -- FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19 -- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20 -- OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21 -- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22 -- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23 -- OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  24 -- SUCH DAMAGE.
  25 --
  26 -- $FreeBSD$
  27 --
  28
  29 local color = require("color")
  30 local core = require("core")
  31
  32 local screen = {}
  33
  34 -- XXX TODO: This should be fixed in the interpreter to not print decimals
  35 local intstring = function(num)
  36         local str = tostring(num)
  37         local decimal = str:find("%.")
  38
  39         if decimal then
  40                 return str:sub(1, decimal - 1)
  41         end
  42         return str
  43 end
  44
  45 -- Module exports
  46 function screen.clear()
  47         if core.isSerialBoot() then
  48                 return
  49         end
  50         loader.printc("\027[H\027[J")
  51 end
  52
  53 function screen.setcursor(x, y)
  54         if core.isSerialBoot() then
  55                 return
  56         end
  57
  58         loader.printc("\027[" .. intstring(y) .. ";" .. intstring(x) .. "H")
  59 end
  60
  61 function screen.setforeground(c)
  62         if color.disabled then
  63                 return c
  64         end
  65         loader.printc("\027[3" .. c .. "m")
  66 end
  67
  68 function screen.setbackground(c)
  69         if color.disabled then
  70                 return c
  71         end
  72         loader.printc("\027[4" .. c .. "m")
  73 end
  74
  75 function screen.defcolor()
  76         loader.printc(color.default())
  77 end
  78
  79 function screen.defcursor()
  80         if core.isSerialBoot() then
  81                 return
  82         end
  83         loader.printc("\027[25;0H")
  84 end
  85
  86 return screen