<ntp> ( host -- ntp )

Vocabulary

ntp

Inputs

host

a string

Outputs

ntp

a ntp

Word description

Requests the time from the specified NTP time server.

Definition

USING: io.sockets kernel ntp.private random sequences ;

IN: ntp

: <ntp> ( host -- ntp )
    123 <inet> resolve-host [ inet4? ] filter random
    [ [ REQUEST ] 2dip [ send ] [ receive drop ] bi (ntp) ]
    with-any-port-local-datagram ;