Re: I wish I could ...

["Frank J. Lhota" <NOSPAM.lhota.adarose@verizon.net>]

How about this:

    declare
        Direction_For : constant array ( Going_Type ) of
Ada.Strings.Direction :=
            (
            Forward  => Ada.Strings.Forward,
            Backward => Ada.Strings.Backward
            );
    begin
        return Ada.Strings.Fixed.Index
            (
            Source  => Source.Reference( 1 .. Source.Last ),
            Mapping => String'( 1 => Space ),
            Going   => Direction_For( Going )
            );
    end;