Forth でオブジェクト指向

oop.f

\ s" oop.f" included

require /snap/gforth/15/share/gforth/0.7.9_20201105/objects.fs

object class \ "object" is the parent class
  selector hoge
  selector hoge2
  selector foo
  selector setCr
end-class myCls'
myCls' class \ "myCls'" is the parent class
  cell% field cr
  :noname
    cr ! ;
  overrides construct
  :noname ( x myCls -- x+cr )
    cr @ + ;
  overrides hoge
  :noname ( x myCls -- x cr )
    cr @ ; ( @ がスタック上の myCls も消す )
  overrides hoge2
  :noname ( x myCls -- x+1 )
    drop 1 + ;
  overrides foo
  :noname ( x myCls -- )
    cr ! ; ( ! がスタック上の myCls も消す )
  overrides setCr
end-class myCls
( 7 myCls heap-new constant myObj )
( 100 myObj hoge )
( 17 myObj setCr )


\ おまけ
: fib ( cnt -- cnt .. )
    dup 0 +do
      i 2 < if 1 else 2dup + then
    1 +loop ;