unit uTiposEGDB;
interface
const
EGDB_BLACK = 0;
EGDB_WHITE = 1;
EGDB_UNKNOWN = 0; EGDB_WIN = 1; EGDB_LOSS = 2; EGDB_DRAW = 3;
EGDB_NOT_IN_CACHE = 4; MTC_THRESHOLD = 10;
MTC_LESS_THAN_THRESHOLD = 1;
MTC_UNKNOWN = 0;
type
EGDB_TYPE = (
EGDB_KINGSROW_WLD=0, EGDB_KINGSROW_MTC,
EGDB_CAKE_WLD, EGDB_CHINOOK_WLD,
EGDB_KINGSROW32_WLD, EGDB_KINGSROW32_MTC,
EGDB_CHINOOK_ITALIAN_WLD,EGDB_KINGSROW32_ITALIAN_WLD,
EGDB_KINGSROW32_ITALIAN_MTC);
EGDB_STATS = record
lru_cache_hits,lru_cache_loads,autoload_hits,
db_requests,db_returns,db_not_present_requests: cardinal;
end;
EGDB_BITMAP_TYPE = (EGDB_NORMAL=0, EGDB_ROW_REVERSED);
EGDB_NORMAL_BITMAP = record
black,white,king: cardinal;
end;
EGDB_ROW_REVERSED_BITMAP = record
black_man,black_king,white_man,white_king: cardinal;
end;
EGDB_BITMAP = record
case integer of
0: (normal: EGDB_NORMAL_BITMAP);
1: (row_reversed: EGDB_ROW_REVERSED_BITMAP);
end;
PEGDB_BITMAP = ^EGDB_BITMAP;
PEGDB_STATS = ^EGDB_STATS;
PEGDB_driver = ^TEGDB_driver;
TEGDB_driver = record
lookup: function (handle: PEGDB_driver; position: PEGDB_BITMAP;
color: integer; cl: integer): longint; cdecl;
reset_stats: procedure (handle: PEGDB_driver); cdecl;
get_stats: function (handle: PEGDB_driver): PEGDB_STATS; cdecl;
verify: function (handle: PEGDB_driver): integer; cdecl;
close: function (handle: PEGDB_driver): integer; cdecl;
internal_data: pointer;
end;
implementation
end.