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,125 @@
+unit dpgrtl.parserstate;
+
+interface
+uses
+   dpgrtl.types;
+
+type
+   TParserState = class( TInterfacedObject, IParserState)
+      protected
+         fFileName      : string;
+         fGuessing      : integer;
+         fInputBuffer   : ITokenBuffer;
+
+      // ----------------------------------------------------------------------
+      // IParserState
+      // ----------------------------------------------------------------------
+      protected
+         function    GetInputBuffer : ITokenBuffer;
+         function    GetFileName    : string;
+         function    GetGuessing    : integer;
+
+         procedure   SetFileName( Value: string);
+         procedure   SetGuessing( Value: integer);
+
+      // ----------------------------------------------------------------------
+      // Construction/destruction
+      // ----------------------------------------------------------------------
+      public
+         constructor Create( ABuffer: ITokenBuffer);
+
+         procedure   AfterConstruction; override;
+         procedure   BeforeDestruction; override;
+   end;
+
+implementation
+
+{ TParserState }
+
+// @@@: Construction/destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                   Construction/destruction
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TParserState.Create(ABuffer: ITokenBuffer);
+begin
+   inherited Create;
+   fInputBuffer := ABuffer
+end;
+
+// ================================================================================================
+// After Construction
+// ================================================================================================
+procedure TParserState.AfterConstruction;
+begin
+   inherited;
+   fFileName := '';
+   fGuessing := 0
+end;
+
+// ================================================================================================
+// Before Destruction
+// ================================================================================================
+procedure TParserState.BeforeDestruction;
+begin
+   fInputBuffer := nil;
+   inherited
+end;
+
+// @@@: IParserState implementation +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                  IParserState implementation
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Get File Name
+// ================================================================================================
+function TParserState.GetFileName: string;
+begin
+   result := fFileName
+end;
+
+// ================================================================================================
+// Get Guessing
+// ================================================================================================
+function TParserState.GetGuessing: integer;
+begin
+   result := fGuessing
+end;
+
+// ================================================================================================
+// Get Input Buffer
+// ================================================================================================
+function TParserState.GetInputBuffer: ITokenBuffer;
+begin
+   result := fInputBuffer
+end;
+
+// ================================================================================================
+// Set File Name
+// ================================================================================================
+procedure TParserState.SetFileName(Value: string);
+begin
+   fFileName := Value
+end;
+
+// ================================================================================================
+// Set Guessing
+// ================================================================================================
+procedure TParserState.SetGuessing(Value: integer);
+begin
+   fGuessing := Value
+end;
+
+end.