urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-06 13:14:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

dbug: just use +dor for sorting

Browse Source 
+vor is literally just +dor.
This commit is contained in:
Fang 2020-05-19 23:46:27 +02:00
parent c3704f0198
commit 15e3ea6940
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 8 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
pkg/arvo/app/dbug.hoon
View File

@ -491,17 +491,17 @@
:: ::
:- 'snd' :- 'snd'
:- %a :- %a
%+ turn (sort ~(tap by snd) vor) :: sort by bone %+ turn (sort ~(tap by snd) dor) :: sort by bone
(cury snd-with-bone ossuary) (cury snd-with-bone ossuary)
:: ::
:- 'rcv' :- 'rcv'
:- %a :- %a
%+ turn (sort ~(tap by rcv) vor) :: sort by bone %+ turn (sort ~(tap by rcv) dor) :: sort by bone
(cury rcv-with-bone ossuary) (cury rcv-with-bone ossuary)
:: ::
:- 'nax' :- 'nax'
:- %a :- %a
%+ turn (sort ~(tap in nax) vor) :: sort by bone %+ turn (sort ~(tap in nax) dor) :: sort by bone
|= [=bone =message-num] |= [=bone =message-num]
%- pairs %- pairs
:* 'message-num'^(numb message-num) :* 'message-num'^(numb message-num)
@ -525,7 +525,7 @@
:: ::
:- 'queued-message-acks' :- 'queued-message-acks'
:- %a :- %a
%+ turn (sort ~(tap by queued-message-acks) vor) :: sort by msg nr %+ turn (sort ~(tap by queued-message-acks) dor) :: sort by msg nr
|= [=message-num =ack] |= [=message-num =ack]
%- pairs %- pairs
:~ 'message-num'^(numb message-num) :~ 'message-num'^(numb message-num)
@ -539,7 +539,7 @@
:: ::
:- 'live' :- 'live'
:- %a :- %a
%+ turn (sort ~(tap in live) vor) :: sort by msg nr & frg nr %+ turn (sort ~(tap in live) dor) :: sort by msg nr & frg nr
|= [live-packet-key live-packet-val] |= [live-packet-key live-packet-val]
%- pairs %- pairs
:~ 'message-num'^(numb message-num) :~ 'message-num'^(numb message-num)
@ -575,11 +575,11 @@
:: ::
:- 'pending-vane-ack' :- 'pending-vane-ack'
=- a+(turn - numb) =- a+(turn - numb)
(sort (turn ~(tap in pending-vane-ack) head) vor) :: sort by msg # (sort (turn ~(tap in pending-vane-ack) head) dor) :: sort by msg #
:: ::
:- 'live-messages' :- 'live-messages'
:- %a :- %a
%+ turn (sort ~(tap by live-messages) vor) :: sort by msg # %+ turn (sort ~(tap by live-messages) dor) :: sort by msg #
|= [=message-num partial-rcv-message] |= [=message-num partial-rcv-message]
%- pairs %- pairs
:~ 'message-num'^(numb message-num) :~ 'message-num'^(numb message-num)
@ -588,7 +588,7 @@
'fragments'^(set-array ~(key by fragments) numb) 'fragments'^(set-array ~(key by fragments) numb)
== ==
:: ::
'nax'^a+(turn (sort ~(tap in nax) vor) numb) 'nax'^a+(turn (sort ~(tap in nax) dor) numb)
:: ::
(bone-to-pairs bone ossuary) (bone-to-pairs bone ossuary)
== ==
@ -724,22 +724,6 @@
:: ::
:: helpers :: helpers
:: ::
:: +vor: value order
::
:: Orders atoms before cells, and atoms in ascending order.
::
++ vor
|= [a=* b=*]
^- ?
?: =(a b) &
?. ?=(@ a)
?: ?=(@ b) |
?: =(-.a -.b)
$(a +.a, b +.b)
$(a -.a, b -.b)
?. ?=(@ b) &
(lth a b)
::
++ poke ++ poke
|= [=wire app=term =mark =vase] |= [=wire app=term =mark =vase]
^- card ^- card