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