unit jtag.svfAstEndDR;

interface
uses
   jtag.svfAstNode,
   jtag.svfLex;

type
   TsvfAstEndDR = class( TsvfAstNode)
      private
         fState   : byte;

      public
         function    AsText: AnsiString; override;
      public
         constructor Create(State: byte);

      public
         property State: byte read fState;

   end;

implementation
uses
   System.SysUtils,
   jtag.svfProgram;

{ TsvfAstEndDR }

// ================================================================================================
// Constructor
// ================================================================================================
constructor TsvfAstEndDR.Create(State: byte);
begin
   inherited Create;
   fState := State;
end;

// ================================================================================================
// As Text
// ================================================================================================
function TsvfAstEndDR.AsText: AnsiString;
var
   s: AnsiString;

begin
   case fState of
      stRESET     : s := 'RESET';
      stIDLE      : s := 'IDLE';
      stDRPAUSE   : s := 'DRPAUSE';
      stIRPAUSE   : s := 'IRPAUSE';
   end;

   result := 'ENDDR ' +s+ ';' +#13#10;
end;

end.