ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 20:04:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Change lat to now.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-05-27 20:54:20 -07:00
parent 7e841df093
commit ec1bb36984
6 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
base/ape/bit/core.hook
View File

@ -266,7 +266,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
[`envelope`[& ~] %pending] [`envelope`[& ~] %pending]
~ ~
~ ~
`statement`[lat.hid ~ sp] `statement`[now.hid ~ sp]
:- `@`(sham eny.hid tail) :- `@`(sham eny.hid tail)
tail tail
[ost %send /auth [our.hid %talk] %poke [%talk-command %publish thotz]] [ost %send /auth [our.hid %talk] %poke [%talk-command %publish thotz]]

8
base/ape/dojo/core.hook
View File

@ -278,7 +278,7 @@
++ dy-amok +>(poy ~) :: terminate ++ dy-amok +>(poy ~) :: terminate
++ dy-beak :: XX rethink ++ dy-beak :: XX rethink
^- beak ^- beak
[our.hid %home [%da lat.hid]] [our.hid %home [%da now.hid]]
:: ::
++ dy-ford :: send work to ford ++ dy-ford :: send work to ford
|= [way=wire kas=silk] |= [way=wire kas=silk]
@ -479,7 +479,7 @@
:+ %mute [%done ~ cag] :+ %mute [%done ~ cag]
^- (list (pair wing silk)) ^- (list (pair wing silk))
:* :- [[~ 12] ~] :* :- [[~ 12] ~]
(dy-silk-vase !>([now=lat.hid eny=eny.hid bec=he-beak])) (dy-silk-vase !>([now=now.hid eny=eny.hid bec=he-beak]))
:: ::
:- [[~ 26] ~] :- [[~ 26] ~]
%- dy-silk-vase %- dy-silk-vase
@ -507,7 +507,7 @@
:: ::
++ dy-twig-head :: dynamic state ++ dy-twig-head :: dynamic state
^- vase ^- vase
:(slop !>(`our=@p`our.hid) !>(`tym=@da`lat.hid) !>(`eny=@uvI`eny.hid)) :(slop !>(`our=@p`our.hid) !>(`tym=@da`now.hid) !>(`eny=@uvI`eny.hid))
:: ::
++ dy-made-dial :: dialog product ++ dy-made-dial :: dialog product
|= cag=cage |= cag=cage
@ -586,7 +586,7 @@
:: ::
++ he-beak :: logical beam ++ he-beak :: logical beam
^- beak ^- beak
[our.hid syd ?^(luc u.luc [%da lat.hid])] [our.hid syd ?^(luc u.luc [%da now.hid])]
:: ::
++ he-card :: emit gift ++ he-card :: emit gift
|= cad=card |= cad=card

8
base/ape/talk/core.hook
View File

@ -294,7 +294,7 @@
^+ +> ^+ +>
=+ bun=(scow %ud num) =+ bun=(scow %ud num)
:: =+ pad=(sub 36 (lent bun)) :: =+ pad=(sub 36 (lent bun))
:: =+ now=`@da`(dis lat.hid 0xffff.ffff.ffff.ffff.0000.0000.0000.0000) :: =+ now=`@da`(dis now.hid 0xffff.ffff.ffff.ffff.0000.0000.0000.0000)
%+ sh-fact %txt %+ sh-fact %txt
(runt [(sub 15 (lent bun)) '-'] "[{bun}]") (runt [(sub 15 (lent bun)) '-'] "[{bun}]")
:: ::
@ -860,7 +860,7 @@
=^ sir +>+>+> sh-uniq =^ sir +>+>+> sh-uniq
%= +>+>+>.$ %= +>+>+>.$
coz :_ coz coz :_ coz
[%publish [[sir sh-whom [lat.hid ~ sep]] ~]] [%publish [[sir sh-whom [now.hid ~ sep]] ~]]
== ==
-- --
:: ::
@ -1322,7 +1322,7 @@
=+ ^= nol =+ ^= nol
?: =(%gone p.saz) ?: =(%gone p.saz)
(~(del by locals) her) (~(del by locals) her)
(~(put by locals) her lat.hid saz) (~(put by locals) her now.hid saz)
?: =(nol locals) +>.$ ?: =(nol locals) +>.$
(pa-display(locals nol) viewers) (pa-display(locals nol) viewers)
:: ::
@ -1735,7 +1735,7 @@
:: |= [from ~] :: |= [from ~]
:: ^- (quip move +>) :: ^- (quip move +>)
:: :_ +>.$ :: :_ +>.$
:: =+ paf=/(scot %p our.hid)/try/(scot %da lat.hid)/talk/backlog/jam :: =+ paf=/(scot %p our.hid)/try/(scot %da now.hid)/talk/backlog/jam
:: [ost %info /jamfile our.hid (foal paf (jam +<+.+>.$))]~ :: [ost %info /jamfile our.hid (foal paf (jam +<+.+>.$))]~
:: ::
++ prep ++ prep

2
base/arvo/zuse.hoon
View File

