Natools

Check-in [78cfd91715]
Login
☰Home Timeline Files Branches Tags Tickets Wiki 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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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);
︙

This page was generated in about 0.004s by Fossil 2.23 [47362306a7] 2023-11-01 18:56:47