freepascal.compiler/packages/postgres/src/dllistdyn.pp

{
  Call InitialiseDllist before using any of the calls, and call ReleaseDllist
  when finished.
}

{$IFNDEF FPC_DOTTEDUNITS}
unit DllistDyn;
{$ENDIF FPC_DOTTEDUNITS}

{$mode objfpc}{$H+}

interface

{$IFDEF FPC_DOTTEDUNITS}
uses
  System.DynLibs, System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
  dynlibs, SysUtils;
{$ENDIF FPC_DOTTEDUNITS}

{$PACKRECORDS C}

{$i dllisttypes.inc}

var
  DLNewList : function : PDllist;cdecl;
  DLFreeList : procedure (_para1:PDllist);cdecl;
  DLNewElem : function (val : pointer) :PDlelem;cdecl;
  DLFreeElem : procedure (_para1:PDlelem);cdecl;
  DLGetHead : function (_para1:PDllist):PDlelem;cdecl;
  DLGetTail : function (_para1:PDllist):PDlelem;cdecl;
  DLRemTail : function (l:PDllist):PDlelem;cdecl;
  DLGetPred : function (_para1:PDlelem):PDlelem;cdecl;
  DLGetSucc : function (_para1:PDlelem):PDlelem;cdecl;
  DLRemove : procedure (_para1:PDlelem);cdecl;
  DLAddHead : procedure (list:PDllist; node:PDlelem);cdecl;
  DLAddTail : procedure (list:PDllist; node:PDlelem);cdecl;
  DLRemHead : function (list:PDllist):PDlelem;cdecl;

{ Macro translated }
Function  DLE_VAL(elem : PDlelem) : pointer;

Procedure InitialiseDllist(libpath:string);
Procedure ReleaseDllist;

var DllistLibraryHandle : TLibHandle;
var libpgCriticalSection: TRTLCriticalSection;

implementation

var RefCount : integer;

Procedure InitialiseDllist(libpath:string);

begin
  EnterCriticalsection(libpgCriticalSection);
  try
    inc(RefCount);
    if RefCount = 1 then
      begin
      DllistLibraryHandle := loadlibrary(libpath);
      if DllistLibraryHandle = nilhandle then
        begin
        RefCount := 0;
        Raise EInOutError.Create('Can not load PosgreSQL client. Is it installed? ('+libpath+')');
        end;

      pointer(DLNewList) := GetProcedureAddress(DllistLibraryHandle,'DLNewList');
      pointer(DLFreeList) := GetProcedureAddress(DllistLibraryHandle,'DLFreeList');
      pointer( DLNewElem) := GetProcedureAddress(DllistLibraryHandle,' DLNewElem');
      pointer(DLFreeElem) := GetProcedureAddress(DllistLibraryHandle,'DLFreeElem');
      pointer( DLGetHead) := GetProcedureAddress(DllistLibraryHandle,' DLGetHead');
      pointer( DLGetTail) := GetProcedureAddress(DllistLibraryHandle,' DLGetTail');
      pointer( DLRemTail) := GetProcedureAddress(DllistLibraryHandle,' DLRemTail');
      pointer( DLGetPred) := GetProcedureAddress(DllistLibraryHandle,' DLGetPred');
      pointer( DLGetSucc) := GetProcedureAddress(DllistLibraryHandle,' DLGetSucc');
      pointer(DLRemove) := GetProcedureAddress(DllistLibraryHandle,'DLRemove');
      pointer(DLAddHead) := GetProcedureAddress(DllistLibraryHandle,'DLAddHead');
      pointer(DLAddTail) := GetProcedureAddress(DllistLibraryHandle,'DLAddTail');
      pointer( DLRemHead) := GetProcedureAddress(DllistLibraryHandle,' DLRemHead');
      end;
  finally
    LeaveCriticalsection(libpgCriticalSection);
  end;
end;

Procedure ReleaseDllist;

begin
  EnterCriticalsection(libpgCriticalSection);
  try
    if RefCount > 0 then dec(RefCount);
    if RefCount = 0 then
      begin
      if not UnloadLibrary(DllistLibraryHandle) then inc(RefCount);
      end;
  finally
    LeaveCriticalsection(libpgCriticalSection);
  end;
end;

// This function is also defined in Dllist!
Function DLE_VAL(elem : PDlelem) : pointer;
begin
  DLE_VAL:=elem^.dle_val
end;


initialization
  InitCriticalSection(libpgCriticalSection);
finalization
  DoneCriticalsection(libpgCriticalSection);
end.