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