5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

: Mops ( オブジェクト指向FORTH -- ) ;

108 :名無しさん@Emacs:01/12/24 13:42
tile-forth という処理系には、forthで書かれたオブジェクト指向拡張
がサンプルとして入っている。

ftp://ftp.forth.org/pub/Forth/Compilers/native/unix/tile-forth-2.1.tar.z

message position ( x y self -- )
message write ( self -- )
message read ( self -- )

Object subclass Point ( x y -- )
  long +x ( self -- addr)
  long +y ( self -- addr)
method initiate ( x y self -- )
  dup >r super initiate r> position
;
method position ( x y self -- )
  tuck +y ! +x !
;
method where ( self -- x y)
  dup +x @ swap +y @
;
method write ( self -- )
  dup super write where ." x: " swap . ." :y " .
;
subclass.end

10 10 Point instance aPoint
aPoint write cr
-10 -10 aPoint position
aPoint write cr
aPoint read
cr

こんな感じ。

97 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)