Subversion Repositories Kolibri OS

Rev

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; x: REAL): BOOLEAN;
 30 
PROCEDURE Real*(F: File.FS; x: REAL): BOOLEAN;
31 
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
 31 
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
Line 32... Line -...
32 
END Real;
 - 
 
33 
 
 - 
 
34 
PROCEDURE LongReal*(F: File.FS; x: LONGREAL): BOOLEAN;
 - 
 
35 
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(LONGREAL)) = sys.SIZE(LONGREAL)
 - 
 
36 
END LongReal;
 32 
END Real;
37 
 
 33 
 
38 
PROCEDURE Boolean*(F: File.FS; x: BOOLEAN): BOOLEAN;
 34 
PROCEDURE Boolean*(F: File.FS; x: BOOLEAN): BOOLEAN;
Line 39... Line 35...
39 
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
 35 
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)