EnableExplicit

Global PBEx_Math

CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
  PBEx_Math = OpenLibrary(#PB_Any, "PB.Ex_Math_x86.dll")
CompilerElseIf #PB_Compiler_Processor = #PB_Processor_x64
  PBEx_Math = OpenLibrary(#PB_Any, "PB.Ex_Math_x64.dll")
CompilerEndIf

If PBEx_Math
  Prototype.d Calculate(Calculation.p-Unicode, ErrorOutput)
  Global Calculate.Calculate = GetFunction(PBEx_Math, "Calculate")
  
EndIf

Define ErrorOutput$ = Space(1024)

Debug "1 + 2 - 1 = " + Calculate("1 + 2 - 1", @ErrorOutput$)
Debug "2^32 = " + Calculate("2^32", @ErrorOutput$)
Debug "5 + 2 * 2 = " + Calculate("5 + 2 * 2", @ErrorOutput$)
Debug "(10 + 20) * 10 = " + Calculate("(10 + 20) * 10", @ErrorOutput$)
Debug "pi * 4 = " + Calculate("pi * 4", @ErrorOutput$)
Debug "2.5 + 10 = " + Calculate("2.5 + 10", @ErrorOutput$)
Debug "Modulo = " + Calculate("2 % 1 == 0", @ErrorOutput$)
Debug "AND condition = " + Calculate("1 == 1", @ErrorOutput$)
Debug "sqrt(64) = " + Calculate("sqrt(64)", @ErrorOutput$)
Debug "round(5.4) = " + Calculate("round(5.4)", @ErrorOutput$)
Debug "is 5 ot 10 greater? = " + Calculate("max(5, 10)", @ErrorOutput$)
Debug "15 > 10? = " + Calculate("15 > 10", @ErrorOutput$)
Debug "sin(1.5708) = " + Calculate("sin(1.5708)", @ErrorOutput$)

CloseLibrary(PBEx_Math)

; IDE Options = PureBasic 5.70 LTS (Windows - x64)
; CursorPosition = 27
; EnableXP
; EnableUser
; Executable = PB.Ex_MSSQL_x86.exe
; CompileSourceDirectory
; EnableCompileCount = 355
; EnableBuildCount = 6
; EnableUnicode