src/misc.ads


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
28
29
30
31
32
33


with

    Ada.Command_Line,
    Ada.Directories;


package Misc is


    Origin : constant String;


    function Max
           (A, B : in Integer)
        return Integer;


    function Min
           (A, B : in Integer)
        return Integer;


private


    Origin : constant String := Ada.Directories.Containing_Directory
        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));


end Misc;