Rev 9659 | Rev 9674 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9659 | Rev 9671 | ||
|---|---|---|---|
| Line 289... | Line 289... | ||
| 289 | res := -1; |
289 | res := -1; |
| 290 | pos := text.pos; |
290 | pos := text.pos; |
| 291 | cnt := text.cnt; |
291 | cnt := text.cnt; |
| 292 | WHILE (text.cnt > 0) & (res = -1) DO |
292 | WHILE (text.cnt > 0) & (res = -1) DO |
| 293 | c := text.getChar(text); |
293 | c := text.getChar(text); |
| 294 | IF CHR(c) = LF THEN |
294 | IF c = ORD(LF) THEN |
| 295 | res := E.EOL_LF |
295 | res := E.EOL_LF |
| 296 | ELSIF CHR(c) = CR THEN |
296 | ELSIF c = ORD(CR) THEN |
| 297 | IF CHR(text.getChar(text)) = LF THEN |
297 | IF text.getChar(text) = ORD(LF) THEN |
| 298 | res := E.EOL_CRLF |
298 | res := E.EOL_CRLF |
| 299 | ELSE |
299 | ELSE |
| 300 | res := E.EOL_CR |
300 | res := E.EOL_CR |
| 301 | END |
301 | END |
| 302 | END |
302 | END |