package Alog.Transforms.Casing is
type Instance is new Alog.Transforms.Instance with private;
type Operation_Mode is (Uppercase, Lowercase);
type Handle is access all Instance;
procedure Set_Mode
( | Transform | : in out Instance; |
Mode | : Operation_Mode); |