37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
Name : in String;
Form : in String := "");
procedure Open
(Self : in out Writer;
Name : in String;
Form : in String := "");
-- Reinitialize Self using Stream_IO.Create or Stream_IO.Open
private
type Autoclose is new Ada.Finalization.Limited_Controlled with record
File : Ada.Streams.Stream_IO.File_Type;
end record;
|
>
>
>
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
Name : in String;
Form : in String := "");
procedure Open
(Self : in out Writer;
Name : in String;
Form : in String := "");
-- Reinitialize Self using Stream_IO.Create or Stream_IO.Open
function Name (Self : Writer) return String;
-- Return the underlying file name
private
type Autoclose is new Ada.Finalization.Limited_Controlled with record
File : Ada.Streams.Stream_IO.File_Type;
end record;
|