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