Subversion Repositories Kolibri OS

Rev

Rev 9902 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9902 Rev 9903
Line 139... Line 139...
139 
				k := 0;
 139 
				k := 0;
140 
				INC(pos);
 140 
				INC(pos);
141 
				REPEAT
 141 
				REPEAT
142 
					INC(pos);
 142 
					INC(pos);
143 
					c := Lines.getChar(line, pos);
 143 
					c := Lines.getChar(line, pos);
144 
					IF Utils.cap(c) THEN END;
 144 
					IF Utils.upper(c) THEN END;
145 
					IF Utils.isHex(c) THEN
 145 
					IF Utils.isHex(c) THEN
146 
						INC(k)
 146 
						INC(k)
147 
					ELSE
 147 
					ELSE
148 
						k := 0
 148 
						k := 0
149 
					END;
 149 
					END;
Line 164... Line 164...
164 
				k := 0;
 164 
				k := 0;
165 
				INC(pos);
 165 
				INC(pos);
166 
				REPEAT
 166 
				REPEAT
167 
					INC(pos);
 167 
					INC(pos);
168 
					c := Lines.getChar(line, pos);
 168 
					c := Lines.getChar(line, pos);
169 
					IF Utils.cap(c) THEN END;
 169 
					IF Utils.upper(c) THEN END;
170 
					IF Utils.isHex(c) THEN
 170 
					IF Utils.isHex(c) THEN
171 
						INC(k)
 171 
						INC(k)
172 
					ELSE
 172 
					ELSE
173 
						k := 0
 173 
						k := 0
174 
					END
 174 
					END
Line 455... Line 455...
455 
    FOR i := 0 TO 2 DO
 455 
    FOR i := 0 TO 2 DO
456 
        KW[i].cnt := 0;
 456 
        KW[i].cnt := 0;
457 
        key[2] := CHR(ORD("1") + i);
 457 
        key[2] := CHR(ORD("1") + i);
458 
        getStr(lang_name, key, s);
 458 
        getStr(lang_name, key, s);
459 
        IF ~(lang IN csLang) THEN
 459 
        IF ~(lang IN csLang) THEN
460 
        	Utils.upcase(s)
 460 
        	Utils.lowcase8(s)
461 
        END;
 461 
        END;
462 
        IF lang = langOberon THEN
 462 
        IF lang = langOberon THEN
463 
	        k := LENGTH(s);
 463 
	        k := LENGTH(s);
464 
    	    s[k] := ",";
 464 
    	    s[k] := ",";
465 
	        FOR j := 0 TO k - 1 DO
 465 
	        FOR j := 0 TO k - 1 DO
466 
		        s[j + k + 1] := s[j];
 466 
		        s[j + k + 1] := s[j];
467 
		        w := WCHR(ORD(s[j]));
 467 
		        w := WCHR(ORD(s[j]));
468 
		        IF Utils.low(w) THEN
 468 
		        IF Utils.lower(w) THEN
469 
		        	s[j + k + 1] := CHR(ORD(w) MOD 256)
 469 
		        	s[j + k + 1] := CHR(ORD(w) MOD 256)
470 
		        END
 470 
		        END
471 
    	    END;
 471 
    	    END;
472 
    	    k := 2*k + 1;
 472 
    	    k := 2*k + 1;
473 
    	    s[k] := 0X
 473 
    	    s[k] := 0X
Line 506... Line 506...
506 
BEGIN
 506 
BEGIN
507 
	i := 0;
 507 
	i := 0;
508 
	WHILE fileExt[i].lang # lang DO
 508 
	WHILE fileExt[i].lang # lang DO
509 
		INC(i)
 509 
		INC(i)
510 
	END;
 510 
	END;
511 
	COPY(fileExt[i].ext, ext);
 511 
	COPY(fileExt[i].ext, ext)
512 
	Utils.lowcase(ext)
 - 
 
513 
END getExt;
 512 
END getExt;
Line 514... Line 513...
514 
 
 513 
 
515 
 
 514 
 
Line 523... Line 522...
523 
    loadKW(langLua,    KW[langLua],    Delim[langLua],    getStr, "lang_Lua");
 522 
    loadKW(langLua,    KW[langLua],    Delim[langLua],    getStr, "lang_Lua");
524 
    loadKW(langIni,    KW[langIni],    Delim[langIni],    getStr, "lang_Ini");
 523 
    loadKW(langIni,    KW[langIni],    Delim[langIni],    getStr, "lang_Ini");
525 
    loadKW(langFasm,   KW[langFasm],   Delim[langFasm],   getStr, "lang_Fasm");
 524 
    loadKW(langFasm,   KW[langFasm],   Delim[langFasm],   getStr, "lang_Fasm");
526 
    loadKW(langJSON,   KW[langJSON],   Delim[langJSON],   getStr, "lang_JSON");
 525 
    loadKW(langJSON,   KW[langJSON],   Delim[langJSON],   getStr, "lang_JSON");
Line 527... Line 526...
527 
 
 526 
 
528 
    fileExt[ 0].ext := "OB07"; fileExt[ 0].lang := langOberon;
 527 
    fileExt[ 0].ext := "ob07"; fileExt[ 0].lang := langOberon;
529 
    fileExt[ 1].ext := "C";    fileExt[ 1].lang := langC;
 528 
    fileExt[ 1].ext := "c";    fileExt[ 1].lang := langC;
530 
    fileExt[ 2].ext := "H";    fileExt[ 2].lang := langC;
 529 
    fileExt[ 2].ext := "h";    fileExt[ 2].lang := langC;
531 
    fileExt[ 3].ext := "CPP";  fileExt[ 3].lang := langC;
 530 
    fileExt[ 3].ext := "cpp";  fileExt[ 3].lang := langC;
532 
    fileExt[ 4].ext := "PAS";  fileExt[ 4].lang := langPascal;
 531 
    fileExt[ 4].ext := "pas";  fileExt[ 4].lang := langPascal;
533 
    fileExt[ 5].ext := "PP";   fileExt[ 5].lang := langPascal;
 532 
    fileExt[ 5].ext := "pp";   fileExt[ 5].lang := langPascal;
534 
    fileExt[ 6].ext := "ASM";  fileExt[ 6].lang := langFasm;
 533 
    fileExt[ 6].ext := "asm";  fileExt[ 6].lang := langFasm;
535 
    fileExt[ 7].ext := "LUA";  fileExt[ 7].lang := langLua;
 534 
    fileExt[ 7].ext := "lua";  fileExt[ 7].lang := langLua;
536 
    fileExt[ 8].ext := "INI";  fileExt[ 8].lang := langIni;
 535 
    fileExt[ 8].ext := "ini";  fileExt[ 8].lang := langIni;
537 
    fileExt[ 9].ext := "JSON"; fileExt[ 9].lang := langJSON;
 536 
    fileExt[ 9].ext := "json"; fileExt[ 9].lang := langJSON;
538 
    fileExt[10].ext := "TXT";  fileExt[10].lang := langText;
 537 
    fileExt[10].ext := "txt";  fileExt[10].lang := langText;
Line 539... Line 538...
539 
END init;
 538 
END init;
540 
 
 539