Initial check in lib

2026-01-03 18:33:48 +01:00
parent b20cd8e688
commit 5666f85e99
89 changed files with 36370 additions and 1 deletions
@@ -0,0 +1,60 @@
+unit dpglib.DelphiBlockFinishingInfo;
+
+interface
+uses
+   System.Classes;
+
+type
+   TDelphiBlockFinishingInfo = class
+   public
+      PostScript        : AnsiString;
+      GeneratedSwitch   : boolean;
+      GeneratedAnIf     : boolean;
+
+      // ------------------------------------------------------------
+      // When generating an if or switch, end-of-token lookahead sets
+      // will become the else or default clause, don't generate an
+      // error clause in this case.
+      // ------------------------------------------------------------
+      NeedAnErrorClause : boolean;
+      NeedAClosingEnd   : boolean;
+
+   public
+      constructor Create;                          overload;
+      constructor Create(  pPostScript : AnsiString;
+                           pGenSwitch  : boolean;
+                           pGenAnIf    : boolean;
+                           pNeedEC     : boolean); overload;
+   end;
+
+implementation
+
+{ TDelphiBlockFinishingInfo }
+// ============================================================================
+// Constructor
+// ============================================================================
+constructor TDelphiBlockFinishingInfo.Create;
+begin
+   PostScript        := '';
+   GeneratedSwitch   := false;
+   GeneratedAnIf     := false;
+   NeedAnErrorClause := true;
+   NeedAClosingEnd   := false;
+end;
+
+// ============================================================================
+// Destructor
+// ============================================================================
+constructor TDelphiBlockFinishingInfo.Create(   pPostScript : AnsiString;
+                                                   pGenSwitch  : boolean;
+                                                   pGenAnIf    : boolean;
+                                                   pNeedEC     : boolean);
+begin
+   PostScript        := pPostScript;
+   GeneratedSwitch   := pGenSwitch;
+   GeneratedAnIf     := pGenAnIf;
+   NeedAnErrorClause := pNeedEC;
+   NeedAClosingEnd   := false;
+end;
+
+end.