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