diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

...

This commit is contained in:
Theofrastos Mantadelis 2011-02-01 18:11:36 +01:00
parent ab24175145
commit 95427488d6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/c_alarms.yap
View File

@ -275,10 +275,13 @@ unset_alarm(ID):-
unset_alarm(ID):- unset_alarm(ID):-
alarm(0, true, Remaining), alarm(0, true, Remaining),
bb_get(alarms, Alarms), bb_get(alarms, Alarms),
[alarm(Seconds, _, _)|_] = Alarms,
Elapsed is Seconds - Remaining - 1,
delete_alarm(Alarms, ID, NewAlarms), delete_alarm(Alarms, ID, NewAlarms),
bb_put(alarms, NewAlarms), bb_put(alarms, NewAlarms),
(NewAlarms = [alarm(Seconds, _, _)|_] -> (NewAlarms = [alarm(NewSeconds, _, _)|_] ->
alarm(Seconds, alarm_handler, _) RemainingSeconds is NewSeconds - Elapsed,
alarm(RemainingSeconds, alarm_handler, _)
; ;
true true
). ).