File: alog-transforms-casing.ads

## Documentation

Table of Contents
Class Inheritance Tree

1.     --

2.     --  Copyright (c) 2008,

3.     --  Reto Buerki, Adrian-Ken Rueegsegger

4.     --

5.     --  This file is part of Alog.

6.     --

7.     --  Alog is free software; you can redistribute it and/or modify

8.     --  it under the terms of the GNU Lesser General Public License as published

9.     --  by the Free Software Foundation; either version 2.1 of the License, or

10.     --  (at your option) any later version.

11.     --

12.     --  Alog is distributed in the hope that it will be useful,

13.     --  but WITHOUT ANY WARRANTY; without even the implied warranty of

14.     --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

15.     --  GNU Lesser General Public License for more details.

16.     --

17.     --  You should have received a copy of the GNU Lesser General Public License

18.     --  along with Alog; if not, write to the Free Software

19.     --  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,

20.     --  MA  02110-1301  USA

21.     --

23.     --  Casing transform. Used to transform casing (lower/uppercase) of messages

24.     package Alog.Transforms.CasingTo API docTo specTo body is

26.        type Operation_Mode is (Uppercase, Lowercase);

28.        type InstanceTo API docTo body is new Alog.Transforms.InstanceTo API docTo specTo body with private;

29.        --  Casing transform.

31.        type Handle is access all InstanceTo API docTo specTo body;

33.        overriding

34.        function Transform_MessageTo API docTo body

35.          (TransformTo API docTo body : InstanceTo API docTo specTo body;

36.           LevelTo API docTo body     : Log_LevelTo API docTo spec := Info;

37.           Msg       : String)

38.           return String;

39.        --  Implementation of Transform_Message.

41.        procedure Set_ModeTo API docTo body

42.          (TransformTo API docTo body : in out InstanceTo API docTo specTo body;

43.           ModeTo API docTo body      :        Operation_ModeTo API docTo spec);

44.        --  Set operation mode of transform.

46.     private

48.        type InstanceTo API docTo spec is new Alog.Transforms.InstanceTo API docTo specTo body with record

49.           Mode  : Operation_ModeTo API docTo spec := Lowercase;

50.           --  Mode of operation.

51.        end record;

53.     end Alog.Transforms.CasingTo API docTo specTo body;