Natools

Check-in [78cfd91715]
Login
Overview
Comment:s_expressions-printers-pretty: fix width of tab-only indentations
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 78cfd91715f03543cdf4e8961eb5be293e3e43b8
User & Date: nat on 2014-07-31 19:16:38
Other Links: manifest | tags
Context
2014-08-01
20:35
tools/tests.sh: add a fully-covering test suite for `sxcat` tool check-in: 9bea00c392 user: nat tags: trunk
2014-07-31
19:16
s_expressions-printers-pretty: fix width of tab-only indentations check-in: 78cfd91715 user: nat tags: trunk
2014-07-30
20:57
s_expressions-printers-pretty-tests: also test width of tab-only indentations check-in: d42a09ad5a user: nat tags: trunk
Changes

Modified src/natools-s_expressions-printers-pretty.adb from [bf089f67f2] to [d27a8aa443].

284
285
286
287
288
289
290
291

292
293
294
295
296
297
298
284
285
286
287
288
289
290

291
292
293
294
295
296
297
298







-
+







               Output.Cursor := Output.Param.Indentation * Output.Indent_Level
                                + 1;
               Writer.Write_Raw
                 ((1 .. Count (Output.Cursor) - 1 => Encodings.Space));
            when Tabs =>
               Output.Cursor := Output.Param.Indentation * Output.Indent_Level;
               Writer.Write_Raw ((1 .. Count (Output.Cursor) => Encodings.HT));
               Output.Cursor := Output.Cursor * Output.Param.Tab_Stop;
               Output.Cursor := Output.Cursor * Output.Param.Tab_Stop + 1;
            when Tabs_And_Spaces =>
               Output.Cursor := Output.Param.Indentation * Output.Indent_Level
                                + 1;
               declare
                  Tab_Count : constant Count
                    := (Count (Output.Cursor) - 1)
                        / Count (Output.Param.Tab_Stop);