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

Moved api helper arms into zuse. Added factorial ("fac") and Uppercase ("cuss") arms to hoon.hoon.

Browse Source
This commit is contained in:
John Dulin 2014-05-20 22:43:21 -07:00
parent 31663a39ce
commit 49cde8eea4
2 changed files with 44 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
arvo/hoon.hoon
View File

@ -477,6 +477,13 @@
c c
$(a (sub a b), c +(c)) $(a (sub a b), c +(c))
:: ::
++ fac :: factorial
|= a=@ :: This should be jetted.
^- @
?: =(0 a)
1
(mul a $(a (dec a)))
::
++ gte :: greater-equal ++ gte :: greater-equal
~/ %gte ~/ %gte
|= [a=@ b=@] |= [a=@ b=@]
@ -828,7 +835,7 @@
(mod c (bex (mul (bex a) b))) (mod c (bex (mul (bex a) b)))
:: ::
++ fil :: fill bloqstream ++ fil :: fill bloqstream
|= [a=bloq b=@ c=@] |= [a=bloq b=@ c=@]
=+ n=0 =+ n=0
=+ d=c =+ d=c
|- ^- @ |- ^- @
@ -2222,6 +2229,11 @@
|= vib=tape |= vib=tape
%+ rap 3 %+ rap 3
(turn vib |=(a=@ ?.(&((gte a 'A') (lte a 'Z')) a (add 32 a)))) (turn vib |=(a=@ ?.(&((gte a 'A') (lte a 'Z')) a (add 32 a))))
++ cuss :: uppercase
|= vib=tape
^- @t
%+ rap 3
(turn vib |=(a=@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32))))
:: ::
++ crip |=(a=tape `@t`(rap 3 a)) ++ crip |=(a=tape `@t`(rap 3 a))
++ mesc ++ mesc

32
arvo/zuse.hoon
View File

@ -577,6 +577,18 @@
?. &(?=(^ tin) =(key p.u.tin) =(msg q.u.tin)) ?. &(?=(^ tin) =(key p.u.tin) =(msg q.u.tin))
~|(%test-fail-seal !!) ~|(%test-fail-seal !!)
msg msg
::
++ hmac :: HMAC calculation
|= [key=@ mes=@]
=+ ip=(fil 2 64 0x36)
=+ op=(fil 3 64 0x5c)
=+ ^= kex
?: (gth (met 3 key) 64)
(lsh 3 44 (shan (swap 3 key)))
(lsh 3 (sub 64 (met 3 key)) (swap 3 key))
=+ inn=(shan (swap 3 (cat 3 (swap 3 mes) (mix ip kex))))
(shan (swap 3 (cat 3 inn (mix op kex))))
::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 3bC, UTC :: Gregorian only :: section 3bC, UTC :: Gregorian only
:: ::
@ -652,7 +664,10 @@
;~(sfix dim:ag col) dim:ag (cold ~ (star next)) ;~(sfix dim:ag col) dim:ag (cold ~ (star next))
== ==
[[%.y &3.tuc] &2.tuc &1.tuc &4.tuc &5.tuc &6.tuc ~] [[%.y &3.tuc] &2.tuc &1.tuc &4.tuc &5.tuc &6.tuc ~]
::
++ unt :: UGT to UTC time
|= a=@
(div (sub a ~1970.1.1) (bex 64))
:: ::
++ yu :: UTC format constants ++ yu :: UTC format constants
|% |%
@ -1486,6 +1501,21 @@
?~(nex ~ [~ [`@`u.val u.nex]]) ?~(nex ~ [~ [`@`u.val u.nex]])
=+ nex=$(tep t.tep) =+ nex=$(tep t.tep)
?~(nex ~ [~ i.tep u.nex]) ?~(nex ~ [~ i.tep u.nex])
++ sifo :: 64-bit encode
|= tig=@
^- tape
=+ poc=(mod (sub 3 (mod (met 3 tig) 3)) 3)
=+ pad=(lsh 3 poc (swap 3 tig))
=+ ^= ska
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
=+ ^= sif
%- flop
|- ^- tape
?~ pad
~
=+ d=(end 0 6 pad)
[(snag d ska) $(pad (rsh 0 6 pad))]
(weld (scag (sub (lent sif) poc) sif) (trip (fil 3 poc '=')))
:: ::
++ earl :: local purl to tape ++ earl :: local purl to tape
|= [who=@p pul=purl] |= [who=@p pul=purl]