oop22.f

USER CREATING-CLASS
USER WAS-CURRENT
USER ALSO-FOR-ONE

\ ===============  Ž¯¨á ­¨¥ ª« áᮢ  =================

: ?PREVIOUS
  ALSO-FOR-ONE @ IF
    PREVIOUS
    ALSO-FOR-ONE 0!
  THEN
;

: |CLASS
  ?PREVIOUS
; IMMEDIATE

: CLASS: ( -- size )
\ ‡®§¤ ñâ ª« áá. Š« áá - á«®¢® ⨯  CREATE DOES>. ‚ ¯®«¥ ¯ à ¬¥â஢ 2 CELL- :
\ wid á«®¢ àï ¨ à §¬¥à áâàãªâãàë. Š« áá ¨¬¥¥â ¯à¨§­ ª IMMEDIATE.
  CURRENT @ WAS-CURRENT !
  WORDLIST
  CREATE IMMEDIATE
  HERE CREATING-CLASS !
  DUP ,
  0 ,
  ALSO CONTEXT ! DEFINITIONS 0
  DOES>
  ?PREVIOUS
  ALSO
  @ CONTEXT !
  1 ALSO-FOR-ONE !
;

: VREST
  PREVIOUS
  WAS-CURRENT @ CURRENT !
;

: ;CLASS ( size -- )
\ ‡ ¢¥à襭¨¥ ®¯¨á ­¨ï ª« áá 
  CREATING-CLASS @ CELL+ !
  VREST
;

: >SIZEOF
  >BODY CELL+ ;

: SIZEOF
\ Ž¯à¥¤¥«¥­¨¥ à §¬¥à  íª§¥¬¯«ïà  ¤ ­­®£® ª« áá 
  ' >SIZEOF @
;

: >WIDOF
  >BODY ;


: WIDOF
\ wid á«®¢ àï ª« áá 
  ' >WIDOF @
;

: INST
  SIZEOF CREATE HERE OVER ALLOT SWAP ERASE
;

\ ================  ‡ ¤ ­¨¥ ª« áá  ¯® 㬮«ç ­¨î  =================

: WITH
  ?PREVIOUS
  ' EXECUTE
  ALSO-FOR-ONE 0!
; IMMEDIATE

: ENDWITH
  ?PREVIOUS
  PREVIOUS
; IMMEDIATE

\ ======================   á«¥¤®¢ ­¨¥  ========================

: CHILD: ( -- size )
  ' >BODY ( parent )
  CLASS: SWAP ( size parent )
  DUP @ @
  CREATING-CLASS @ @ !
  CELL+ @ +
;