Passing a procedure as a param to another procedure

[pdwyer]

Using a function pointer of some sort is it possible to pass a procedure as a parameter to another procedure?
If one of these function pointers was passed, how can I call it and pass it parameters?

[NicTheQuick]

You can use CallFunctionFast() which is a very low level way to call procedures and only works good with integer arguments. Or you can use Prototypes for that.

Code: Select all

Prototype.i calc(a.i, b.i)

Procedure.i add(a.i, b.i)
 	ProcedureReturn a + b
EndProcedure

Procedure.i sub(a.i, b.i)
	ProcedureReturn a - b
EndProcedure

Procedure.i execute(*proc.calc, a.i, b.i)
	ProcedureReturn *proc(a, b)
EndProcedure

Debug execute(@add(), 1, 2)
Debug execute(@sub(), 1, 2)

[STARGÅTE]

You have to define a Prototype of your procedure which you want to pass:

Code: Select all

Prototype.f Operation(Param1.f, Param2.f) ; Definition of the passed procedure

Procedure DoIt(Func.Operation, Value1.f, Value2.f) ; Just define the procedure parameter as a prototype
	
	ProcedureReturn Func(Value1, Value2)
	
EndProcedure


;- Example

Procedure.f Add(A.f, B.f)
	ProcedureReturn A+B
EndProcedure

Procedure.f Mul(A.f, B.f)
	ProcedureReturn A*B
EndProcedure

Debug DoIt(@Add(), 3, 4)
Debug DoIt(@Mul(), 3, 4)

[pdwyer]

Thankyou !!! I'll look into this!

Very helpful