File: dbf\system_log.ads
1 --::::::::::
2 --systelog.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 package system_log is
13
14 use calendar;
15
16 owner_name: constant string := "sys";
17 start_time: constant time := calendar.clock - 1.0;
18
19 procedure error (msg: string;
20 moment: time := start_time;
21 owner: string := owner_name);
22 procedure warning (msg: string;
23 moment: time := start_time;
24 owner: string := owner_name);
25 procedure message (msg: string;
26 moment: time := start_time;
27 owner: string := owner_name);
28 procedure assert (hypothesis: boolean;
29 false_msg: string := "";
30 true_msg: string := "";
31 moment: time := start_time;
32 owner: string := owner_name);
33
34 assertion_failed: exception;
35
36 end system_log;
37