Initial check in rtl

src.rtl/dpgrtl.treeparserstate.pas

@@ -0,0 +1,49 @@
+unit dpgrtl.treeparserstate;
+
+interface
+uses
+   dpgrtl.types;
+
+type
+   TTreeParserState = class( TInterfacedObject, ITreeParserState)
+      protected
+         fGuessing   : integer;
+
+      protected
+         function    GetGuessing: integer;
+         procedure   SetGuessing( Value: integer);
+
+      public
+         procedure   AfterConstruction; override;
+   end;
+
+implementation
+
+{ TParserState }
+
+// ================================================================================================
+// After Construction
+// ================================================================================================
+procedure TTreeParserState.AfterConstruction;
+begin
+   inherited;
+   fGuessing := 0;
+end;
+
+// ================================================================================================
+// Get Guessing
+// ================================================================================================
+function TTreeParserState.GetGuessing: integer;
+begin
+   result := fGuessing
+end;
+
+// ================================================================================================
+// Set Guessing
+// ================================================================================================
+procedure TTreeParserState.SetGuessing(Value: integer);
+begin
+   fGuessing := Value
+end;
+
+end.