Natools

Check-in [87d479c3f0]
Login
Overview
Comment:s_expressions-printers-pretty: fix size estimation of verbatim encoding
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 87d479c3f0127b00cf9af50bb75cd824d494836f
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