Debug data in Struct and List

Just starting out? Need help? Post your questions and find answers here.
lesserpanda
User
User
Posts: 65
Joined: Tue Feb 11, 2020 7:50 am

Debug data in Struct and List

Post by lesserpanda »

Hello,

I was wondering how best to display Debug information on Structs and Structs in List without having to write a different procedure

much like var_dump(x) does in PHP
User avatar
mk-soft
Always Here
Always Here
Posts: 5313
Joined: Fri May 12, 2006 6:51 pm
Location: Germany

Re: Debug data in Struct and List

Post by mk-soft »

Sometime help this ...

Code: Select all

CompilerIf #PB_Compiler_Debugger
  Macro _dq_
    "
  EndMacro
  
  Macro dump_struct(var_addr, struct)
    Define dump_json = CreateJSON(#PB_Any)
    If dump_json
      InsertJSONStructure(JSONValue(dump_json), var_addr, struct)
      Debug _dq_#var_addr#_dq_ + ComposeJSON(dump_json, #PB_JSON_PrettyPrint)
      FreeJSON(dump_json)
    EndIf
  EndMacro
CompilerElse
  Macro dump_struct(var_addr, struct)
  EndMacro
CompilerEndIf

Structure udtData
  Name.s
  Age.i
EndStructure

Define var.udtData
Define var2.udtData

var\Name = "Hello World!"
var\Age = 100
dump_struct(var, udtData)
dump_struct(var2, udtData)
My Projects ThreadToGUI / OOP-BaseClass / EventDesigner V3
PB v3.30 / v5.75 - OS Mac Mini OSX 10.xx - VM Window Pro / Linux Ubuntu
Downloads on my Webspace / OneDrive
Post Reply