CONSOLE.F

\  ¡®â  á ª®­á®«ìî

WINAPI: WriteConsoleOutputCharacterA kernel32.dll

REQUIRE CursorPos@ ~micro/lib/windows/mouse.f
REQUIRE GetDesktopWindow ~micro/lib/windows/window.f
REQUIRE .R lib/include/core-ext.f

: ANIM:
\ ANIM: <name> <ᨬ¢®«ë>
\ ᮧ¤ ñâ ¬ã«ì⨪ <name>, á®áâ®ï騩 ¨§ ª ¤à®¢-ᨬ¢®«®¢ <ᨬ¢®«ë>
\ ˆá¯®«ì§ã¥âáï: SetAnim <name>
\ <name> ( -- addr u )
  CREATE
    0 PARSE
    DUP ,
    HERE
    SWAP
    DUP ALLOT
    MOVE
  DOES>
    DUP @
    SWAP CELL+
    SWAP
;

VECT ANIM ( -- addr u )
\ ⥪ã騩 ¬ã«ì⨪
VARIABLE NANIM
\ ü ⥪ã饣® ª ¤à 

: SetAnim
\ SetAnim <name> ¨­¨æ¨ «¨§¨àã¥â ¬ã«ì⨪ <name>
  ' TO ANIM
  NANIM 0!
;

: ToRange ( size n1 -- n2 )
\ ­®à¬ «¨§ã¥â  ¤à¥á æ¨î n1 ¢ áâப¥ á ¤«¨­®© size.
\ 4 3 ToRange \ 3
\ 4 4 ToRange \ 0
\ 4 5 ToRange \ 0
  DUP ROT
  < AND
;

: GetAnimSymbol ( -- á )
\ ¢ë¤ ñâ ®ç¥à¥¤­®© ᨬ¢®« ⥪ã饣® ¬ã«ì⨪ 
  ANIM SWAP
  NANIM @ + C@ >R
  NANIM @ 1+ ToRange NANIM !
  R>
;

CREATE StatusLine 80 ALLOT
\ áâப  áâ âãá 

: ClearStatusLine
\ ®ç¨áâ¨âì áâபã áâ âãá 
  StatusLine 80 BL FILL
;

: PutAnim
\ § ¯¨á âì ®ç¥à¥¤­®© ᨬ¢®« ¬ã«ì⨪  ¢ ¯¥à¢ë© ᨬ¢®« áâப¨ áâ âãá 
  GetAnimSymbol StatusLine C!
;

: PutMouseCoord
\ § ¯¨á âì ª®®à¤¨­ âë ¬ëè¨ ¢ áâபã áâ âãá 
  BASE @
    CursorPos@
    DECIMAL
    S>D <# #S #> StatusLine 2 + SWAP MOVE
    S>D <# #S #> StatusLine 6 + SWAP MOVE
  BASE !
;

: FillStatusLine
\ § ¯®«­¨âì áâபã áâ âãá 
  ClearStatusLine
  PutAnim
  PutMouseCoord
;

: ShowStatusLine
\ ®â®¡à §¨âì áâபã áâ âãá 
  FillStatusLine
    0 SP@
    0
    80
    StatusLine
    H-STDOUT
  WriteConsoleOutputCharacterA
  2DROP
;

\ ‘«¥¤ãî騥 á«®¢  ¯à¥¤­ §­ ç¥­ë ¤«ï à ¡®âë á Žª®­­ë¬  ¢¨£ â®à®¬

VARIABLE CurrentWindow
\ åí­¤« ⥪ã饣® ®ª­ 

20 VALUE Lines
\ ç¨á«® ­¥¯à¥à뢭® ¢ë¢®¤¨¬ëå áâப.
\ â®ç­¥¥, íâ® ç¨á«® CR-®¢, ¢ë¯®«­ï¥¬ëå ¡¥§ ®áâ ­®¢ª¨
VARIABLE LinesLeft
\ ç¨á«® áâப, ª®â®àë© ¥éñ ¡ã¤ã⠢뢥¤¥­ë ¡¥§ ®áâ ­®¢ª¨

: CR
\ ­®¢ë© CR, á § ¯à®á®¬ ­  ¯à®¤®«¦¥­¨¥ ¢ë¢®¤ 
  CR
  LinesLeft @ 1- DUP LinesLeft !
  0< IF
    Lines LinesLeft !
    ." -- more -- space-abort" CR KEY BL = ABORT" Aborted"
  THEN
;

: ShowWindowInfo ( hwnd -- )
\ ¯®ª § âì ¨­ä®à¬ æ¨î ®¡ ®ª­¥
  DUP ." hwnd=" 4 .R
  DUP GetWindowOwner ." ; owner=" 4 .R
  DUP WindowRect@
  ." ; coord=(" 4 .R ." ," 4 .R ." ;" 4 .R ." ," 4 .R ." )" CR
  DUP GetWindowText ."            text='" ANSI>OEM TYPE ." '" CR
      GetWindowClass ."           class='" ANSI>OEM TYPE ." '" CR
;

: cw
\ ¯®ª § âì ¨­ä®à¬ æ¨î ® ⥪ã饬 ®ª­¥
  CurrentWindow @ ShowWindowInfo CR
;

: MyOk
\ ­®¢ë© OK (¢ SPF ¢ë¯®«­ï¥âáï ¯¥à¥¤ § ¯à®á®¬ ­®¢®© áâப¨ á ª®­á®«¨)
  CR
  ." Current window: "
  cw
  Lines LinesLeft !
;

: childs
\ ¢ë¢®¤ ᯨ᪠ ¤®ç¥à­¨å ®ª®­ ⥪ã饣® ®ª­ 
  CurrentWindow @
  GetWindowChild
  DUP IF
    BEGIN
      DUP ShowWindowInfo CR
      GetWindowNext ?DUP
    0= UNTIL
  ELSE
    ." no childs"
  THEN
  CR
;

: nc ( hwnd -- )
\ § ¤ ­¨¥ ⥪ã饣® ®ª­ 
  CurrentWindow !
;

: ..
\ ¯¥à¥¬¥é¥­¨¥ ª ®ª­ã-¢« ¤¥«ìæã ⥪ã饣®
  CurrentWindow @ GetWindowOwner CurrentWindow !
;

\ default config =================================

ANIM: ANIM1  °±²Û²±°
ANIM: ANIM2 úùOù
SetAnim ANIM1
20 TO Lines