unit jtag.svfAstEndIR;

interface
uses
   jtag.svfAstNode,
   jtag.svfLex;

type
   TsvfAstEndIR = class( TsvfAstNode)
      private
         fState   : byte;
         fStateX  : TTokenType;

      public
         function    AsText: AnsiString; override;

      public
         constructor Create(State: byte);

      public
         property State: byte read fState;

   end;


implementation
uses
   System.sysutils,
   jtag.svfProgram;

{ TsvfAstEndIR }

constructor TsvfAstEndIR.Create(State: byte);
begin
   inherited Create;
   fState := State;
end;


function TsvfAstEndIR.AsText: AnsiString;
var
   s: AnsiString;

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

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


end.