Hosted by
|
with Writers; use Writers;
package Indent_Writers is
type Indent_Writer is
new Writer with
record
Indent_Char : Character := Character'Val(9);
Indent_Count : Natural := 1;
Indent_Level : Natural := 0;
end record;
type Indent_Writer_Access is access all Indent_Writer'Class;
procedure Indent
(This : access Indent_Writer'Class);
procedure Unindent
(This : access Indent_Writer'Class);
procedure Write_Indent
(This : access Indent_Writer'Class);
end Indent_Writers;
|