28 lines
568 B
Plaintext
28 lines
568 B
Plaintext
OBJECT a_class
|
|
varA, varP
|
|
ENDOBJECT
|
|
|
|
-> this could be used like a constructor
|
|
PROC init() OF a_class
|
|
self.varP := 10
|
|
self.varA := 2
|
|
ENDPROC
|
|
|
|
-> the special proc end() is for destructor
|
|
PROC end() OF a_class
|
|
-> nothing to do here...
|
|
ENDPROC
|
|
|
|
-> a not so useful getter
|
|
PROC getP() OF a_class IS self.varP
|
|
|
|
PROC main()
|
|
DEF obj : PTR TO a_class
|
|
NEW obj.init()
|
|
WriteF('\d\n', obj.varA) -> this can be done, while
|
|
-> varP can't be accessed directly
|
|
WriteF('\d\n', obj.varP) -> or
|
|
WriteF('\d\n', obj.getP())
|
|
END obj
|
|
ENDPROC
|