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,37 @@
+unit jtag.svfAstComment;
+
+interface
+uses
+   jtag.svfAstNode;
+
+type
+   TsvfAstComment = class( TsvfAstNode)
+      private
+         fComment : AnsiString;
+
+      public
+         function    AsText: AnsiString; override;
+
+      public
+         constructor Create(Comment: AnsiString);
+
+      public
+         property Comment : AnsiString read fComment;
+
+   end;
+
+implementation
+
+{ TsvfAstEndDR }
+
+function TsvfAstComment.AsText: AnsiString;
+begin
+   result := fComment;
+end;
+
+constructor TsvfAstComment.Create(Comment: AnsiString);
+begin
+   fComment := Comment +#13#10
+end;
+
+end.