Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 003fa8ab7c
Fetching contributors…

Cannot retrieve contributors at this time

file 27 lines (21 sloc) 0.95 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
package Output is

  -- Return the indentation of a given level
  function Get_Indent (Level : in Natural) return String;

  -- Put Str, optionaly at correct indentation level, optionaly in comment
  -- Str may contain Common.Line_Feed, so that it contains several lines
  -- each of them can be split n several parts if too long.
  -- If Indent is set, level applies to indent each line (and parts split)
  -- If Indent is not set, level is used only on split parts of lines
  procedure Put (Str : in String;
                 Comment : in Boolean;
                 Level : in Natural := 0;
                 Indent : in Boolean := False);

  Line_Feed_Error : exception;

  procedure Put_Line (Str : in String;
                      Comment : in Boolean;
                      Level : in Natural := 0;
                      Indent : in Boolean := False);

  procedure New_Line;

  -- Must be called at end of program
  procedure Flush;
end Output;
Something went wrong with that request. Please try again.