mirror of
https://github.com/ultimatepp/ultimatepp.git
synced 2026-05-16 14:16:09 -06:00
341 lines
10 KiB
C++
341 lines
10 KiB
C++
#include "Debuggers.h"
|
|
|
|
#ifdef PLATFORM_WIN32
|
|
|
|
// THIS is currently hardwired to the current version of U++ Core...
|
|
|
|
// TODO: from->int64
|
|
|
|
void Pdb::PrettyString(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
bool small = IntAt(val, "chr", 14) == 0;
|
|
p.data_count = small ? IntAt(val, "chr", 15) : IntAt(val, "w", 2);
|
|
adr_t a = (small ? GetAttr(val, "chr") : DeRef(GetAttr(val, "ptr"))).address;
|
|
p.data_type << "char";
|
|
for(int i = 0; i < count; i++)
|
|
p.data_ptr.Add(a + from + i);
|
|
p.kind = TEXT;
|
|
}
|
|
|
|
void Pdb::PrettyWString(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
p.data_count = GetInt64(GetAttr(val, "length"));
|
|
adr_t a = DeRef(GetAttr(val, "ptr")).address;
|
|
p.data_type << "short int";
|
|
for(int i = 0; i < count; i++)
|
|
p.data_ptr.Add(a + from + 2 * i);
|
|
p.kind = TEXT;
|
|
}
|
|
|
|
void Pdb::PrettyVector(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
p.data_count = GetInt64(GetAttr(val, "items"));
|
|
Val item = DeRef(GetAttr(val, "vector"));
|
|
int sz = SizeOfType(tparam[0]);
|
|
for(int i = 0; i < count; i++)
|
|
p.data_ptr.Add(item.address + (i + from) * sz);
|
|
}
|
|
|
|
void Pdb::PrettyBiVector(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
p.data_count = GetInt64(GetAttr(val, "items"));
|
|
int start = GetInt(GetAttr(val, "items"));
|
|
int alloc = GetInt(GetAttr(val, "alloc"));
|
|
Val item = DeRef(GetAttr(val, "vector"));
|
|
int sz = SizeOfType(tparam[0]);
|
|
for(int i = 0; i < count; i++) {
|
|
int ii = i + start < alloc ? i + start : i + start - alloc;
|
|
p.data_ptr.Add(item.address + (ii + from) * sz);
|
|
}
|
|
}
|
|
|
|
void Pdb::PrettyIndex(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
return PrettyVector(GetAttr(val, "key"), tparam, from, count, p);
|
|
}
|
|
|
|
void Pdb::PrettyArray(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
PrettyVector(GetAttr(val, "vector"), { "int *" }, from, count, p);
|
|
for(adr_t& a : p.data_ptr)
|
|
a = PeekPtr(a);
|
|
}
|
|
|
|
void Pdb::PrettyBiArray(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
PrettyBiVector(GetAttr(val, "bv"), { "int *" }, from, count, p);
|
|
for(adr_t& a : p.data_ptr)
|
|
a = PeekPtr(a);
|
|
}
|
|
|
|
void Pdb::PrettyMap(Pdb::Pretty& p, Pdb::Pretty& key, Pdb::Pretty& value)
|
|
{
|
|
p.data_count = min(key.data_count, value.data_count);
|
|
int n = min(key.data_ptr.GetCount(), value.data_ptr.GetCount());
|
|
for(int i = 0; i < n; i++)
|
|
p.data_ptr << key.data_ptr[i] << value.data_ptr[i];
|
|
}
|
|
|
|
void Pdb::PrettyVectorMap(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
Pretty key, value;
|
|
PrettyIndex(GetAttr(val, "key"), { tparam[0] }, from, count, key);
|
|
PrettyVector(GetAttr(val, "value"), { tparam[1] }, from, count, value);
|
|
PrettyMap(p, key, value);
|
|
}
|
|
|
|
void Pdb::PrettyArrayMap(Pdb::Val val, const Vector<String>& tparam, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
Pretty key, value;
|
|
PrettyIndex(GetAttr(val, "key"), { tparam[0] }, from, count, key);
|
|
PrettyArray(GetAttr(val, "value"), { tparam[1] }, from, count, value);
|
|
PrettyMap(p, key, value);
|
|
}
|
|
|
|
void Pdb::PrettyDate(Pdb::Val val, const Vector<String>&, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
int day = GetIntAttr(val, "day");
|
|
int month = GetIntAttr(val, "month");
|
|
int year = GetIntAttr(val, "year");
|
|
p.kind = SINGLE_VALUE;
|
|
if(year < -20000)
|
|
p.text = "Null";
|
|
else
|
|
if(day >= 0 && day <= 31 && month >= 1 && month <= 12 && year > 1900 && year < 3000)
|
|
p.text = Format("%04d/%02d/%02d", year, month, day);
|
|
}
|
|
|
|
void Pdb::PrettyTime(Pdb::Val val, const Vector<String>&, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
int day = GetIntAttr(val, "day");
|
|
int month = GetIntAttr(val, "month");
|
|
int year = GetIntAttr(val, "year");
|
|
int hour = GetIntAttr(val, "hour");
|
|
int minute = GetIntAttr(val, "minute");
|
|
int second = GetIntAttr(val, "second");
|
|
p.kind = SINGLE_VALUE;
|
|
if(year < -20000)
|
|
p.text = "Null";
|
|
else
|
|
if(day >= 1 && day <= 31 && month >= 1 && month <= 12 && year > 1900 && year < 3000 &&
|
|
hour >= 0 && hour <= 24 && minute >= 0 && minute < 60 && second >= 0 && second < 60)
|
|
p.text = Format("%04d/%02d/%02d %02d:%02d:%02d", year, month, day, hour, minute, second);
|
|
}
|
|
|
|
void Pdb::PrettyValueArray_(adr_t a, Pdb::Pretty& p)
|
|
{
|
|
Val v = GetAttr(MakeVal("Upp::ValueArray::Data", PeekPtr(a)), "data");
|
|
p.data_type << "Upp::Vector<Upp::Value>";
|
|
p.data_ptr << v.address;
|
|
p.kind = SINGLE_VALUE;
|
|
}
|
|
|
|
void Pdb::PrettyValueArray(Pdb::Val val, const Vector<String>&, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
PrettyValueArray_(GetAttr(val, "data").address, p);
|
|
}
|
|
|
|
void Pdb::PrettyValueMap_(adr_t a, Pdb::Pretty& p, int64 from, int count)
|
|
{
|
|
p.kind = CONTAINER;
|
|
p.data_type << "Upp::Value" << "Upp::Value";
|
|
|
|
Pretty key, value;
|
|
Val m = MakeVal("Upp::ValueMap::Data", PeekPtr(a));
|
|
PrettyIndex(GetAttr(m, "key"), { "Upp::Value" }, from, count, key);
|
|
PrettyVector(GetAttr(DeRef(GetAttr(GetAttr(m, "value"), "data")), "data"),
|
|
{ "Upp::Value" }, from, count, value);
|
|
PrettyMap(p, key, value);
|
|
}
|
|
|
|
void Pdb::PrettyValueMap(Pdb::Val val, const Vector<String>&, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
PrettyValueMap_(GetAttr(val, "data").address, p, from, count);
|
|
}
|
|
|
|
void Pdb::PrettyValue(Pdb::Val val, const Vector<String>&, int64 from, int count, Pdb::Pretty& p)
|
|
{
|
|
val = GetAttr(val, "data");
|
|
adr_t a = val.address;
|
|
p.kind = SINGLE_VALUE;
|
|
if(PeekWord(a + 12) && !PeekWord(a + 14)) { // this is not String
|
|
int st = PeekByte(a + 13);
|
|
if(st == 255) { // REF
|
|
st = PeekDword(a + 8);
|
|
if(st == 8) { // WSTRING_V
|
|
a = PeekPtr(a);
|
|
Val v = GetAttr(MakeVal("Upp::RawValueRep<Upp::WString>", a), "v");
|
|
p.data_type << "Upp::WString";
|
|
p.data_ptr << v.address;
|
|
}
|
|
if(st == 9) // VALUEARRAY_V
|
|
PrettyValueArray_(a, p);
|
|
if(st == 12)
|
|
PrettyValueMap_(a, p, from, count);
|
|
return;
|
|
}
|
|
p.data_ptr << a;
|
|
if(st == 3) {
|
|
p.text = "void";
|
|
return;
|
|
}
|
|
String t = decode(st, 1, "int", 2, "double", 4, "Upp::Date", 5, "Upp::Time",
|
|
10, "int64", 11, "bool", "");
|
|
if(t.GetCount())
|
|
p.data_type << t;
|
|
}
|
|
else {
|
|
p.data_ptr << a;
|
|
p.data_type << "Upp::String";
|
|
}
|
|
}
|
|
|
|
Pdb::Val Pdb::MakeVal(const String& type, adr_t address)
|
|
{
|
|
Val item;
|
|
(TypeInfo &)item = GetTypeInfo(type);
|
|
item.address = address;
|
|
return item;
|
|
}
|
|
|
|
bool Pdb::PrettyData(Visual& result, Pdb::Val val, dword flags)
|
|
{
|
|
const Type& t = GetType(val.type);
|
|
|
|
current_modbase = t.modbase; // so that we do not need to pass it as parameter in Pretty routines
|
|
|
|
int count = 0;
|
|
|
|
auto ResultCount = [&](int64 count) {
|
|
if(!(flags & MEMBER)) {
|
|
result.Cat("[", SLtBlue);
|
|
result.Cat(AsString(count), SRed);
|
|
result.Cat("] ", SLtBlue);
|
|
}
|
|
};
|
|
|
|
String type = t.name;
|
|
Vector<String> type_param;
|
|
int q = type.Find('<');
|
|
if(q >= 0) {
|
|
int e = type.ReverseFind('>');
|
|
if(e >= 0) {
|
|
int lvl = 0;
|
|
int i = q + 1;
|
|
int b = i;
|
|
while(i < type.GetCount()) {
|
|
if(findarg(type[i], ',', '>') >= 0 && lvl == 0) {
|
|
if(i > b)
|
|
type_param.Add(TrimBoth(type.Mid(b, i - b)));
|
|
b = i + 1;
|
|
}
|
|
if(type[i] == '<')
|
|
lvl++;
|
|
else
|
|
if(type[i] == '>') {
|
|
if(lvl == 0)
|
|
break;
|
|
lvl--;
|
|
}
|
|
i++;
|
|
}
|
|
|
|
type = TrimBoth(type.Mid(0, q));
|
|
}
|
|
}
|
|
|
|
|
|
if(pretty.GetCount() == 0) {
|
|
pretty.Add("Upp::Date", { 0, THISFN(PrettyDate) });
|
|
pretty.Add("Upp::Time", { 0, THISFN(PrettyTime) });
|
|
pretty.Add("Upp::ValueArray", { 0, THISFN(PrettyValueArray) });
|
|
pretty.Add("Upp::ValueMap", { 0, THISFN(PrettyValueMap) });
|
|
pretty.Add("Upp::Value", { 0, THISFN(PrettyValue) });
|
|
pretty.Add("Upp::String", { 0, THISFN(PrettyString) });
|
|
pretty.Add("Upp::WString", { 0, THISFN(PrettyWString) });
|
|
pretty.Add("Upp::Vector", { 1, THISFN(PrettyVector) });
|
|
pretty.Add("Upp::BiVector", { 1, THISFN(PrettyBiVector) });
|
|
pretty.Add("Upp::Array", { 1, THISFN(PrettyArray) });
|
|
pretty.Add("Upp::BiArray", { 1, THISFN(PrettyBiArray) });
|
|
pretty.Add("Upp::Index", { 1, THISFN(PrettyIndex) });
|
|
pretty.Add("Upp::VectorMap", { 2, THISFN(PrettyVectorMap) });
|
|
pretty.Add("Upp::ArrayMap", { 2, THISFN(PrettyArrayMap) });
|
|
}
|
|
|
|
int ii = pretty.Find(type);
|
|
while(ii >= 0) {
|
|
const auto& pr = pretty[ii];
|
|
if(type_param.GetCount() >= pr.a) {
|
|
Pretty p;
|
|
p.kind = CONTAINER;
|
|
p.data_type.Append(type_param, 0, pr.a);
|
|
pr.b(val, type_param, 0, 0, p);
|
|
p.data_type.Trim(pr.a);
|
|
p.data_ptr.Clear();
|
|
|
|
if(p.kind == TEXT) {
|
|
int count = (int)min(p.data_count, (int64)200);
|
|
pr.b(val, type_param, 0, count, p);
|
|
if(p.data_type.GetCount()) {
|
|
String s;
|
|
WString ws;
|
|
int sz = SizeOfType(p.data_type[0]);
|
|
for(adr_t a : p.data_ptr) {
|
|
if(sz == 1)
|
|
s.Cat(PeekByte(a));
|
|
else
|
|
ws.Cat(PeekWord(a));
|
|
}
|
|
ResultCount(p.data_count);
|
|
result.Cat(AsCString(sz == 1 ? s : ws.ToString()), SRed);
|
|
if(p.data_count > p.data_ptr.GetCount())
|
|
result.Cat("..", SGray);
|
|
}
|
|
}
|
|
else
|
|
if(p.kind == SINGLE_VALUE) {
|
|
pr.b(val, type_param, 0, 1, p);
|
|
if(p.text.GetCount())
|
|
result.Cat(p.text, SRed);
|
|
else
|
|
if(p.data_type.GetCount() && p.data_ptr.GetCount())
|
|
Visualise(result, MakeVal(p.data_type[0], p.data_ptr[0]), flags);
|
|
else
|
|
Visualise(result, val, flags | RAW);
|
|
}
|
|
else { // CONTAINER
|
|
int count = (int)min(p.data_count, (int64)40);
|
|
pr.b(val, type_param, 0, count, p);
|
|
|
|
ResultCount(p.data_count);
|
|
if(p.data_type.GetCount()) {
|
|
Buffer<Val> item(p.data_type.GetCount());
|
|
for(int i = 0; i < p.data_type.GetCount(); i++) {
|
|
(TypeInfo &)item[i] = GetTypeInfo(p.data_type[i]);
|
|
item[i].context = val.context;
|
|
}
|
|
int ii = 0;
|
|
int n = p.data_ptr.GetCount() / p.data_type.GetCount();
|
|
for(int i = 0; i < n; i++) {
|
|
if(i)
|
|
result.Cat(", ", SGray);
|
|
for(int j = 0; j < p.data_type.GetCount(); j++) {
|
|
if(j)
|
|
result.Cat(": ", SBlue);
|
|
item[j].address = p.data_ptr[ii++];
|
|
Visualise(result, item[j], flags | MEMBER);
|
|
}
|
|
}
|
|
}
|
|
|
|
if(p.data_count > count)
|
|
result.Cat("..", SGray);
|
|
}
|
|
return true;
|
|
}
|
|
ii = pretty.FindNext(ii);
|
|
}
|
|
return false;
|
|
}
|
|
|
|
#endif
|