comparison-day-string ( timestamp string -- timestamp )

Vocabulary

zoneinfo

Inputs

timestamp	an object
string	an object

Outputs

timestamp

an object

Definition

USING: accessors combinators kernel math.parser sequences
splitting ;

IN: zoneinfo

: comparison-day-string ( timestamp string -- timestamp )
    {
        {
            [ dup ">=" subseq-of? ]
            [
                ">=" split1 swap [ string>number >>day ] dip
                day-abbrev>=
            ]
        }
        {
            [ dup "<=" subseq-of? ]
            [
                "<=" split1 swap [ string>number >>day ] dip
                day-abbrev<=
            ]
        }
        [ string>number >>day ]
    } cond ;