\ Test nesting of objects.
MRESET GET.ARRAY:
ANEW TASK-TESTNEST

METHOD GET.ARRAY:
METHOD GET.INT:
METHOD SETUP:
METHOD SHOW:
METHOD TEST:


:CLASS BIGOBJ <SUPER OBJECT
    IV.LONG   ALONG1
    OB.ARRAY  BIG-ARRAY-1   ( Instance Object )
    IV.SHORT  ASHORT1
    OB.INT    AN-INT   ( Instance Object )
    IV.LONG   ALONG2

:M INIT:
    init: super
    235 iv=> along1
    ." Init a BIGOBJ" cr
;M


:M GET.ARRAY: ( -- array )
    big-array-1
;M

:M GET.INT:
    an-int
;M

:M SETUP:   ( N -- )
    new: big-array-1
    77 fill: big-array-1
;M

:M SHOW: ( -- )
\ Print data but not name.
    limit: big-array-1 0
    DO  i . i at: big-array-1 . cr LOOP
    cr
;M

:M PRINT:
    ." A Big Object with embedded object."cr
    ." Long1 = " along1 . cr
\    name: big-array-1
    print: big-array-1
    ." Short1 = " ashort1 . cr
;M

:M FREE: ( -- )
    free: big-array-1
;M

:M TEST: ( -- )
    cr ." Test using SELF" cr
    8 setup: self
    show: self
    free: self
\
    123456 put: an-int
    cr ." AN-INT = " get: an-int . cr
;M
    
;CLASS


:CLASS BIGGEROBJ <SUPER OBJECT
    IV.LONG  ALONG3
    BIGOBJ   BIG-OBJ-1
    IV.LONG  ALONG4

:M INIT:
    init: super
    ." Init a BIGGEROBJ!" cr
;M

:M TEST: ( -- )
    cr ." Test double nesting" cr
    8 setup: big-obj-1
    show: big-obj-1
    free: big-obj-1
\
    get.int: big-obj-1
    123456 over put: []
    cr ." AN-INT = " get: [] . cr
;M

;CLASS

BIGOBJ ABIG1
BIGGEROBJ ABIGGER1

: TEST1 ( -- )
    os.sp!
    test: abig1
;

: TEST2  ( -- , doubly nested )
    os.sp!
    test: abigger1
;

: TEST3 ( -- , test instantiation )
    os.sp!
    instantiate biggerobj
    dup test: []
    deinstantiate
;