Subversion Repositories Kolibri OS

Rev

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)