Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9908 → Rev 9909

/programs/develop/cedit/SRC/Search.ob07
115,10 → 115,24
END next;
 
 
PROCEDURE add* (list: List.tList; pos: INTEGER);
VAR
item: tPos;
BEGIN
item := list.last(tPos);
IF (item = NIL) OR (item.cnt = itemSize) THEN
NEW(item);
item.cnt := 0;
List.append(list, item)
END;
item.pos[item.cnt] := pos;
INC(item.cnt)
END add;
 
 
PROCEDURE find* (text: tBuffer; s: ARRAY OF WCHAR; whole: BOOLEAN; list: List.tList; offset: INTEGER);
VAR
k, pos, n, i, x, prev_item_pos: INTEGER;
item: tPos;
c1, c2: WCHAR;
flag: BOOLEAN;
BEGIN
147,14 → 161,7
END;
IF ~flag & (x >= prev_item_pos) THEN
prev_item_pos := x + n;
item := list.last(tPos);
IF (item = NIL) OR (item.cnt = itemSize) THEN
NEW(item);
item.cnt := 0;
List.append(list, item)
END;
item.pos[item.cnt] := x + offset;
INC(item.cnt)
add(list, x + offset)
END
END;
INC(pos, SYSTEM.SIZE(INTEGER));