Subversion Repositories Kolibri OS

Rev

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

Rev 9073 Rev 9174
Line 23... Line 23...
23 
 
 23 
 
Line 24... Line 24...
24 
 
 24 
 
25 
CONST
 25 
CONST
Line 26... Line 26...
26 
 
 26 
 
Line 27... Line 27...
27 
    langNone* = 0; langC* = 1; langOberon* = 2; langPascal* = 3;
 27 
    langNone* = 0; langC* = 1; langOberon* = 2; langPascal* = 3;
Line 28... Line 28...
28 
    langFasm* = 4; langLua* = 5; langIni* = 6;
 28 
    langFasm* = 4; langLua* = 5; langIni* = 6; langJSON* = 7;
Line 40... Line 40...
40 
    procGetStr = PROCEDURE (secName, keyName: ARRAY OF CHAR; VAR s: ARRAY OF CHAR);
 40 
    procGetStr = PROCEDURE (secName, keyName: ARRAY OF CHAR; VAR s: ARRAY OF CHAR);
Line 41... Line 41...
41 
 
 41 
 
Line 42... Line 42...
42 
 
 42 
 
Line 43... Line 43...
43 
VAR
 43 
VAR
44 
 
 44 
 
45 
    oberonKW, cKW, pascalKW, luaKW, iniKW, fasmKW: ARRAY 3 OF tKeyWords;
 45 
    oberonKW, cKW, pascalKW, luaKW, iniKW, fasmKW, jsonKW: ARRAY 3 OF tKeyWords;
Line 64... Line 64...
64 
 
 64 
 
65 
PROCEDURE isKey* (s: ARRAY OF WCHAR; lang, kwSet: INTEGER): BOOLEAN;
 65 
PROCEDURE isKey* (s: ARRAY OF WCHAR; lang, kwSet: INTEGER): BOOLEAN;
66 
VAR
 66 
VAR
67 
    res: BOOLEAN;
 67 
    res: BOOLEAN;
- 
 
 68 
BEGIN
68 
BEGIN
 69 
	DEC(kwSet);
69 
    res := FALSE;
 70 
    res := FALSE;
70 
    CASE lang OF
 71 
    CASE lang OF
71 
    |langC:      res := checkKW(s, cKW[kwSet - 1])
 72 
    |langC:      res := checkKW(s, cKW[kwSet])
72 
    |langOberon: res := checkKW(s, oberonKW[kwSet - 1])
 73 
    |langOberon: res := checkKW(s, oberonKW[kwSet])
73 
    |langPascal: res := checkKW(s, pascalKW[kwSet - 1])
 74 
    |langPascal: res := checkKW(s, pascalKW[kwSet])
74 
    |langLua:    res := checkKW(s, luaKW[kwSet - 1])
 75 
    |langLua:    res := checkKW(s, luaKW[kwSet])
75 
    |langIni:    res := checkKW(s, iniKW[kwSet - 1])
 76 
    |langIni:    res := checkKW(s, iniKW[kwSet])
- 
 
 77 
    |langFasm:   res := checkKW(s, fasmKW[kwSet])
76 
    |langFasm:   res := checkKW(s, fasmKW[kwSet - 1])
 78 
    |langJSON:   res := checkKW(s, jsonKW[kwSet])
77 
    END
 79 
    END
78 
    RETURN res
 80 
    RETURN res
Line 315... Line 317...
315 
PROCEDURE comments* (line: tLine; VAR depth, cond, pos: INTEGER; n: INTEGER; lang: INTEGER);
 317 
PROCEDURE comments* (line: tLine; VAR depth, cond, pos: INTEGER; n: INTEGER; lang: INTEGER);
316 
BEGIN
 318 
BEGIN
317 
    CASE lang OF
 319 
    CASE lang OF
318 
    |langNone:
 320 
    |langNone:
319 
    |langFasm:
 321 
    |langFasm:
- 
 
 322 
    |langC,
320 
    |langC:       C(line, depth, cond, pos, n)
 323 
     langJSON:    C(line, depth, cond, pos, n)
321 
    |langOberon:  Oberon(line, depth, cond, pos, n)
 324 
    |langOberon:  Oberon(line, depth, cond, pos, n)
322 
    |langPascal:  Pascal(line, depth, cond, pos, n)
 325 
    |langPascal:  Pascal(line, depth, cond, pos, n)
323 
    |langLua:     Lua(line, depth, cond, pos, n)
 326 
    |langLua:     Lua(line, depth, cond, pos, n)
324 
    |langIni:     Ini(line, depth, cond, pos, n)
 327 
    |langIni:     Ini(line, depth, cond, pos, n)
325 
    END
 328 
    END
Line 379... Line 382...
379 
    loadKW(cKW,      getStr, "lang_C");
 382 
    loadKW(cKW,      getStr, "lang_C");
380 
    loadKW(pascalKW, getStr, "lang_Pascal");
 383 
    loadKW(pascalKW, getStr, "lang_Pascal");
381 
    loadKW(luaKW,    getStr, "lang_Lua");
 384 
    loadKW(luaKW,    getStr, "lang_Lua");
382 
    loadKW(iniKW,    getStr, "lang_Ini");
 385 
    loadKW(iniKW,    getStr, "lang_Ini");
383 
    loadKW(fasmKW,   getStr, "lang_Fasm");
 386 
    loadKW(fasmKW,   getStr, "lang_Fasm");
- 
 
 387 
    loadKW(jsonKW,   getStr, "lang_JSON");
384 
END init;
 388 
END init;
Line 385... Line 389...
385 
 
 389 
 
386 
 
 390