Differences From Artifact [9cd299dc99]:
- File src/natools-s_expressions-file_writers.ads — part of check-in [9d6c39db7d] at 2014-06-05 20:20:26 on branch trunk — s_expressions-file_writers: new package providing a pretty printer based on Stream_IO files (user: nat, size: 2799) [annotate] [blame] [check-ins using]
To Artifact [01b696634e]:
- File src/natools-s_expressions-file_writers.ads — part of check-in [9ef479b9be] at 2014-06-06 19:04:20 on branch trunk — s_expressions-file_writers: add a filename accessor function (user: nat, size: 2890) [annotate] [blame] [check-ins using]
| ︙ | |||
37 38 39 40 41 42 43 44 45 46 47 48 49 50 | 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;
|
| ︙ |