Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6613 | Rev 7597 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | Copyright 2016 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 |
6 | the Free Software Foundation, either version 3 of the License, or |
6 | the Free Software Foundation, either version 3 of the License, or |
Line 29... | Line 29... | ||
29 | 29 | ||
30 | PROCEDURE Real*(F: File.FS; VAR x: REAL): BOOLEAN; |
30 | PROCEDURE Real*(F: File.FS; VAR x: REAL): BOOLEAN; |
31 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL) |
31 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL) |
Line 32... | Line -... | ||
32 | END Real; |
- | |
33 | - | ||
34 | PROCEDURE LongReal*(F: File.FS; VAR x: LONGREAL): BOOLEAN; |
- | |
35 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(LONGREAL)) = sys.SIZE(LONGREAL) |
- | |
36 | END LongReal; |
32 | END Real; |
37 | 33 | ||
38 | PROCEDURE Boolean*(F: File.FS; VAR x: BOOLEAN): BOOLEAN; |
34 | PROCEDURE Boolean*(F: File.FS; VAR x: BOOLEAN): BOOLEAN; |
Line 39... | Line 35... | ||
39 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN) |
35 | RETURN File.Read(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN) |