Michael Dirks
880e754254
- Blitz functions are callable using __stdcall, use it instead of using tailored asm. - DLLs that rely on this DLL no longer have to load the DLL to call Blitz functions, just include BlitzPointer.h and use the typedefs BP_BlitzFunction#_t. - Removed Hybrid support until Hybrid is open-source.
128 lines
4.0 KiB
BlitzBasic
128 lines
4.0 KiB
BlitzBasic
; BlitzPointer - Adding Pointers to Blitz.
|
|
; Copyright (C) 2015 Project Kube (Michael Fabian Dirks)
|
|
;
|
|
; This program is free software: you can redistribute it and/or modify
|
|
; it under the terms of the GNU Lesser General Public License as
|
|
; published by the Free Software Foundation, either version 3 of the
|
|
; License, or (at your option) any later version.
|
|
;
|
|
; This program is distributed in the hope that it will be useful,
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
; GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU Lesser General Public License
|
|
; along with this program. If not, see <http:;www.gnu.org/licenses/>.
|
|
|
|
; ---------------------------------------------------------------------------- ;
|
|
; Example 4 - Calling Functions (Advanced)
|
|
; ---------------------------------------------------------------------------- ;
|
|
; License: Creative Commons Attribution 2.0
|
|
; Author: Michael Fabian Dirks<michael.dirks@realitybends.de>
|
|
; Prerequisite: Example 3
|
|
|
|
; Returned values aren't everything, don't you agree? That is why BlitzPointer
|
|
; offers you the ability to pass parameters too, even allowing you to pass Type
|
|
; Objects without having to use Handle() and Object() (both slow functions).
|
|
; At the time of writing this example, BlitzPointer supports four parameters at
|
|
; most - plenty of space to pass type objects and variables on.
|
|
|
|
; There are three parameter types in Blitz that we can use:
|
|
; ---------------------------------------------------------------------------- ;
|
|
; Type Id Description Calling Function
|
|
; ---------------------------------------------------------------------------- ;
|
|
; int I 32-bit Integer BP_CallFunction*I
|
|
; float F Floating Point BP_CallFunction*F
|
|
; pointer P Memory Pointer BP_CallFunction*P
|
|
|
|
; Watch out:
|
|
; Calling a function that has parameters without giving enough parameters will
|
|
; fill those parameters with values that have been on the stack (and possibly
|
|
; corrupt the stack too - you never know).
|
|
|
|
Include "Example_Shared.bb"
|
|
ExampleInit()
|
|
|
|
; Example Function: Divide p1 by 60 and return the result.
|
|
Global fpCurInGameSecond = 0
|
|
Function CurInGameSecond%(p1%=0)
|
|
If fpCurInGameSecond = 0 Then
|
|
fpCurInGameSecond = BP_GetFunctionPointer()
|
|
Return
|
|
EndIf
|
|
Text 5, 15, "IIFunction"
|
|
Text 125, 15, p1
|
|
|
|
Return (p1 Shr 2) / 15 ; Division by 60
|
|
End Function
|
|
CurInGameSecond()
|
|
|
|
; Example Function: Multiply p1 by p2 and return the result.
|
|
Global fpCurInGameSecondEx = 0
|
|
Function CurInGameSecondEx#(p1%=0, p2#=0)
|
|
If fpCurInGameSecondEx = 0 Then
|
|
fpCurInGameSecondEx = BP_GetFunctionPointer()
|
|
Return
|
|
EndIf
|
|
|
|
Text 5, 30, "FIFFunction"
|
|
Text 125, 30, p1
|
|
Text 245, 30, p2
|
|
|
|
Return p1 * p2
|
|
End Function
|
|
CurInGameSecondEx()
|
|
|
|
; Example Function: Convert between Float and Int easily
|
|
; For this to work we must take and return a float.
|
|
Global fpConvertIntFloat
|
|
Function ConvertIntFloat#(p1#=0)
|
|
If fpConvertIntFloat = 0 Then
|
|
fpConvertIntFloat = BP_GetFunctionPointer()
|
|
Print Hex(fpConvertIntFloat)
|
|
WaitKey()
|
|
Return
|
|
EndIf
|
|
|
|
Return p1
|
|
End Function
|
|
ConvertIntFloat()
|
|
|
|
; Pointer-parameters are a bit trickier and require memory access, see UserLibs.txt.
|
|
|
|
Local Frame% = 0
|
|
While Not KeyHit(1)
|
|
ExampleUpdate()
|
|
|
|
Text 0, 0, "Functions"
|
|
Text 120, 0, "Parameter 1"
|
|
Text 240, 0, "Parameter 2"
|
|
Text 360, 0, "Parameter 3"
|
|
Text 480, 0, "Parameter 4"
|
|
Text 600, 0, "Result"
|
|
|
|
Text 605, 15, BP_CallFunctionII(fpCurInGameSecond, Frame)
|
|
Text 605, 30, BP_CallFunctionFIF(fpCurInGameSecondEx, Frame, 0.016666666)
|
|
|
|
Local TempFlt# = Frame / 60.0
|
|
Local TempInt% = BP_CallFunctionIF(fpConvertIntFloat, TempFlt)
|
|
Text 5, 60, "Float -> Int"
|
|
Text 125, 60, TempFlt
|
|
Text 605, 60, Hex(TempInt)
|
|
|
|
Text 5, 75, "Int -> Float"
|
|
Text 125, 75, Hex(TempInt)
|
|
Text 605, 75, BP_CallFunctionFI(fpConvertIntFloat, TempInt)
|
|
|
|
ExampleLoop()
|
|
|
|
; Allow us to pause execution
|
|
While KeyDown(57)
|
|
WaitTimer(Example_Timer)
|
|
Wend
|
|
|
|
Frame=Frame+1
|
|
Wend
|
|
End
|
|
;~IDEal Editor Parameters:
|
|
;~C#Blitz3D |