Natools

Check-in [737b8974b4]
Login
Overview
Comment:s_expressions-printers-pretty: export procedure Newline to allow clients to freely insert newlines (e.g. at the end of files)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 737b8974b4d21878923b6bd1e6c9d3afa9d10434
User & Date: nat on 2014-06-14 15:18:58
Other Links: manifest | tags
Context
2014-06-16
21:43
cron: new package implementing low-precision periodic procedure calls check-in: 6e8b6ccecd user: nat tags: trunk
2014-06-14
15:18
s_expressions-printers-pretty: export procedure Newline to allow clients to freely insert newlines (e.g. at the end of files) check-in: 737b8974b4 user: nat tags: trunk
2014-06-09
19:01
s_expressions-file_readers: reset parser state in Rewind check-in: a61c83ef7e user: nat tags: trunk
Changes

Modified src/natools-s_expressions-printers-pretty.adb from [b5a4a6c160] to [e42a3a55bf].

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
35
36
37
38
39
40
41



42
43
44
45
46
47
48







-
-
-







   function Is_Newline
     (Data : in Atom;
      Position : in Offset;
      Encoding : in Newline_Encoding)
      return Boolean;
      --  Check whether Data contains a newline at Position

   procedure Newline (Output : in out Printer);
      --  Output a newline and indentation

   procedure Quoted_Lengths
     (Data        : in Atom;
      Encoding    : in Character_Encoding;
      Width       : in Screen_Offset;
      Newline     : in Newline_Encoding;
      Single_Line : in Boolean;
      Size        : out Count;

Modified src/natools-s_expressions-printers-pretty.ads from [d9720a139b] to [f63f303f0e].

69
70
71
72
73
74
75



76
77
78
79
80
81
82
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85







+
+
+








   overriding procedure Open_List (Output : in out Printer);
   overriding procedure Append_Atom
     (Output : in out Printer;
      Data : in Atom);
   overriding procedure Close_List (Output : in out Printer);

   procedure Newline (Output : in out Printer);
      --  Open a new indented line in the output

   procedure Set_Parameters (Output : in out Printer; Param : in Parameters);
   function Get_Parameters (Output : Printer) return Parameters;

   procedure Set_Width
     (Output : in out Printer;
      Width : in Screen_Offset);
   procedure Set_Newline_At