WebSVN – Kolibri OS – Diff – /programs/develop/oberon07/Lib/KolibriOS/Write.ob07


﻿(*
    Copyright 2016, 2018 Anton Krotov
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU Lesser General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU Lesser General Public License for more details.
 
    You should have received a copy of the GNU Lesser General Public License
    along with this program.  If not, see .
*)
 
MODULE Write;
 
IMPORT File, sys := SYSTEM;
 
PROCEDURE Char*(F: File.FS; x: CHAR): BOOLEAN;
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
END Char;
 
PROCEDURE Int*(F: File.FS; x: INTEGER): BOOLEAN;
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
END Int;
 
PROCEDURE Real*(F: File.FS; x: REAL): BOOLEAN;
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL)
END Real;
 
 
 
 
 
PROCEDURE Boolean*(F: File.FS; x: BOOLEAN): BOOLEAN;
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
END Boolean;
 
PROCEDURE Set*(F: File.FS; x: SET): BOOLEAN;
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
END Set;
 
PROCEDURE Card16*(F: File.FS; x: sys.CARD16): BOOLEAN;
  RETURN File.Write(F, sys.ADR(x), sys.SIZE(sys.CARD16)) = sys.SIZE(sys.CARD16)
END Card16;
 
END Write.

Subversion Repositories Kolibri OS

(root)/programs/develop/oberon07/Lib/KolibriOS/Write.ob07 – Rev 6613 → 7597

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