Rev 7696 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7696 | Rev 7983 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | Copyright 2016, 2018 Anton Krotov |
2 | Copyright 2016, 2018 Anton Krotov |
Line 3... | Line 3... | ||
3 | 3 | ||
4 | This program is free software: you can redistribute it and/or modify |
4 | This program is free software: you can redistribute it and/or modify |
5 | it under the terms of the GNU Lesser General Public License as published by |
5 | it under the terms of the GNU Lesser General Public License as published by |
Line 41... | Line 41... | ||
41 | 41 | ||
42 | PROCEDURE WChar*(F: File.FS; VAR x: WCHAR): BOOLEAN; |
42 | PROCEDURE WChar*(F: File.FS; VAR x: WCHAR): BOOLEAN; |
43 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(WCHAR)) = sys.SIZE(WCHAR) |
43 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(WCHAR)) = sys.SIZE(WCHAR) |
Line 44... | Line 44... | ||
44 | END WChar; |
44 | END WChar; |
45 | 45 |