-- Rational has found that certain customers required the image of an
-- Ada unit to be different than Rational's current pretty printer output.
-- In particular, one customer required that "then" keywords of an
-- if statement appear on the next line of the output and be aligned with
-- the if keyword.  For example:
--
--       Instead of:
--
--           if [conditional expression] then
--               [statement]
--           elsif [conditional expression] then
--               [statement]
--           end if;
--
--       They Required:
--
--           if [conditional expression]
--           then
--               [statement]
--           elsif [conditional expression]
--           then
--               [statement]
--           end if;
--
--  They following procedure should take input from an Ada Unit in the form
--  that Rational's pretty printer current generates and create a new
--  file with the alteranative format.
--
--  Some things to watch out for:
--
--     1)  The then can already be on the next line if the user put
--         a line break after the conditional expression.
--
--     2)  Comments can contain the keywords "if" and "then"
--
--     3)  There are many other cases.  See how many of them you
--         can find.
--
procedure Format (Input_Filename : String; Output_Filename : String);