50 lines
1.3 KiB
ObjectPascal
50 lines
1.3 KiB
ObjectPascal
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.
|