Subversion Repositories Kolibri OS

Rev

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

Rev 9187 Rev 9210
Line 198... Line 198...
198 
    i := LENGTH(s) - 1;
 198 
    i := LENGTH(s) - 1;
199 
    WHILE i >= 0 DO
 199 
    WHILE i >= 0 DO
200 
        IF cap8(s[i]) THEN
 200 
        IF cap8(s[i]) THEN
201 
        END;
 201 
        END;
202 
        DEC(i)
 202 
        DEC(i)
203 
    END;
 203 
    END
204 
END upcase;
 204 
END upcase;
Line 205... Line 205...
205 
 
 205 
 
206 
 
 206 
 
Line 238... Line 238...
238 
    END
 238 
    END
239 
    RETURN res
 239 
    RETURN res
240 
END low;
 240 
END low;
Line -... Line 241...
- 
 
 241 
 
- 
 
 242 
 
- 
 
 243 
PROCEDURE lowcase* (VAR s: ARRAY OF CHAR);
- 
 
 244 
VAR
- 
 
 245 
    i: INTEGER;
- 
 
 246 
BEGIN
- 
 
 247 
    i := LENGTH(s) - 1;
- 
 
 248 
    WHILE i >= 0 DO
- 
 
 249 
        IF ("A" <= s[i]) & (s[i] <= "Z") THEN
- 
 
 250 
        	s[i] := CHR(ORD(s[i]) + 32)
- 
 
 251 
        END;
- 
 
 252 
        DEC(i)
- 
 
 253 
    END
- 
 
 254 
END lowcase;
241 
 
 255 
 
242 
 
 256 
 
243 
PROCEDURE str2int* (s: ARRAY OF WCHAR; VAR val: INTEGER): BOOLEAN;
 257 
PROCEDURE str2int* (s: ARRAY OF WCHAR; VAR val: INTEGER): BOOLEAN;
244 
VAR
 258 
VAR
245 
    i, temp: INTEGER;
 259 
    i, temp: INTEGER;
Line 260... Line 274...
260 
        INC(i)
 274 
        INC(i)
261 
    END;
 275 
    END;
Line 262... Line 276...
262 
 
 276 
 
263 
    IF isDigit(s[i]) THEN
 277 
    IF isDigit(s[i]) THEN
264 
        REPEAT
 - 
 
265 
            temp := temp * 10;
 278 
        REPEAT
266 
            temp := temp + (ORD(s[i]) - ORD("0"));
 279 
            temp := temp*10 + ORD(s[i]) - ORD("0");
267 
            INC(i)
 280 
            INC(i)
268 
        UNTIL ~isDigit(s[i]);
 281 
        UNTIL ~isDigit(s[i]);
269 
        IF neg THEN
 282 
        IF neg THEN
270 
            temp := -temp
 283 
            temp := -temp