katsu #1365(2007/07/23 08:02 GMT) [ Prolog ] Rating1/1=1.00
1 2 3 4 5 6
watch(Filename,MTime):-sleep(0.1),time_file(Filename,MTime0),modified(MTime0,MTime),watch(Filename,MTime0). modified(_,0). modified(T,T). modified(_,_):-writeln(modified). :-watch('./watch.pl',0).
Rating1/1=1.00-0+
[ reply ]
katsu
#1365()
[
Prolog
]
Rating1/1=1.00
watch(Filename,MTime):-sleep(0.1),time_file(Filename,MTime0),modified(MTime0,MTime),watch(Filename,MTime0). modified(_,0). modified(T,T). modified(_,_):-writeln(modified). :-watch('./watch.pl',0).Rating1/1=1.00-0+
[ reply ]