mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-28 17:04:41 +00:00
54 lines
1001 B
Nim
54 lines
1001 B
Nim
discard """
|
|
output: '''
|
|
Subobject test called
|
|
5
|
|
'''
|
|
"""
|
|
|
|
type
|
|
TClassOfTCustomObject {.pure, inheritable.} = object
|
|
base* : ptr TClassOfTCustomObject
|
|
className* : string
|
|
TClassOfTobj = object of TClassOfTCustomObject
|
|
nil
|
|
TCustomObject = ref object {.inheritable.}
|
|
class* : ptr TClassOfTCustomObject
|
|
TObj = ref object of TCustomObject
|
|
data: int
|
|
|
|
var ClassOfTObj: TClassOfTObj
|
|
|
|
proc initClassOfTObj() =
|
|
ClassOfTObj.base = nil
|
|
ClassOfTObj.className = "TObj"
|
|
|
|
initClassOfTObj()
|
|
|
|
proc initialize*(self: TObj) =
|
|
self.class = addr ClassOfTObj
|
|
# this generates wrong C code: && instead of &
|
|
|
|
proc newInstance(T: typedesc): T =
|
|
mixin initialize
|
|
new(result)
|
|
initialize(result)
|
|
|
|
var o = TObj.newInstance()
|
|
|
|
type
|
|
TestObj* = object of RootObj
|
|
t:int
|
|
SubObject* = object of TestObj
|
|
|
|
method test*(t:var TestObj) {.base.} =
|
|
echo "test called"
|
|
|
|
method test*(t:var SubObject) =
|
|
echo "Subobject test called"
|
|
t.t= 5
|
|
|
|
var a: SubObject
|
|
|
|
a.test()
|
|
echo a.t
|