Rev 8728 | Rev 9073 | 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 |