Mercurial > hg > dbtune-rdf-services
annotate classical/urispace/log.pl @ 15:539f85ff6124
Path fix
| author | Chris Cannam |
|---|---|
| date | Tue, 07 Nov 2017 11:39:35 +0000 |
| parents | 91b5145fff34 |
| children | 9e70cd92f14e |
| rev | line source |
|---|---|
| Chris@14 | 1 /** |
| Chris@14 | 2 * Some logging facilities |
| Chris@14 | 3 * Copyright Yves Raimond (c) 2006 |
| Chris@14 | 4 */ |
| Chris@14 | 5 :- module(log,[log/1,log/2]). |
| Chris@14 | 6 |
| Chris@14 | 7 |
| Chris@14 | 8 log_file('jamendo-uri.log'). |
| Chris@14 | 9 |
| Chris@14 | 10 log(MessageFormat,Vars) :- |
| Chris@14 | 11 sformat(String,MessageFormat,Vars), |
| Chris@14 | 12 log(String). |
| Chris@14 | 13 |
| Chris@14 | 14 log(Message) :- |
| Chris@14 | 15 get_time(A), |
| Chris@14 | 16 convert_time(A,Y,M,D,H,Min,S,_), |
| Chris@14 | 17 sformat(Stamp,'<~d/~d/~d-~d:~d:~d> ',[Y,M,D,H,Min,S]), |
| Chris@14 | 18 log_file(File), |
| Chris@14 | 19 open(File,append,Stream,[]), |
| Chris@14 | 20 write(Stream,Stamp), |
| Chris@14 | 21 write(Stream,Message), |
| Chris@14 | 22 write(Stream,'\n'), |
| Chris@14 | 23 close(Stream). |
| Chris@14 | 24 |
| Chris@14 | 25 |