BINETIX NETWORK

-define(FIREBIRD,                                    firebird).
-define(FIREBIRD_SERVICE_RESULT(TaskID, Type, Data), {?FIREBIRD, TaskID, Type, Data}).
-define(FIREBIRD_SERVICE_ERROR(TaskID, Data),        ?FIREBIRD_SERVICE_RESULT(TaskID, error, Data)).
-define(FIREBIRD_DEFAULT_PARAMS,                     [{db_dialect, 3}, {db_charset, "UTF8"}, {db_createparms, "PAGE_SIZE 8192 DEFAULT CHARACTER SET UTF8"}]).
-define(FIREBIRD_DEFAULT_USERNAME,                   "SYSDBA").
-define(FIREBIRD_DEFAULT_PASSWORD,                   "masterkey").
-define(FIREBIRD_DEFAULT_TRANS_ACCESS,               0). % 0:Write 1:Read
-define(FIREBIRD_DEFAULT_TRANS_ISOLATION,            2). % 0:Concurrency 1:ReadDirty 2:ReadCommitted 3:Consistency
-define(FIREBIRD_DEFAULT_TRANS_LOCK,                 0). % 0:Wait 1:NoWait
-define(FIREBIRD_DEFAULT_TRANS_FLAG,                 0). % (bitflags) 1:IgnoreLimbo 2:AutoCommit 4:NoAutoUndo

-record(firebird_task, {
  % Task ID
  id                                              :: integer(),
  % Command code
  command                                         :: integer(), 
  % Owner PID
  owner                                           :: pid()
}).
 
-record(firebird_database, {
  % Database identifier
  id                                              :: atom(),
  % Server
  server                                          :: list(any()),
  % Parameters
  params                                          :: list(any())
}).
 
-record(firebird_connection, {
  % Database handle
  handle                                          :: integer(),
  % Database identifier
  database = undefined                            :: atom(),
  % Status (undefined | ok | Message)
  status = undefined                              :: atom()
}).