Subversion Repositories Kolibri OS

Rev

Rev 7597 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. (*
  2.     Copyright 2016, 2018 Anton Krotov
  3.  
  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
  6.     the Free Software Foundation, either version 3 of the License, or
  7.     (at your option) any later version.
  8.  
  9.     This program is distributed in the hope that it will be useful,
  10.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.     GNU Lesser General Public License for more details.
  13.  
  14.     You should have received a copy of the GNU Lesser General Public License
  15.     along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16. *)
  17.  
  18. MODULE Read;
  19.  
  20. IMPORT File, sys := SYSTEM;
  21.  
  22. PROCEDURE Char*(F: File.FS; VAR x: CHAR): BOOLEAN;
  23.   RETURN File.Read(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
  24. END Char;
  25.  
  26. PROCEDURE Int*(F: File.FS; VAR x: INTEGER): BOOLEAN;
  27.   RETURN File.Read(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
  28. END Int;
  29.  
  30. PROCEDURE Real*(F: File.FS; VAR x: REAL): BOOLEAN;
  31.   RETURN File.Read(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
  32. END Real;
  33.  
  34. PROCEDURE Boolean*(F: File.FS; VAR x: BOOLEAN): BOOLEAN;
  35.   RETURN File.Read(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
  36. END Boolean;
  37.  
  38. PROCEDURE Set*(F: File.FS; VAR x: SET): BOOLEAN;
  39.   RETURN File.Read(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
  40. END Set;
  41.  
  42. PROCEDURE WChar*(F: File.FS; VAR x: WCHAR): BOOLEAN;
  43.   RETURN File.Read(F, sys.ADR(x), sys.SIZE(WCHAR)) = sys.SIZE(WCHAR)
  44. END WChar;
  45.  
  46. END Read.
  47.