Lines Matching refs:Parent
300 /// Who is the parent node of this node; if null, implies node is root.
307 procedure SetParent(const T, Parent: IANTLRInterface);
320 /// Replace from start to stop child index of parent with t, which might
324 /// If parent is null, don't do anything; must be at root of overall tree.
325 /// Can't replace whatever points to the parent externally. Do nothing.
327 procedure ReplaceChildren(const Parent: IANTLRInterface; const StartChildIndex,
375 /// Replace from start to stop child index of parent with t, which might
383 /// If parent is null, don't do anything; must be at root of overall tree.
384 /// Can't replace whatever points to the parent externally. Do nothing.
386 procedure ReplaceChildren(const Parent: IANTLRInterface; const StartChildIndex,
458 /// <summary>Set (or reset) the parent and child index values for all children</summary>
494 // Tree tracks parent and child index now > 3.0
495 property Parent: ITree read GetParent write SetParent;
562 procedure SanityCheckParentAndChildIndexes(const Parent: ITree;
583 /// <summary>BaseTree doesn't track parent pointers.</summary>
584 property Parent: ITree read GetParent write SetParent;
607 /// that computing parent and child index is very difficult and cumbersome.
642 function DupTree(const T, Parent: IANTLRInterface): IANTLRInterface; overload;
907 procedure Visit(const T, Parent: IANTLRInterface; const ChildIndex: Integer;
1167 procedure SanityCheckParentAndChildIndexes(const Parent: ITree;
1199 /// <summary>Who is the parent node of this node; if null, implies node is root</summary>
1300 procedure SetParent(const T, Parent: IANTLRInterface); virtual; abstract;
1303 procedure ReplaceChildren(const Parent: IANTLRInterface; const StartChildIndex,
1307 function DupTree(const T, Parent: IANTLRInterface): IANTLRInterface; overload; virtual;
1329 procedure SetParent(const T, Parent: IANTLRInterface); override;
1332 procedure ReplaceChildren(const Parent: IANTLRInterface; const StartChildIndex,
1416 procedure ReplaceChildren(const Parent: IANTLRInterface; const StartChildIndex,
1726 procedure Visit(const T, Parent: IANTLRInterface; const ChildIndex: Integer;
1777 procedure Visit(const T, Parent: IANTLRInterface; const ChildIndex: Integer;
1793 procedure Visit(const T, Parent: IANTLRInterface; const ChildIndex: Integer;
1828 procedure _Visit(const T, Parent: IANTLRInterface; const ChildIndex,
1952 /// As we walk down the nodes, we must track parent nodes so we know
2045 procedure ReplaceChildren(const Parent: IANTLRInterface; const StartChildIndex,
2155 C.Parent := Self;
2175 ChildTree.Parent := Self;
2222 Child.Parent := Self;
2314 Child.Parent := Self;
2362 procedure TBaseTree.SanityCheckParentAndChildIndexes(const Parent: ITree;
2368 if not SameObj(Parent, GetParent) then
2370 + Parent.ToString + ' found ' + GetParent.ToString);
2398 T.Parent := Self;
2763 Parent: IANTLRInterface): IANTLRInterface;
2773 // ensure new subtree root has parent/child index set
2775 SetParent(Result, Parent);
2854 // whoever invokes rule will set parent and child index
2855 R.Parent := nil;
2948 Result := (T as ITree).Parent;
2979 procedure TCommonTreeAdaptor.ReplaceChildren(const Parent: IANTLRInterface;
2982 if Assigned(Parent) then
2983 (Parent as ITree).ReplaceChildren(StartChildIndex, StopChildIndex, T);
2992 procedure TCommonTreeAdaptor.SetParent(const T, Parent: IANTLRInterface);
2994 (T as ITree).Parent := (Parent as ITree);
3230 procedure TCommonTreeNodeStream.ReplaceChildren(const Parent: IANTLRInterface;
3233 if Assigned(Parent) then
3234 FAdaptor.ReplaceChildren(Parent, StartChildIndex, StopChildIndex, T);
4228 procedure TTreeWizard._Visit(const T, Parent: IANTLRInterface; const ChildIndex,
4236 Visitor.Visit(T, Parent, ChildIndex, nil);
4390 procedure TTreeWizard.TVisitor.Visit(const T, Parent: IANTLRInterface;
4424 Parent: IANTLRInterface; const ChildIndex: Integer;
4445 Parent: IANTLRInterface; const ChildIndex: Integer;
4451 FVisitor.Visit(T, Parent, ChildIndex, FLabels);
4760 // hit end of child list, return to parent node or its parent ...
4780 const Parent: IANTLRInterface; const StartChildIndex, StopChildIndex: Integer;
