Subversion Repositories Kolibri OS

Rev

Rev 7597 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7597 Rev 7693
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2018, Anton Krotov
 4 
    Copyright (c) 2018, 2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 166... Line 166...
166 
 
 166 
 
167 
    RETURN res
 167 
    RETURN res
Line -... Line 168...
- 
 
 168 
END count;
- 
 
 169 
 
- 
 
 170 
 
- 
 
 171 
PROCEDURE getidx* (list: LIST; idx: INTEGER): ITEM;
- 
 
 172 
VAR
- 
 
 173 
    item: ITEM;
- 
 
 174 
 
- 
 
 175 
BEGIN
- 
 
 176 
    ASSERT(list # NIL);
- 
 
 177 
    ASSERT(idx >= 0);
- 
 
 178 
 
- 
 
 179 
    item := list.first;
- 
 
 180 
    WHILE (item # NIL) & (idx > 0) DO
- 
 
 181 
        item := item.next;
- 
 
 182 
        DEC(idx)
- 
 
 183 
    END
- 
 
 184 
 
- 
 
 185 
    RETURN item
168 
END count;
 186 
END getidx;
169 
 
 187 
 
170 
 
 188 
 
171 
PROCEDURE create* (list: LIST): LIST;
 189 
PROCEDURE create* (list: LIST): LIST;
172 
BEGIN
 190 
BEGIN