#include "wxmain.hpp"

#include <wx/filename.h>
#include <wx/sizer.h>

MainFrame::MainFrame() : wxFrame(nullptr, -1, "Hello world", wxPoint(50, 50), wxSize(640, 800))
{

    auto window = new wxBoxSizer(wxVERTICAL);

    auto toolbar = new wxBoxSizer(wxHORIZONTAL);
    toolbar->Add(new wxButton(this, Id::Single, "Run"), 0, wxALL, 10);
    toolbar->Add(new wxButton(this, Id::UploadFilter, "Upload Filter"), 0, wxALL, 10);
    toolbar->AddStretchSpacer(2);
    toolbar->Add(new wxButton(this, Id::ConnectDevice, "Connect"), 0, wxALL, 10);
    window->Add(toolbar, 0, wxALL | wxEXPAND);

    m_text_editor = new wxStyledTextCtrl(this, wxID_ANY, wxDefaultPosition, wxSize(600, 420));
    prepareEditor();
    window->Add(m_text_editor, 1, wxEXPAND | wxALL, 10);

    m_signal_area = new wxControl(this, wxID_ANY, wxDefaultPosition, wxSize(600, 200));
    window->Add(m_signal_area, 1, wxEXPAND | wxALL, 10);

    SetSizerAndFit(window);

    m_render_timer = new wxTimer(this, Id::RenderTimer);

    Bind(wxEVT_BUTTON, &MainFrame::onSinglePressed, this, Id::Single);
    Bind(wxEVT_BUTTON, &MainFrame::onUploadPressed, this, Id::UploadFilter);
    Bind(wxEVT_BUTTON, &MainFrame::onConnectPressed, this, Id::ConnectDevice);
    Bind(wxEVT_PAINT, &MainFrame::onPaint, this, wxID_ANY);
    Bind(wxEVT_TIMER, &MainFrame::onRenderTimer, this, Id::RenderTimer);
}

void MainFrame::onPaint([[maybe_unused]] wxPaintEvent& pe)
{
    auto *dc = new wxClientDC(this);
    auto region = m_signal_area->GetRect();
    dc->SetClippingRegion(region);

    dc->SetBrush(*wxBLACK_BRUSH);
    dc->SetPen(*wxBLACK_PEN);
    dc->DrawRectangle(region);

    if (m_device_samples.size() > 0) {
        dc->SetPen(*wxRED_PEN);
        auto points = new wxPoint[m_device_samples.size()];
        const float spacing = static_cast<float>(region.GetWidth()) / m_device_samples.size();
        float x = 0;
        for (auto ptr = points; auto sample : m_device_samples) {
            *ptr++ = wxPoint {
                static_cast<int>(x),
                region.GetHeight() - sample * region.GetHeight() / 4096
            };
            x += spacing;
        }
        dc->DrawLines(m_device_samples.size(), points, region.GetX(), region.GetY());
        delete[] points;
    }
}

void MainFrame::onConnectPressed(wxCommandEvent& ce)
{
    auto button = dynamic_cast<wxButton *>(ce.GetEventObject());

    if (m_device == nullptr) {
        stmdsp::scanner scanner;
        if (auto devices = scanner.scan(); devices.size() > 0) {
            m_device = new stmdsp::device(devices.front());
            if (m_device->connected()) {
                button->SetLabel("Disconnect");
            } else {
                delete m_device;
                m_device = nullptr;
                button->SetLabel("Connect");
            }
        }
    } else {
        delete m_device;
        m_device = nullptr;
        button->SetLabel("Connect");
    }
}

void MainFrame::doSingle()
{
    m_device_samples_future = std::async(std::launch::async,
                                         [this]() { return m_device->continuous_read(); });
}

void MainFrame::onSinglePressed(wxCommandEvent& ce)
{
    auto button = dynamic_cast<wxButton *>(ce.GetEventObject());

    if (!m_render_timer->IsRunning()) {
        if (m_device != nullptr && m_device->connected()) {
            m_device->continuous_start();
            m_device_samples_future = std::async(std::launch::async,
                                                 []() { return decltype(m_device_samples)(); });
            m_render_timer->Start(1000);
            button->SetLabel("Stop");
        }
    } else {
        m_render_timer->Stop();
        m_device->continuous_stop();

        //m_device_samples.clear();
        //this->RefreshRect(m_signal_area->GetRect());

        button->SetLabel("Run");
    }
}

void MainFrame::onUploadPressed([[maybe_unused]] wxCommandEvent& ce)
{
    //wxFileDialog dialog (this, "Select filter to upload", "", "", "*.so",
    //                     wxFD_OPEN | wxFD_FILE_MUST_EXIST);
    //if (dialog.ShowModal() != wxID_CANCEL) {
    if (auto file = compileEditorCode(); !file.IsEmpty()) {
        if (wxFileInputStream file_stream (/*dialog.GetPath()*/file); file_stream.IsOk()) {
            auto size = file_stream.GetSize();
            auto buffer = new unsigned char[size];
            if (m_device != nullptr && m_device->connected()) {
                file_stream.ReadAll(buffer, size);
                m_device->upload_filter(buffer, size);
            }
        }
    }
}

