source: branches/xpascal/Interpreter.pas

unit Interpreter;

interface

uses
  Classes, SysUtils, Parser, Executor;

type

  { TInterpreter }

  TInterpreter = class
  private
    Parser: TParser;
    Executor: TExecutor;
  public
    Source: string;
    procedure Compile;
    procedure Run;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TInterpreter }

procedure TInterpreter.Compile;
begin
  Parser.Source := Source;
  Parser.Parse;
end;

procedure TInterpreter.Run;
begin
  Parser.Source := Source;
  Parser.Parse;
  Executor.Prog := Parser.Prog;
  Executor.Run;
end;

constructor TInterpreter.Create;
begin
  Parser := TParser.Create;
  Executor := TExecutor.Create;
end;

destructor TInterpreter.Destroy;
begin
  Executor.Free;
  Parser.Free;
  inherited;
end;

end.