Commit 754d0f64cd8e053035078e9049346d700c7bcf22
- Diff rendering mode:
- inline
- side by side
src/u.mod
(3 / 1)
| 44 | 44 | found : BOOLEAN; | |
| 45 | 45 | exit, pos : CARDINAL; | |
| 46 | 46 | result, str : Message.strType; | |
| 47 | tmp : ARRAY [0..2999] OF CHAR; | ||
| 47 | tmp : ARRAY [0..4999] OF CHAR; | ||
| 48 | 48 | iores : StreamFile.OpenResults; | |
| 49 | 49 | file : StreamFile.ChanId; | |
| 50 | 50 | BEGIN | |
| … | … | ||
| 63 | 63 | Strings.Concat(tmp, "DONE", tmp); | |
| 64 | 64 | Message.PrintLine(parse.chan, "The following sections are not currently maintained:"); | |
| 65 | 65 | IF LENGTH(tmp) > 400 THEN | |
| 66 | REPEAT | ||
| 66 | 67 | Strings.FindPrev(", ", tmp, 401, found, pos); | |
| 67 | 68 | Strings.Extract(tmp, 0, pos+1, str); | |
| 68 | 69 | Message.PrintLine(parse.chan, str); | |
| 69 | 70 | Strings.Extract(tmp, pos+2, LENGTH(tmp), str); | |
| 70 | 71 | Message.PrintLine(parse.chan, str); | |
| 72 | UNTIL LENGTH(tmp) <= 400; | ||
| 71 | 73 | ELSE | |
| 72 | 74 | Message.PrintLine(parse.chan, tmp); | |
| 73 | 75 | END; | |
