diff options
author | 2017-04-25 03:31:15 -0700 | |
---|---|---|
committer | 2017-05-22 06:48:08 +0000 | |
commit | bb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch) | |
tree | ca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/SLOF/slof/fs/display.fs | |
parent | a14b48d18a9ed03ec191cf16b162206998a895ce (diff) |
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to
kvmfornfv repo and make use of the updated latest qemu for the
execution of all testcase
Change-Id: I1280af507a857675c7f81d30c95255635667bdd7
Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/roms/SLOF/slof/fs/display.fs')
-rw-r--r-- | qemu/roms/SLOF/slof/fs/display.fs | 123 |
1 files changed, 0 insertions, 123 deletions
diff --git a/qemu/roms/SLOF/slof/fs/display.fs b/qemu/roms/SLOF/slof/fs/display.fs deleted file mode 100644 index 5bb8797a2..000000000 --- a/qemu/roms/SLOF/slof/fs/display.fs +++ /dev/null @@ -1,123 +0,0 @@ -\ ***************************************************************************** -\ * Copyright (c) 2004, 2008 IBM Corporation -\ * All rights reserved. -\ * This program and the accompanying materials -\ * are made available under the terms of the BSD License -\ * which accompanies this distribution, and is available at -\ * http://www.opensource.org/licenses/bsd-license.php -\ * -\ * Contributors: -\ * IBM Corporation - initial implementation -\ ****************************************************************************/ - -0 VALUE char-height -0 VALUE char-width -0 VALUE fontbytes - -CREATE display-emit-buffer 20 allot - -\ \\\\\\\\\\\\\\ Global Data - -\ \\\\\\\\\\\\\\ Structure/Implementation Dependent Methods - -\ \\\\\\\\\\\\\\ Implementation Independent Methods (Depend on Previous) -\ * -\ * -defer dis-old-emit -' emit behavior to dis-old-emit - -: display-write terminal-write ; -: display-emit dup dis-old-emit display-emit-buffer tuck c! 1 terminal-write drop ; - -\ \\\\\\\\\\\\\\ Exported Interface: -\ * -\ Generic device methods: -\ * - - -\ \\\\\\\\\\\\\\ Exported Interface: -\ * -\ IEEE 1275 : display device driver initialization -\ * -: is-install ( 'open -- ) - s" defer vendor-open to vendor-open" eval - s" : open deadbeef vendor-open dup deadbeef = IF drop true ELSE nip THEN ;" eval - s" defer write ' display-write to write" eval - s" : draw-logo ['] draw-logo CATCH IF 2drop 2drop THEN ;" eval - s" : reset-screen ['] reset-screen CATCH drop ;" eval -; - -: is-remove ( 'close -- ) - s" defer close to close" eval -; - -: is-selftest ( 'selftest -- ) - s" defer selftest to selftest" eval -; - - -STRUCT - cell FIELD font>addr - cell FIELD font>width - cell FIELD font>height - cell FIELD font>advance - cell FIELD font>min-char - cell FIELD font>#glyphs -CONSTANT /font - -CREATE default-font-ctrblk /font allot default-font-ctrblk - dup font>addr 0 swap ! - dup font>width 8 swap ! - dup font>height -10 swap ! - dup font>advance 1 swap ! - dup font>min-char 20 swap ! - font>#glyphs 7f swap ! - -: display-default-font ( str len -- ) - romfs-lookup dup 0= IF drop EXIT THEN - 600 <> IF ." Only support 60x8x16 fonts ! " drop EXIT THEN - default-font-ctrblk font>addr ! -; - -s" default-font.bin" display-default-font - -\ \\\\\\\\\\\\\\ Implementation Independent Methods (Depend on Previous) -\ * -\ * - - -\ \\\\\\\\\\\\\\ Exported Interface: -\ * -\ Generic device methods: -\ * -: .scan-lines ( height -- scanlines ) dup 0>= IF 1- ELSE negate THEN ; - - -\ \\\\\\\\\\\\\\ Exported Interface: -\ * -\ * - -: set-font ( addr width height advance min-char #glyphs -- ) - default-font-ctrblk /font + /font 0 - DO - 1 cells - dup >r ! r> 1 cells - +LOOP drop - default-font-ctrblk dup font>height @ abs to char-height - dup font>width @ to char-width font>advance @ to fontbytes -; - -: >font ( char -- addr ) - dup default-font-ctrblk dup >r font>min-char @ dup r@ font>#glyphs + within - IF - r@ font>min-char @ - - r@ font>advance @ * r@ font>height @ .scan-lines * - r> font>addr @ + - ELSE - drop r> font>addr @ - THEN -; - -: default-font ( -- addr width height advance min-char #glyphs ) - default-font-ctrblk /font 0 DO dup cell+ >r @ r> 1 cells +LOOP drop -; - |