;
; ------------------------------------------------------------
;
;   PureBasic - Library
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

CompilerSelect #PB_Compiler_OS 
  
  CompilerCase #PB_OS_Windows

      If OpenLibrary(0, "USER32.DLL")
      
        *MessageBox = GetFunction(0, "MessageBoxA")
        If *MessageBox
          CallFunctionFast(*MessageBox, 0, @"Body", @"Title", 0)
        EndIf
        
        CloseLibrary(0)
      EndIf


  CompilerCase #PB_OS_Linux

      If OpenLibrary(0, "libc.so")
      
        *MAlloc = GetFunction(0, "malloc")
        If *MAlloc
          *Buffer = CallCFunctionFast(*MAlloc, 128)
          If *Buffer
            Debug "Buffer allocated"

            CallCFunction(0, "free", *Buffer)

          EndIf
        EndIf
      
        CloseLibrary(0)
      EndIf

CompilerEndSelect