Reflecting multiple constructors

[EthernautParticipant]

Is there a way to make reflection work with classes that have multiple overloaded constructors?
I can make sure my own classes work fine, but I’m running into trouble with Mojo’s classes.

Monkey

#Import "<std>" #Import "<mojo3d>" #Import "<reflection>" Using std.. Using mojo3d.. Function Main() ' Local info := TypeInfo.GetType( "mojo3d.graphics.PbrMaterial" ) '<-- This has multiple constructors, doesn't work Local info := TypeInfo.GetType( "mojo.input.MouseDevice" ) '<-- This has a single constructor with no arguments, works. 'Lists declarations For Local d := Eachin info.GetDecls() Print d.Name Next 'Try to invoke 'New()' Local v:Variant Local constructor := info.GetDecl( "New" ) v = constructor.Invoke( Null, Null ) 'Checks variant's type Print "--------------------------------------------------" Print v.DynamicType Print "--------------------------------------------------" End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

#Import "<std>" #Import "<mojo3d>" #Import "<reflection>"   Using std.. Using mojo3d..   Function Main() ' Local info := TypeInfo.GetType( "mojo3d.graphics.PbrMaterial" ) '<-- This has multiple constructors, doesn't work Local info := TypeInfo.GetType( "mojo.input.MouseDevice" ) '<-- This has a single constructor with no arguments, works. 'Lists declarations For Local d := Eachin info.GetDecls() Print d.Name Next 'Try to invoke 'New()' Local v:Variant Local constructor := info.GetDecl( "New" ) v = constructor.Invoke( Null, Null ) 'Checks variant's type Print "--------------------------------------------------" Print v.DynamicType Print "--------------------------------------------------" End

[Mark SiblyKeymaster]

You need to use the version of GetDecl with the extra ‘type’ parameter – GetDecl with just the name param returns null if there are multiple decls with the same name.

Also, for ctors the function type you pass to GetDecl should have a Void return type. Something like this…

Monkey

#Import "<reflection>" Class C Method New( x:Int ) Print "x="+x End Method New( n:String,x:Int ) Print "n="+n+", x="+x End Method Test:String( x:Int,y:Float ) Return "" End End Function Main() Local info:=TypeInfo.GetType( "default.C" ) 'Lists declarations For Local d := Eachin info.GetDecls() Print d.Name+":"+d.Type Next 'Try to invoke 'New()' Local v:Variant Local ctor:=info.GetDecl( "New",Typeof<Void(String,Int)> ) v = ctor.Invoke( Null,New Variant[]( "Yeah!",10 ) ) 'Checks variant's type Print "--------------------------------------------------" Print v.DynamicType Print "--------------------------------------------------" End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

#Import "<reflection>"   Class C Method New( x:Int ) Print "x="+x End Method New( n:String,x:Int ) Print "n="+n+", x="+x End Method Test:String( x:Int,y:Float ) Return "" End End Function Main()   Local info:=TypeInfo.GetType( "default.C" ) 'Lists declarations For Local d := Eachin info.GetDecls() Print d.Name+":"+d.Type Next 'Try to invoke 'New()' Local v:Variant Local ctor:=info.GetDecl( "New",Typeof<Void(String,Int)> ) v = ctor.Invoke( Null,New Variant[]( "Yeah!",10 ) ) 'Checks variant's type Print "--------------------------------------------------" Print v.DynamicType Print "--------------------------------------------------" End

[EthernautParticipant]

Thanks!

[Author]

Posts