unit jtag.svfAstPrint;

interface
uses
   jtag.svfAstNode;

type
   TsvfAstPrint = class( TsvfAstNode)
      public
         Text     : AnsiString;

      public
         constructor Create( AText: AnsiString);
         function    AsText: AnsiString; override;
   end;


implementation
uses
   System.AnsiStrings;

{ TsvfAstPrint }

function TsvfAstPrint.AsText: AnsiString;
begin
   result := Text
end;

constructor TsvfAstPrint.Create( AText: AnsiString);
begin
   Text := AnsiReplaceText(AText, '"', '');
end;

end.