File: dbf\silent_log.adb
1 --::::::::::
2 --silenlog.adb
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
12 package body silent_log is
13
14 procedure error (msg: string;
15 moment: time := start_time;
16 owner: string := owner_name) is
17 begin
18 null;
19 end;
20
21 procedure warning (msg: string;
22 moment: time := start_time;
23 owner: string := owner_name) is
24 begin
25 null;
26 end;
27
28 procedure message (msg: string;
29 moment: time := start_time;
30 owner: string := owner_name) is
31 begin
32 null;
33 end;
34
35 end silent_log;
36