Subversion Repositories Kolibri OS

Rev

Rev 9907 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9907 Rev 9909
Line 198... Line 198...
198 
    END
 198 
    END
199 
    RETURN res
 199 
    RETURN res
200 
END lower;
 200 
END lower;
Line -... Line 201...
- 
 
 201 
 
- 
 
 202 
 
- 
 
 203 
PROCEDURE lcase* (ch: WCHAR): WCHAR;
- 
 
 204 
BEGIN
- 
 
 205 
	IF lower(ch) THEN END
- 
 
 206 
	RETURN ch
- 
 
 207 
END lcase;
201 
 
 208 
 
202 
 
 209 
 
203 
PROCEDURE lowcase* (VAR s: ARRAY OF WCHAR);
 210 
PROCEDURE lowcase* (VAR s: ARRAY OF WCHAR);
204 
VAR
 211 
VAR
205 
    i: INTEGER;
 212 
    i: INTEGER;