[ViewVC] Diff of: public/ibx/branches/udr/client/FBClientAPI.pas

Comparing:
ibx/trunk/fbintf/client/FBClientAPI.pas (file contents), Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
ibx/branches/udr/client/FBClientAPI.pas (file contents), Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

+{                                                                        }
+{************************************************************************}
+unit FBClientAPI;
-+
+{$IFDEF MSWINDOWS}
-+
+{$DEFINE WINDOWS}
-+
+{$ENDIF}
+{$IFDEF FPC}
+{$mode delphi}
+interface
+uses
-<
+  Classes,  Dynlibs, IB, IBHeader, FBActivityMonitor, FBMessages, IBExternals;
->
+  Classes,
->
+    {$IFDEF WINDOWS}Windows, {$ENDIF}
->
+    {$IFDEF FPC} Dynlibs, {$ENDIF}
->
+   IB, IBHeader, FBActivityMonitor, FBMessages, IBExternals, FmtBCD;
-<
+{For Linux see result of GetFirebirdLibList method}
->
+{For Linux see result of GetFirebirdLibListruntime/nongui/winipc.inc method}
+{$IFDEF DARWIN}
+const
+FIREBIRD_SO2 = 'libfbclient.dylib';
+FIREBIRD_EMBEDDED = 'fbembed.dll';
+{$ENDIF}
-+
+const
-+
+  {fb_shutdown reasons}
-+
+  fb_shutrsn_svc_stopped          = -1;
-+
+  fb_shutrsn_no_connection        = -2;
-+
+  fb_shutrsn_app_stopped          = -3;
-+
+  fb_shutrsn_signal               = -5;
-+
+  fb_shutrsn_services             = -6;
-+
+  fb_shutrsn_exit_called          = -7;
-+
-+
+const
-+
+    DefaultTimeZoneFile = '/etc/timezone';
-+
-+
+const
-+
+  IBLocalBufferLength = 512;
-+
+  IBBigLocalBufferLength = IBLocalBufferLength * 2;
-+
+  IBHugeLocalBufferLength = IBBigLocalBufferLength * 20;
-+
+type
+  TStatusVector              = array[0..19] of NativeInt;
+  PStatusVector              = ^TStatusVector;
+  { TFBStatus }
-<
+  TFBStatus = class(TFBInterfacedObject)
->
+  TFBStatus = class(TFBInterfacedObject, IStatus)
+  private
-–
+    FIBCS: TRTLCriticalSection; static;
+    FIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
-+
+    FPrefix: AnsiString;
-+
+    function SQLCodeSupported: boolean;
+  protected
+    FOwner: TFBClientAPI;
-+
+    function GetIBMessage: Ansistring; virtual; abstract;
-+
+    function GetSQLMessage: Ansistring;
+  public
-<
+    constructor Create(aOwner: TFBClientAPI);
->
+    constructor Create(aOwner: TFBClientAPI; prefix: AnsiString='');
+    function StatusVector: PStatusVector; virtual; abstract;
-+
+    procedure Assign(src: TFBStatus); virtual;
-+
+    function Clone: IStatus; virtual; abstract;
+    {IStatus}
-<
+    function GetIBErrorCode: Long;
-<
+    function Getsqlcode: Long;
-<
+    function GetMessage: string;
->
+    function GetIBErrorCode: TStatusCode;
->
+    function Getsqlcode: TStatusCode;
->
+    function GetMessage: AnsiString;
+    function CheckStatusVector(ErrorCodes: array of TFBStatusCode): Boolean;
+    function GetIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
+    procedure SetIBDataBaseErrorMessages(Value: TIBDataBaseErrorMessages);
+  end;
-+
+  { TFBLibrary }
-+
-+
+  TFBLibrary = class(TFBInterfacedObject,IFirebirdLibrary)
-+
+  private
-+
+    class var FEnvSetupDone: boolean;
-+
+    class var FLibraryList: array of IFirebirdLibrary;
-+
+  private
-+
+    FFirebirdAPI: IFirebirdAPI;
-+
+    FRequestedLibName: string;
-+
+    function LoadIBLibrary: boolean;
-+
+  protected
-+
+    FFBLibraryName: string;
-+
+    FIBLibrary: TLibHandle;
-+
+    procedure FreeFBLibrary;
-+
+    function GetOverrideLibName: string;
-+
+    class procedure SetupEnvironment;
-+
+  protected
-+
+    function GetFirebird3API: IFirebirdAPI; virtual; abstract;
-+
+    function GetLegacyFirebirdAPI: IFirebirdAPI; virtual; abstract;
-+
+  public
-+
+    constructor Create(aLibPathName: string='');
-+
+    destructor Destroy; override;
-+
+    class function GetFBLibrary(aLibPathName: string): IFirebirdLibrary;
-+
+    class procedure FreeLibraries;
-+
+    function SameLibrary(aLibName: string): boolean;
-+
-+
+  public
-+
+    {IFirebirdLibrary}
-+
+    function GetHandle: TLibHandle;
-+
+    function GetLibraryName: string;
-+
+    function GetLibraryFilePath: string;
-+
+    function GetFirebirdAPI: IFirebirdAPI;
-+
+    property IBLibrary: TLibHandle read FIBLibrary;
-+
+  end;
-+
+  { TFBClientAPI }
+  TFBClientAPI = class(TFBInterfacedObject)
+  private
-<
+    FOwnsIBLibrary: boolean;
-<
+    procedure LoadIBLibrary;
->
+    FLocalTimeZoneName: AnsiString; {Informal Time Zone Name from tzname e.g. GMT or BST}
->
+    FTZDataTimeZoneID: AnsiString; {TZData DB ID e.g. Europe/London}
->
+    FLocalTimeOffset: integer;
->
+    FIsDaylightSavingsTime: boolean;
->
+    class var FIBCS: TRTLCriticalSection;
->
+    function FBTimeStampToDateTime(aDate, aTime: longint): TDateTime;
->
+    procedure GetTZDataSettings;
+  protected
-<
+    FFBLibraryName: string; static;
-<
+    FFBLibraryPath: string; static;
-<
+    IBLibrary: TLibHandle; static;
-<
+    function GetProcAddr(ProcName: PChar): Pointer;
-<
+    function GetOverrideLibName: string;
-<
+    {$IFDEF UNIX}
-<
+    function GetFirebirdLibList: string; virtual; abstract;
-<
+    {$ENDIF}
-<
+    procedure LoadInterface; virtual;
->
+    FFBLibrary: TFBLibrary;
->
+    function GetProcAddr(ProcName: PAnsiChar): Pointer;
->
->
+  protected type
->
+    Tfb_shutdown = function (timeout: uint;
->
+                                 const reason: int): int;
->
+                   {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
->
+  protected
->
+    {FB Shutdown API}
->
+    fb_shutdown: Tfb_shutdown;
->
+  public
+    {Taken from legacy API}
-–
+    isc_sqlcode: Tisc_sqlcode;
+    isc_sql_interprete: Tisc_sql_interprete;
-<
+    isc_interprete: Tisc_interprete;
-<
+    isc_event_counts: Tisc_event_counts;
-<
+    isc_event_block: Tisc_event_block;
-<
+    isc_free: Tisc_free;
->
+    isc_sqlcode: Tisc_sqlcode;
-<
+    constructor Create;
-<
+    destructor Destroy; override;
->
+    constructor Create(aFBLibrary: TFBLibrary);
+    procedure IBAlloc(var P; OldSize, NewSize: Integer);
+    procedure IBDataBaseError;
-<
+    procedure SetupEnvironment;
->
+    function LoadInterface: boolean; virtual;
->
+    procedure FBShutdown; virtual;
->
+    function GetAPI: IFirebirdAPI; virtual; abstract;
->
+    {$IFDEF UNIX}
->
+    function GetFirebirdLibList: string; virtual; abstract;
->
+    {$ENDIF}
->
+    function HasDecFloatSupport: boolean;
->
+    function HasInt128Support: boolean; virtual;
->
+    function HasLocalTZDB: boolean; virtual;
->
+    function HasExtendedTZSupport: boolean; virtual;
->
+    function HasTimeZoneSupport: boolean; virtual;
-+
+  public
-+
+    property LocalTimeZoneName: AnsiString read FLocalTimeZoneName;
-+
+    property TZDataTimeZoneID: AnsiString read FTZDataTimeZoneID;
-+
+    property LocalTimeOffset: integer read FLocalTimeOffset;
-+
+  public
+    {Encode/Decode}
-<
+    procedure EncodeInteger(aValue: integer; len: integer; buffer: PChar);
-<
+    function DecodeInteger(bufptr: PChar; len: short): integer; virtual; abstract;
-<
+    procedure SQLEncodeDate(aDate: TDateTime; bufptr: PChar); virtual; abstract;
-<
+    function SQLDecodeDate(byfptr: PChar): TDateTime; virtual; abstract;
-<
+    procedure SQLEncodeTime(aTime: TDateTime; bufptr: PChar); virtual; abstract;
-<
+    function SQLDecodeTime(bufptr: PChar): TDateTime;  virtual; abstract;
-<
+    procedure SQLEncodeDateTime(aDateTime: TDateTime; bufptr: PChar); virtual; abstract;
-<
+    function SQLDecodeDateTime(bufptr: PChar): TDateTime; virtual; abstract;
-<
->
+    procedure EncodeInteger(aValue: int64; len: integer; buffer: PByte);
->
+    function DecodeInteger(bufptr: PByte; len: short): int64;
->
+    procedure SQLEncodeDate(aDate: TDateTime; bufptr: PByte);  virtual; abstract;
->
+    function SQLDecodeDate(byfptr: PByte): TDateTime;  virtual; abstract;
->
+    procedure SQLEncodeTime(aTime: TDateTime; bufptr: PByte);  virtual; abstract;
->
+    function SQLDecodeTime(bufptr: PByte): TDateTime;  virtual; abstract;
->
+    procedure SQLEncodeDateTime(aDateTime: TDateTime; bufptr: PByte); virtual; abstract;
->
+    function  SQLDecodeDateTime(bufptr: PByte): TDateTime; virtual; abstract;
->
+    function Int128ToStr(bufptr: PByte; scale: integer): AnsiString; virtual;
->
+    procedure StrToInt128(scale: integer; aValue: AnsiString; bufptr: PByte);
->
+      virtual;
->
+    procedure SQLDecFloatEncode(aValue: tBCD; SQLType: cardinal; bufptr: PByte); virtual;
->
+    function SQLDecFloatDecode(SQLType: cardinal;  bufptr: PByte): tBCD; virtual;
+    {IFirebirdAPI}
+    function GetStatus: IStatus; virtual; abstract;
+    function IsLibraryLoaded: boolean;
+    function IsEmbeddedServer: boolean; virtual; abstract;
-<
+    function GetLibraryName: string;
-<
+    function GetCharsetName(CharSetID: integer): string;
-<
+    function CharSetID2CodePage(CharSetID: integer; var CodePage: TSystemCodePage): boolean;
-<
+    function CodePage2CharSetID(CodePage: TSystemCodePage; var CharSetID: integer): boolean;
-<
+    function CharSetName2CharSetID(CharSetName: string; var CharSetID: integer): boolean;
-<
+    function CharSetWidth(CharSetID: integer; var Width: integer): boolean;
->
+    function GetFBLibrary: IFirebirdLibrary;
->
+    function GetImplementationVersion: AnsiString;
->
+    function GetClientMajor: integer;  virtual; abstract;
->
+    function GetClientMinor: integer;  virtual; abstract;
+  end;
-<
+const FirebirdClientAPI: TFBClientAPI = nil;
->
+    IJournallingHook = interface
->
+      ['{7d3e45e0-3628-416a-9e22-c20474825031}']
->
+      procedure TransactionStart(Tr: ITransaction);
->
+      function TransactionEnd(TransactionID: integer; Action: TTransactionAction): boolean;
->
+      procedure TransactionRetained(Tr: ITransaction; OldTransactionID: integer; Action: TTransactionAction);
->
+      procedure ExecQuery(Stmt: IStatement);
->
+    end;
+implementation
-<
+uses IBUtils, {$IFDEF Unix} initc, {$ENDIF}
->
+uses IBUtils, Registry,
->
+  {$IFDEF Unix} unix, initc, dl, {$ENDIF}
->
+{$IFDEF FPC}
+{$IFDEF WINDOWS }
-<
+Windows,Registry, WinDirs,
->
+WinDirs,
->
+{$ENDIF}
->
+{$ELSE}
->
+ ShlObj,
+{$ENDIF}
+SysUtils;
+{$IFDEF UNIX}
-<
+{$I uloadlibrary.inc}
->
+{$I 'include/uloadlibrary.inc'}
+{$ELSE}
-<
+{$I wloadlibrary.inc}
->
+{$I 'include/wloadlibrary.inc'}
+{$ENDIF}
-<
+type
-<
+  TCharsetMap = record
-<
+    CharsetID: integer;
-<
+    CharSetName: string;
-<
+    CharSetWidth: integer;
-<
+    CodePage: TSystemCodePage;
->
->
+{ TFBLibrary }
->
->
+function TFBLibrary.GetOverrideLibName: string;
->
+begin
->
+  Result := FFBLibraryName;
->
+  if (Result = '') and AllowUseOfFBLIB then
->
+    Result := GetEnvironmentVariable('FBLIB');
->
+  if Result = '' then
->
+  begin
->
+    if assigned(OnGetLibraryName) then
->
+      OnGetLibraryName(Result)
+  end;
-+
+end;
-<
+const
-<
+  CharSetMap: array [0..69] of TCharsetMap = (
-<
+  (CharsetID: 0; CharSetName: 'NONE'; CharSetWidth: 1; CodePage: CP_ACP),
-<
+  (CharsetID: 1; CharSetName: 'OCTETS'; CharSetWidth: 1; CodePage: CP_NONE),
-<
+  (CharsetID: 2; CharSetName: 'ASCII'; CharSetWidth: 1; CodePage: CP_ASCII),
-<
+  (CharsetID: 3; CharSetName: 'UNICODE_FSS'; CharSetWidth: 3; CodePage: CP_UTF8),
-<
+  (CharsetID: 4; CharSetName: 'UTF8'; CharSetWidth: 4; CodePage: CP_UTF8),
-<
+  (CharsetID: 5; CharSetName: 'SJIS_0208'; CharSetWidth: 2; CodePage: 20932),
-<
+  (CharsetID: 6; CharSetName: 'EUCJ_0208'; CharSetWidth: 2; CodePage: 20932),
-<
+  (CharsetID: 7; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 8; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 9; CharSetName: 'DOS737'; CharSetWidth: 1; CodePage: 737),
-<
+  (CharsetID: 10; CharSetName: 'DOS437'; CharSetWidth: 1; CodePage: 437),
-<
+  (CharsetID: 11; CharSetName: 'DOS850'; CharSetWidth: 1; CodePage: 850),
-<
+  (CharsetID: 12; CharSetName: 'DOS865'; CharSetWidth: 1; CodePage: 865),
-<
+  (CharsetID: 13; CharSetName: 'DOS860'; CharSetWidth: 1; CodePage: 860),
-<
+  (CharsetID: 14; CharSetName: 'DOS863'; CharSetWidth: 1; CodePage: 863),
-<
+  (CharsetID: 15; CharSetName: 'DOS775'; CharSetWidth: 1; CodePage: 775),
-<
+  (CharsetID: 16; CharSetName: 'DOS858'; CharSetWidth: 1; CodePage: 858),
-<
+  (CharsetID: 17; CharSetName: 'DOS862'; CharSetWidth: 1; CodePage: 862),
-<
+  (CharsetID: 18; CharSetName: 'DOS864'; CharSetWidth: 1; CodePage: 864),
-<
+  (CharsetID: 19; CharSetName: 'NEXT'; CharSetWidth: 1; CodePage: CP_NONE),
-<
+  (CharsetID: 20; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 21; CharSetName: 'ISO8859_1'; CharSetWidth: 1; CodePage: 28591),
-<
+  (CharsetID: 22; CharSetName: 'ISO8859_2'; CharSetWidth: 1; CodePage: 28592),
-<
+  (CharsetID: 23; CharSetName: 'ISO8859_3'; CharSetWidth: 1; CodePage: 28593),
-<
+  (CharsetID: 24; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 25; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 26; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 27; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 28; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 29; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 30; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 31; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 32; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 33; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 34; CharSetName: 'ISO8859_4'; CharSetWidth: 1; CodePage: 28594),
-<
+  (CharsetID: 35; CharSetName: 'ISO8859_5'; CharSetWidth: 1; CodePage: 28595),
-<
+  (CharsetID: 36; CharSetName: 'ISO8859_6'; CharSetWidth: 1; CodePage: 28596),
-<
+  (CharsetID: 37; CharSetName: 'ISO8859_7'; CharSetWidth: 1; CodePage: 28597),
-<
+  (CharsetID: 38; CharSetName: 'ISO8859_8'; CharSetWidth: 1; CodePage: 28598),
-<
+  (CharsetID: 39; CharSetName: 'ISO8859_9'; CharSetWidth: 1; CodePage: 28599),
-<
+  (CharsetID: 40; CharSetName: 'ISO8859_13'; CharSetWidth: 1; CodePage: 28603),
-<
+  (CharsetID: 41; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 42; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 43; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 44; CharSetName: 'KSC_5601'; CharSetWidth: 2; CodePage: 949),
-<
+  (CharsetID: 45; CharSetName: 'DOS852'; CharSetWidth: 1; CodePage: 852),
-<
+  (CharsetID: 46; CharSetName: 'DOS857'; CharSetWidth: 1; CodePage: 857),
-<
+  (CharsetID: 47; CharSetName: 'DOS861'; CharSetWidth: 1; CodePage: 861),
-<
+  (CharsetID: 48; CharSetName: 'DOS866'; CharSetWidth: 1; CodePage: 866),
-<
+  (CharsetID: 49; CharSetName: 'DOS869'; CharSetWidth: 1; CodePage: 869),
-<
+  (CharsetID: 50; CharSetName: 'CYRL'; CharSetWidth: 1; CodePage: 1251),
-<
+  (CharsetID: 51; CharSetName: 'WIN1250'; CharSetWidth: 1; CodePage: 1250),
-<
+  (CharsetID: 52; CharSetName: 'WIN1251'; CharSetWidth: 1; CodePage: 1251),
-<
+  (CharsetID: 53; CharSetName: 'WIN1252'; CharSetWidth: 1; CodePage: 1252),
-<
+  (CharsetID: 54; CharSetName: 'WIN1253'; CharSetWidth: 1; CodePage: 1253),
-<
+  (CharsetID: 55; CharSetName: 'WIN1254'; CharSetWidth: 1; CodePage: 1254),
-<
+  (CharsetID: 56; CharSetName: 'BIG_5'; CharSetWidth: 2; CodePage: 950),
-<
+  (CharsetID: 57; CharSetName: 'GB_2312'; CharSetWidth: 2; CodePage: 936),
-<
+  (CharsetID: 58; CharSetName: 'WIN1255'; CharSetWidth: 1; CodePage: 1255),
-<
+  (CharsetID: 59; CharSetName: 'WIN1256'; CharSetWidth: 1; CodePage: 1256),
-<
+  (CharsetID: 60; CharSetName: 'WIN1257'; CharSetWidth: 1; CodePage: 1257),
-<
+  (CharsetID: 61; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 62; CharSetName: 'Unknown'; CharSetWidth: 0; CodePage: CP_NONE),
-<
+  (CharsetID: 63; CharSetName: 'KOI8R'; CharSetWidth: 1; CodePage: 20866),
-<
+  (CharsetID: 64; CharSetName: 'KOI8U'; CharSetWidth: 1; CodePage: 21866),
-<
+  (CharsetID: 65; CharSetName: 'WIN1258'; CharSetWidth: 1; CodePage: 1258),
-<
+  (CharsetID: 66; CharSetName: 'TIS620'; CharSetWidth: 1; CodePage: 874),
-<
+  (CharsetID: 67; CharSetName: 'GBK'; CharSetWidth: 2; CodePage: 936),
-<
+  (CharsetID: 68; CharSetName: 'CP943C'; CharSetWidth: 2; CodePage: 943),
-<
+  (CharsetID: 69; CharSetName: 'GB18030'; CharSetWidth: 4; CodePage: 54936)
-<
+);
-<
-<
+  {$IFDEF Unix}
-<
+  {SetEnvironmentVariable doesn't exist so we have to use C Library}
-<
+  function setenv(name:Pchar; value:Pchar; replace:integer):integer;cdecl;external clib name 'setenv';
-<
+  function unsetenv(name:Pchar):integer;cdecl;external clib name 'unsetenv';
-<
+  function SetEnvironmentVariable(name:PChar; value:PChar):boolean;
-<
+  // Set environment variable; if empty string given, remove it.
->
+procedure TFBLibrary.FreeFBLibrary;
->
+begin
->
+  (FFirebirdAPI as TFBClientAPI).FBShutdown;
->
+  if FIBLibrary <> NilHandle then
->
+    FreeLibrary(FIBLibrary);
->
+  FIBLibrary := NilHandle;
->
+  FFBLibraryName := '';
->
+end;
->
->
+function TFBLibrary.GetLibraryName: string;
->
+begin
->
+  Result := ExtractFileName(FFBLibraryName);
->
+end;
->
->
+function TFBLibrary.GetFirebirdAPI: IFirebirdAPI;
->
+begin
->
+  Result := FFirebirdAPI;
->
+end;
->
->
+constructor TFBLibrary.Create(aLibPathName: string);
->
+begin
->
+  inherited Create;
->
+  SetupEnvironment;
->
+  FFBLibraryName := aLibPathName;
->
+  FIBLibrary := NilHandle;
->
+  FFirebirdAPI := GetFirebird3API;
->
+  FRequestedLibName := aLibPathName;
->
+  if aLibPathName <> '' then
+  begin
-<
+    result:=false; //assume failure
-<
+    if value = '' then
-<
+    begin
-<
+      // Assume user wants to remove variable.
-<
+      if unsetenv(name)=0 then result:=true;
-<
+    end
-<
+    else
->
+    SetLength(FLibraryList,Length(FLibraryList)+1);
->
+    FLibraryList[Length(FLibraryList)-1] := self;
->
+  end;
->
+  if FFirebirdAPI <> nil then
->
+  begin
->
+    {First try Firebird 3}
->
+    if not LoadIBLibrary or not (FFirebirdAPI as TFBClientAPI).LoadInterface then
->
+      FFirebirdAPI := nil;
->
+  end;
->
->
+  if FFirebirdAPI = nil then
->
+  begin
->
+    {now try Firebird 2.5. Under Unix we need to reload the library in case we
->
+     are to use the embedded library}
->
+    FFirebirdAPI := GetLegacyFirebirdAPI;
->
+    if FFirebirdAPI <> nil then
+    begin
-<
+      // Non empty so set the variable
-<
+      if setenv(name, value, 1)=0 then result:=true;
->
+      {$IFDEF UNIX}
->
+      FreeFBLibrary;
->
+      {$ENDIF}
->
+      if not LoadIBLibrary or not (FFirebirdAPI as TFBClientAPI).LoadInterface then
->
+        FFirebirdAPI := nil;
+    end;
+  end;
-<
+  {$ENDIF}
->
+  {Note: FFirebirdAPI will be set to nil if the Firebird API fails to load}
->
+end;
-<
+{ TFBClientAPI }
->
+destructor TFBLibrary.Destroy;
->
+begin
->
+  FreeFBLibrary;
->
+  FFirebirdAPI := nil;
->
+  inherited Destroy;
->
+end;
-<
+constructor TFBClientAPI.Create;
->
+class function TFBLibrary.GetFBLibrary(aLibPathName: string): IFirebirdLibrary;
->
+var i: integer;
+begin
-<
+  inherited Create;
-<
+  LoadIBLibrary;
-<
+  if (IBLibrary <> NilHandle) then
->
+  Result := nil;
->
+  if aLibPathName <> '' then
+  begin
-<
+    SetupEnvironment;
-<
+    LoadInterface;
->
+    for i := 0 to Length(FLibraryList) - 1 do
->
+    begin
->
+      if (FLibraryList[i] as TFBLibrary).SameLibrary(aLibPathName) then
->
+      begin
->
+        Result := FLibraryList[i];
->
+        Exit;
->
+      end;
->
+    end;
->
+    Result := Create(aLibPathName);
+  end;
-<
+  FirebirdClientAPI := self;
->
+end;
-<
+destructor TFBClientAPI.Destroy;
->
+class procedure TFBLibrary.FreeLibraries;
->
+var i: integer;
+begin
-<
+  FirebirdClientAPI := nil;
-<
+  if FOwnsIBLibrary and (IBLibrary <> NilHandle) then
-<
+    UnloadLibrary(IBLibrary);
-<
+  IBLibrary := NilHandle;
-<
+  inherited Destroy;
->
+  for i := 0 to Length(FLibraryList) - 1 do
->
+    FLibraryList[i] := nil;
->
+  SetLength(FLibraryList,0);
->
+end;
->
->
+function TFBLibrary.SameLibrary(aLibName: string): boolean;
->
+begin
->
+  Result := FRequestedLibName = aLibName;
->
+end;
->
->
+function TFBLibrary.GetHandle: TLibHandle;
->
+begin
->
+  Result := FIBLibrary;
->
+end;
->
->
+{ TFBClientAPI }
->
->
+constructor TFBClientAPI.Create(aFBLibrary: TFBLibrary);
->
+begin
->
+  inherited Create;
->
+  FFBLibrary := aFBLibrary;
->
+  GetTZDataSettings;
+end;
+procedure TFBClientAPI.IBAlloc(var P; OldSize, NewSize: Integer);
+  i: Integer;
+begin
+  ReallocMem(Pointer(P), NewSize);
-<
+  for i := OldSize to NewSize - 1 do PChar(P)[i] := #0;
->
+  for i := OldSize to NewSize - 1 do PAnsiChar(P)[i] := #0;
+end;
+procedure TFBClientAPI.IBDataBaseError;
+  raise EIBInterBaseError.Create(GetStatus);
+end;
-<
+{Under Unixes, if using an embedded server then set up local TMP and LOCK Directories}
-<
-<
+procedure TFBClientAPI.SetupEnvironment;
-<
+var TmpDir: string;
-<
+begin
-<
+  {$IFDEF UNIX}
-<
+    TmpDir := GetTempDir +
-<
+        DirectorySeparator + 'firebird_' + sysutils.GetEnvironmentVariable('USER');
-<
+    if sysutils.GetEnvironmentVariable('FIREBIRD_TMP') = '' then
-<
+    begin
-<
+      if not DirectoryExists(tmpDir) then
-<
+        mkdir(tmpDir);
-<
+      SetEnvironmentVariable('FIREBIRD_TMP',PChar(TmpDir));
-<
+    end;
-<
+    if sysutils.GetEnvironmentVariable('FIREBIRD_LOCK') = '' then
-<
+    begin
-<
+      if not DirectoryExists(tmpDir) then
-<
+        mkdir(tmpDir);
-<
+      SetEnvironmentVariable('FIREBIRD_LOCK',PChar(TmpDir));
-<
+    end;
-<
+  {$ENDIF}
-<
+end;
-<
-<
+procedure TFBClientAPI.EncodeInteger(aValue: integer; len: integer; buffer: PChar);
->
+procedure TFBClientAPI.EncodeInteger(aValue: int64; len: integer; buffer: PByte);
+begin
+  while len > 0 do
+  begin
-<
+    buffer^ := char(aValue and $FF);
->
+    buffer^ := aValue and $FF;
+    Inc(buffer);
+    Dec(len);
+    aValue := aValue shr 8;
+  end;
+end;
-+
+(*
-+
+  DecodeInteger is Translated from
-+
-+
+SINT64 API_ROUTINE isc_portable_integer(const UCHAR* ptr, SSHORT length)
-+
+if (!ptr || length <= 0 || length > 8)
-+
+        return 0;
-+
-+
+SINT64 value = 0;
-+
+int shift = 0;
-+
-+
+while (--length > 0)
-+
+{
-+
+        value += ((SINT64) *ptr++) << shift;
-+
+        shift += 8;
-+
+}
-+
-+
+value += ((SINT64)(SCHAR) *ptr) << shift;
-+
-+
+return value;
-+
+*)
-+
-+
+function TFBClientAPI.DecodeInteger(bufptr: PByte; len: short): int64;
-+
+var shift: integer;
-+
+begin
-+
+  Result := 0;
-+
+  if (BufPtr = nil) or (len <= 0) or (len > 8) then
-+
+    Exit;
-+
-+
+  shift := 0;
-+
+  dec(len);
-+
+  while len > 0 do
-+
+  begin
-+
+    Result := Result + (int64(bufptr^) shl shift);
-+
+    Inc(bufptr);
-+
+    shift := shift + 8;
-+
+    dec(len);
-+
+  end;
-+
+  Result := Result + (int64(bufptr^) shl shift);
-+
+end;
-+
-+
+function TFBClientAPI.Int128ToStr(bufptr: PByte; scale: integer): AnsiString;
-+
+begin
-+
+  if not HasInt128Support then
-+
+    IBError(ibxeNotSupported,[]);
-+
+end;
-+
-+
+procedure TFBClientAPI.StrToInt128(scale: integer; aValue: AnsiString; bufptr: PByte);
-+
+begin
-+
+  if not HasInt128Support then
-+
+    IBError(ibxeNotSupported,[]);
-+
+end;
-+
-+
+procedure TFBClientAPI.SQLDecFloatEncode(aValue: tBCD; SQLType: cardinal;
-+
+  bufptr: PByte);
-+
+begin
-+
+  if not HasDecFloatSupport then
-+
+    IBError(ibxeNotSupported,[]);
-+
+end;
-+
-+
+function TFBClientAPI.SQLDecFloatDecode(SQLType: cardinal; bufptr: PByte): tBCD;
-+
+begin
-+
+  if not HasDecFloatSupport then
-+
+    IBError(ibxeNotSupported,[]);
-+
+end;
-+
+function TFBClientAPI.IsLibraryLoaded: boolean;
+begin
-<
+  Result := IBLibrary <> NilHandle;
->
+  Result := FFBLibrary.IBLibrary <> NilHandle;
+end;
-<
+function TFBClientAPI.GetProcAddr(ProcName: PChar): Pointer;
->
+function TFBClientAPI.GetFBLibrary: IFirebirdLibrary;
+begin
-<
+  Result := GetProcAddress(IBLibrary, ProcName);
-<
+  if not Assigned(Result) then
-<
+    raise Exception.CreateFmt(SFirebirdAPIFuncNotFound,[ProcName]);
->
+  Result := FFBLibrary;
+end;
-<
+function TFBClientAPI.GetOverrideLibName: string;
->
+function TFBClientAPI.FBTimeStampToDateTime(aDate, aTime: longint): TDateTime;
+begin
-<
+  Result := '';
-<
+  if AllowUseOfFBLIB then
-<
+    Result := GetEnvironmentVariable('FBLIB');
-<
+  if Result = '' then
->
+  {aDate/aTime are in TTimestamp format but aTime is decimilliseconds}
->
+  aDate := aDate - DateDelta;
->
+  if aDate < 0 then
->
+    Result := trunc(aDate) - abs(frac(aTime / (MSecsPerDay*10)))
->
+  else
->
+    Result := trunc(aDate) + abs(frac(aTime / (MSecsPerDay*10)));
->
+end;
->
->
+{$IFDEF UNIX}
->
->
+procedure TFBClientAPI.GetTZDataSettings;
->
+var S: TStringList;
->
+begin
->
+  FLocalTimeOffset := GetLocalTimeOffset;
->
+  {$if declared(Gettzname)}
->
+  FLocalTimeZoneName := Gettzname(tzdaylight);
->
+  {$else}
->
+  FLocalTimeZoneName := tzname[tzdaylight];
->
+  {$ifend}
->
+  FIsDaylightSavingsTime := tzdaylight;
->
+  if FileExists(DefaultTimeZoneFile) then
+  begin
-<
+    if assigned(OnGetLibraryName) then
-<
+      OnGetLibraryName(Result)
->
+    S := TStringList.Create;
->
+    try
->
+      S.LoadFromFile(DefaultTimeZoneFile);
->
+      if S.Count > 0 then
->
+        FTZDataTimeZoneID := S[0];
->
+    finally
->
+      S.Free;
->
+    end;
+  end;
+end;
-+
+{$ENDIF}
-<
+procedure TFBClientAPI.LoadInterface;
->
+{$IFDEF WINDOWS}
->
+procedure TFBClientAPI.GetTZDataSettings;
->
+var TZInfo: TTimeZoneInformation;
+begin
-<
+  isc_sqlcode := GetProcAddr('isc_sqlcode'); {do not localize}
-<
+  isc_sql_interprete := GetProcAddr('isc_sql_interprete'); {do not localize}
-<
+  isc_interprete := GetProcAddr('isc_interprete'); {do not localize}
-<
+  isc_event_counts := GetProcAddr('isc_event_counts'); {do not localize}
-<
+  isc_event_block := GetProcAddr('isc_event_block'); {do not localize}
-<
+  isc_free := GetProcAddr('isc_free'); {do not localize}
->
+  FIsDaylightSavingsTime := false;
->
+  {is there any way of working out the default TZData DB time zone ID under Windows?}
->
+  case GetTimeZoneInformation(TZInfo) of
->
+    TIME_ZONE_ID_UNKNOWN:
->
+      begin
->
+        FLocalTimeZoneName := '';
->
+        FLocalTimeOffset := 0;
->
+      end;
->
+    TIME_ZONE_ID_STANDARD:
->
+      begin
->
+        FLocalTimeZoneName := strpas(PWideChar(@TZInfo.StandardName));
->
+        FLocalTimeOffset := TZInfo.Bias;
->
+      end;
->
+    TIME_ZONE_ID_DAYLIGHT:
->
+      begin
->
+        FLocalTimeZoneName := strpas(PWideChar(@TZInfo.DaylightName));
->
+        FLocalTimeOffset := TZInfo.DayLightBias;
->
+        FIsDaylightSavingsTime := true;
->
+      end;
->
+  end;
+end;
-+
+{$ENDIF}
-<
+function TFBClientAPI.GetLibraryName: string;
->
+function TFBClientAPI.GetProcAddr(ProcName: PAnsiChar): Pointer;
+begin
-<
+  Result := FFBLibraryName;
->
+  Result := nil;
->
+  if assigned(FFBLibrary) and (FFBLibrary.IBLibrary <> NilHandle) then
->
+    Result := GetProcAddress(FFBLibrary.IBLibrary, ProcName);
->
+  if not Assigned(Result) then
->
+    raise Exception.CreateFmt(SFirebirdAPIFuncNotFound,[ProcName]);
+end;
-<
+function TFBClientAPI.GetCharsetName(CharSetID: integer): string;
->
+function TFBClientAPI.HasDecFloatSupport: boolean;
+begin
-<
+  Result := '';
-<
+  if (CharSetID >= Low(CharSetMap)) and (CharSetID <= High(CharSetMap)) and
-<
+                                  (CharSetMap[CharSetID].CharSetID = CharSetID) then
-<
+    begin
-<
+      Result := CharSetMap[CharSetID].CharSetName;
-<
+      Exit;
-<
+    end;
->
+  Result := GetClientMajor >= 4;
+end;
-<
+function TFBClientAPI.CharSetID2CodePage(CharSetID: integer;
-<
+  var CodePage: TSystemCodePage): boolean;
->
+function TFBClientAPI.HasInt128Support: boolean;
+begin
-<
+  Result := (CharSetID >= Low(CharSetMap)) and (CharSetID <= High(CharSetMap))
-<
+               and (CharSetMap[CharSetID].CharSetID = CharSetID);
-<
+  if Result then
-<
+    begin
-<
+      CodePage := CharSetMap[CharSetID].CodePage;
-<
+      Result := true;
-<
+      Exit;
-<
+    end;
->
+  Result := false;
+end;
-<
+function TFBClientAPI.CodePage2CharSetID(CodePage: TSystemCodePage;
-<
+  var CharSetID: integer): boolean;
-<
+var i: integer;
->
+function TFBClientAPI.HasLocalTZDB: boolean;
+begin
+  Result := false;
-–
+  for i := Low(CharSetMap) to High(CharSetMap) do
-–
+    if CharSetMap[i].CodePage = CodePage then
-–
+    begin
-–
+      CharSetID := CharSetMap[i].CharSetID;
-–
+      Result := true;
-–
+      Exit;
-–
+    end;
+end;
-<
+function TFBClientAPI.CharSetName2CharSetID(CharSetName: string;
-<
+  var CharSetID: integer): boolean;
-<
+var i: integer;
->
+function TFBClientAPI.HasExtendedTZSupport: boolean;
+begin
+  Result := false;
-–
+  for i := Low(CharSetMap) to High(CharSetMap) do
-–
+    if CompareStr(CharSetMap[i].CharSetName, CharSetName) = 0 then
-–
+    begin
-–
+      CharSetID := CharSetMap[i].CharSetID;
-–
+      Result := true;
-–
+      Exit;
-–
+    end;
+end;
-<
+function TFBClientAPI.CharSetWidth(CharSetID: integer; var Width: integer
-<
+  ): boolean;
->
+function TFBClientAPI.HasTimeZoneSupport: boolean;
+begin
-<
+  Result := (CharSetID >= Low(CharSetMap)) and (CharSetID <= High(CharSetMap))
-<
+               and (CharSetMap[CharSetID].CharSetID = CharSetID);
-<
+  if Result then
-<
+    begin
-<
+      Width := CharSetMap[CharSetID].CharSetWidth;
-<
+      Result := true;
-<
+      Exit;
-<
+    end;
->
+  Result := false;
+end;
-<
+const
-<
+  IBLocalBufferLength = 512;
-<
+  IBBigLocalBufferLength = IBLocalBufferLength * 2;
-<
+  IBHugeLocalBufferLength = IBBigLocalBufferLength * 20;
->
+function TFBClientAPI.GetImplementationVersion: AnsiString;
->
+begin
->
+  Result := Format('%d.%d',[GetClientMajor,GetClientMinor]);
->
+end;
->
->
+function TFBClientAPI.LoadInterface: boolean;
->
+begin
->
+  isc_sqlcode := GetProcAddr('isc_sqlcode'); {do not localize}
->
+  isc_sql_interprete := GetProcAddr('isc_sql_interprete'); {do not localize}
->
+  fb_shutdown := GetProcAddr('fb_shutdown'); {do not localize}
->
+  Result := true; {don't case if these fail to load}
->
+end;
->
->
+procedure TFBClientAPI.FBShutdown;
->
+begin
->
+  if assigned(fb_shutdown) then
->
+    fb_shutdown(0,fb_shutrsn_exit_called);
->
+end;
+{ TFBStatus }
-<
+constructor TFBStatus.Create(aOwner: TFBClientAPI);
->
+function TFBStatus.SQLCodeSupported: boolean;
->
+begin
->
+  Result:= (FOwner <> nil) and assigned(FOwner.isc_sqlcode) and  assigned(FOwner.isc_sql_interprete);
->
+end;
->
->
+function TFBStatus.GetSQLMessage: Ansistring;
->
+var local_buffer: array[0..IBHugeLocalBufferLength - 1] of AnsiChar;
->
+begin
->
+  Result := '';
->
+  if (FOwner <> nil) and assigned(FOwner.isc_sql_interprete) then
->
+  begin
->
+     FOwner.isc_sql_interprete(Getsqlcode, local_buffer, sizeof(local_buffer));
->
+     Result := strpas(local_buffer);
->
+  end;
->
+end;
->
->
+constructor TFBStatus.Create(aOwner: TFBClientAPI; prefix: AnsiString);
+begin
+  inherited Create;
+  FOwner := aOwner;
-<
+  FIBDataBaseErrorMessages := [ShowSQLMessage, ShowIBMessage];
->
+  FPrefix := prefix;
->
+  FIBDataBaseErrorMessages := [ShowIBMessage];
->
+end;
->
->
+procedure TFBStatus.Assign(src: TFBStatus);
->
+begin
->
+  FOwner := src.FOwner;
->
+  FPrefix := src.FPrefix;
->
+  SetIBDataBaseErrorMessages(src.GetIBDataBaseErrorMessages);
+end;
-<
+function TFBStatus.GetIBErrorCode: Long;
->
+function TFBStatus.GetIBErrorCode: TStatusCode;
+begin
+  Result := StatusVector^[1];
+end;
-<
+function TFBStatus.Getsqlcode: Long;
->
+function TFBStatus.Getsqlcode: TStatusCode;
+begin
-<
+  with FOwner do
-<
+    Result := isc_sqlcode(PISC_STATUS(StatusVector));
->
+  if (FOwner <> nil) and assigned(FOwner.isc_sqlcode) then
->
+    Result := FOwner.isc_sqlcode(PISC_STATUS(StatusVector))
->
+  else
->
+    Result := -999; {generic SQL Code}
+end;
-<
+function TFBStatus.GetMessage: string;
-<
+var local_buffer: array[0..IBHugeLocalBufferLength - 1] of char;
-<
+    IBDataBaseErrorMessages: TIBDataBaseErrorMessages;
-<
+    sqlcode: Long;
-<
+    psb: PStatusVector;
->
+function TFBStatus.GetMessage: AnsiString;
->
+var IBDataBaseErrorMessages: TIBDataBaseErrorMessages;
+begin
-<
+  Result := '';
->
+  Result := FPrefix;
+  IBDataBaseErrorMessages := FIBDataBaseErrorMessages;
-<
+  sqlcode := Getsqlcode;
-<
+  if (ShowSQLCode in IBDataBaseErrorMessages) then
-<
+    Result := Result + 'SQLCODE: ' + IntToStr(sqlcode); {do not localize}
-<
-<
+  Exclude(IBDataBaseErrorMessages, ShowSQLMessage);
-<
+  if (ShowSQLMessage in IBDataBaseErrorMessages) then
-<
+  begin
-<
+    with FOwner do
-<
+      isc_sql_interprete(sqlcode, local_buffer, IBLocalBufferLength);
-<
+    if (ShowSQLCode in FIBDataBaseErrorMessages) then
-<
+      Result := Result + CRLF;
-<
+    Result := Result + strpas(local_buffer);
->
+  if SQLCodeSupported then
->
+  begin
->
+    if (ShowSQLCode in IBDataBaseErrorMessages) then
->
+      Result := Result + 'SQLCODE: ' + IntToStr(Getsqlcode); {do not localize}
->
->
+    if (ShowSQLMessage in IBDataBaseErrorMessages) then
->
+    begin
->
+      if ShowSQLCode in IBDataBaseErrorMessages then
->
+        Result := Result + LineEnding;
->
+      Result := Result + GetSQLMessage;
->
+    end;
+  end;
+  if (ShowIBMessage in IBDataBaseErrorMessages) then
+  begin
-<
+    if (ShowSQLCode in IBDataBaseErrorMessages) or
-<
+       (ShowSQLMessage in IBDataBaseErrorMessages) then
-<
+      Result := Result + CRLF;
-<
+    psb := StatusVector;
-<
+    with FOwner do
-<
+    while (isc_interprete(@local_buffer, @psb) > 0) do
-<
+    begin
-<
+      if (Result <> '') and (Result[Length(Result)] <> LF) then
-<
+        Result := Result + CRLF;
-<
+      Result := Result + strpas(local_buffer);
-<
+    end;
->
+    if Result <> FPrefix then
->
+      Result := Result + LineEnding;
->
+    Result := Result + 'Engine Code: ' + IntToStr(GetIBErrorCode) + LineEnding + GetIBMessage;
+  end;
+  if (Result <> '') and (Result[Length(Result)] = '.') then
+    Delete(Result, Length(Result), 1);
+  i: Integer;
+  procedure NextP(i: Integer);
+  begin
-<
+    p := PISC_STATUS(PChar(p) + (i * SizeOf(ISC_STATUS)));
->
+    p := PISC_STATUS(PAnsiChar(p) + (i * SizeOf(ISC_STATUS)));
+  end;
+begin
+  p := PISC_STATUS(StatusVector);
+function TFBStatus.GetIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
+begin
-<
+  EnterCriticalSection(FIBCS);
->
+  EnterCriticalSection(TFBClientAPI.FIBCS);
+  try
+    result := FIBDataBaseErrorMessages;
+  finally
-<
+    LeaveCriticalSection(FIBCS);
->
+    LeaveCriticalSection(TFBClientAPI.FIBCS);
+  end;
+end;
+procedure TFBStatus.SetIBDataBaseErrorMessages(Value: TIBDataBaseErrorMessages);
+begin
-<
+  EnterCriticalSection(FIBCS);
->
+  EnterCriticalSection(TFBClientAPI.FIBCS);
+  try
+    FIBDataBaseErrorMessages := Value;
+  finally
-<
+    LeaveCriticalSection(FIBCS);
->
+    LeaveCriticalSection(TFBClientAPI.FIBCS);
+  end;
+end;
-+
+initialization
-<
+  TFBClientAPI.IBLibrary := NilHandle;
-<
+  InitCriticalSection(TFBStatus.FIBCS);
->
+  TFBLibrary.FEnvSetupDone := false;
->
+  {$IFNDEF FPC}
->
+  InitializeCriticalSection(TFBClientAPI.FIBCS);
->
+  {$ELSE}
->
+  InitCriticalSection(TFBClientAPI.FIBCS);
->
+  {$ENDIF}
+finalization
-<
+  DoneCriticalSection(TFBStatus.FIBCS);
-<
+  if TFBClientAPI.IBLibrary <> NilHandle then
-<
+  begin
-<
+    FreeLibrary(TFBClientAPI.IBLibrary);
-<
+    TFBClientAPI.IBLibrary := NilHandle;
-<
+    TFBClientAPI.FFBLibraryName := '';
-<
+  end;
-<
->
+  TFBLibrary.FreeLibraries;
->
+  {$IFNDEF FPC}
->
+  DeleteCriticalSection(TFBClientAPI.FIBCS);
->
+  {$ELSE}
->
+  DoneCriticalSection(TFBClientAPI.FIBCS);
->
+  {$ENDIF}
+end.

Comparing:
ibx/trunk/fbintf/client/FBClientAPI.pas (property svn:eol-style), Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
ibx/branches/udr/client/FBClientAPI.pas (property svn:eol-style), Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

#	Line 0 \| Line 1
1	+	native

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing: ibx/trunk/fbintf/client/FBClientAPI.pas (file contents), Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs. ibx/branches/udr/client/FBClientAPI.pas (file contents), Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

Comparing: ibx/trunk/fbintf/client/FBClientAPI.pas (property svn:eol-style), Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs. ibx/branches/udr/client/FBClientAPI.pas (property svn:eol-style), Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

Diff Legend

Comparing:
ibx/trunk/fbintf/client/FBClientAPI.pas (file contents), Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
ibx/branches/udr/client/FBClientAPI.pas (file contents), Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

Comparing:
ibx/trunk/fbintf/client/FBClientAPI.pas (property svn:eol-style), Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
ibx/branches/udr/client/FBClientAPI.pas (property svn:eol-style), Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC