Overview
| Comment: | s_expressions-printers-pretty: fix width of tab-only indentations |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
78cfd91715f03543cdf4e8961eb5be29 |
| 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 |
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));
| | | 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 + 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);
|
| ︙ | ︙ |