Natools

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)

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)

70
71
72
73
74
75
76






77

      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;







end Natools.S_Expressions.File_Writers;

>
>
>
>
>
>

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;