Lines Matching refs:Op
2764 /// I.i.u = insert u before op @ index i
2767 /// First we need to examine replaces. For any replace op:
2769 /// 1. wipe out any insertions before op within that range.
2770 /// 2. Drop any replace op before that is contained completely within
2781 /// Don't actually delete; make op null in list. Easier to walk list.
2782 /// Later we can throw as we add to index -> op map.
5872 Op: IRewriteOperation;
5879 Op := Rewrites[I];
5880 if Assigned(Op) and (Op.QueryInterface(Kind, Obj) = 0) then
5881 Result.Add(Op);
5963 Op: IRewriteOperation;
5965 Op := TInsertBeforeOp.Create(Index, Text, Self);
5966 GetProgram(ProgramName).Add(Op);
5990 Op: IRewriteOperation;
5998 Op := TReplaceOp.Create(Start, Stop, Text, Self);
6000 Op.InstructionIndex := Rewrites.Count;
6001 Rewrites.Add(Op);
6008 Op: IRewriteOperation;
6017 Op := Rewrites[I];
6018 if (Op = nil) then
6020 if (not Supports(Op, IReplaceOp, ROp)) then
6030 // delete insert as it's a no-op.
6042 // delete replace as it's a no-op.
6058 Op := Rewrites[I];
6059 if (Op = nil) then
6061 if (not Supports(Op, IInsertBeforeOp, IOp)) then
6092 raise EArgumentOutOfRangeException.Create('insert op '
6098 for Op in Rewrites do
6100 if (Op = nil) then
6102 if (Result.ContainsKey(Op.Index)) then
6103 raise Exception.Create('should only be one op per index');
6104 Result.Add(Op.Index, Op);
6209 Op: IRewriteOperation;
6234 if (not IndexToOp.TryGetValue(I, Op)) then
6235 Op := nil;
6238 if (Op = nil) then
6245 I := Op.Execute(Buf); // execute operation and skip
