parse-cronentry ( entry -- cronentry )

Vocabulary

crontab

Inputs

entry

an object

Outputs

cronentry

an object

Definition

USING: ascii assocs circular combinators crontab.private kernel
math.parser ranges sequences splitting ;

IN: crontab

: parse-cronentry ( entry -- cronentry )
    [ blank? ] trim-head " " split1 [ aliases ?at drop ] dip
    " " glue
    " " split1 " " split1 " " split1 " " split1 " " split1 {
        [
            [ string>number ]
            T{ range { length 60 } { step 1 } } parse-value
        ]
        [
            [ string>number ]
            T{ range { length 24 } { step 1 } } parse-value
        ]
        [
            [ string>number ]
            T{ range { from 1 } { length 31 } { step 1 } }
            parse-value
        ]
        [
            [ parse-month ]
            T{ range { from 1 } { length 12 } { step 1 } }
            parse-value
        ]
        [
            [ parse-day ] T{ circular
                { seq T{ range { length 7 } { step 1 } } }
                { start 1 }
            } parse-value
        ]
        [ ]
    } spread cronentry boa check-cronentry ;