Initial check in

2026-01-08 19:12:06 +01:00
commit a30568e2a9
35 changed files with 11750 additions and 0 deletions
@@ -0,0 +1,34 @@
+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.