File: dbf\silent_log.ads
1 --::::::::::
2 --silenlog.ads
3 --::::::::::
4 -- Developed by (C) Wasiliy W. Molostoff 1994, 1995.
5 -- Moscow, Russia,
6 -- Voice: 7 (095) 398-23-38
7 -- e-mail: edv@edv.msk.ru
8 -- This is free software; you can freely redistribute it and/or
9 -- modify it without any restrictions. Please report any errors.
10 -- All corrections will be made as soon as possible.
11 with calendar;
12 with system_log;
13 generic
14 local: string := "log";
15 global: string := system_log.owner_name;
16 separator: string := "-";
17 package silent_log is
18
19 subtype time is calendar.time;
20 owner_name: constant string := global & separator & local;
21 start_time: constant time := system_log.start_time;
22
23 procedure error (msg: string;
24 moment: time := start_time;
25 owner: string := owner_name);
26
27 procedure warning (msg: string;
28 moment: time := start_time;
29 owner: string := owner_name);
30
31 procedure message (msg: string;
32 moment: time := start_time;
33 owner: string := owner_name);
34
35 pragma inline (error, warning, message);
36
37 procedure assert (hypothesis: boolean;
38 false_msg: string := "";
39 true_msg: string := "";
40 moment: time := start_time;
41 owner: string := owner_name)
42 renames system_log.assert;
43
44 assertion_failed: exception renames system_log.assertion_failed;
45
46 end;
47