[SOLVED] Possible to pass procedure pointer as parameter?

[SkyManager]

I have a question :

Is it possible to pass the pointer of a procedure as a parameter to another function/procedure so that it can be executed?

I have tried the following code,
it returns only the procedure pointer,
not running it!
How can I run a procedure after obtaining its pointer

Code: Select all

Procedure.s test()
  ProcedureReturn "test"
EndProcedure

Procedure run(ptr) ; Assume ptr is the procedure pointer
  Debug @ptr ; <----- This return only the pointer value, not executing the pointer
EndProcedure

run(@test())

[RSBasic]

Code: Select all

Procedure.s test()
  ProcedureReturn "test"
EndProcedure

Procedure run(ptr) ; Assume ptr is the procedure pointer
  Debug PeekS(CallFunctionFast(ptr))
EndProcedure

run(@test())

[Little John]

The use of prototypes is now strongly recommended.

Code: Select all

EnableExplicit

Prototype.s ProtoTest()

Procedure.s Test1()
   ProcedureReturn "Hello from test #1"
EndProcedure

Procedure.s Test2()
   ProcedureReturn "Hello from test #2"
EndProcedure


Procedure Run(MyTest.ProtoTest)
   Debug MyTest()
EndProcedure

Run(@Test1())
Run(@Test2())

[SkyManager]

Thanks a lot