mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 01:52:42 +03:00
Merge branch 'release/next-sys' into la/deep-graph
This commit is contained in:
Logan Allen
commit
3fb9bd0839
@ -5452,6 +5452,7 @@
|
||||
:::: 4k: atom printing
|
||||
::
|
||||
++ co
|
||||
!:
|
||||
~% %co ..co ~
|
||||
=< |_ lot=coin
|
||||
++ rear |=(rom=tape rend(rep rom))
|
||||
@ -5603,18 +5604,17 @@
|
||||
|= a=dn
|
||||
?: ?=([%i *] a) (weld ?:(s.a "inf" "-inf") rep)
|
||||
?: ?=([%n *] a) (weld "nan" rep)
|
||||
=/ f=(pair tape @)
|
||||
%. a.a
|
||||
%+ ed-co(rep ~) [10 1]
|
||||
|=([a=? b=@ c=tape] [~(d ne b) ?.(a c ['.' c])])
|
||||
=. e.a (sum:si e.a (sun:si (dec q.f)))
|
||||
=/ res
|
||||
%+ weld p.f
|
||||
?~ e.a
|
||||
rep
|
||||
%+ weld ?:((syn:si e.a) "e" "e-")
|
||||
((d-co 1) (abs:si e.a))
|
||||
?:(s.a res ['-' res])
|
||||
=; rep ?:(s.a rep ['-' rep])
|
||||
=/ f ((d-co 1) a.a)
|
||||
=^ e e.a
|
||||
=/ e=@s (sun:si (lent f))
|
||||
=/ sci :(sum:si e.a e -1)
|
||||
?: (syn:si (dif:si e.a --3)) [--1 sci] :: 12000 -> 12e3 e>+2
|
||||
?: !(syn:si (dif:si sci -2)) [--1 sci] :: 0.001 -> 1e-3 e<-2
|
||||
[(sum:si sci --1) --0] :: 1.234e2 -> '.'@3 -> 123 .4
|
||||
=? rep !=(--0 e.a)
|
||||
:(weld ?:((syn:si e.a) "e" "e-") ((d-co 1) (abs:si e.a)))
|
||||
(weld (ed-co e f) rep)
|
||||
::
|
||||
++ s-co
|
||||
|= esc=(list @) ^- tape
|
||||
@ -5660,20 +5660,13 @@
|
||||
:: - used only for @r* floats
|
||||
::
|
||||
++ ed-co
|
||||
|= [[bas=@ min=@] par=$-([? @ tape] tape)]
|
||||
=| [fir=? cou=@ud]
|
||||
|= hol=@
|
||||
^- [tape @]
|
||||
?: &(=(0 hol) =(0 min))
|
||||
[rep cou]
|
||||
=/ [dar=@ rad=@] (dvr hol bas)
|
||||
%= $
|
||||
min ?:(=(0 min) 0 (dec min))
|
||||
hol dar
|
||||
rep (par &(=(0 dar) !fir) rad rep)
|
||||
fir |
|
||||
cou +(cou)
|
||||
==
|
||||
|= [exp=@s int=tape] ^- tape
|
||||
=/ [pos=? dig=@u] [=(--1 (cmp:si exp --0)) (abs:si exp)]
|
||||
?. pos
|
||||
(into (weld (reap +(dig) '0') int) 1 '.')
|
||||
=/ len (lent int)
|
||||
?: (lth dig len) (into int dig '.')
|
||||
(weld int (reap (sub dig len) '0'))
|
||||
::
|
||||
:: +ox-co: format '.'-separated digit sequences in numeric base
|
||||
::
|
||||
@ -6627,7 +6620,7 @@
|
||||
+$ seminoun
|
||||
:: partial noun; blocked subtrees are ~
|
||||
::
|
||||
$~ [[%full ~] ~]
|
||||
$~ [[%full / ~ ~] ~]
|
||||
[mask=stencil data=noun]
|
||||
::
|
||||
:: +stencil: noun knowledge map
|
||||
|
||||
@ -1967,20 +1967,12 @@
|
||||
++ on-memo
|
||||
|= [=bone payload=* valence=?(%plea %boon)]
|
||||
^+ peer-core
|
||||
:: if we haven't been trying to talk to %live, reset timer
|
||||
::
|
||||
=? last-contact.qos.peer-state
|
||||
?& ?=(%live -.qos.peer-state)
|
||||
%- ~(all by snd.peer-state)
|
||||
|= =message-pump-state
|
||||
=(~ live.packet-pump-state.message-pump-state)
|
||||
==
|
||||
now
|
||||
::
|
||||
=/ =message-blob (dedup-message (jim payload))
|
||||
=. peer-core (run-message-pump bone %memo message-blob)
|
||||
::
|
||||
?: &(=(%boon valence) ?=(?(%dead %unborn) -.qos.peer-state))
|
||||
?: ?& =(%boon valence)
|
||||
(gte now (add ~s30 last-contact.qos.peer-state))
|
||||
==
|
||||
check-clog
|
||||
peer-core
|
||||
:: +dedup-message: replace with any existing copy of this message
|
||||
|
||||
@ -5077,10 +5077,6 @@
|
||||
++ ordered-map on
|
||||
:: +on: treap with user-specified horizontal order, ordered-map
|
||||
::
|
||||
:: Conceptually smaller items go on the left, so the item with the
|
||||
:: smallest key can be popped off the head. If $key is `@` and
|
||||
:: .compare is +lte, then the numerically smallest item is the head.
|
||||
::
|
||||
:: WARNING: ordered-map will not work properly if two keys can be
|
||||
:: unequal under noun equality but equal via the compare gate
|
||||
::
|
||||
@ -5144,7 +5140,7 @@
|
||||
::
|
||||
?~(r.a %.y &((mor key.n.a key.n.r.a) $(a r.a, r `key.n.a)))
|
||||
==
|
||||
:: +bap: convert to list, largest to smallest
|
||||
:: +bap: convert to list, right to left
|
||||
::
|
||||
++ bap
|
||||
~/ %bap
|
||||
@ -5175,10 +5171,9 @@
|
||||
:: +dip: stateful partial inorder traversal
|
||||
::
|
||||
:: Mutates .state on each run of .f. Starts at .start key, or if
|
||||
:: .start is ~, starts at the head (item with smallest key). Stops
|
||||
:: when .f produces .stop=%.y. Traverses from smaller to larger
|
||||
:: keys. Each run of .f can replace an item's value or delete the
|
||||
:: item.
|
||||
:: .start is ~, starts at the head. Stops when .f produces .stop=%.y.
|
||||
:: Traverses from left to right keys.
|
||||
:: Each run of .f can replace an item's value or delete the item.
|
||||
::
|
||||
++ dip
|
||||
~/ %dip
|
||||
@ -5339,7 +5334,7 @@
|
||||
l.a(r $(l.a r.l.a))
|
||||
r.a(l $(r.a l.r.a))
|
||||
::
|
||||
:: +pop: produce .head (smallest item) and .rest or crash if empty
|
||||
:: +pop: produce .head (leftmost item) and .rest or crash if empty
|
||||
::
|
||||
++ pop
|
||||
~/ %pop
|
||||
@ -5354,13 +5349,14 @@
|
||||
?: |(?=(~ rest.l) (mor key.n.a key.n.rest.l))
|
||||
a(l rest.l)
|
||||
rest.l(r a(r r.rest.l))
|
||||
:: +pry: produce head (smallest item) or null
|
||||
:: +pry: produce head (leftmost item) or null
|
||||
::
|
||||
++ pry
|
||||
~/ %pry
|
||||
|= a=(tree item)
|
||||
^- (unit item)
|
||||
?~ a ~
|
||||
|-
|
||||
?~ l.a `n.a
|
||||
$(a l.a)
|
||||
:: +put: ordered item insert
|
||||
@ -5390,6 +5386,16 @@
|
||||
?: (mor key.n.a key.n.r)
|
||||
a(r r)
|
||||
r(l a(r l.r))
|
||||
:: +ram: produce tail (rightmost item) or null
|
||||
::
|
||||
++ ram
|
||||
~/ %ram
|
||||
|= a=(tree item)
|
||||
^- (unit item)
|
||||
?~ a ~
|
||||
|-
|
||||
?~ r.a `n.a
|
||||
$(a r.a)
|
||||
:: +run: apply gate to transform all values in place
|
||||
::
|
||||
++ run
|
||||
@ -5431,7 +5437,7 @@
|
||||
$(a r.a)
|
||||
a(l $(a l.a))
|
||||
--
|
||||
:: +tap: convert to list, smallest to largest
|
||||
:: +tap: convert to list, left to right
|
||||
::
|
||||
++ tap
|
||||
~/ %tap
|
||||
|
||||
Loading…
Reference in New Issue
Block a user