void MainFrame::onRenderTimer([[maybe_unused]] wxTimerEvent& te)
{
    updateDrawing();
}

void MainFrame::updateDrawing()
{
    if (m_device_samples = m_device_samples_future.get(); m_device_samples.size() > 0)
        this->RefreshRect(m_signal_area->GetRect());

    doSingle();
}

void MainFrame::prepareEditor()
{
    m_text_editor->SetLexer(wxSTC_LEX_CPP);
    m_text_editor->SetMarginWidth(0, 30);
    m_text_editor->SetMarginType(0, wxSTC_MARGIN_NUMBER);
    m_text_editor->StyleSetFaceName(wxSTC_STYLE_DEFAULT, "Hack");
    m_text_editor->StyleClearAll();
    m_text_editor->SetTabWidth(4);
    m_text_editor->StyleSetForeground(wxSTC_STYLE_LINENUMBER, wxColor(75, 75, 75));
    m_text_editor->StyleSetBackground(wxSTC_STYLE_LINENUMBER, wxColor(220, 220, 220));

    m_text_editor->StyleSetForeground(wxSTC_C_STRING,            wxColour(150,0,0));
    m_text_editor->StyleSetForeground(wxSTC_C_PREPROCESSOR,      wxColour(165,105,0));
    m_text_editor->StyleSetForeground(wxSTC_C_IDENTIFIER,        wxColour(40,0,60));
    m_text_editor->StyleSetForeground(wxSTC_C_NUMBER,            wxColour(0,150,0));
    m_text_editor->StyleSetForeground(wxSTC_C_CHARACTER,         wxColour(150,0,0));
    m_text_editor->StyleSetForeground(wxSTC_C_WORD,              wxColour(0,0,150));
    m_text_editor->StyleSetForeground(wxSTC_C_WORD2,             wxColour(0,150,0));
    m_text_editor->StyleSetForeground(wxSTC_C_COMMENT,           wxColour(150,150,150));
    m_text_editor->StyleSetForeground(wxSTC_C_COMMENTLINE,       wxColour(150,150,150));
    m_text_editor->StyleSetForeground(wxSTC_C_COMMENTDOC,        wxColour(150,150,150));
    m_text_editor->StyleSetForeground(wxSTC_C_COMMENTDOCKEYWORD, wxColour(0,0,200));
    m_text_editor->StyleSetForeground(wxSTC_C_COMMENTDOCKEYWORDERROR, wxColour(0,0,200));
    m_text_editor->StyleSetBold(wxSTC_C_WORD, true);
    m_text_editor->StyleSetBold(wxSTC_C_WORD2, true);
    m_text_editor->StyleSetBold(wxSTC_C_COMMENTDOCKEYWORD, true);

    // a sample list of keywords, I haven't included them all to keep it short...
    m_text_editor->SetKeyWords(0,
        wxT("return for while do break continue if else goto"));
    m_text_editor->SetKeyWords(1,
        wxT("void char short int long auto float double unsigned signed "
            "volatile static const constexpr constinit consteval "
            "virtual final noexcept public private protected"));
    m_text_editor->SetText("void process_data(adcsample_t *samples, unsigned int size)\n{\n\t\n}\n");
}

static const char *makefile_text = R"make(
all:
	@arm-none-eabi-g++ -x c++ -mcpu=cortex-m4 -mthumb -Os --specs=nosys.specs -nostartfiles -fPIE -c $0 -o $0.o
	@arm-none-eabi-ld -shared -n -N -z max-page-size=512 -Ttext-segment=0 \
	    $0.o -o $0.so
	@arm-none-eabi-strip -s -S --strip-unneeded $0.so
	@arm-none-eabi-objcopy --remove-section .dynsym \
						   --remove-section .dynstr \
						   --remove-section .dynamic \
						   --remove-section .hash \
						   --remove-section .ARM.exidx \
						   --remove-section .ARM.attributes \
						   --remove-section .comment \
						   $0.so
)make";

static const char *file_header = R"cpp(
#include <cstdint>

using adcsample_t = uint16_t;

__attribute__((section(".process_data"))) void process_data(adcsample_t *samples, unsigned int size);

// End stmdspgui header code

)cpp";

wxString MainFrame::compileEditorCode()
{
    auto file_text = wxString(file_header) + m_text_editor->GetText();
    auto file_name = wxFileName::CreateTempFileName("stmdspgui");
    wxFile file (file_name, wxFile::write);
    file.Write(file_text);
    file.Close();

    wxFile makefile (file_name + "make", wxFile::write);
    wxString make_text (makefile_text);
    make_text.Replace("$0", file_name);
    makefile.Write(make_text);
    makefile.Close();

    wxString make_command = wxString("make -C ") + file_name.BeforeLast('/') +
                            " -f " + file_name + "make";
    if (system(make_command.ToAscii()) == 0)
        return file_name + ".so";
    else
        return "";
}