LoTROInterface SVN SequenceBars

ExportWindow = class();

function ExportWindow:Constructor(title, exportData)

    local prevContext = L:SetContext("/ExportWindow");

    self.uncompressedData = PrettyPrint(exportData, "");

    self.compactData = Serialize(exportData);

    -- Sanity check:

    local f, e = loadstring("return " .. self.compactData);

    if (not f) then

        Puts(L:GetText("/ImportWindow/ParseError") .. tostring(e));

        return self:Close();

    end

    self.ok = L:GetText("OK");

    self.window = Alert(title, "", self.ok);

    self.window:SetSize(423, 300);

    self.window:SetMinimumSize(423, 300);

    CenterWindow(self.window);

    self.window:SetZOrder(2147483647);

    self.okButton = self.window.buttons[self.ok];

    self.okButton:SetEnabled(false);

    self.okButton.Click = function()

        self.window:Close();

    end

    -- Workaround for a bug in the Turbine.UI.Label control: It fails to display certain sequences including "<>" even when markup is disabled.

    self.window.label.SetText = function(ctl, text)

        Turbine.UI.Label.SetText(ctl, "");

        local firstPart = "";

        repeat

            Turbine.UI.Label.AppendText(ctl, firstPart);

            text = text:sub(firstPart:len() + 1);

            firstPart = text:match("^(.-<)>");

        until (not firstPart);

        Turbine.UI.Label.AppendText(ctl, text);

    end

    self.compressed = Turbine.UI.Lotro.CheckBox();

    self.compressed:SetParent(self.window);

    self.compressed:SetSize(100, 20);

    self.compressed:SetFont(Turbine.UI.Lotro.Font.TrajanPro14);

    self.compressed:SetText(L:GetText("Compressed"));

    self.compressed:SetEnabled(false);

    self.compressed.CheckedChanged = function(control)

        if (control:IsChecked()) then

            self.window.label:SetText(self.compressedData);

        else

            if (#self.uncompressedData > 65535) then

                Puts(L:GetText("/ExportWindow/UncompressedDataTooBig"));

                control:SetChecked(true);

            else

                self.window.label:SetText(self.uncompressedData);

            end

        end

    end

    -- Compress the data in the next Update cycle.

    self.window:SetWantsUpdates(true);

    self.window.updateCount = 0;

    self.window.Update = function(w)

        w.updateCount = w.updateCount + 1;

        if (w.updateCount == 1) then

            w.label:SetText(L:GetText("/ExportWindow/Compressing"));

            Puts(L:GetText("/ExportWindow/Compressing"));

        elseif (w.updateCount == 3) then

            w.compressor = Thurallor.Utils.LibCompress();

        elseif (w.updateCount == 4) then

            -- Apparently the LZW encoding function can produce incorrect results, so we'll only use Huffman.

            --self.compressedData = w.compressor:Compress(self.compactData);

            self.compressedData = w.compressor:CompressHuffman(self.compactData);

            -- Sanity check: Uncompress the compressed data and verify that the result is the same as the original data.

            if (w.compressor:Decompress(self.compressedData) ~= self.compactData) then

                Puts(L:GetText("/ExportWindow/CompressionFailed"));

                w.updateCount = -1; -- error; close window at next frame

            end

        elseif (w.updateCount == 5) then

            w.label:SetText(w.label:GetText() .. "\n" .. L:GetText("/ExportWindow/Encoding"));

            Puts(L:GetText("/ExportWindow/Encoding"));

        elseif (w.updateCount == 7) then

            self.compressedData = Bin2Text(self.compressedData);

--local ratio = (1 - #self.compressedData / #self.uncompressedData) * 100;

--Puts("Compressed " .. tostring(#self.uncompressedData) .. " bytes by " .. string.format("%.0f%%", ratio) .. " to " .. tostring(#self.compressedData) .. " bytes.");

            if (#self.compressedData > 65535) then

                Puts(L:GetText("/ExportWindow/ExportFailedTooBig"));

                w.updateCount = -1; -- error; close window at next frame

                return;

            end

            -- Sanity check: Decode and decompress the data and verify that the result is the same as the original data.

            if (w.compressor:Decompress(Text2Bin(self.compressedData)) ~= self.compactData) then

                Puts(L:GetText("/ExportWindow/EncodingFailed"));

                w.updateCount = -1; -- error; close window at next frame

            end

        elseif (w.updateCount == 8) then

            self.compressed:SetChecked(true); -- trigger CheckedChanged callback

        elseif (w.updateCount == 9) then

            w.compressor = nil;

            self.compressed:SetEnabled(true);

            self.okButton:SetEnabled(true);

            self.window:Activate();

            self.window.label:SelectAll();

            self.window.label:Focus();

            w:SetWantsUpdates(false);

        elseif (w.updateCount == 0) then -- error

            w:SetWantsUpdates(false);

            w:Close();

        end

    end

    AddCallback(self.window, "Closing", function()

        if (self.Closing) then

            self:Closing();

        end

    end);

    AddCallback(self.window, "SizeChanged", function()

        self:SizeChanged();

    end);

    self:SizeChanged();

    L:SetContext(prevContext);

end

function ExportWindow:SizeChanged()

    local left, top = self.window.buttons[self.ok]:GetPosition();

    self.compressed:SetPosition(left - 120, top);

end

function ExportWindow:Close()

    self.window:Close();

end