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

hoon: adds $step for bloq-sized atom offsets

Browse Source
This commit is contained in:
Joe Bryan 2020-12-01 16:51:14 -08:00
parent a7f11df506
commit 7a08067cf1
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/sys/hoon.hoon
View File

@ -368,6 +368,11 @@
::
[(list item) state]
::
++ step
:: atom size or offset, in bloqs
::
_`@u`1
::
++ trap
|$ [product]
:: a core with one arm `$`
@ -821,14 +826,14 @@
::
++ bex :: binary exponent
~/ %bex
|= a=@
|= a=bloq
^- @
?: =(0 a) 1
(mul 2 $(a (dec a)))
::
++ can :: assemble
~/ %can
|= [a=bloq b=(list [p=@u q=@])]
|= [a=bloq b=(list [p=step q=@])]
^- @
?~ b 0
(add (end a p.i.b q.i.b) (lsh a p.i.b $(b t.b)))
@ -840,16 +845,17 @@
::
++ cut :: slice
~/ %cut
|= [a=bloq [b=@u c=@u] d=@]
|= [a=bloq [b=step c=step] d=@]
(end a c (rsh a b d))
::
++ end :: tail
~/ %end
|= [a=bloq b=@u c=@]
|= [a=bloq b=step c=@]
(mod c (bex (mul (bex a) b)))
::
++ fil :: fill bloqstream
|= [a=bloq b=@u c=@]
~/ %fil
|= [a=bloq b=step c=@]
=+ n=0
=+ d=c
|- ^- @
@ -859,7 +865,7 @@
::
++ lsh :: left-shift
~/ %lsh
|= [a=bloq b=@u c=@]
|= [a=bloq b=step c=@]
(mul (bex (mul (bex a) b)) c)
::
++ met :: measure
@ -928,7 +934,7 @@
::
++ rsh :: right-shift
~/ %rsh
|= [a=bloq b=@u c=@]
|= [a=bloq b=step c=@]
(div c (bex (mul (bex a) b)))
::
++ swp :: naive rev bloq order