3 with Ada
.Streams
.Stream_IO
;
5 procedure In_Out_Parameter
is
7 use Ada
.Streams
; use Stream_IO
;
9 File
: Stream_IO
.File_Type
;
11 type Bitmap
is array (Natural range <>) of Boolean;
12 for Bitmap
'Component_Size use 1;
14 type Message
is record
17 for Message
use record
25 TX
.B
:= (others => False);
26 Stream_IO
.Create
(File
=> File
, Mode
=> Out_File
, Name
=> "data");
27 Message
'Output (Stream
(File
), TX
);
28 Stream_IO
.Close
(File
);
30 Stream_IO
.Open
(File
=> File
, Mode
=> In_File
, Name
=> "data");
31 RX
:= Message
'Input (Stream
(File
));
32 Stream_IO
.Close
(File
);