Subversion Repositories Kolibri OS

Rev

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

Rev 7983 Rev 8097
Line 370... Line 370...
370 
END PCharToStr;
 370 
END PCharToStr;
Line 371... Line 371...
371 
 
 371 
 
372 
 
 372 
 
373 
PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR);
 373 
PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR);
374 
VAR
 - 
 
Line 375... Line 374...
375 
    i, a, b: INTEGER;
 374 
VAR
376 
    c: CHAR;
 375 
    i, a: INTEGER;
- 
 
 376 
 
377 
 
 377 
BEGIN
- 
 
 378 
    i := 0;
- 
 
 379 
    a := x;
- 
 
 380 
    REPEAT
- 
 
 381 
        INC(i);
- 
 
 382 
        a := a DIV 10
- 
 
 383 
    UNTIL a = 0;
- 
 
 384 
 
- 
 
 385 
    str[i] := 0X;
378 
BEGIN
 386 
 
379 
    i := 0;
 387 
    REPEAT
380 
    REPEAT
 - 
 
381 
        str[i] := CHR(x MOD 10 + ORD("0"));
 388 
        DEC(i);
382 
        x := x DIV 10;
 - 
 
383 
        INC(i)
 - 
 
384 
    UNTIL x = 0;
 - 
 
385 
 
 - 
 
386 
    a := 0;
 - 
 
387 
    b := i - 1;
 - 
 
388 
    WHILE a < b DO
 - 
 
389 
        c := str[a];
 - 
 
390 
        str[a] := str[b];
 - 
 
391 
        str[b] := c;
 - 
 
392 
        INC(a);
 - 
 
393 
        DEC(b)
 389 
        str[i] := CHR(x MOD 10 + ORD("0"));
Line 394... Line 390...
394 
    END;
 390 
        x := x DIV 10
395 
    str[i] := 0X
 391 
    UNTIL x = 0
396 
END IntToStr;
 392 
END IntToStr;
Line 397... Line 393...
397 
 
 393 
 
398 
 
 394 
 
399 
PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
 395 
PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
Line 400... Line 396...
400 
VAR
 396 
VAR
Line 401... Line -...
401 
    n1, n2, i, j: INTEGER;
 - 
 
402 
 
 - 
 
403 
BEGIN
 - 
 
404 
    n1 := LENGTH(s1);
 397 
    n1, n2: INTEGER;
405 
    n2 := LENGTH(s2);
 - 
 
406 
 
 - 
 
407 
    ASSERT(n1 + n2 < LEN(s1));
 - 
 
408 
 
 - 
 
409 
    i := 0;
 398 
 
410 
    j := n1;
 399 
BEGIN
Line 411... Line 400...
411 
    WHILE i < n2 DO
 400 
    n1 := LENGTH(s1);
412 
        s1[j] := s2[i];
 401 
    n2 := LENGTH(s2);
413 
        INC(i);
 402 
 
Line 414... Line 403...
414 
        INC(j)
 403 
    ASSERT(n1 + n2 < LEN(s1));
415 
    END;
 404 
 
Line 435... Line 424...
435 
    | 9: s := "CHR out of range"
 424 
    | 9: s := "CHR out of range"
436 
    |10: s := "WCHR out of range"
 425 
    |10: s := "WCHR out of range"
437 
    |11: s := "BYTE out of range"
 426 
    |11: s := "BYTE out of range"
438 
    END;
 427 
    END;
Line 439... Line -...
439 
 
 - 
 
440 
    append(s, API.eol);
 - 
 
441 
 
 428 
 
442 
    append(s, "module: "); PCharToStr(module, temp); append(s, temp); append(s, API.eol);
 429 
    append(s, API.eol + "module: "); PCharToStr(_module, temp); append(s, temp);
Line 443... Line 430...
443 
    append(s, "line: ");   IntToStr(line, temp);     append(s, temp);
 430 
    append(s, API.eol + "line: ");   IntToStr(line, temp);     append(s, temp);
Line 444... Line 431...
444 
 
 431 
 
445 
    API.DebugMsg(SYSTEM.ADR(s[0]), name);
 432 
    API.DebugMsg(SYSTEM.ADR(s[0]), name);