Michael Fabian Dirks
73 lines
2.2 KiB
BlitzBasic
73 lines
2.2 KiB
BlitzBasic
; ---------------------------------------------------------------------------- ;
|
|
; Example 3 - Calling Functions (Intermediate)
|
|
; ---------------------------------------------------------------------------- ;
|
|
; License: Creative Commons Attribution 2.0
|
|
; Author: Michael Fabian Dirks<michael.dirks@realitybends.de>
|
|
; Prerequisite: Example 2
|
|
|
|
; BlitzPointer offers a lot of ways to call our function pointer. Each one
|
|
; describes return type, parameter count and parameter types.
|
|
; So, what magic can we do with those?
|
|
|
|
; BlitzPointer supports three return types:
|
|
; ---------------------------------------------------------------------------- ;
|
|
; Type Id Description Calling Function
|
|
; ---------------------------------------------------------------------------- ;
|
|
; void V Nothing BlitzPointer_CallFunctionV
|
|
; int I 32-bit Integer BlitzPointer_CallFunctionI
|
|
; float F Floating Point BlitzPointer_CallFunctionF
|
|
|
|
; Now that we know what we can and can't do (without memory leaks at least),
|
|
; let's try out the return types ourselves.
|
|
|
|
Include "Example_Shared.bb"
|
|
ExampleInit()
|
|
|
|
; 'void' function
|
|
Global fpVoidFunction = 0
|
|
Function VoidFunction()
|
|
If fpVoidFunction = 0 Then
|
|
fpVoidFunction = BlitzPointer_GetFunctionPointer()
|
|
Return
|
|
EndIf
|
|
Text 0, 0, "Void Return Type"
|
|
End Function
|
|
VoidFunction()
|
|
|
|
; 'int' function
|
|
Global fpIntFunction = 0
|
|
Function IntFunction%()
|
|
If fpIntFunction = 0 Then
|
|
fpIntFunction = BlitzPointer_GetFunctionPointer()
|
|
Return
|
|
EndIf
|
|
Text 0, 15, "Int Return Type"
|
|
Return MilliSecs()
|
|
End Function
|
|
IntFunction()
|
|
|
|
; 'float' function
|
|
Global fpFloatFunction = 0
|
|
Function FloatFunction#()
|
|
If fpFloatFunction = 0 Then
|
|
fpFloatFunction = BlitzPointer_GetFunctionPointer()
|
|
Return
|
|
EndIf
|
|
Text 0, 30, "Float Return Type"
|
|
Return MilliSecs() / 1000.0
|
|
End Function
|
|
FloatFunction()
|
|
|
|
While Not KeyHit(1)
|
|
ExampleUpdate()
|
|
|
|
; Calling the function and using the return value is really easy to do now:
|
|
BlitzPointer_CallFunctionV(fpVoidFunction) ; void returns nothing.
|
|
Text 200, 15, BlitzPointer_CallFunctionI(fpIntFunction)
|
|
Text 200, 30, BlitzPointer_CallFunctionF(fpFloatFunction)
|
|
|
|
ExampleLoop()
|
|
Wend
|
|
End
|
|
;~IDEal Editor Parameters:
|
|
;~C#Blitz3D |