Rev 8728 | Rev 9050 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8728 | Rev 8762 | ||
|---|---|---|---|
| Line 317... | Line 317... | ||
| 317 | |langIni: Ini(line, depth, cond, pos, n) |
317 | |langIni: Ini(line, depth, cond, pos, n) |
| 318 | END |
318 | END |
| 319 | END comments; |
319 | END comments; |
| Line 320... | Line 320... | ||
| 320 | 320 | ||
| 321 | 321 | ||
| 322 | PROCEDURE EnterKW (s: ARRAY OF CHAR; VAR KW: tKeyWords); |
322 | PROCEDURE EnterKW (s: ARRAY OF CHAR; VAR KW: tKeyWords; CPrep: BOOLEAN); |
| 323 | CONST |
323 | CONST |
| 324 | SPACE = 20X; CR = 0DX; LF = 0AX; TAB = 9X; COMMA = ","; |
324 | SPACE = 20X; CR = 0DX; LF = 0AX; TAB = 9X; COMMA = ","; |
| Line 331... | Line 331... | ||
| 331 | 331 | ||
| 332 | BEGIN |
332 | BEGIN |
| 333 | k := KW.cnt; |
333 | k := KW.cnt; |
| 334 | i := 0; |
334 | i := 0; |
| - | 335 | REPEAT |
|
| 335 | REPEAT |
336 | KW.words[k, 0] := "#"; |
| 336 | j := 0; |
337 | j := ORD(CPrep); |
| 337 | WHILE (s[i] # 0X) & ~delim(s[i]) DO |
338 | WHILE (s[i] # 0X) & ~delim(s[i]) DO |
| 338 | KW.words[k, j] := WCHR(ORD(s[i])); |
339 | KW.words[k, j] := WCHR(ORD(s[i])); |
| 339 | INC(i); |
340 | INC(i); |
| 340 | INC(j) |
341 | INC(j) |
| Line 358... | Line 359... | ||
| 358 | key := "KW1"; |
359 | key := "KW1"; |
| 359 | FOR i := 0 TO 2 DO |
360 | FOR i := 0 TO 2 DO |
| 360 | KW[i].cnt := 0; |
361 | KW[i].cnt := 0; |
| 361 | key[2] := CHR(ORD("1") + i); |
362 | key[2] := CHR(ORD("1") + i); |
| 362 | getStr(lang, key, s); |
363 | getStr(lang, key, s); |
| 363 | EnterKW(s, KW[i]) |
364 | EnterKW(s, KW[i], (lang = "lang_C") & (i = 1)) |
| 364 | END; |
365 | END |
| 365 | END loadKW; |
366 | END loadKW; |
| Line 366... | Line 367... | ||
| 366 | 367 | ||
| 367 | 368 | ||