1280924Sdteske\ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org> 2280924Sdteske\ Copyright (c) 2015 Devin Teske <dteske@FreeBSD.org> 3280924Sdteske\ All rights reserved. 4280924Sdteske\ 5280924Sdteske\ Redistribution and use in source and binary forms, with or without 6280924Sdteske\ modification, are permitted provided that the following conditions 7280924Sdteske\ are met: 8280924Sdteske\ 1. Redistributions of source code must retain the above copyright 9280924Sdteske\ notice, this list of conditions and the following disclaimer. 10280924Sdteske\ 2. Redistributions in binary form must reproduce the above copyright 11280924Sdteske\ notice, this list of conditions and the following disclaimer in the 12280924Sdteske\ documentation and/or other materials provided with the distribution. 13280924Sdteske\ 14280924Sdteske\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15280924Sdteske\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16280924Sdteske\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17280924Sdteske\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18280924Sdteske\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19280924Sdteske\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20280924Sdteske\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21280924Sdteske\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22280924Sdteske\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23280924Sdteske\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24280924Sdteske\ SUCH DAMAGE. 25280924Sdteske\ 26115410Sscottl\ $FreeBSD: releng/11.0/sys/boot/forth/screen.4th 280975 2015-04-02 01:48:12Z dteske $ 27115410Sscottl 28115410Sscottlmarker task-screen.4th 29115410Sscottl 30280926Sdteske\ emit Esc-[ 31280926Sdteske: escc ( -- ) 27 emit [char] [ emit ; 32115410Sscottl 33280926Sdteske\ Home cursor ( Esc-[H ) 34280926Sdteske: ho ( -- ) escc [char] H emit ; 35115410Sscottl 36280926Sdteske\ Clear from current position to end of display ( Esc-[J ) 37280926Sdteske: cld ( -- ) escc [char] J emit ; 38115410Sscottl 39280926Sdteske\ clear screen 40280926Sdteske: clear ( -- ) ho cld ; 41115410Sscottl 42280926Sdteske\ move cursor to x rows, y cols (1-based coords) ( Esc-[%d;%dH ) 43280926Sdteske: at-xy ( x y -- ) escc .# [char] ; emit .# [char] H emit ; 44115410Sscottl 45280926Sdteske\ Set foreground color ( Esc-[3%dm ) 46280926Sdteske: fg ( x -- ) escc 3 .# .# [char] m emit ; 47115410Sscottl 48280926Sdteske\ Set background color ( Esc-[4%dm ) 49280926Sdteske: bg ( x -- ) escc 4 .# .# [char] m emit ; 50115410Sscottl 51280926Sdteske\ Mode end (clear attributes) 52280926Sdteske: me ( -- ) escc [char] m emit ; 53280934Sdteske 54280934Sdteske\ Enable bold mode ( Esc-[1m ) 55280934Sdteske: b ( -- ) escc 1 .# [char] m emit ; 56280934Sdteske 57280934Sdteske\ Disable bold mode ( Esc-[22m ) 58280934Sdteske: -b ( -- ) escc 22 .# [char] m emit ; 59280934Sdteske 60280934Sdteske\ Enable inverse foreground/background mode ( Esc-[7m ) 61280934Sdteske: inv ( -- ) escc 7 .# [char] m emit ; 62280934Sdteske 63280934Sdteske\ Disable inverse foreground/background mode ( Esc-[27m ) 64280934Sdteske: -inv ( -- ) escc 27 .# [char] m emit ; 65280975Sdteske 66280975Sdteske\ Convert all occurrences of given character (c) in string (c-addr/u) to Esc 67280975Sdteske: escc! ( c-addr/u c -- c-addr/u ) 68280975Sdteske 2 pick 2 pick 69280975Sdteske begin dup 0> while 70280975Sdteske over c@ 3 pick = if over 27 swap c! then 71280975Sdteske 1- swap 1+ swap 72280975Sdteske repeat 73280975Sdteske 2drop drop 74280975Sdteske; 75