Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
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: |
737b8974b4d21878923b6bd1e6c9d3af |
| User & Date: | nat 2014-06-14 15:18:58 |
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
Changes to src/natools-s_expressions-printers-pretty.adb.
| ︙ | ︙ | |||
35 36 37 38 39 40 41 |
function Is_Newline
(Data : in Atom;
Position : in Offset;
Encoding : in Newline_Encoding)
return Boolean;
-- Check whether Data contains a newline at Position
| < < < | 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 Quoted_Lengths
(Data : in Atom;
Encoding : in Character_Encoding;
Width : in Screen_Offset;
Newline : in Newline_Encoding;
Single_Line : in Boolean;
Size : out Count;
|
| ︙ | ︙ |
Changes to src/natools-s_expressions-printers-pretty.ads.
| ︙ | ︙ | |||
69 70 71 72 73 74 75 76 77 78 79 80 81 82 |
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 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
| > > > | 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
|
| ︙ | ︙ |