Initial check in rtl

2026-01-03 18:32:50 +01:00
parent ee130973e2
commit b20cd8e688
23 changed files with 4929 additions and 0 deletions
@@ -0,0 +1,156 @@
+// TODO: jo lenne cache-elni az LA(x) karaktereket...
+
+unit dpgrtl.charbuffer;
+
+interface
+uses
+   System.Classes,
+   dpgrtl.types,
+   dpgrtl.inputbuffer,
+   dpgrtl.charqueue;
+
+type
+   TCharBuffer = class( TInputBuffer, IInputBuffer, ICharBuffer)
+      protected
+         fStream  : TStream;
+         fQueue   : TCharQueue;
+
+      protected
+         function    GetNext: AnsiChar;
+         procedure   Fill( Amount: integer);
+
+      // ------------------------------------------------------------
+      // TInputBuffer overrides
+      // ------------------------------------------------------------
+      protected
+         procedure   Remove( ACount: integer); override;
+
+      // ------------------------------------------------------------
+      // ICharBuffer
+      // ------------------------------------------------------------
+      protected
+         function    LA( i: integer): AnsiChar;
+
+      // ------------------------------------------------------------
+      // Construction/destruction
+      // ------------------------------------------------------------
+      public
+         constructor Create( AStream: TStream);
+
+         procedure   AfterConstruction; override;
+         procedure   BeforeDestruction; override;
+   end;
+
+implementation
+
+{ TCharBuffer }
+
+// @@@: Construction/destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                   Construction/destruction
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TCharBuffer.Create(AStream: TStream);
+begin
+   inherited Create;
+   fStream := AStream
+end;
+
+// ================================================================================================
+// After Destruction
+// ================================================================================================
+procedure TCharBuffer.AfterConstruction;
+begin
+   inherited;
+
+   fMarkerCount   := 0;
+   fMarkerOffset  := 0;
+   fNumToConsume  := 0;
+
+   fQueue         := TCharQueue.Create
+end;
+
+// ================================================================================================
+// Before Destruction
+// ================================================================================================
+procedure TCharBuffer.BeforeDestruction;
+begin
+   fQueue.Free;
+   inherited
+end;
+
+// @@@: Interface +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                           Interface
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// LA
+//
+//    Ensures that the 'fQueue' object holds sufficient characters, and gets the 'i'th Look Ahead
+//    character from the 'fQueue'.
+// ================================================================================================
+function TCharBuffer.LA(i: integer): AnsiChar;
+begin
+   Fill(i);
+   result := fQueue.Items[fMarkerOffset +i]
+end;
+
+// @@@: Internals +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                           Internals
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Get Next
+// ================================================================================================
+function TCharBuffer.GetNext: AnsiChar;
+begin
+   if fStream.Read( result, 1) <> 1 then
+      result := #0
+end;
+
+// ================================================================================================
+// Fill
+// ================================================================================================
+procedure TCharBuffer.Fill(Amount: integer);
+begin
+   SyncConsume;
+
+   while fQueue.Count < (Amount +fMarkerOffset) do
+      fQueue.Add(GetNext)
+end;
+
+// @@@: Overrides +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                           Overrides
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Remove
+// ================================================================================================
+procedure TCharBuffer.Remove(ACount: integer);
+begin
+   fQueue.Remove(ACount)
+end;
+
+end.