File: DAPVariableListCtrl.cpp

package info (click to toggle)
codelite 17.0.0%2Bdfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 136,244 kB
  • sloc: cpp: 491,547; ansic: 280,393; php: 10,259; sh: 8,930; lisp: 7,664; vhdl: 6,518; python: 6,020; lex: 4,920; yacc: 3,123; perl: 2,385; javascript: 1,715; cs: 1,193; xml: 1,110; makefile: 804; cobol: 741; sql: 709; ruby: 620; f90: 566; ada: 534; asm: 464; fortran: 350; objc: 289; tcl: 258; java: 157; erlang: 61; pascal: 51; ml: 49; awk: 44; haskell: 36
file content (124 lines) | stat: -rw-r--r-- 3,438 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#include "DAPVariableListCtrl.hpp"

#include "globals.h"
#include "macros.h"

#include <wx/menu.h>
#include <wx/xrc/xmlres.h>

#if defined(__WXMSW__) || defined(__WXMAC__)
#define BORDER_STYLE wxBORDER_SIMPLE
#else
#define BORDER_STYLE wxBORDER_THEME
#endif

DAPVariableListCtrl::DAPVariableListCtrl(wxWindow* parent, dap::Client* client, dap::EvaluateContext dapContext,
                                         wxWindowID id, const wxPoint& pos, const wxSize& size)
    : clThemedTreeCtrl(parent, id, pos, size, BORDER_STYLE | wxTR_HIDE_ROOT | wxTR_MULTIPLE)
    , m_client(client)
    , m_dapContext(dapContext)
{
    SetShowHeader(false);
    AddHeader(_("Expression"));
    AddHeader(_("Value"));
    AddHeader(_("Type"));
    AddRoot(_("Variables"));

    Bind(wxEVT_TREE_ITEM_EXPANDING, &DAPVariableListCtrl::OnItemExpanding, this);
    Bind(wxEVT_TREE_ITEM_MENU, &DAPVariableListCtrl::OnMenu, this);
}

DAPVariableListCtrl::~DAPVariableListCtrl() {}

void DAPVariableListCtrl::OnItemExpanding(wxTreeEvent& event)
{
    event.Skip();
    auto item = event.GetItem();
    CHECK_ITEM_RET(item);
    CHECK_COND_RET(ItemHasChildren(item));

    wxTreeItemIdValue cookie;
    auto child = GetFirstChild(item, cookie);
    CHECK_ITEM_RET(child);

    wxString text = GetItemText(child);
    if(text != "<dummy>") {
        // already evaluated
        return;
    }

    // remove the fake children
    DeleteChildren(item);

    auto cd = GetItemData(item);
    CHECK_COND_RET(cd->refId != wxNOT_FOUND);

    m_client->GetChildrenVariables(cd->refId, m_dapContext);
    m_pending_items.insert({ cd->refId, item });
}

void DAPVariableListCtrl::OnMenu(wxTreeEvent& event)
{
    auto item = event.GetItem();
    CHECK_ITEM_RET(item);

    wxMenu menu;
    menu.Append(XRCID("dap_copy_var_value"), _("Copy"));
    menu.Bind(
        wxEVT_MENU,
        [this, item](wxCommandEvent& e) {
            wxUnusedVar(e);
            auto cd = GetItemData(item);
            CHECK_PTR_RET(cd);
            ::CopyToClipboard(cd->value);
        },
        XRCID("dap_copy_var_value"));
    PopupMenu(&menu);
}

DAPVariableListCtrlItemData* DAPVariableListCtrl::GetItemData(const wxTreeItemId& item)
{
    if(!item) {
        return nullptr;
    }

    auto ptr = clThemedTreeCtrl::GetItemData(item);
    CHECK_PTR_RET_NULL(ptr);

    return dynamic_cast<DAPVariableListCtrlItemData*>(ptr);
}

void DAPVariableListCtrl::AddWatch(const wxString& expression, const wxString& value, const wxString& type, int varRef)
{
    wxString root_text;
    auto root = GetRootItem();
    auto item = AppendItem(root, expression, -1, -1, new DAPVariableListCtrlItemData(varRef, value));
    SetItemText(item, value, 1);
    SetItemText(item, type, 2);
    if(varRef > 0) {
        AppendItem(item, "<dummy>");
    }
}

void DAPVariableListCtrl::UpdateChildren(int varId, dap::VariablesResponse* response)
{
    if(m_pending_items.count(varId) == 0) {
        return;
    }

    wxTreeItemId item = m_pending_items[varId];
    m_pending_items.erase(varId);

    // update the tree
    for(auto var : response->variables) {
        auto child =
            AppendItem(item, var.name, -1, -1, new DAPVariableListCtrlItemData(var.variablesReference, var.value));
        SetItemText(child, var.value, 1);
        SetItemText(child, var.type, 2);

        if(var.variablesReference > 0) {
            AppendItem(child, "<dummy>");
        }
    }
    Expand(item);
}