Subversion Repositories Kolibri OS

Rev

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

Rev 9671 Rev 9892
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021, 2022 Anton Krotov
 2 
    Copyright 2021-2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of CEdit.
 4 
    This file is part of CEdit.
5 
 
 5 
 
Line 432... Line 432...
432 
    UNTIL s[i] = 0X;
 432 
    UNTIL s[i] = 0X;
433 
    KW.cnt := k
 433 
    KW.cnt := k
434 
END EnterKW;
 434 
END EnterKW;
Line 435... Line 435...
435 
 
 435 
 
- 
 
 436 
 
436 
 
 437 
PROCEDURE loadKW (lang: INTEGER; VAR KW: ARRAY OF tKeyWords; VAR delim: tDelimiters; getStr: procGetStr;
437 
PROCEDURE loadKW (VAR KW: ARRAY OF tKeyWords; VAR delim: tDelimiters; getStr: procGetStr; lang: ARRAY OF CHAR);
 438 
					lang_name: ARRAY OF CHAR);
438 
VAR
 439 
VAR
439 
    s: ARRAY 16*1024 OF CHAR;
 440 
    s: ARRAY 16*1024 OF CHAR;
440 
    key: ARRAY 4 OF CHAR;
 441 
    key: ARRAY 4 OF CHAR;
441 
    i: INTEGER;
 442 
    i: INTEGER;
442 
BEGIN
 443 
BEGIN
443 
	FOR i := 0 TO LEN(delim) - 1 DO
 444 
	FOR i := 0 TO LEN(delim) - 1 DO
444 
		delim[i] := FALSE
 445 
		delim[i] := FALSE
445 
	END;
 446 
	END;
446 
	getStr(lang, "delim", s);
 447 
	getStr(lang_name, "delim", s);
447 
	i := 0;
 448 
	i := 0;
448 
	WHILE s[i] # 0X DO
 449 
	WHILE s[i] # 0X DO
449 
		delim[ORD(s[i])] := TRUE;
 450 
		delim[ORD(s[i])] := TRUE;
450 
		INC(i)
 451 
		INC(i)
451 
	END;
 452 
	END;
452 
    key := "KW1";
 453 
    key := "KW1";
453 
    FOR i := 0 TO 2 DO
 454 
    FOR i := 0 TO 2 DO
454 
        KW[i].cnt := 0;
 455 
        KW[i].cnt := 0;
- 
 
 456 
        key[2] := CHR(ORD("1") + i);
- 
 
 457 
        getStr(lang_name, key, s);
- 
 
 458 
        IF ~(lang IN csLang) THEN
455 
        key[2] := CHR(ORD("1") + i);
 459 
        	Utils.upcase(s)
456 
        getStr(lang, key, s);
 460 
        END;
457 
        EnterKW(s, KW[i])
 461 
        EnterKW(s, KW[i])
Line 496... Line 500...
496 
 
 500 
 
497 
 
 501 
 
498 
PROCEDURE init* (getStr: procGetStr);
 502 
PROCEDURE init* (getStr: procGetStr);
499 
BEGIN
 503 
BEGIN
500 
	currentLang := langText;
 504 
	currentLang := langText;
501 
	loadKW(KW[langText],   Delim[langText],   getStr, "lang_Text");
 505 
	loadKW(langText,   KW[langText],   Delim[langText],   getStr, "lang_Text");
502 
    loadKW(KW[langOberon], Delim[langOberon], getStr, "lang_Oberon");
 506 
    loadKW(langOberon, KW[langOberon], Delim[langOberon], getStr, "lang_Oberon");
503 
    loadKW(KW[langC],      Delim[langC],      getStr, "lang_C");
 507 
    loadKW(langC,      KW[langC],      Delim[langC],      getStr, "lang_C");
504 
    loadKW(KW[langPascal], Delim[langPascal], getStr, "lang_Pascal");
 508 
    loadKW(langPascal, KW[langPascal], Delim[langPascal], getStr, "lang_Pascal");
505 
    loadKW(KW[langLua],    Delim[langLua],    getStr, "lang_Lua");
 509 
    loadKW(langLua,    KW[langLua],    Delim[langLua],    getStr, "lang_Lua");
506 
    loadKW(KW[langIni],    Delim[langIni],    getStr, "lang_Ini");
 510 
    loadKW(langIni,    KW[langIni],    Delim[langIni],    getStr, "lang_Ini");
Line 507... Line 511...
507 
    loadKW(KW[langFasm],   Delim[langFasm],   getStr, "lang_Fasm");
 511 
    loadKW(langFasm,   KW[langFasm],   Delim[langFasm],   getStr, "lang_Fasm");
508 
    loadKW(KW[langJSON],   Delim[langJSON],   getStr, "lang_JSON");
 512 
    loadKW(langJSON,   KW[langJSON],   Delim[langJSON],   getStr, "lang_JSON");
509 
 
 513 
 
510 
    fileExt[ 0].ext := "OB07"; fileExt[ 0].lang := langOberon;
 514 
    fileExt[ 0].ext := "OB07"; fileExt[ 0].lang := langOberon;