File: dbf\system_log-put_line.adb
1 --::::::::::
2 --sylopuli.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 with text_io;
12 separate (system_log)
13
14 procedure put_line (s: string) is
15 begin
16 if s'length > 0 then
17 text_io.put_line (s);
18 end if;
19 null;
20 end;
21