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 |