Rev 9174 | Rev 9193 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9174 | Rev 9190 | ||
---|---|---|---|
Line 22... | Line 22... | ||
22 | IMPORT Lines; |
22 | IMPORT Lines; |
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 | langText* = 0; langC* = 1; langOberon* = 2; langPascal* = 3; |
Line 315... | Line 315... | ||
315 | 315 | ||
316 | 316 | ||
317 | 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); |
318 | BEGIN |
318 | BEGIN |
319 | CASE lang OF |
319 | CASE lang OF |
320 | |langNone: |
320 | |langText: |
321 | |langFasm: |
321 | |langFasm: |
322 | |langC, |
322 | |langC, |
323 | langJSON: C(line, depth, cond, pos, n) |
323 | langJSON: C(line, depth, cond, pos, n) |