Rev 9579 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9579 | Rev 9847 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | BSD 2-Clause License |
2 | BSD 2-Clause License |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | Copyright (c) 2018-2021, Anton Krotov |
4 | Copyright (c) 2018-2022, Anton Krotov |
| 5 | All rights reserved. |
5 | All rights reserved. |
| Line 6... | Line 6... | ||
| 6 | *) |
6 | *) |
| Line 213... | Line 213... | ||
| 213 | STRINGS.replace(inname, "/", UTILS.slash); |
213 | STRINGS.replace(inname, "/", UTILS.slash); |
| Line 214... | Line 214... | ||
| 214 | 214 | ||
| 215 | C.Ln; |
215 | C.Ln; |
| 216 | C.String("Akron Oberon Compiler v"); C.Int(UTILS.vMajor); C.String("."); C.Int2(UTILS.vMinor); |
216 | C.String("Akron Oberon Compiler v"); C.Int(UTILS.vMajor); C.String("."); C.Int2(UTILS.vMinor); |
| 217 | C.String(" ("); C.Int(UTILS.bit_depth); C.StringLn("-bit) " + UTILS.Date); |
217 | C.String(" ("); C.Int(UTILS.bit_depth); C.StringLn("-bit) " + UTILS.Date); |
| Line 218... | Line 218... | ||
| 218 | C.StringLn("Copyright (c) 2018-2021, Anton Krotov"); |
218 | C.StringLn("Copyright (c) 2018-2022, Anton Krotov"); |
| 219 | 219 | ||
| 220 | IF inname = "" THEN |
220 | IF inname = "" THEN |
| 221 | C.Ln; |
221 | C.Ln; |