Subversion Repositories Kolibri OS

Rev

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

Rev 9892 Rev 9902
Line 437... Line 437...
437 
PROCEDURE loadKW (lang: INTEGER; VAR KW: ARRAY OF tKeyWords; VAR delim: tDelimiters; getStr: procGetStr;
 437 
PROCEDURE loadKW (lang: INTEGER; VAR KW: ARRAY OF tKeyWords; VAR delim: tDelimiters; getStr: procGetStr;
438 
					lang_name: ARRAY OF CHAR);
 438 
					lang_name: ARRAY OF CHAR);
439 
VAR
 439 
VAR
440 
    s: ARRAY 16*1024 OF CHAR;
 440 
    s: ARRAY 16*1024 OF CHAR;
441 
    key: ARRAY 4 OF CHAR;
 441 
    key: ARRAY 4 OF CHAR;
442 
    i: INTEGER;
 442 
    i, j, k: INTEGER;
- 
 
 443 
    w: WCHAR;
443 
BEGIN
 444 
BEGIN
444 
	FOR i := 0 TO LEN(delim) - 1 DO
 445 
	FOR i := 0 TO LEN(delim) - 1 DO
445 
		delim[i] := FALSE
 446 
		delim[i] := FALSE
446 
	END;
 447 
	END;
447 
	getStr(lang_name, "delim", s);
 448 
	getStr(lang_name, "delim", s);
Line 456... Line 457...
456 
        key[2] := CHR(ORD("1") + i);
 457 
        key[2] := CHR(ORD("1") + i);
457 
        getStr(lang_name, key, s);
 458 
        getStr(lang_name, key, s);
458 
        IF ~(lang IN csLang) THEN
 459 
        IF ~(lang IN csLang) THEN
459 
        	Utils.upcase(s)
 460 
        	Utils.upcase(s)
460 
        END;
 461 
        END;
- 
 
 462 
        IF lang = langOberon THEN
- 
 
 463 
	        k := LENGTH(s);
- 
 
 464 
    	    s[k] := ",";
- 
 
 465 
	        FOR j := 0 TO k - 1 DO
- 
 
 466 
		        s[j + k + 1] := s[j];
- 
 
 467 
		        w := WCHR(ORD(s[j]));
- 
 
 468 
		        IF Utils.low(w) THEN
- 
 
 469 
		        	s[j + k + 1] := CHR(ORD(w) MOD 256)
- 
 
 470 
		        END
- 
 
 471 
    	    END;
- 
 
 472 
    	    k := 2*k + 1;
- 
 
 473 
    	    s[k] := 0X
- 
 
 474 
        END;
461 
        EnterKW(s, KW[i])
 475 
        EnterKW(s, KW[i])
462 
    END
 476 
    END
463 
END loadKW;
 477 
END loadKW;