check-cronentry ( cronentry -- cronentry )

Vocabulary

crontab.private

Inputs

cronentry

an object

Outputs

cronentry

an object

Definition

USING: accessors combinators.short-circuit crontab kernel
math.order sequences ;

IN: crontab.private

: check-cronentry ( cronentry -- cronentry )
    dup {
        [ days-of-week>> [ 0 6 between? ] all? ]
        [ months>> [ 1 12 between? ] all? ]
        [
            [ days>> 1 ] [ months>> ] bi
            [ { 0 31 29 31 30 31 30 31 31 30 31 30 31 } nth ]
            map maximum [ between? ] 2curry all?
        ]
        [ minutes>> [ 0 59 between? ] all? ]
        [ hours>> [ 0 23 between? ] all? ]
    } 1&& [ invalid-cronentry ] unless ;