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.