How to make and use a pointer to a function?[fixed]

[kingwolf71]

I am a sucker for pointers, especially pointers to functions and SB already uses them internally.
But how can I use them myself?

Added an example for those like me

Procedure.s ToUpper(s$)
ProcedureReturn UCase(s$)
EndProcedure

Procedure.s ToLower(s$)
ProcedureReturn LCase(s$)
EndProcedure


dim *ptr(2)
define.s s2, s1 = "Tom Sawyer"

*ptr(0) = @ToUpper()
*ptr(1) = @ToLower()


for i = 1 to 10
a = Random(1, 0)

;How do I call the function?
!v_s2 = ap_ptr.array[v_a](v_s1)
debug str(i) + ":" + s2

next

[Peter]

Take a look at the documentation: Pointers and memory access

[kingwolf71]

I did
I need a way to call the functions

Code: Select all

Declare.i   Test()


Procedure   Test()
   debug "Hello World!"
EndProcedure


define   *ptr

*ptr = @Test()

;How do I call the function?
*ptr()

[Peter]

I don't know how you could solve this natively in SpiderBasic.

Javascript solution:

Code: Select all

! p_ptr()

[kingwolf71]

that works! thank you