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 |