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 348... Line 348...
348 
END PCharToStr;
 348 
END PCharToStr;
Line 349... Line 349...
349 
 
 349 
 
350 
 
 350 
 
351 
PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR);
 351 
PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR);
352 
VAR
 - 
 
Line 353... Line 352...
353 
    i, a, b: INTEGER;
 352 
VAR
354 
    c: CHAR;
 353 
    i, a: INTEGER;
- 
 
 354 
 
355 
 
 355 
BEGIN
- 
 
 356 
    i := 0;
- 
 
 357 
    a := x;
- 
 
 358 
    REPEAT
- 
 
 359 
        INC(i);
- 
 
 360 
        a := a DIV 10
- 
 
 361 
    UNTIL a = 0;
- 
 
 362 
 
- 
 
 363 
    str[i] := 0X;
356 
BEGIN
 364 
 
357 
    i := 0;
 365 
    REPEAT
358 
    REPEAT
 - 
 
359 
        str[i] := CHR(x MOD 10 + ORD("0"));
 366 
        DEC(i);
360 
        x := x DIV 10;
 - 
 
361 
        INC(i)
 - 
 
362 
    UNTIL x = 0;
 - 
 
363 
 
 - 
 
364 
    a := 0;
 - 
 
365 
    b := i - 1;
 - 
 
366 
    WHILE a < b DO
 - 
 
367 
        c := str[a];
 - 
 
368 
        str[a] := str[b];
 - 
 
369 
        str[b] := c;
 - 
 
370 
        INC(a);
 - 
 
371 
        DEC(b)
 367 
        str[i] := CHR(x MOD 10 + ORD("0"));
Line 372... Line 368...
372 
    END;
 368 
        x := x DIV 10
373 
    str[i] := 0X
 369 
    UNTIL x = 0
374 
END IntToStr;
 370 
END IntToStr;
Line 375... Line 371...
375 
 
 371 
 
376 
 
 372 
 
377 
PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
 373 
PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
Line 378... Line 374...
378 
VAR
 374 
VAR
Line 379... Line -...
379 
    n1, n2, i, j: INTEGER;
 - 
 
380 
 
 - 
 
381 
BEGIN
 - 
 
382 
    n1 := LENGTH(s1);
 375 
    n1, n2: INTEGER;
383 
    n2 := LENGTH(s2);
 - 
 
384 
 
 - 
 
385 
    ASSERT(n1 + n2 < LEN(s1));
 - 
 
386 
 
 - 
 
387 
    i := 0;
 376 
 
388 
    j := n1;
 377 
BEGIN
Line 389... Line 378...
389 
    WHILE i < n2 DO
 378 
    n1 := LENGTH(s1);
390 
        s1[j] := s2[i];
 379 
    n2 := LENGTH(s2);
391 
        INC(i);
 380 
 
Line 392... Line 381...
392 
        INC(j)
 381 
    ASSERT(n1 + n2 < LEN(s1));
393 
    END;
 382 
 
Line 413... Line 402...
413 
    | 9: s := "CHR out of range"
 402 
    | 9: s := "CHR out of range"
414 
    |10: s := "WCHR out of range"
 403 
    |10: s := "WCHR out of range"
415 
    |11: s := "BYTE out of range"
 404 
    |11: s := "BYTE out of range"
416 
    END;
 405 
    END;
Line 417... Line -...
417 
 
 - 
 
418 
    append(s, API.eol);
 - 
 
419 
 
 406 
 
420 
    append(s, "module: "); PCharToStr(module, temp); append(s, temp); append(s, API.eol);
 407 
    append(s, API.eol + "module: "); PCharToStr(_module, temp); append(s, temp);
Line 421... Line 408...
421 
    append(s, "line: ");   IntToStr(line, temp);     append(s, temp);
 408 
    append(s, API.eol + "line: ");   IntToStr(line, temp);     append(s, temp);
Line 422... Line 409...
422 
 
 409 
 
423 
    API.DebugMsg(SYSTEM.ADR(s[0]), name);
 410 
    API.DebugMsg(SYSTEM.ADR(s[0]), name);