(load "5-3.scm")
(load "5-4-4.scm")

(run "
  class o1 extends object
    field x
    method initialize(x0) set x = x0
    method get_x() x
  let o = new o1(5) in
%    1
    send o get_x()
")

(run "
  class c1 extends object
    method initialize() 1
    method m1 (b) add1(b)
  class c2 extends c1
    field x
    method initialize() set x = 1
    method m1 (a) +(x, a)
    method m2 (c) send self m1 (+(c, 4))
    method m3 (b) super m1 (b)
  let o2 = new c2() in
%    1
    send o2 m2 (3)
")

(run "
  class c1 extends object
    field x
    field y
    method initialize () begin set x = 11; set y = 12 end
    method m1 () +(x,y)
    method m2 () send self m3()
  class c2 extends c1
    field y
    method initialize () begin super initialize(); set y = 22 end
    method m1 (u,v) +(+(u,x),+(v,y))
    method m3 () 10
  class c3 extends c2
    field x
    field z
    method initialize() begin super initialize(); set x = 31; set z = 32 end
    method m3 () +(x,+(y,z))
  let o3 = new c3() in
%    1
    send o3 m1(7,8)
")