Overview
| Comment: | s_expressions-printers-pretty: fix size estimation of verbatim encoding |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
87d479c3f0127b00cf9af50bb75cd824 |
| User & Date: | nat on 2014-08-04 20:26:13 |
| Other Links: | manifest | tags |
Context
|
2014-08-07
| ||
| 21:03 | sxcat: also allow 'x' to represent atoms in separator arguments check-in: fafeac7b41 user: nat tags: trunk | |
|
2014-08-04
| ||
| 20:26 | s_expressions-printers-pretty: fix size estimation of verbatim encoding check-in: 87d479c3f0 user: nat tags: trunk | |
|
2014-08-03
| ||
| 20:04 | sxcat: fix parsing of the second entity in parsing separator arguments check-in: fc6a5f0338 user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-printers-pretty.adb from [d27a8aa443] to [33ea8fdc6a].
| ︙ | |||
910 911 912 913 914 915 916 917 918 919 920 921 922 923 | 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 | + |
I : Count := 10;
begin
Size := 2;
while Data'Length >= I loop
Size := Size + 1;
I := I * 10;
end loop;
Size := Size + Data'Length;
end;
end case;
if Output.Param.Quoted = When_Shorter
and then Multi_Line_Quoted_Size (Output, Data) <= Size
then
if Output.Need_Blank then
|
| ︙ |