319,7 → 319,7 |
END comments; |
|
|
PROCEDURE EnterKW (s: ARRAY OF CHAR; VAR KW: tKeyWords); |
PROCEDURE EnterKW (s: ARRAY OF CHAR; VAR KW: tKeyWords; CPrep: BOOLEAN); |
CONST |
SPACE = 20X; CR = 0DX; LF = 0AX; TAB = 9X; COMMA = ","; |
VAR |
333,7 → 333,8 |
k := KW.cnt; |
i := 0; |
REPEAT |
j := 0; |
KW.words[k, 0] := "#"; |
j := ORD(CPrep); |
WHILE (s[i] # 0X) & ~delim(s[i]) DO |
KW.words[k, j] := WCHR(ORD(s[i])); |
INC(i); |
360,8 → 361,8 |
KW[i].cnt := 0; |
key[2] := CHR(ORD("1") + i); |
getStr(lang, key, s); |
EnterKW(s, KW[i]) |
END; |
EnterKW(s, KW[i], (lang = "lang_C") & (i = 1)) |
END |
END loadKW; |
|
|