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