Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. (*
  2.     Copyright 2016 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 Write;
  19.  
  20. IMPORT File, sys := SYSTEM;
  21.  
  22. PROCEDURE Char*(F: File.FS; x: CHAR): BOOLEAN;
  23.   RETURN File.Write(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
  24. END Char;
  25.  
  26. PROCEDURE Int*(F: File.FS; x: INTEGER): BOOLEAN;
  27.   RETURN File.Write(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
  28. END Int;
  29.  
  30. PROCEDURE Real*(F: File.FS; x: REAL): BOOLEAN;
  31.   RETURN File.Write(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
  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;
  37.  
  38. PROCEDURE Boolean*(F: File.FS; x: BOOLEAN): BOOLEAN;
  39.   RETURN File.Write(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
  40. END Boolean;
  41.  
  42. PROCEDURE Set*(F: File.FS; x: SET): BOOLEAN;
  43.   RETURN File.Write(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
  44. END Set;
  45.  
  46. PROCEDURE Card16*(F: File.FS; x: sys.CARD16): BOOLEAN;
  47.   RETURN File.Write(F, sys.ADR(x), sys.SIZE(sys.CARD16)) = sys.SIZE(sys.CARD16)
  48. END Card16;
  49.  
  50. END Write.