Differences From Artifact [a9d77c7157]:
- File src/natools-s_expressions-file_writers.adb — 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: 2648) [annotate] [blame] [check-ins using]
To Artifact [96c31e5d5b]:
- File src/natools-s_expressions-file_writers.adb — 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: 2770) [annotate] [blame] [check-ins using]
| ︙ | |||
70 71 72 73 74 75 76 77 | 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | + + + + + + |
Name : in String;
Form : in String := "") is
begin
Finalize (Self.Holder);
Stream_IO.Open (Self.Holder.File, Stream_IO.Append_File, Name, Form);
end Open;
function Name (Self : Writer) return String is
begin
return Stream_IO.Name (Self.Holder.File);
end Name;
end Natools.S_Expressions.File_Writers;
|