Question

我正在尝试使用DWScript创建一个Read-eval-print循环（REPL），我不确定这是否可行。

根据名称，我假设RecompileInContext在这种情况下可以正常工作，但我遇到了一些限制：

程序中永远包含一个有缺陷的行：未来的运行将始终因该行而失败
我没有找到输入变量值的方法，只需输入即可。例如，在键入var test = "content";然后test时，应显示content。据我所知，使用print或println无法正常工作，因为它们将在每次运行时执行

所以我的问题是：是否可以使用DWScript创建REPL？

这是我到目前为止所得到的：

program DwsRepl;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  dwsComp,
  dwsCompiler,
  dwsExprs;

var
  oCompiler: TDelphiWebScript;
  oProgram: IdwsProgram;
  oExecution: IdwsProgramExecution;
  sInput: string;
begin
  try
    oCompiler := TDelphiWebScript.Create(nil);
    try
      oProgram := oCompiler.Compile('', 'ReplScript');
      oExecution := oProgram.BeginNewExecution;
      try
        while True do
        begin
          Write('> ');
          // Read user input
          Readln(sInput);
          // Exit if needed
          if sInput = '' then Break;
          // Compile
          oCompiler.RecompileInContext(oProgram, sInput);
          if not oProgram.Msgs.HasErrors then
          begin
            oExecution.RunProgram(0);
            // Output
            if not oExecution.Msgs.HasErrors then
             Writeln(oExecution.Result.ToString)
            else
             Writeln('EXECUTION ERROR: ' + oExecution.Msgs.AsInfo);
          end
          else
           Writeln('COMPILE ERROR: ' + oProgram.Msgs.AsInfo);
        end;
      finally
        oExecution.EndProgram;
      end;
    finally
      oCompiler.Free();
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Answer 1

您可以使用TdwsCompiler.Evaluate将代码段编译为IdwsEvaluateExpr，然后可以使用yourEvaluateExpr.Expression.EvalAsString将包含的表达式计算为字符串

以上是用于调试评估，表达式监视或条件断点的典型机制（虽然并不总是作为字符串求值，但表达式可以返回一个对象，一个数组等，或者可以保存一个不返回任何内容的语句）。

RecompileInContext将保留声明，但扔掉＆＃34; main＆＃34;代码，因此主代码中的错误不会影响将来的运行，但如果您为变量或错误的函数实现声明了错误类型，它将保留在脚本上下文中。

但是消息列表不会自动清除，您必须自己清除它（最初RecompileInContext旨在处理更大源中的小脚本片段，因此在消息列表中保留尽可能多的错误是所需的行为，因此正确的最后一个脚本不会“＃34;擦除错误的第一个脚本的错误”

是否可以使用DWScript创建Read-eval-print循环（REPL）？

1 个答案: