steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

crontab: some more fixes.

windows-drag
John Benediktsson 2019-03-22 20:36:16 -07:00
parent c228aaf836
commit 0f0099b08d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/crontab/crontab.factor
View File

@ -68,15 +68,18 @@ CONSTANT: aliases H{
timestamp day>> :> day timestamp day>> :> day
cronentry days>> [ day >= ] find nip [ cronentry days>> [ day >= ] find nip [
dup day = [ drop f ] [ timestamp day<< t ] if dup day = [ drop f ] [
timestamp 0 >>hour 0 >>minute day<< t
] if
] [ ] [
timestamp cronentry days>> first >>day 1 +month timestamp 0 >>hour 0 >>minute
cronentry days>> first >>day 1 +month
] if* [ cronentry timestamp (next-time-after) ] when ] if* [ cronentry timestamp (next-time-after) ] when
timestamp hour>> :> hour timestamp hour>> :> hour
cronentry hours>> [ hour >= ] find nip [ cronentry hours>> [ hour >= ] find nip [
dup hour = [ drop f ] [ dup hour = [ drop f ] [
timestamp 0 >>hour minute<< t timestamp 0 >>minute hour<< t
] if ] if
] [ ] [
timestamp 0 >>minute timestamp 0 >>minute