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 |