Detecting traces of the default base object

[iseahound]

Code: Select all

try MsgBox % "Ground Level: " ObjRawGet(q, "__class")                      " Number of Objects: " q.Count()
try MsgBox % "Level -1: " ObjRawGet(q.base, "__class")                     " Number of Objects: " q.base.Count()
try MsgBox % "Level -2: " ObjRawGet(q.base.base, "__class")                " Number of Objects: " q.base.base.Count()
try MsgBox % "Level -3: " ObjRawGet(q.base.base.base, "__class")           " Number of Objects: " q.base.base.base.Count()
try MsgBox % "Level -4: " ObjRawGet(q.base.base.base.base, "__class")      " Number of Objects: " q.base.base.base.base.Count()
try MsgBox % "Level -5: " ObjRawGet(q.base.base.base.base.base, "__class") " Number of Objects: " q.base.base.base.base.base.Count()

I was confused as to why the MsgBox was showing 0 objects instead of throwing an error. It turns out that q.base.base resolves to the "" empty string. And "".base is a valid object. Therefore at every odd level in the hierarchy of bases, one will find a valid object.

[Helgef]

The default base may be accessed by using .base with any non-object value; for instance, "".base

Code: Select all

dbo := 1.base ; here it is, do what you like with it
dbo.push(1,2,3)
msgbox % isobject(dbo) "`n" dbo.count()

Cheers.

[guest3456]

Helgef's code is v2 only

[iseahound]

Too late he made a ninja edit!

Original v2:

Code: Select all

dbo := 1.base ; here it is, do what you like with it
dbo.push 1,2,3
msgbox isobject(dbo) '`n' dbo.count()

[Helgef]

Hello guest3456
I updated it, it is now untested .
Cheers