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,120 @@
+unit dpglib.BlockWithImpliedExitPath;
+
+interface
+uses
+   dpgrtl.types,
+   dpglib.types,
+   dpglib.AlternativeBlock;
+
+type
+   // =========================================================================
+   // Class TBlockWithImpliedExitPath declaration
+   // =========================================================================
+   TBlockWithImpliedExitPath = class(  TAlternativeBlock,
+                                       IBlockWithImpliedExitPath,
+                                       IAlternativeBlock,
+                                       IAlternativeElem,
+                                       IGrammarElem)
+
+   // ---------------------------------------------------------------
+   // Members
+   // ---------------------------------------------------------------
+   protected
+      fExitLookaheadDepth  : integer;
+      fExitCache           : array of ILookahead;
+
+   // ---------------------------------------------------------------
+   // Constructor/destructor
+   // ---------------------------------------------------------------
+   public
+      constructor Create( pGrammar: IGrammar);                 overload;
+      constructor Create( pGrammar: IGrammar; pStart: IToken); overload;
+      destructor  Destroy; override;
+
+   // ---------------------------------------------------------------
+   // IBlockWithImpliedExitPath methods
+   // ---------------------------------------------------------------
+   protected
+      function    GetExitDepth: integer;
+      function    GetExitCache( i: integer)  : ILookahead;
+
+      procedure   SetExitDepth( pDepth: integer);
+      procedure   SetExitCache( i: integer; pExitCache: ILookahead);
+   end;
+
+
+implementation
+// ****************************************************************************
+// Constructor/destructor
+// ****************************************************************************
+// ============================================================================
+// Constructor
+// ============================================================================
+constructor TBlockWithImpliedExitPath.Create(   pGrammar : IGrammar);
+begin
+   inherited Create( pGrammar);
+   SetLength( fExitCache, pGrammar.MaxK + 1);
+end;
+
+// ============================================================================
+// Constructor
+// ============================================================================
+constructor TBlockWithImpliedExitPath.Create(   pGrammar : IGrammar;
+                                                   pStart   : IToken);
+begin
+   inherited Create( pGrammar, pStart);
+   SetLength( fExitCache, pGrammar.MaxK + 1);
+end;
+
+// ============================================================================
+// Destructor
+// ============================================================================
+destructor TBlockWithImpliedExitPath.Destroy;
+var
+   i: integer;
+
+begin
+   for i:=Low(fExitCache) to High(fExitCache) do
+      fExitCache[i] := nil;
+
+   fExitCache := nil;
+   inherited;
+end;
+
+// ****************************************************************************
+//                                  IBlockWithImpliedExitPath implementation
+// ****************************************************************************
+// ============================================================================
+// GetExitDepth
+// ============================================================================
+function TBlockWithImpliedExitPath.GetExitDepth: integer;
+begin
+   result := fExitLookaheadDepth;
+end;
+
+// ============================================================================
+// GetExitCache
+// ============================================================================
+function TBlockWithImpliedExitPath.GetExitCache( i: integer): ILookahead;
+begin
+   result := fExitCache[i];
+end;
+
+// ============================================================================
+// SetExitDepth
+// ============================================================================
+procedure TBlockWithImpliedExitPath.SetExitDepth(pDepth: integer);
+begin
+   fExitLookaheadDepth := pDepth;
+end;
+
+// ============================================================================
+// SetExitCache
+// ============================================================================
+procedure TBlockWithImpliedExitPath.SetExitCache( i           : integer;
+                                                      pExitCache  : ILookahead);
+begin
+   fExitCache[i] := pExitCache;
+end;
+
+end.