ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 12:15:43 +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]
~
~
`statement`[lat.hid ~ sp]
`statement`[now.hid ~ sp]
:- `@`(sham eny.hid tail)
tail
[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-beak :: XX rethink
^- beak
[our.hid %home [%da lat.hid]]
[our.hid %home [%da now.hid]]
::
++ dy-ford :: send work to ford
|= [way=wire kas=silk]
@ -479,7 +479,7 @@
:+ %mute [%done ~ cag]
^- (list (pair wing silk))
:* :- [[~ 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] ~]
%- dy-silk-vase
@ -507,7 +507,7 @@
::
++ dy-twig-head :: dynamic state
^- 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
|= cag=cage
@ -586,7 +586,7 @@
::
++ he-beak :: logical beam
^- beak
[our.hid syd ?^(luc u.luc [%da lat.hid])]
[our.hid syd ?^(luc u.luc [%da now.hid])]
::
++ he-card :: emit gift
|= cad=card

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

@ -294,7 +294,7 @@
^+ +>
=+ bun=(scow %ud num)
:: =+ 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
(runt [(sub 15 (lent bun)) '-'] "[{bun}]")
::
@ -860,7 +860,7 @@
=^ sir +>+>+> sh-uniq
%= +>+>+>.$
coz :_ coz
[%publish [[sir sh-whom [lat.hid ~ sep]] ~]]
[%publish [[sir sh-whom [now.hid ~ sep]] ~]]
==
--
::
@ -1322,7 +1322,7 @@
=+ ^= nol
?: =(%gone p.saz)
(~(del by locals) her)
(~(put by locals) her lat.hid saz)
(~(put by locals) her now.hid saz)
?: =(nol locals) +>.$
(pa-display(locals nol) viewers)
::
@ -1735,7 +1735,7 @@
:: |= [from ~]
:: ^- (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 +<+.+>.$))]~
::
++ prep

2
base/arvo/zuse.hoon
View File

@ -1854,7 +1854,7 @@
$: ost=bone :: opaque cause
act=@ud :: change number
eny=@uvI :: entropy
lat=@da :: current time
now=@da :: current time
byk=beak :: load source
== == ::
++ 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
%- flop
%+ 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))
|= nam=@tas
=. nam
@ -101,7 +101,7 @@
?> ?=([[@ ~] ~] zaz)
`term`p.i.zaz
=+ 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))
:* %flog
/reload
@ -111,7 +111,7 @@
++ poke-reset :: reset system
|= hood-reset =< abet
%- 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)]
%+ turn
^- (list ,[p=@tas q=@tas])

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

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