Run procedure from pointer?

[Didaktik]

how to start a procedure from another procedure pointer name on it?

example

Code: Select all

procedure Test(*callback)

    ...

    Run *callback

   ...
endprocedure

Test(@Procedure)

[Peyman]

with CallFunctionFast and CallCFunctionFast

Code: Select all

Procedure Test(a, b)
  ProcedureReturn a * b
EndProcedure


Procedure Test2(*pointer)
  ProcedureReturn CallFunctionFast(*pointer, 23, 2) ; 46
EndProcedure


Debug Test2(@Test())

[Keya]

you can also !call using inline asm, and PB's Prototype is another alternative i guess similar in nature to CallFunctionFast

Code: Select all

Prototype.i protoMyProc(var.i)

Procedure.i MyProcA(var.i)
  MessageRequester("Called", "MyProcA with parameter " + Str(var))
EndProcedure

Procedure.i MyProcB(var.i)
  MessageRequester("Called", "MyProcB with parameter " + Str(var))
EndProcedure


MyProc.protoMyProc = @MyProcA()
MyProc(3)

MyProc.protoMyProc = @MyProcB()
MyProc(5)

[skywalk]

Prototypes are preferred and faster.

[netmaestro]

Should be renamed by the team: CallFunctionFastButIPromiseToConvertToPrototypeAtMyEarliestOpportunity().

And - don't permit Autocomplete on it

[Tenaja]

Also, check out a few useful threads from this search:
http://purebasic.fr/english/search.php? ... mit=Search

Such as...
http://purebasic.fr/english/viewtopic.p ... re#p299130
http://purebasic.fr/english/viewtopic.p ... re#p221477
http://purebasic.fr/english/viewtopic.p ... re#p384710

These are just a few samples.

[ToniPB]

This should work

Code: Select all

Prototype p_callback()

Procedure myCallback()
  Debug "Hello"
EndProcedure

Procedure Test(callback.p_callback)
  callback()
EndProcedure

Test(@myCallback())