on 492ae2f help sign in
42 lines 892 B history raw
1### `++dust`
3Print UTC format
5Produces a [`++tape`]() of the date in UTC format.
7Accepts
8-------
10`yed` is a [`++date`]().
12Produces
13--------
15A `++tape`.
17Source
18------
20 ++ dust :: print UTC format
21 |= yed=date
22 ^- tape
23 =+ wey=(daws yed)
24 ;: weld
25 `tape`(snag wey (turn wik:yu |=(a=tape (scag 3 a))))
26 ", " ~(rud at d.t.yed) " "
27 `tape`(snag (dec m.yed) (turn mon:yu |=(a=tape (scag 3 a))))
28 " " (scag 1 ~(rud at y.yed)) (slag 2 ~(rud at y.yed)) " "
29 ~(rud at h.t.yed) ":" ~(rud at m.t.yed) ":" ~(rud at s.t.yed)
30 " " "+0000"
31 ==
32 ::
34Examples
35--------
37 ~zod/try=> (dust (yore ->-))
38 "Tue, 21 Oct 2014 21:35:12 +0000"
39 ~zod/try=> (dust [[a=%.y y=2.002] m=10 t=[d=11 h=12 m=20 s=55 f=~]])
40 "Fri, 11 Oct 2002 12:20:55 +0000"