(mode) ( mode -- string )

Vocabulary

ntp.private

Inputs

mode

an object

Outputs

string

an object

Definition

USING: combinators kernel ;

IN: ntp.private

: (mode) ( mode -- string )
    {
        { 0 [ "unspecified" ] }
        { 1 [ "symmetric active" ] }
        { 2 [ "symmetric passive" ] }
        { 3 [ "client" ] }
        { 4 [ "server" ] }
        { 5 [ "broadcast" ] }
        { 6 [ "reserved for NTP control message" ] }
        { 7 [ "reserved for private use" ] }
        [ drop f ]
    } case ;