如何创建“局部变量”使用 DWScript 及其调试器显示

Question

我正在为 DWScript 编写一个 IDE，并使用调试器让它逐步执行代码。我现在希望添加“局部变量”的显示（即范围内的变量）。有人可以给我指点一下执行此操作的方法吗？我可以获得所有符号的列表，但不明白如何获取事物的当前范围部分。 谢谢。

Answer 1

将IdwsProgramExecution转换为TdwsProgramExecution，您将获得对“CurrentProg”属性的访问权限，这是一个TdwsProgram，是TdwsMainProgram（如果您在主程序中）或TdwsProcedure（如果您在过程/函数/方法）。这些将有一个 Table 属性，其中列出了本地符号，这是最直接的范围。
该表将有一个或多个父级，它引用父级范围（按源代码范围分层）。

如果在 TdwsProcedure 中，您可能还想查看其 FuncSymbol 属性，该属性将有一个参数表（如果您想直接将参数与其余参数隔离，这很有用）本地范围）

Answer 2

对于阅读此问题的任何其他人，我将展示一些与获取符号值有关的补充信息。该符号是按照 Eric 上面的描述找到的，但很难弄清楚如何获取该符号的实际值。下面的代码是每次调用时用局部变量填充 TMemo (memLocalVariables) 的过程。缺少一些功能，例如变量值的整洁格式和对调用参数的访问。我从调试器“dsDebugSuspished”状态调用此方法。不太直观的一点是对堆栈上符号数据的访问以及堆栈基址指针的使用。了解编译器如何工作的好方法！但是，也许在某个地方我还没有找到一个实用函数......？埃里克？

  procedure DrawLocalVariables;
  var
    ProgramExecution : TdwsProgramExecution;
    I   : integer;
    Sym : TSymbol;
    V   : variant;
    Adr : integer;
    SymbolTable : TSymbolTable;
  begin
    memLocalVariables.Lines.Clear;

    ProgramExecution := TdwsProgramExecution( dwsDebugger1.Execution );
    SymbolTable := ProgramExecution.CurrentProg.Table;
    For I := 0 to SymbolTable.Count-1 do
      begin
      Sym := SymbolTable[I];
      if Sym is TDataSymbol then
        begin
        Adr := TDataSymbol( Sym).StackAddr + ProgramExecution.Stack.BasePointer;
        ProgramExecution.Stack.ReadValue( Adr, V );
        memLocalVariables.Lines.Add( Format( '%s = %s', [ Sym.Name, VarToStr(V) ] ));
        end;
      end;
  end;