Lines Matching full:102
210 // ^(101 ^(102 103) 104)
212 R0.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
223 // Add child ^(nil 101 102 103) to root ^(5 6)
224 // should add 101 102 103 to end of 5's child list
231 C1 := TCommonTree.Create(TCommonToken.Create(102));
256 // 5 becomes new root of ^(nil 101 102 103)
260 OldRoot.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
272 // 5 becomes new root of ^(101 102 103)
275 OldRoot.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
287 // ^(nil 5) becomes new root of ^(nil 101 102 103)
292 OldRoot.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
304 // ^(nil 5) becomes new root of ^(101 102 103)
308 OldRoot.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
336 // ^(101 ^(102 103 ^(106 107) ) 104 105)
338 R1 := TCommonTree.Create(TCommonToken.Create(102));
359 // ^(nil 101 102 103)
362 C1 := TCommonTree.Create(TCommonToken.Create(102));
382 // Add child ^(nil 101 102 103) to root 5
383 // should pull 101 102 103 directly to become 5's child list
389 C1 := TCommonTree.Create(TCommonToken.Create(102));
655 /// Test a tree with four nodes - ^(101 ^(102 103) 104)
657 T.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
662 CheckEquals(GetStringOfEntireStreamContentsWithNodeTypesOnly(Stream),' 101 102 103 104');
663 CheckEquals(Stream.ToString, ' 101 2 102 2 103 3 104 3');
672 T.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
675 CheckEquals(GetStringOfEntireStreamContentsWithNodeTypesOnly(Stream),' 101 102');
676 CheckEquals(Stream.ToString, ' 101 2 102 3');
689 // make ^(101 102 ... n)
698 T.AddChild(TCommonTree.Create(TCommonToken.Create(102 + I)));
700 Buf.Append(102 + I);
702 Buf2.Append(102 + I);
771 Root.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
775 CheckEquals(GetStringOfEntireStreamContentsWithNodeTypesOnly(Stream),' 101 102 103');
776 CheckEquals(Stream.ToString, ' 101 102 103');
787 T.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
797 CheckEquals(GetStringOfEntireStreamContentsWithNodeTypesOnly(Stream),' 101 102 103 104 105');
798 CheckEquals(Stream.ToString, ' 101 2 102 2 103 3 104 3 105');
819 // ^(101 ^(102 103) 104)
821 T.AddChild(TCommonTree.Create(TCommonToken.Create(102)));
828 CheckEquals((Stream.LT(3) as ITree).TokenType,102);
845 // ^(101 ^(102 103 ^(106 107) ) 104 105)
847 // Sequence of types: 101 DN 102 DN 103 106 DN 107 UP UP 104 105 UP EOF
849 R1 := TCommonTree.Create(TCommonToken.Create(102));
886 // ^(101 ^(102 103 ^(106 107) ) 104 105)
888 // Sequence of types: 101 DN 102 DN 103 106 DN 107 UP UP 104 105 UP EOF
890 R1 := TCommonTree.Create(TCommonToken.Create(102));
936 // ^(101 ^(102 103 ^(106 107) ) 104 105)
938 // Sequence of types: 101 DN 102 DN 103 106 DN 107 UP UP 104 105 UP EOF
940 R1 := TCommonTree.Create(TCommonToken.Create(102));
953 M2:= Stream.Mark; // MARK on 102
954 Stream.Consume; // consume 102
959 CheckEquals((Stream.LT(1) as ITree).TokenType,102);
969 CheckEquals((Stream.LT(1) as ITree).TokenType,102);
984 // ^(101 ^(102 103) ^(104 105) ^(106 107) 108 109)
986 // Sequence of types: 101 DN 102 DN 103 UP 104 DN 105 UP 106 DN 107 UP 108 109 UP
988 R1 := TCommonTree.Create(TCommonToken.Create(102));
1001 CheckEquals(Stream.ToString, ' 101 2 102 2 103 3 104 2 105 3 106 2 107 3 108 109 3');
1003 102", which
1010 // CALL 102
1012 CheckEquals((Stream.LT(1) as ITree).TokenType,102);
1013 Stream.Consume; // consume 102
1029 // RETURN (to UP node in 102 subtree)
1047 // ^(101 ^(102 103) ^(104 105) ^(106 107) 108 109)
1049 // Sequence of types: 101 DN 102 DN 103 UP 104 DN 105 UP 106 DN 107 UP 108 109 UP
1051 R1 := TCommonTree.Create(TCommonToken.Create(102));
1064 CheckEquals(Stream.ToString, ' 101 2 102 2 103 3 104 2 105 3 106 2 107 3 108 109 3');
1066 // Assume we want to hit node 107 and then "call 102" then return
1071 // CALL 102
1074 CheckEquals((Stream.LT(1) as ITree).TokenType,102);
1075 Stream.Consume; // consume 102
1094 // ^(101 ^(102 103) ^(104 105) ^(106 107) 108 109)
1096 // Sequence of types: 101 DN 102 DN 103 UP 104 DN 105 UP 106 DN 107 UP 108 109 UP
1098 R1 := TCommonTree.Create(TCommonToken.Create(102));
1111 CheckEquals(Stream.ToString, ' 101 2 102 2 103 3 104 2 105 3 106 2 107 3 108 109 3');
1117 // CALL 102
1119 CheckEquals((Stream.LT(1) as ITree).TokenType,102);
1120 Stream.Consume; // consume 102
1149 // ^(101 ^(102 103 ^(106 107) ) 104 105)
1151 // Sequence of types: 101 DN 102 DN 103 106 DN 107 UP UP 104 105 UP EOF
1153 R1 := TCommonTree.Create(TCommonToken.Create(102));
1165 Stream.Consume; // consume 102
1179 // ^(101 ^(102 103 ^(106 107) ) 104 105)
1181 // Sequence of types: 101 DN 102 DN 103 106 DN 107 UP UP 104 105 UP EOF
1183 R1 := TCommonTree.Create(TCommonToken.Create(102));
