IKForth.4th

REPORT-NEW-NAME OFF

: debugger s" lib/~jp/debugger.f" included ;

: load_chess s" app/~ik/chess.4th" included ;

\ : a1 >r rp@ 1 type r> drop ;

\ USER TYPE-RESULT 1 CELLS USER-ALLOC

\ : type (s c-addr len - )
\   >R >R
\   0
\   TYPE-RESULT
\   R> R> SWAP
\   STDOUT
\   WriteConsole \ ( hOut, PChar( S ), Length( S ), Result, nil );
\ ;

[DEFINED] RaiseException [IF]
: NTHROW (S exc-id -- )
  >R 0 0 0 R> RaiseException ;
[THEN]

: .RS RP@ DUP RDEPTH CELLS + SWAP
  ?DO I @ 1 CELLS - DUP HERE U< IF @ DUP CODE>NAME SWAP ." 0x" H.8 SPACE NAME>STRING TYPE CR
                                            ELSE DROP THEN 1 CELLS +LOOP ;

: .RSV RP@ DUP RDEPTH CELLS + SWAP
  ?DO I @ 1 CELLS - ." 0x" H.8 CR 1 CELLS +LOOP ;

: .RSVC RP@ DUP RDEPTH CELLS + SWAP
  ?DO I @ 1 CELLS - @ ." 0x" H.8 CR 1 CELLS +LOOP ;

: .RS-DAB RP@ DUP RDEPTH CELLS+ SWAP
   ?DO I
      DUP ." @ 0x" H.8 SPACE
      @ CELL-
      DUP DATA-AREA-BASE HERE ROT WITHIN
      IF
         @ DUP CODE>NAME SWAP ." 0x" H.8 SPACE NAME>STRING TYPE CR
      ELSE
         ." 0x" H.8 CR
      THEN
      1 CELLS
   +LOOP
;

: t.rs2 .rs-dab ;
: t.rs1 123 >r t.rs2 r> drop ;

: st1 s" 123" s" 123" compare . ;
: st2 s" 231" s" 123" compare . ;
: st3 s" 123" s" 213" compare . ;
: st4 s" " s" " compare . ;
: st5 s" " s" 1" compare . ;
: st6 s" 1" s" " compare . ;
: st st1 st2 st3 st4 st5 st6 ;

\ st

requires" lib/~ik/open-interpreter.4th"
requires" lib/~ik/peimage.4th"

CR .( Startup ) CR
STARTUP-CHAIN CHAIN.SHOW

CR .( Shutdown ) CR
SHUTDOWN-CHAIN CHAIN.SHOW