@ -1854,7 +1854,7 @@
$: ost=bone :: opaque cause $: ost=bone :: opaque cause
act=@ud :: change number act=@ud :: change number
eny=@uvI :: entropy eny=@uvI :: entropy
lat=@da :: current time now=@da :: current time
byk=beak :: load source byk=beak :: load source
== == :: == == ::
++ bray ,[p=life q=(unit life) r=ship s=@da] :: our parent us now ++ bray ,[p=life q=(unit life) r=ship s=@da] :: our parent us now

6
base/lib/helm/core.hook
View File

@ -90,7 +90,7 @@
%- emil %- emil
%- flop %- flop
%+ turn all %+ turn all
=+ ark=(arch .^(%cy /(scot %p our)/base/(scot %da lat)/arvo)) =+ ark=(arch .^(%cy /(scot %p our)/base/(scot %da now)/arvo))
=+ van=(~(tap by r.ark)) =+ van=(~(tap by r.ark))
|= nam=@tas |= nam=@tas
=. nam =. nam
@ -101,7 +101,7 @@
?> ?=([[@ ~] ~] zaz) ?> ?=([[@ ~] ~] zaz)
`term`p.i.zaz `term`p.i.zaz
=+ tip=(end 3 1 nam) =+ tip=(end 3 1 nam)
=+ way=[(scot %p our) %home (scot %da lat) %arvo nam %hoon ~] =+ way=[(scot %p our) %home (scot %da now) %arvo nam %hoon ~]
=+ fil=(,@ .^(%cx way)) =+ fil=(,@ .^(%cx way))
:* %flog :* %flog
/reload /reload
@ -111,7 +111,7 @@
++ poke-reset :: reset system ++ poke-reset :: reset system
|= hood-reset =< abet |= hood-reset =< abet
%- emil %- emil
=+ top=`path`/(scot %p our)/base/arvo/(scot %da lat) =+ top=`path`/(scot %p our)/base/arvo/(scot %da now)
:- [%flog /reset %vega (weld top `path`/hoon)] :- [%flog /reset %vega (weld top `path`/hoon)]
%+ turn %+ turn
^- (list ,[p=@tas q=@tas]) ^- (list ,[p=@tas q=@tas])

14
base/lib/kiln/core.hook
View File

@ -101,7 +101,7 @@
=+ ^- kiln-desk =+ ^- kiln-desk
%+ fall (~(get by rem) syd) %+ fall (~(get by rem) syd)
=+ *kiln-desk =+ *kiln-desk
%_(- cas [%da lat]) %_(- cas [%da now])
|% |%
++ abet :: resolve ++ abet :: resolve
..work(rem (~(put by rem) syd auto gem her sud cas)) ..work(rem (~(put by rem) syd auto gem her sud cas))
@ -163,16 +163,16 @@
^- thought:talk ^- thought:talk
:+ - :+ -
[[[%& our (main our)] [*envelope:talk %pending]] ~ ~] [[[%& our (main our)] [*envelope:talk %pending]] ~ ~]
[lat *bouquet:talk [%app (crip ~(ram re tan))]] [now *bouquet:talk [%app (crip ~(ram re tan))]]
== ==
:: ::
++ merge ++ merge
|= [her=@p sud=@tas gim=?(%auto germ)] |= [her=@p sud=@tas gim=?(%auto germ)]
^+ +> ^+ +>
=. cas [%da lat] =. cas [%da now]
?. ?=(%auto gim) ?. ?=(%auto gim)
perform(auto |, gem gim, her her, sud sud) perform(auto |, gem gim, her her, sud sud)
?: =(0 .^(%cw /(scot %p our)/[syd]/(scot %da lat))) ?: =(0 .^(%cw /(scot %p our)/[syd]/(scot %da now)))
=> $(gim %init) => $(gim %init)
.(auto &) .(auto &)
=> $(gim %fine) => $(gim %fine)
@ -201,15 +201,15 @@
=+ tic=(cat 3 syd '-scratch') =+ tic=(cat 3 syd '-scratch')
%- blab :_ ~ %- blab :_ ~
:* ost %exec /kiln/[syd] :* ost %exec /kiln/[syd]
our [our tic %da lat] ~ %tabl our [our tic %da now] ~ %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn (~(tap in p.are)) %+ turn (~(tap in p.are))
|= pax=path |= pax=path
^- (pair silk silk) ^- (pair silk silk)
:- [%done ~ %path -:!>(*path) pax] :- [%done ~ %path -:!>(*path) pax]
=+ base=[%file [our tic %da lat] (flop pax)] =+ base=[%file [our tic %da now] (flop pax)]
=+ alis=[%file [her sud cas] (flop pax)] =+ alis=[%file [her sud cas] (flop pax)]
=+ bobs=[%file [our syd %da lat] (flop pax)] =+ bobs=[%file [our syd %da now] (flop pax)]
=+ dali=[%diff base alis] =+ dali=[%diff base alis]
=+ dbob=[%diff base bobs] =+ dbob=[%diff base bobs]
=+ ^- for=mark =+ ^- for=mark