Rev 8762 | Rev 9073 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8762 | Rev 9050 | ||
|---|---|---|---|
| Line 25... | Line 25... | ||
| 25 | CONST |
25 | CONST |
| Line 26... | Line 26... | ||
| 26 | 26 | ||
| 27 | langNone* = 0; langC* = 1; langOberon* = 2; langPascal* = 3; |
27 | langNone* = 0; langC* = 1; langOberon* = 2; langPascal* = 3; |
| Line -... | Line 28... | ||
| - | 28 | langFasm* = 4; langLua* = 5; langIni* = 6; |
|
| - | 29 | ||
| 28 | langFasm* = 4; langLua* = 5; langIni* = 6; |
30 | csLang = {langNone, langC, langOberon, langLua, langIni}; |
| Line 29... | Line 31... | ||
| 29 | 31 | ||
| Line 30... | Line 32... | ||
| 30 | TYPE |
32 | TYPE |
| Line 41... | Line 43... | ||
| 41 | VAR |
43 | VAR |
| Line 42... | Line 44... | ||
| 42 | 44 | ||
| Line -... | Line 45... | ||
| - | 45 | oberonKW, cKW, pascalKW, luaKW, iniKW, fasmKW: ARRAY 3 OF tKeyWords; |
|
| - | 46 | ||
| - | 47 | ||
| - | 48 | PROCEDURE isCS* (lang: INTEGER): BOOLEAN; |
|
| - | 49 | RETURN lang IN csLang |
|
| 43 | oberonKW, cKW, pascalKW, luaKW, iniKW, fasmKW: ARRAY 3 OF tKeyWords; |
50 | END isCS; |
| 44 | 51 | ||
| 45 | 52 | ||
| 46 | PROCEDURE checkKW (s: ARRAY OF WCHAR; KW: tKeyWords): BOOLEAN; |
53 | PROCEDURE checkKW (s: ARRAY OF WCHAR; KW: tKeyWords): BOOLEAN; |
| 47 | VAR |
54 | VAR |