git.iko.soy/urbit.org
on 8e080d6 help sign in
urbit.org/docs/programming/reference/library/src/3c/gate/yule.md
58 lines 1.2 kB history raw
1### `++yule`
3Daily time to time atom
5Accept a `++tarp`, a parsed daily time, and produces a time atom,
6`@d`.
8Accepts
9-------
11`rip` is a `++tarp`.
13Produces
14--------
16A `@d`.
18Source
19------
21 ++ yule :: time atom
22 |= rip/tarp
23 ^- @d
24 =+ ^= sec ;: add
25 (mul d.rip day:yo)
26 (mul h.rip hor:yo)
27 (mul m.rip mit:yo)
28 s.rip
29 ==
30 =+ ^= fac =+ muc=4
31 |- ^- @
32 ?~ f.rip
33 0
34 => .(muc (dec muc))
35 (add (lsh 4 muc i.f.rip) $(f.rip t.f.rip))
36 (con (lsh 6 1 sec) fac)
37 ::
39Examples
40--------
42 ~zod/try=> =murica (yell ~1776.7.4)
43 ~zod/try=> murica
44 [d=106.751.991.733.273 h=0 m=0 s=0 f=~]
45 ~zod/try=> (yule murica)
46 0x8000000b62aaf5800000000000000000
47 ~zod/try=> `@da`(yule murica)
48 ~1776.7.4
49 ~zod/try=> `@da`(yule (yell ~2014.3.20..05.42.53..7456))
50 ~2014.3.20..05.42.53..7456
51 ~zod/try=> `tarp`[31 12 30 0 ~]
52 [d=31 h=12 m=30 s=0 f=~]
53 ~zod/try=> `@dr`(yule `tarp`[31 12 30 0 ~])
54 ~d31.h12.m30
58***