unit uFLData;
interface

function getThemesList: PPChar; cdecl;
procedure freeThemesList(list: PPChar); cdecl;
function getThemeIcon(themeName: PChar; buffer: PChar; buflen: Longword): Longword; cdecl;

implementation
uses uPhysFSLayer;

function getThemesList: PPChar; cdecl;
var list, res, tmp: PPChar;
    i, size: Longword;
begin
    list:= pfsEnumerateFiles('Themes');
    size:= 0;
    tmp:= list;
    while tmp^ <> nil do
    begin
        inc(size);
        inc(tmp)
    end;

    res:= GetMem((3 + size) * sizeof(PChar));
    res^:= PChar(list);
    inc(res);
    res^:= PChar(res + size + 2);
    inc(res);

    getThemesList:= res;

    for i:= 1 to size do
    begin
        if pfsExists('/Themes/' + shortstring(list^) + '/icon.png') then
        begin
            res^:= list^;
            inc(res)
        end;

        inc(list)
    end;

    res^:= nil
end;

procedure freeThemesList(list: PPChar); cdecl;
var listEnd: PPChar;
begin
    dec(list);
    listEnd:= PPChar(list^);
    dec(list);

    pfsFreeList(PPChar(list^));
    freeMem(list, (listEnd - list) * sizeof(PChar))
end;

function getThemeIcon(themeName: PChar; buffer: PChar; buflen: Longword): Longword; cdecl;
var s: shortstring;
    f: PFSFile;
begin
    s:= '/Themes/' + shortstring(themeName) + '/icon@2x.png';

    f:= pfsOpenRead(s);

    if f = nil then
        getThemeIcon:= 0
    else
    begin
        getThemeIcon:= pfsBlockRead(f, buffer, buflen);
        pfsClose(f)
    end;
end;

end.