extra/terminal/windows/windows.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: accessors kernel math system terminal windows.kernel32 ;
   5
   6 IN: terminal.windows
   7
   8 M: windows (terminal-size)
   9     STD_OUTPUT_HANDLE GetStdHandle
  10     CONSOLE_SCREEN_BUFFER_INFO new
  11     [ GetConsoleScreenBufferInfo ] keep swap zero? [
  12         drop 0 0
  13     ] [
  14         srWindow>>
  15         [ [ Right>> ] [ Left>> ] bi - 1 + ]
  16         [ [ Bottom>> ] [ Top>> ] bi - 1 + ] bi
  17     ] if ;