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)

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)

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;