File: dbf\program_log.ads
1 --::::::::::
2 --progrlog.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 system_log;
12 with calendar;
13 generic
14 local: string := "log";
15 global: string := system_log.owner_name;
16 separator: string := "-";
17 package program_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 renames system_log.error;
27 procedure warning (msg: string;
28 moment: time := start_time;
29 owner: string := owner_name)
30 renames system_log.warning;
31 procedure message (msg: string;
32 moment: time := start_time;
33 owner: string := owner_name)
34 renames system_log.message;
35 procedure assert (hypothesis: boolean;
36 false_msg: string := "";
37 true_msg: string := "";
38 moment: time := start_time;
39 owner: string := owner_name)
40 renames system_log.assert;
41
42 assertion_failed: exception renames system_log.assertion_failed;
43
44 end;
45