(stratum) ( stratum -- string )

Vocabulary

ntp.private

Inputs

stratum

an object

Outputs

string

an object

Definition

USING: combinators kernel math ;

IN: ntp.private

: (stratum) ( stratum -- string )
    {
        { 0 [ "unspecified or unavailable" ] }
        { 1 [ "primary reference (e.g., radio clock)" ] }
        [
            [ 1 > ] [ 255 < ] bi and
            [ "secondary reference (via NTP or SNTP)" ]
            [ "invalid stratum" throw ] if
        ]
    } case ;